procedure.h

Go to the documentation of this file.

#ifndef X_TYPE_PROCEDURE_H
#define X_TYPE_PROCEDURE_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
#include "x-type.h"
#include "x-type/prim.h"
 
#define X_TYPE_PROCEDURE_NAME       "PROCEDURE"     
#define x_obj_type_isprocedure(B,X) x_obj_is_type((B), (X), X_TYPE_PROCEDURE_NAME) 
#define x_procstate(X)              x_callable_state((X))                              
#define x_procparams(X)             x_firstobj(x_procstate((X)))                        
#define x_procbody(X)               x_firstobj(x_restobj(x_procstate((X))))             
#define x_procenv(X)                x_restobj(x_restobj(x_procstate((X))))              
#define X_OBJ_FLAG_WRAP             X_OBJ_FLAG_1 
#define x_mkproc(B,P,BD,E)          x_make_procedure((B), X_OBJ_FLAG_NONE, (P), (BD), (E)) 
#define x_mkfproc(B,F,P,BD,E)       x_make_procedure((B), (F), (P), (BD), (E))             
#define x_mkwrap(B,C)               x_make_procedure((B), X_OBJ_FLAG_WRAP, NULL, NULL, (C)) 
extern x_satom_t x_type_procedure_name,
    x_type_procedure_make_prim,
    x_type_procedure_call_prim,
    x_type_procedure_struct_prim;
x_obj_t *x_make_procedure(x_obj_t *p_base, x_obj_flag_t flags,
    x_obj_t *p_params, x_obj_t *p_body, x_obj_t *p_env);
 
x_obj_t *x_type_procedure_register(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_procedure_struct(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_procedure_make(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_procedure_call(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_procedure_apply(x_obj_t *p_base, x_obj_t *p_args);
 
#endif /* X_TYPE_PROCEDURE_H */