operative.h

Go to the documentation of this file.

#ifndef X_TYPE_OPERATIVE_H
#define X_TYPE_OPERATIVE_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
#include "x-type.h"
#include "x-type/prim.h"
 
#define X_TYPE_OPERATIVE_NAME       "OPERATIVE"   
#define x_obj_type_isoperative(B,X) x_obj_is_type((B), (X), X_TYPE_OPERATIVE_NAME) 
#define x_opstate(X)                x_callable_state((X))                              
#define x_opparams(X)               x_firstobj(x_opstate((X)))                          
#define x_openvparam(X)             x_firstobj(x_restobj(x_opstate((X))))               
#define x_opbody(X)                 x_firstobj(x_restobj(x_restobj(x_opstate((X)))))    
#define x_openv(X)                  x_restobj(x_restobj(x_restobj(x_opstate((X)))))     
#define x_mkop(B,P,EP,BD,E)     x_make_operative((B), X_OBJ_FLAG_NONE, (P), (EP), (BD), (E)) 
extern x_satom_t x_type_operative_name,
    x_type_operative_make_prim,
    x_type_operative_call_prim,
    x_type_operative_struct_prim;
x_obj_t *x_make_operative(x_obj_t *p_base, x_obj_flag_t flags,
    x_obj_t *p_params, x_obj_t *p_envparam, x_obj_t *p_body, x_obj_t *p_env);
 
x_obj_t *x_type_operative_register(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_operative_struct(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_operative_make(x_obj_t *p_base, x_obj_t *p_args);
x_obj_t *x_type_operative_call(x_obj_t *p_base, x_obj_t *p_args);
 
#endif /* X_TYPE_OPERATIVE_H */