コード例 #1
0
ファイル: ext_term_format.cpp プロジェクト: kvakvs/gluonvm
// Reads tag byte, then reads long or short atom as string and attempts to
// create it in atom table.
Term ExtTerm::read_tagged_atom_string(tool::Reader& r) {
  Tag tag = static_cast<Tag>(r.read_byte());
  if (tag == Tag::AtomExt) {
    return read_atom_string_i16(r);
  } else if (tag == Tag::SmallAtomExt) {
    return read_atom_string_i8(r);
  }
  E4FAIL(e4err::etf_atom_expected);
}
コード例 #2
0
ファイル: ext_term.cpp プロジェクト: Agerran/gluonvm
// Reads tag byte, then reads long or short atom as string and attempts to
// create it in atom table.
Term read_tagged_atom_string(VM& vm, tool::Reader& r) {
  Tag tag = (Tag)r.read_byte();
  if (tag == Tag::AtomExt) {
    return read_atom_string_i16(vm, r);
  } else if (tag == Tag::SmallAtomExt) {
    return read_atom_string_i8(vm, r);
  }
  throw err::ExternalTerm("atom expected");
}