C++ (Cpp) pic_internの例

コード例 #1

ファイル: error.c プロジェクト: ktakashi/picrin

void
pic_error(pic_state *pic, const char *msg, pic_value irrs)
{
  struct pic_error *e;

  e = pic_make_error(pic, pic_intern(pic, ""), msg, irrs);

  pic_raise(pic, pic_obj_value(e));
}

コード例 #2

ファイル: file.c プロジェクト: ktakashi/picrin

PIC_NORETURN static void
file_error(pic_state *pic, const char *msg)
{
  struct pic_error *e;

  e = pic_make_error(pic, pic_intern(pic, "file"), msg, pic_nil_value());

  pic_raise(pic, pic_obj_value(e));
}

コード例 #3

ファイル: symbol.c プロジェクト: krig/picrin

pic_sym
pic_intern_cstr(pic_state *pic, const char *str)
{
  return pic_intern(pic, str, strlen(str));
}