Пример #1
0
Файл: port.c Проект: KeenS/benz
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);
}
Пример #2
0
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);
}