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

rename variables

This commit is contained in:
Yuichi Nishiwaki 2015-06-02 06:32:43 +09:00
parent 5df4e4f64e
commit 1fb918743a
1 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
extlib/benz/cont.c
View File

@ -49,29 +49,29 @@ pic_dynamic_wind(pic_state *pic, struct pic_proc *in, struct pic_proc *thunk, st
} }
void void
pic_save_point(pic_state *pic, struct pic_cont *escape) pic_save_point(pic_state *pic, struct pic_cont *cont)
{ {
escape->jmp.prev = pic->jmp; cont->jmp.prev = pic->jmp;
pic->jmp = &escape->jmp; pic->jmp = &cont->jmp;
/* save runtime context */ /* save runtime context */
escape->wind = pic->wind; cont->wind = pic->wind;
escape->sp_offset = pic->sp - pic->stbase; cont->sp_offset = pic->sp - pic->stbase;
escape->ci_offset = pic->ci - pic->cibase; cont->ci_offset = pic->ci - pic->cibase;
escape->xp_offset = pic->xp - pic->xpbase; cont->xp_offset = pic->xp - pic->xpbase;
escape->arena_idx = pic->arena_idx; cont->arena_idx = pic->arena_idx;
escape->ip = pic->ip; cont->ip = pic->ip;
escape->results = pic_undef_value(); cont->results = pic_undef_value();
} }
void void
pic_load_point(pic_state *pic, struct pic_cont *escape) pic_load_point(pic_state *pic, struct pic_cont *cont)
{ {
pic_jmpbuf *jmp; pic_jmpbuf *jmp;
for (jmp = pic->jmp; jmp != NULL; jmp = jmp->prev) { for (jmp = pic->jmp; jmp != NULL; jmp = jmp->prev) {
if (jmp == &escape->jmp) { if (jmp == &cont->jmp) {
break; break;
} }
} }
@ -79,19 +79,19 @@ pic_load_point(pic_state *pic, struct pic_cont *escape)
pic_errorf(pic, "calling dead escape continuation"); pic_errorf(pic, "calling dead escape continuation");
} }
pic_wind(pic, pic->wind, escape->wind); pic_wind(pic, pic->wind, cont->wind);
/* load runtime context */ /* load runtime context */
pic->wind = escape->wind; pic->wind = cont->wind;
pic->sp = pic->stbase + escape->sp_offset; pic->sp = pic->stbase + cont->sp_offset;
pic->ci = pic->cibase + escape->ci_offset; pic->ci = pic->cibase + cont->ci_offset;
pic->xp = pic->xpbase + escape->xp_offset; pic->xp = pic->xpbase + cont->xp_offset;
pic->arena_idx = escape->arena_idx; pic->arena_idx = cont->arena_idx;
pic->ip = escape->ip; pic->ip = cont->ip;
} }
static pic_value static pic_value
escape_call(pic_state *pic) cont_call(pic_state *pic)
{ {
size_t argc; size_t argc;
pic_value *argv; pic_value *argv;
@ -110,38 +110,38 @@ escape_call(pic_state *pic)
} }
struct pic_proc * struct pic_proc *
pic_make_cont(pic_state *pic, struct pic_cont *escape) pic_make_cont(pic_state *pic, struct pic_cont *cont)
{ {
static const pic_data_type escape_type = { "escape", pic_free, NULL }; static const pic_data_type cont_type = { "cont", pic_free, NULL };
struct pic_proc *cont; struct pic_proc *c;
struct pic_data *e; struct pic_data *e;
cont = pic_make_proc(pic, escape_call, "<escape-procedure>"); c = pic_make_proc(pic, cont_call, "<cont-procedure>");
e = pic_data_alloc(pic, &escape_type, escape); e = pic_data_alloc(pic, &cont_type, cont);
/* save the escape continuation in proc */ /* save the escape continuation in proc */
pic_attr_set(pic, pic_obj_value(cont), "@@escape", pic_obj_value(e)); pic_attr_set(pic, pic_obj_value(c), "@@escape", pic_obj_value(e));
return cont; return c;
} }
pic_value pic_value
pic_callcc(pic_state *pic, struct pic_proc *proc) pic_callcc(pic_state *pic, struct pic_proc *proc)
{ {
struct pic_cont *escape = pic_malloc(pic, sizeof(struct pic_cont)); struct pic_cont *cont = pic_malloc(pic, sizeof(struct pic_cont));
pic_save_point(pic, escape); pic_save_point(pic, cont);
if (PIC_SETJMP(pic, escape->jmp.buf)) { if (PIC_SETJMP(pic, cont->jmp.buf)) {
pic->jmp = pic->jmp->prev; pic->jmp = pic->jmp->prev;
return pic_values_by_list(pic, escape->results); return pic_values_by_list(pic, cont->results);
} }
else { else {
pic_value val; pic_value val;
val = pic_apply1(pic, proc, pic_obj_value(pic_make_cont(pic, escape))); val = pic_apply1(pic, proc, pic_obj_value(pic_make_cont(pic, cont)));
pic->jmp = pic->jmp->prev; pic->jmp = pic->jmp->prev;