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

publish continuation internal APIs

This commit is contained in:
Yuichi Nishiwaki 2014-09-24 15:34:46 +09:00
parent c965f254cb
commit e38732995e
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cont.c
View File

@ -57,8 +57,8 @@ pic_dynamic_wind(pic_state *pic, struct pic_proc *in, struct pic_proc *thunk, st
return val;
}
static int
save_point(pic_state *pic, struct pic_escape *escape)
int
pic_save_point(pic_state *pic, struct pic_escape *escape)
{
escape->valid = true;
@ -75,8 +75,8 @@ save_point(pic_state *pic, struct pic_escape *escape)
return setjmp(escape->jmp);
}
noreturn static void
load_point(pic_state *pic, struct pic_escape *escape)
noreturn void
pic_load_point(pic_state *pic, struct pic_escape *escape)
{
if (! escape->valid) {
pic_errorf(pic, "calling dead escape continuation");
@ -108,11 +108,11 @@ escape_call(pic_state *pic)
e = pic_data_ptr(pic_attr_ref(pic, pic_get_proc(pic), "@@escape"));
load_point(pic, e->data);
pic_load_point(pic, e->data);
}
static struct pic_proc *
make_escape(pic_state *pic, struct pic_escape *escape)
struct pic_proc *
pic_make_cont(pic_state *pic, struct pic_escape *escape)
{
static const pic_data_type escape_type = { "escape", pic_free, NULL };
struct pic_proc *cont;
@ -135,13 +135,13 @@ pic_escape(pic_state *pic, struct pic_proc *proc)
escape = pic_alloc(pic, sizeof(struct pic_escape));
if (save_point(pic, escape)) {
if (pic_save_point(pic, escape)) {
return pic_values_by_list(pic, escape->results);
}
else {
pic_value val;
val = pic_apply1(pic, proc, pic_obj_value(make_escape(pic, escape)));
val = pic_apply1(pic, proc, pic_obj_value(pic_make_cont(pic, escape)));
escape->valid = false;

5
include/picrin/cont.h
View File

@ -26,6 +26,11 @@ struct pic_escape {
pic_value results;
};
int pic_save_point(pic_state *, struct pic_escape *);
noreturn void pic_load_point(pic_state *, struct pic_escape *);
struct pic_proc *pic_make_cont(pic_state *, struct pic_escape *);
void pic_wind(pic_state *, struct pic_winder *, struct pic_winder *);
pic_value pic_dynamic_wind(pic_state *, struct pic_proc *, struct pic_proc *, struct pic_proc *);