static pic_value pic_port_open_input_string(pic_state *pic) { struct pic_port *port; char *str; pic_get_args(pic, "z", &str); port = pic_open_input_string(pic, str); return pic_obj_value(port); }
void pic_load_cstr(pic_state *pic, const char *src) { struct pic_port *port = pic_open_input_string(pic, src); pic_try { pic_load(pic, port); } pic_catch { pic_close_port(pic, port); pic_raise(pic, pic->err); } pic_close_port(pic, port); }