Merge branch 'remove-in-library'

This commit is contained in:
Yuichi Nishiwaki 2015-06-09 23:15:55 +09:00
commit 7973794f75
4 changed files with 10 additions and 39 deletions

View File

@ -520,7 +520,7 @@ gc_mark_global_symbols(pic_state *pic)
M(sDEFINE); M(sLAMBDA); M(sIF); M(sBEGIN); M(sQUOTE); M(sSETBANG); M(sDEFINE); M(sLAMBDA); M(sIF); M(sBEGIN); M(sQUOTE); M(sSETBANG);
M(sQUASIQUOTE); M(sUNQUOTE); M(sUNQUOTE_SPLICING); M(sQUASIQUOTE); M(sUNQUOTE); M(sUNQUOTE_SPLICING);
M(sDEFINE_SYNTAX); M(sIMPORT); M(sEXPORT); M(sDEFINE_SYNTAX); M(sIMPORT); M(sEXPORT);
M(sDEFINE_LIBRARY); M(sIN_LIBRARY); M(sDEFINE_LIBRARY);
M(sCOND_EXPAND); M(sAND); M(sOR); M(sELSE); M(sLIBRARY); M(sCOND_EXPAND); M(sAND); M(sOR); M(sELSE); M(sLIBRARY);
M(sONLY); M(sRENAME); M(sPREFIX); M(sEXCEPT); M(sONLY); M(sRENAME); M(sPREFIX); M(sEXCEPT);
M(sCONS); M(sCAR); M(sCDR); M(sNILP); M(sCONS); M(sCAR); M(sCDR); M(sNILP);
@ -533,7 +533,7 @@ gc_mark_global_symbols(pic_state *pic)
M(rDEFINE); M(rLAMBDA); M(rIF); M(rBEGIN); M(rQUOTE); M(rSETBANG); M(rDEFINE); M(rLAMBDA); M(rIF); M(rBEGIN); M(rQUOTE); M(rSETBANG);
M(rDEFINE_SYNTAX); M(rIMPORT); M(rEXPORT); M(rDEFINE_SYNTAX); M(rIMPORT); M(rEXPORT);
M(rDEFINE_LIBRARY); M(rIN_LIBRARY); M(rDEFINE_LIBRARY);
M(rCOND_EXPAND); M(rCOND_EXPAND);
M(rCONS); M(rCAR); M(rCDR); M(rNILP); M(rCONS); M(rCAR); M(rCDR); M(rNILP);
M(rSYMBOLP); M(rPAIRP); M(rSYMBOLP); M(rPAIRP);

View File

