lbm_c_interop.h

Go to the documentation of this file.

 /*
    Copyright 2018, 2020 - 2022, 2024 Joel Svensson    svenssonjoel@yahoo.se
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/
 
#ifndef LBM_C_INTEROP_H_
#define LBM_C_INTEROP_H_
 
#include "env.h"
#include "symrepr.h"
#include "eval_cps.h"
#include "heap.h"
#include "tokpar.h"
#include "lbm_memory.h"
#include "heap.h"
#include "lbm_types.h"
#include "lbm_channel.h"
 
#ifdef __cplusplus
extern "C" {
#endif
 
  lbm_cid lbm_load_and_eval_program(lbm_char_channel_t *tokenizer, char *name);
  lbm_cid lbm_load_and_eval_program_incremental(lbm_char_channel_t *tokenizer, char *name);
lbm_cid lbm_load_and_eval_expression(lbm_char_channel_t *tokenizer);
lbm_cid lbm_load_and_define_program(lbm_char_channel_t *tokenizer, char *symbol);
lbm_cid lbm_load_and_define_expression(lbm_char_channel_t *tokenizer, char *symbol);
 
/* Evaluating a definition in a new context */
lbm_cid lbm_eval_defined_expression(char *symbol);
lbm_cid lbm_eval_defined_program(char *symbol);
 
int lbm_send_message(lbm_cid cid, lbm_value msg);
 
int lbm_define(char *symbol, lbm_value value);
int lbm_undefine(char *symbol);
int lbm_share_array(lbm_value *value, char *data, lbm_uint num_elt);
 
int lbm_share_array_const(lbm_value *res, char *flash_ptr, lbm_uint num_elt);
int lbm_create_array(lbm_value *value,lbm_uint num_elt);
 
void lbm_clear_env(void);
 
bool lbm_flatten_env(int index, lbm_uint** data, lbm_uint *size);
 
#ifdef __cplusplus
}
#endif
#endif