x-eval-slots.h

Go to the documentation of this file.

#ifndef X_EVAL_SLOTS_H
#define X_EVAL_SLOTS_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
 
#include "x-base.h"
#include "x-vector.h"
 
enum x_eval_slot_enum
{
    X_SLOT_EVAL = 0,
 
    X_SLOT_EVAL_LIST,
 
    X_SLOT_EVAL_BODY,
 
    X_SLOT_EVAL_BODY_TCO,
 
    X_SLOT_EVAL_TCO_TRAMPOLINE,
 
    X_SLOT_EVAL_OP_BODY,
 
    X_SLOT_CALLABLE_CALL,
 
    X_SLOT_CALLABLE_APPLY,
 
    X_SLOT_OBJ_PRIM_CALL,
 
    X_SLOT_ENV_LOOKUP,
 
    X_SLOT_ENV_BIND,
 
    X_SLOT_ENV_EXTEND,
 
    X_SLOT_ALIST_BST_LOOKUP,
 
    X_SLOT_TOKEN_READ,
 
    X_SLOT_TOKEN_ANALYSE,
 
    X_SLOT_TOKEN_DELIMIT,
 
    X_SLOT_HEAP_MARK,
 
    X_SLOT_HEAP_SWEEP,
 
    X_SLOT_OBJ_ALLOC,
 
    X_SLOT_LEN
};
 
#define x_slot(V,I)                 x_vectorfn((V), (I))
 
#define x_argrun(...)               ((x_obj_t[]){ __VA_ARGS__ })
 
#define x_eval_slots(B)             x_restobj((B))
 
#define x_eval_slot(B,I)            x_slot(x_eval_slots((B)), (I))
 
#define x_eval_slots_isset(B) \
    ((B) != NULL && x_eval_slots((B)) != NULL)
 
#define x_eval_call(B,I,A)          (x_eval_slot((B), (I))((B), (A)))
 
#define x_eval_call_or(B,I,FN,A) \
    ((x_eval_slots_isset((B)) ? x_eval_slot((B), (I)) : (FN))((B), (A)))
 
#define x_eval_slot_isset(B,I) \
    (x_eval_slots_isset((B)) && x_eval_slot((B), (I)) != NULL)
 
x_obj_t *x_slots_make(x_obj_t *p_base, x_int_t length);
 
#endif /* X_EVAL_SLOTS_H */