add pic_parse
This commit is contained in:
parent
a83627ef9c
commit
617ee5aa68
|
@ -114,6 +114,7 @@ void pic_vec_extend_ip(pic_state *, struct pic_vector *, int);
|
||||||
|
|
||||||
int pic_parse_file(pic_state *, FILE *file, pic_value *);
|
int pic_parse_file(pic_state *, FILE *file, pic_value *);
|
||||||
int pic_parse_cstr(pic_state *, const char *, pic_value *);
|
int pic_parse_cstr(pic_state *, const char *, pic_value *);
|
||||||
|
pic_value pic_parse(pic_state *, const char *);
|
||||||
|
|
||||||
pic_value pic_apply(pic_state *pic, struct pic_proc *, pic_value);
|
pic_value pic_apply(pic_state *pic, struct pic_proc *, pic_value);
|
||||||
pic_value pic_apply_argv(pic_state *pic, struct pic_proc *, size_t, ...);
|
pic_value pic_apply_argv(pic_state *pic, struct pic_proc *, size_t, ...);
|
||||||
|
|
13
src/parse.y
13
src/parse.y
|
@ -431,3 +431,16 @@ pic_parse_cstr(pic_state *pic, const char *str, pic_value *v)
|
||||||
|
|
||||||
return r;
|
return r;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
pic_value
|
||||||
|
pic_parse(pic_state *pic, const char *src)
|
||||||
|
{
|
||||||
|
pic_value vs;
|
||||||
|
int r;
|
||||||
|
|
||||||
|
r = pic_parse_cstr(pic, src, &vs);
|
||||||
|
if (r != 1) {
|
||||||
|
return pic_undef_value();
|
||||||
|
}
|
||||||
|
return pic_car(pic, vs);
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue