conservatory/picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add pic_core_syntactic_env

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2013-12-06 18:04:36 +09:00
parent b4d0bdbd3c
commit ef04e3f02c
5 changed files with 45 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/picrin.h
+1 -4
View File
@@ -56,10 +56,7 @@ typedef struct {
pic_value *globals;
size_t glen, gcapa;
/* positive for variables, negative for macros (bitwise-not) */
struct xhash *var_tbl;
struct pic_syntax **stx;
size_t xlen, xcapa;
struct pic_senv *global_senv;
struct pic_irep **irep;
size_t ilen, icapa;
include/picrin/macro.h
+3
View File
@@ -4,6 +4,7 @@
struct pic_senv {
PIC_OBJECT_HEADER
struct pic_senv *up;
/* positive for variables, negative for macros (bitwise-not) */
struct xhash *tbl;
struct pic_syntax **stx;
size_t xlen, xcapa;
@@ -42,6 +43,8 @@ struct pic_sc {
#define pic_senv(v) ((struct pic_senv *)pic_ptr(v))
#define pic_senv_p(v) (pic_type(v) == PIC_TT_SENV)
struct pic_senv *pic_core_syntactic_env(pic_state *pic);
struct pic_syntax *pic_syntax_new(pic_state *, int kind, pic_sym sym);
struct pic_syntax *pic_syntax_new_macro(pic_state *, pic_sym, struct pic_proc *, struct pic_senv *senv);