x-eval.h

Go to the documentation of this file.

#ifndef X_EVAL_H
#define X_EVAL_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
 
#include "x-base.h"
 
extern x_satom_t x_eval_obj;
 
#define X_OBJ_FLAG_COV      X_OBJ_FLAG_2
 
#define x_error_handler_jmp(H)              x_ptrval(x_firstobj(H))
#define x_error_handler_saved_env(H)        x_001(H)
#define x_error_handler_error(H)            x_011(H)
#define x_error_handler_line(H)             x_111(H)
#include "x-eval-layout.h"  /* generated: x_eval_env/ctrl/io_state/state anchors + x_eval_field_* */
 
 
#define X_READ_BUF_SIZE 65536
 
 
x_obj_t *x_eval_make(x_obj_t *p_base, x_obj_t *p_args);
 
x_obj_t *x_eval_type_alist_extend(x_obj_t *p_base, x_obj_t *p_args);
 
x_obj_t *x_eval_type_alist_assoc(x_obj_t *p_base, x_obj_t *p_args);
 
x_obj_t *x_eval_buffer_push(x_obj_t *p_base, x_obj_t *p_buffer);
 
x_obj_t *x_eval_load(x_obj_t *p_base, x_obj_t *p_args);
 
void x_eval_error(x_obj_t *p_base, x_char_t *message, x_obj_t *p_obj);
 
#define x_eval_arg_exp(X)       x_0((X)) 
x_obj_t *x_eval(x_obj_t *p_base, x_obj_t *p_args);
 
x_obj_t *x_eval_arg(x_obj_t *p_base, x_obj_t *p_arg);
 
x_obj_t *x_eval_list(x_obj_t *p_base, x_obj_t *p_args);
 
void x_eval_spine_guard(x_obj_t *p_base, x_obj_t *p_obj);
 
x_obj_t *x_eval_spine_first(x_obj_t *p_base, x_obj_t *p_pos);
 
x_obj_t *x_eval_body(x_obj_t *p_base, x_obj_t *p_body);
 
x_obj_t *x_eval_body_tco(x_obj_t *p_base, x_obj_t *p_body);
 
x_obj_t *x_eval_tco_trampoline(x_obj_t *p_base, x_obj_t *p_result);
 
x_obj_t *x_eval_op_body(x_obj_t *p_base, x_obj_t *p_body, x_obj_t *p_caller);
 
#endif /* X_EVAL_H */