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_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_SHARED_ENV 0x40
 
#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,     SSIZE_T_FMT ) \
   f( 5, mlisp_env_cb_t,      cb,            CB,      "%p" ) \
   f( 6, mlisp_lambda_t,      lambda,        LAMBDA,  SSIZE_T_FMT ) \
   f( 7, mlisp_args_t,        args_start,    ARGS_S,  SSIZE_T_FMT ) \
   f( 8, mlisp_arge_t,        args_end,      ARGS_E,  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, void* cb_data, uint8_t flags );
 
#define _MLISP_TYPE_TABLE_FIELDS( idx, ctype, name, const_name, fmt ) \
   ctype name;
 
union MLISP_VAL {
   MLISP_TYPE_TABLE( _MLISP_TYPE_TABLE_FIELDS )
};
 
struct MLISP_ENV_NODE {
   uint8_t flags;
   uint8_t type;
   mdata_strpool_idx_t name_strpool_idx;
   size_t name_strpool_sz;
   union MLISP_VAL value;
   void* cb_data;
};
 
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 {
   uint16_t uid;
   uint8_t flags;
   struct MDATA_VECTOR per_node_visit_ct;
   struct MDATA_VECTOR per_node_child_idx;
   struct MDATA_VECTOR stack;
   struct MDATA_VECTOR env;
   struct MDATA_VECTOR* global_env;
   struct MDATA_VECTOR lambda_trace;
   void* cb_attachment;
#ifdef MLISP_DEBUG_TRACE
   size_t trace[MLISP_DEBUG_TRACE];
   size_t trace_depth;
#endif /* MLISP_DEBUG_TRACE */
};
 
struct MLISP_PARSER {
   struct MPARSER base;
   struct MDATA_STRPOOL strpool;
   struct MDATA_VECTOR ast;
   struct MDATA_VECTOR env;
   ssize_t ast_node_iter;
};
 /* mlisp */
 
#endif /* !MLISPS_H */