23 lines
358 B
C
23 lines
358 B
C
#ifndef PROC_H__
|
|
#define PROC_H__
|
|
|
|
struct pic_env {
|
|
pic_value assoc;
|
|
struct pic_env *parent;
|
|
};
|
|
|
|
struct pic_proc {
|
|
PIC_OBJECT_HEADER
|
|
bool cfunc_p;
|
|
union {
|
|
pic_value (*cfunc)(pic_state *);
|
|
struct pic_irep *irep;
|
|
} u;
|
|
};
|
|
|
|
#define pic_proc_ptr(o) ((struct pic_proc *)o.u.data)
|
|
|
|
#define pic_proc_cfunc_p(o) (pic_proc_ptr(o)->cfunc_p)
|
|
|
|
#endif
|