@ -99,7 +99,7 @@ typedef struct {
pic_sym *sDEFINE, *sLAMBDA, *sIF, *sBEGIN, *sQUOTE, *sSETBANG; pic_sym *sDEFINE, *sLAMBDA, *sIF, *sBEGIN, *sQUOTE, *sSETBANG;
pic_sym *sQUASIQUOTE, *sUNQUOTE, *sUNQUOTE_SPLICING; pic_sym *sQUASIQUOTE, *sUNQUOTE, *sUNQUOTE_SPLICING;
pic_sym *sDEFINE_SYNTAX, *sIMPORT, *sEXPORT; pic_sym *sDEFINE_SYNTAX, *sIMPORT, *sEXPORT;
pic_sym *sDEFINE_LIBRARY, *sIN_LIBRARY; pic_sym *sDEFINE_LIBRARY;
pic_sym *sCOND_EXPAND, *sAND, *sOR, *sELSE, *sLIBRARY; pic_sym *sCOND_EXPAND, *sAND, *sOR, *sELSE, *sLIBRARY;
pic_sym *sONLY, *sRENAME, *sPREFIX, *sEXCEPT; pic_sym *sONLY, *sRENAME, *sPREFIX, *sEXCEPT;
pic_sym *sCONS, *sCAR, *sCDR, *sNILP; pic_sym *sCONS, *sCAR, *sCDR, *sNILP;
@ -113,7 +113,7 @@ typedef struct {
pic_sym *rDEFINE, *rLAMBDA, *rIF, *rBEGIN, *rQUOTE, *rSETBANG; pic_sym *rDEFINE, *rLAMBDA, *rIF, *rBEGIN, *rQUOTE, *rSETBANG;
pic_sym *rDEFINE_SYNTAX, *rIMPORT, *rEXPORT; pic_sym *rDEFINE_SYNTAX, *rIMPORT, *rEXPORT;
pic_sym *rDEFINE_LIBRARY, *rIN_LIBRARY; pic_sym *rDEFINE_LIBRARY;
pic_sym *rCOND_EXPAND; pic_sym *rCOND_EXPAND;
pic_sym *rCONS, *rCAR, *rCDR, *rNILP; pic_sym *rCONS, *rCAR, *rCDR, *rNILP;
pic_sym *rSYMBOLP, *rPAIRP; pic_sym *rSYMBOLP, *rPAIRP;
@ -218,7 +218,6 @@ pic_value pic_eval(pic_state *, pic_value, struct pic_lib *);
struct pic_proc *pic_compile(pic_state *, pic_value, struct pic_lib *); struct pic_proc *pic_compile(pic_state *, pic_value, struct pic_lib *);
pic_value pic_macroexpand(pic_state *, pic_value, struct pic_lib *); pic_value pic_macroexpand(pic_state *, pic_value, struct pic_lib *);
void pic_in_library(pic_state *, pic_value);
struct pic_lib *pic_make_library(pic_state *, pic_value); struct pic_lib *pic_make_library(pic_state *, pic_value);
struct pic_lib *pic_find_library(pic_state *, pic_value); struct pic_lib *pic_find_library(pic_state *, pic_value);

View File

@ -12,7 +12,6 @@ setup_default_env(pic_state *pic, struct pic_env *env)
pic_define_syntactic_keyword(pic, env, pic->sDEFINE_LIBRARY, pic->rDEFINE_LIBRARY); pic_define_syntactic_keyword(pic, env, pic->sDEFINE_LIBRARY, pic->rDEFINE_LIBRARY);
pic_define_syntactic_keyword(pic, env, pic->sIMPORT, pic->rIMPORT); pic_define_syntactic_keyword(pic, env, pic->sIMPORT, pic->rIMPORT);
pic_define_syntactic_keyword(pic, env, pic->sEXPORT, pic->rEXPORT); pic_define_syntactic_keyword(pic, env, pic->sEXPORT, pic->rEXPORT);
pic_define_syntactic_keyword(pic, env, pic->sIN_LIBRARY, pic->rIN_LIBRARY);
pic_define_syntactic_keyword(pic, env, pic->sCOND_EXPAND, pic->rCOND_EXPAND); pic_define_syntactic_keyword(pic, env, pic->sCOND_EXPAND, pic->rCOND_EXPAND);
} }
@ -43,18 +42,6 @@ pic_make_library(pic_state *pic, pic_value name)
return lib; return lib;
} }
void
pic_in_library(pic_state *pic, pic_value spec)
{
struct pic_lib *lib;
lib = pic_find_library(pic, spec);
if (! lib) {
pic_errorf(pic, "library not found: ~a", spec);
}
pic->lib = lib;
}
struct pic_lib * struct pic_lib *
pic_find_library(pic_state *pic, pic_value spec) pic_find_library(pic_state *pic, pic_value spec)
{ {
@ -298,45 +285,33 @@ pic_lib_export(pic_state *pic)
static pic_value static pic_value
pic_lib_define_library(pic_state *pic) pic_lib_define_library(pic_state *pic)
{ {
struct pic_lib *prev = pic->lib; struct pic_lib *lib, *prev = pic->lib;
size_t argc, i; size_t argc, i;
pic_value spec, *argv; pic_value spec, *argv;
pic_get_args(pic, "o*", &spec, &argc, &argv); pic_get_args(pic, "o*", &spec, &argc, &argv);
if (! pic_find_library(pic, spec)) { if ((lib = pic_find_library(pic, spec)) == NULL) {
pic_make_library(pic, spec); lib = pic_make_library(pic, spec);
} }
pic_try { pic_try {
pic_in_library(pic, spec); pic->lib = lib;
for (i = 0; i < argc; ++i) { for (i = 0; i < argc; ++i) {
pic_void(pic_eval(pic, argv[i], pic->lib)); pic_void(pic_eval(pic, argv[i], pic->lib));
} }
pic_in_library(pic, prev->name); pic->lib = prev;
} }
pic_catch { pic_catch {
pic_in_library(pic, prev->name); /* restores pic->lib even if an error occurs */ pic->lib = prev; /* restores pic->lib even if an error occured */
pic_raise(pic, pic->err); pic_raise(pic, pic->err);
} }
return pic_undef_value(); return pic_undef_value();
} }
static pic_value
pic_lib_in_library(pic_state *pic)
{
pic_value spec;
pic_get_args(pic, "o", &spec);
pic_in_library(pic, spec);
return pic_undef_value();
}
void void
pic_init_lib(pic_state *pic) pic_init_lib(pic_state *pic)
{ {
@ -346,5 +321,4 @@ pic_init_lib(pic_state *pic)
pic_defmacro(pic, pic->sIMPORT, pic->rIMPORT, pic_lib_import); pic_defmacro(pic, pic->sIMPORT, pic->rIMPORT, pic_lib_import);
pic_defmacro(pic, pic->sEXPORT, pic->rEXPORT, pic_lib_export); pic_defmacro(pic, pic->sEXPORT, pic->rEXPORT, pic_lib_export);
pic_defmacro(pic, pic->sDEFINE_LIBRARY, pic->rDEFINE_LIBRARY, pic_lib_define_library); pic_defmacro(pic, pic->sDEFINE_LIBRARY, pic->rDEFINE_LIBRARY, pic_lib_define_library);
pic_defmacro(pic, pic->sIN_LIBRARY, pic->rIN_LIBRARY, pic_lib_in_library);
} }

View File

@ -269,7 +269,6 @@ pic_open(int argc, char *argv[], char **envp, pic_allocf allocf)
S(sIMPORT, "import"); S(sIMPORT, "import");
S(sEXPORT, "export"); S(sEXPORT, "export");
S(sDEFINE_LIBRARY, "define-library"); S(sDEFINE_LIBRARY, "define-library");
S(sIN_LIBRARY, "in-library");
S(sCOND_EXPAND, "cond-expand"); S(sCOND_EXPAND, "cond-expand");
S(sAND, "and"); S(sAND, "and");
S(sOR, "or"); S(sOR, "or");
@ -321,7 +320,6 @@ pic_open(int argc, char *argv[], char **envp, pic_allocf allocf)
R(rIMPORT, "import"); R(rIMPORT, "import");
R(rEXPORT, "export"); R(rEXPORT, "export");
R(rDEFINE_LIBRARY, "define-library"); R(rDEFINE_LIBRARY, "define-library");
R(rIN_LIBRARY, "in-library");
R(rCOND_EXPAND, "cond-expand"); R(rCOND_EXPAND, "cond-expand");
R(rCONS, "cons"); R(rCONS, "cons");
R(rCAR, "car"); R(rCAR, "car");