d72f3b9978
* Command ``BrRestart`` to restart the Berry VM (experimental) * Add web button for Berry Restart
118 lines
4.7 KiB
C
118 lines
4.7 KiB
C
|
|
|
|
#ifndef __BE_MAPPING__
|
|
#define __BE_MAPPING__
|
|
|
|
#include "berry.h"
|
|
|
|
// include this header to force compilation fo this module
|
|
#define BE_MAX_CB 20 // max number of callbacks, each callback requires a distinct address
|
|
|
|
#ifdef __cplusplus
|
|
#define be_const_ctype_func(_f) { \
|
|
bvaldata((const void*) &ctype_func_def##_f), \
|
|
BE_CTYPE_FUNC \
|
|
}
|
|
#define be_const_static_ctype_func(_f) { \
|
|
bvaldata((const void*) &ctype_func_def##_f), \
|
|
BE_CTYPE_FUNC | BE_STATIC \
|
|
}
|
|
#else // __cplusplus
|
|
typedef const void* be_constptr;
|
|
#define be_const_ctype_func(_f) { \
|
|
.v.nf = (const void*) &ctype_func_def##_f, \
|
|
.type = BE_CTYPE_FUNC \
|
|
}
|
|
typedef const void* be_constptr;
|
|
#define be_const_static_ctype_func(_f) { \
|
|
.v.nf = (const void*) &ctype_func_def##_f, \
|
|
.type = BE_CTYPE_FUNC | BE_STATIC \
|
|
}
|
|
#endif // __cplusplus
|
|
|
|
#define BE_FUNC_CTYPE_DECLARE(_name, _ret_arg, _in_arg) \
|
|
static const be_ctype_args_t ctype_func_def##_name = { (const void*) &_name, _ret_arg, _in_arg };
|
|
#define BE_VAR_CTYPE_DECLARE(_name, _ret_arg) \
|
|
static const be_ctype_var_args_t ctype_func_def##_name = { (const void*) &_name, _ret_arg };
|
|
|
|
#define be_cconst_int(_v) ((intptr_t)(_v))
|
|
#define be_cconst_string(_v) ((intptr_t)(_v))
|
|
#define be_cconst_ptr(_v) ((intptr_t)(_v))
|
|
#define be_cconst_func(_v) ((intptr_t)(_v))
|
|
#define be_ctype(_name) ((intptr_t) &ctype_func_def##_name)
|
|
|
|
/* C arguments are coded as an array of 3 pointers */
|
|
typedef struct be_ctype_args_t {
|
|
const void* func;
|
|
const char* return_type;
|
|
const char* arg_type;
|
|
} be_ctype_args_t;
|
|
|
|
/* ctype constant function as an array of 2 pointers: function and return type. arg_type is always NULL */
|
|
typedef struct be_ctype_var_args_t {
|
|
const void* func;
|
|
const char* return_type;
|
|
} be_ctype_var_args_t;
|
|
|
|
|
|
typedef struct be_const_member_t {
|
|
const char * name;
|
|
intptr_t value;
|
|
} be_const_member_t;
|
|
|
|
// table of functions per class
|
|
typedef struct be_ntv_func_def_t {
|
|
const char * name;
|
|
be_ctype_args_t args;
|
|
} be_ntv_func_def_t;
|
|
|
|
struct bclass;
|
|
// list of classes and function tables
|
|
typedef struct be_ntv_class_def_t {
|
|
const char * name;
|
|
const struct bclass * cl;
|
|
const be_ntv_func_def_t * func_table;
|
|
size_t size;
|
|
} be_ntv_class_def_t;
|
|
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
|
|
/*********************************************************************************************\
|
|
* Support for Berry int constants
|
|
* as virtual members
|
|
\*********************************************************************************************/
|
|
|
|
void be_raisef(bvm *vm, const char *except, const char *msg, ...);
|
|
|
|
extern void be_map_insert_nil(bvm *vm, const char *key);
|
|
extern void be_map_insert_int(bvm *vm, const char *key, bint value);
|
|
extern void be_map_insert_bool(bvm *vm, const char *key, bbool value);
|
|
extern void be_map_insert_real(bvm *vm, const char *key, breal value);
|
|
extern void be_map_insert_str(bvm *vm, const char *key, const char *value);
|
|
extern void be_map_insert_list_uint8(bvm *vm, const char *key, const uint8_t *value, size_t size);
|
|
|
|
extern int be_map_bin_search(const char * needle, const void * table, size_t elt_size, size_t total_elements);
|
|
|
|
extern void be_create_class_wrapper(bvm *vm, const char * class_name, void * ptr);
|
|
extern int be_find_global_or_module_member(bvm *vm, const char * cl_name);
|
|
|
|
extern bbool be_const_module_member(bvm *vm, const be_const_member_t * definitions, size_t def_len);
|
|
extern void be_const_module_member_raise(bvm *vm, const be_const_member_t * definitions, size_t def_len); /* raise an exception if not found */
|
|
extern bbool be_const_class_member(bvm *vm, const be_const_member_t * definitions, size_t def_len);
|
|
extern void be_const_class_member_raise(bvm *vm, const be_const_member_t * definitions, size_t def_len); /* raise an exception if not found */
|
|
extern intptr_t be_convert_single_elt(bvm *vm, int idx, const char * arg_type, int *len);
|
|
extern int be_check_arg_type(bvm *vm, int arg_start, int argc, const char * arg_type, intptr_t p[8]);
|
|
extern int be_call_c_func(bvm *vm, const void * func, const char * return_type, const char * arg_type);
|
|
extern int be_call_ctype_func(bvm *vm, const void *definition); /* handler for Berry vm */
|
|
|
|
extern void be_cb_deinit(bvm *vm); /* remove all callbacks from the VM (just before shutdown of VM) */
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
#endif // __BE_MAPPING__
|