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

struct pic_cont -> struct cont

This commit is contained in:
Yuichi Nishiwaki 2016-02-23 22:48:06 +09:00
parent b3e9794385
commit e93536bf9a
5 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/10.callcc/callcc.c
View File

@ -5,7 +5,7 @@
struct fullcont {
jmp_buf jmp;
struct pic_cont *prev_jmp;
struct cont *prev_jmp;
struct checkpoint *cp;

20
extlib/benz/cont.c
View File

@ -6,7 +6,7 @@
#include "picrin/private/object.h"
#include "picrin/private/state.h"
struct pic_cont {
struct cont {
PIC_JMPBUF *jmp;
int id;
@ -20,13 +20,13 @@ struct pic_cont {
int retc;
pic_value *retv;
struct pic_cont *prev;
struct cont *prev;
};
static const pic_data_type cont_type = { "pic_cont", NULL, NULL };
static const pic_data_type cont_type = { "cont", NULL, NULL };
void
pic_save_point(pic_state *pic, struct pic_cont *cont, PIC_JMPBUF *jmp)
pic_save_point(pic_state *pic, struct cont *cont, PIC_JMPBUF *jmp)
{
cont->jmp = jmp;
@ -45,7 +45,7 @@ pic_save_point(pic_state *pic, struct pic_cont *cont, PIC_JMPBUF *jmp)
}
void
pic_load_point(pic_state *pic, struct pic_cont *cont)
pic_load_point(pic_state *pic, struct cont *cont)
{
pic_wind(pic, pic->cp, cont->cp);
@ -110,7 +110,7 @@ cont_call(pic_state *pic)
int argc;
pic_value *argv;
int id;
struct pic_cont *cc, *cont;
struct cont *cc, *cont;
pic_get_args(pic, "*", &argc, &argv);
@ -139,22 +139,22 @@ cont_call(pic_state *pic)
}
pic_value
pic_make_cont(pic_state *pic, struct pic_cont *cont)
pic_make_cont(pic_state *pic, struct cont *cont)
{
return pic_lambda(pic, cont_call, 1, pic_data_value(pic, cont, &cont_type));
}
struct pic_cont *
struct cont *
pic_alloca_cont(pic_state *pic)
{
return pic_alloca(pic, sizeof(struct pic_cont));
return pic_alloca(pic, sizeof(struct cont));
}
static pic_value
pic_callcc(pic_state *pic, pic_value proc)
{
PIC_JMPBUF jmp;
struct pic_cont *cont = pic_alloca_cont(pic);
struct cont *cont = pic_alloca_cont(pic);
if (PIC_SETJMP(pic, jmp)) {
return pic_valuesk(pic, cont->retc, cont->retv);

2
extlib/benz/error.c
View File

@ -69,7 +69,7 @@ dynamic_set(pic_state *pic)
pic_value
pic_start_try(pic_state *pic, PIC_JMPBUF *jmp)
{
struct pic_cont *cont;
struct cont *cont;
pic_value handler;
pic_value var, old_val, new_val;
pic_value in, out;

6
extlib/benz/include/picrin/private/object.h
View File

@ -188,9 +188,9 @@ void pic_rope_decref(pic_state *, struct rope *);
#define pic_func_p(pic, proc) (pic_type(pic, proc) == PIC_TYPE_FUNC)
#define pic_irep_p(pic, proc) (pic_type(pic, proc) == PIC_TYPE_IREP)
struct pic_cont *pic_alloca_cont(pic_state *);
pic_value pic_make_cont(pic_state *, struct pic_cont *);
void pic_save_point(pic_state *, struct pic_cont *, PIC_JMPBUF *);
struct cont *pic_alloca_cont(pic_state *);
pic_value pic_make_cont(pic_state *, struct cont *);
void pic_save_point(pic_state *, struct cont *, PIC_JMPBUF *);
void pic_exit_point(pic_state *);
void pic_wind(pic_state *, struct checkpoint *, struct checkpoint *);
pic_value pic_dynamic_wind(pic_state *, pic_value in, pic_value thunk, pic_value out);

2
extlib/benz/include/picrin/private/state.h
View File

@ -40,7 +40,7 @@ struct pic_state {
void *userdata;
struct checkpoint *cp;
struct pic_cont *cc;
struct cont *cc;
int ccnt;
pic_value *sp;