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

functions defined by pic_defun will be implicitly renamed

This commit is contained in:
Yuichi Nishiwaki 2014-01-12 16:09:19 +09:00
parent 11ead27614
commit 10e5546a53
2 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/codegen.c
View File

@ -932,17 +932,28 @@ pic_codegen(pic_state *pic, pic_value obj)
}
void
pic_defun(pic_state *pic, const char *name, pic_func_t cfunc)
pic_define(pic_state *pic, struct pic_lib *lib, const char *name, pic_value val)
{
struct pic_proc *proc;
int idx;
pic_sym gsym;
struct pic_lib *lib2;
proc = pic_proc_new(pic, cfunc);
idx = scope_global_define(pic, name);
pic->globals[idx] = pic_obj_value(proc);
gsym = pic_gensym(pic, pic_intern_cstr(pic, name));
xh_put(pic->lib->senv->tbl, name, pic_intern_cstr(pic, name));
xh_put(pic->lib->exports, name, pic_intern_cstr(pic, name));
/* push to the global arena */
idx = scope_global_define(pic, pic_symbol_name(pic, gsym));
pic->globals[idx] = val;
/* register to the senv */
xh_put(lib->senv->tbl, name, gsym);
/* export! */
lib2 = pic->lib;
{
pic->lib = lib;
pic_export(pic, pic_intern_cstr(pic, name));
pic->lib = lib2;
}
}
void

9
src/vm.c
View File

@ -300,6 +300,15 @@ pic_get_args(pic_state *pic, const char *format, ...)
return i;
}
void
pic_defun(pic_state *pic, const char *name, pic_func_t cfunc)
{
struct pic_proc *proc;
proc = pic_proc_new(pic, cfunc);
pic_define(pic, pic->lib, name, pic_obj_value(proc));
}
pic_value
pic_apply_argv(pic_state *pic, struct pic_proc *proc, size_t argc, ...)
{