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

cleanup

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2016-02-20 20:14:40 +09:00
parent d0dc577810
commit b5a27437e3
4 changed files with 19 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
extlib/benz/include/picrin.h
+2 -6
View File
@@ -82,6 +82,7 @@ void pic_set(pic_state *, const char *lib, const char *name, pic_value v);
pic_value pic_closure_ref(pic_state *, int i);
void pic_closure_set(pic_state *, int i, pic_value v);
pic_value pic_funcall(pic_state *, const char *lib, const char *name, int n, ...);
pic_value pic_make_var(pic_state *, pic_value init, pic_value conv);
pic_value pic_return(pic_state *, int n, ...);
pic_value pic_vreturn(pic_state *, int n, va_list);
@@ -337,8 +338,6 @@ pic_value pic_eval(pic_state *, pic_value program, const char *lib);
void pic_load(pic_state *, pic_value port);
void pic_load_cstr(pic_state *, const char *);
pic_value pic_make_var(pic_state *, pic_value init, pic_value conv);
bool pic_data_type_p(pic_state *, pic_value, const pic_data_type *);
#define pic_deflibrary(pic, lib) do { \
@@ -348,10 +347,6 @@ bool pic_data_type_p(pic_state *, pic_value, const pic_data_type *);
pic_in_library(pic, lib); \
} while (0)
pic_value pic_make_cont(pic_state *, struct pic_cont *);
void pic_wind(pic_state *, struct pic_checkpoint *, struct pic_checkpoint *);
/* do not return from try block! */
#define pic_try \
@@ -360,6 +355,7 @@ void pic_wind(pic_state *, struct pic_checkpoint *, struct pic_checkpoint *);
pic_catch_(PIC_GENSYM(label))
#define pic_try_(cont, handler) \
do { \
extern pic_value pic_make_cont(pic_state *, struct pic_cont *); \
extern void pic_push_handler(pic_state *, pic_value proc); \
extern pic_value pic_pop_handler(pic_state *); \
extern pic_value pic_native_exception_handler(pic_state *); \
extlib/benz/include/picrin/object.h
+2
View File
@@ -193,6 +193,8 @@ void pic_rope_decref(pic_state *, struct pic_rope *);
#define pic_proc_func_p(proc) ((proc)->tag == PIC_PROC_TAG_FUNC)
#define pic_proc_irep_p(proc) ((proc)->tag == PIC_PROC_TAG_IREP)
void pic_wind(pic_state *, struct pic_checkpoint *, struct pic_checkpoint *);
#if defined(__cplusplus)
}
extlib/benz/proc.c
+7 -7
View File
@@ -21,13 +21,13 @@
* c char * char
* z char ** c string
* m pic_value * symbol
* v pic_value * vector object
* s pic_value * string object
* b pic_value * bytevector object
* l pic_value * lambda object
* p pic_value * port object
* d pic_value * dictionary object
* r pic_value * record object
* v pic_value * vector
* s pic_value * string
* b pic_value * bytevector
* l pic_value * lambda
* p pic_value * port
* d pic_value * dictionary
* r pic_value * record
*
* | optional operator
* * int *, pic_value ** variable length operator