mlisps.h

Go to the documentation of this file.

 
#ifndef MLISPS_H
#define MLISPS_H
 
#ifndef MLISP_TRACE_LVL
#  define MLISP_TRACE_LVL 0
#endif /* !MLISP_TRACE_LVL */
 
#ifndef MLISP_EXEC_ENV_FRAME_CT_MAX
#  define MLISP_EXEC_ENV_FRAME_CT_MAX 10
#endif /* !MLISP_EXEC_ENV_FRAME_CT_MAX */
 
#ifndef MLISP_TRACE_SIGIL
#  define MLISP_TRACE_SIGIL "TRACE"
#endif /* !MLISP_TRACE_SIGIL */
 
#ifndef MLISP_AST_IDX_CHILDREN_MAX
#  define MLISP_AST_IDX_CHILDREN_MAX 10
#endif /* !MLISP_AST_IDX_CHILDREN_MAX */
 
#define MLISP_EXEC_FLAG_TRANSIENT_MASK 0x0f
 
#define MLISP_EXEC_FLAG_DEF_TERM   0x20
 
#define MLISP_EXEC_FLAG_INITIALIZED   0x08
 
typedef ssize_t mlisp_lambda_t;
 
typedef mlisp_lambda_t mlisp_args_t;
typedef mlisp_lambda_t mlisp_arge_t;
typedef mlisp_lambda_t mlisp_if_t;
typedef mlisp_lambda_t mlisp_begin_t;
 
typedef uint8_t mlisp_bool_t;
 
#define MLISP_NUM_TYPE_TABLE( f ) \
   f( 1, int16_t,             integer,         INT,      "%d" ) \
   f( 2, float,               floating,        FLOAT,    "%f" ) \
   f( 3, mlisp_bool_t,        boolean,         BOOLEAN,  "%u" )
 
#define MLISP_TYPE_TABLE( f ) \
   MLISP_NUM_TYPE_TABLE( f ) \
   f( 4, mdata_strpool_idx_t, strpool_idx,   STR,     SIZE_T_FMT ) \
   f( 5, mlisp_env_cb_t,      cb,            CB,      "%p" ) \
   f( 6, mlisp_lambda_t,      lambda,        LAMBDA,  SSIZE_T_FMT ) \
   f(10, mlisp_begin_t,       begin,         BEGIN,   SSIZE_T_FMT )   
 /* mlisp_types */
 
struct MLISP_PARSER;
struct MLISP_EXEC_STATE;
 
typedef MERROR_RETVAL (*mlisp_env_cb_t)(
   struct MLISP_PARSER* parser, struct MLISP_EXEC_STATE* exec, size_t n_idx,
   size_t args_c, uint8_t* cb_data, uint8_t flags );
 
#define _MLISP_TYPE_TABLE_FIELDS( idx, ctype, name, const_name, fmt ) \
   ctype name;
 
/* We need to ignore this since it builds the fields with the preprocessor and
 * the meta-serializer doesn't support that.
 */
/* mserial_ignore_until_next_cbrace */
union MLISP_VAL {
   MLISP_TYPE_TABLE( _MLISP_TYPE_TABLE_FIELDS )
};
 
struct MLISP_ENV_NODE {
   uint8_t flags;
   uint8_t type;
   union MLISP_VAL value;
};
 
struct MLISP_STACK_NODE {
   uint8_t type;
   union MLISP_VAL value;
};
 
struct MLISP_AST_NODE {
   uint8_t flags;
   mdata_strpool_idx_t token_idx;
   size_t token_sz;
   ssize_t ast_idx_parent;
   ssize_t env_idx_op;
   ssize_t ast_idx_children[MLISP_AST_IDX_CHILDREN_MAX];
   size_t ast_idx_children_sz;
};
 
struct MLISP_EXEC_STATE {
   /* serial_prepare_cb mlisp_deserialize_prepare_EXEC_STATE */
   uint16_t uid;
   uint8_t flags;
   /* vector_type size_t */
   struct MDATA_VECTOR per_node_visit_ct;
   /* vector_type size_t */
   struct MDATA_VECTOR per_node_child_idx;
   /* vector_type struct MLISP_STACK_NODE */
   struct MDATA_VECTOR stack;
   /* table_type struct MLISP_ENV_NODE */
   struct MDATA_TABLE env[MLISP_EXEC_ENV_FRAME_CT_MAX];
   int8_t env_select;
   int8_t no_serial;
   /* vector_type size_t */
   struct MDATA_VECTOR lambda_trace;
   union MAUG_MHANDLEPTR cb_attachment;
#ifdef MLISP_DEBUG_TRACE
   size_t trace[MLISP_DEBUG_TRACE];
   size_t trace_depth;
#endif /* MLISP_DEBUG_TRACE */
   /* table_type struct MLISP_ENV_NODE */
   struct MDATA_TABLE* global_env;
};
 
struct MLISP_PARSER {
   struct MPARSER base;
   struct MDATA_STRPOOL strpool;
   struct MDATA_VECTOR ast;
   ssize_t ast_node_iter;
};
 /* mlisp */
 
#endif /* !MLISPS_H */