diff options
author | Teddy <ted.sybil@gmail.com> | 2013-08-05 23:31:48 +0800 |
---|---|---|
committer | Teddy <ted.sybil@gmail.com> | 2013-08-05 23:31:48 +0800 |
commit | 2ec8f26f31d13bf3c3bbda24ea5e1cace6a819a2 (patch) | |
tree | f623aaa220efa2993161997729dce9ff03d936ad /model.cpp | |
parent | 5dab7df6830018c5c28ebcc7cc3b242ccad2736b (diff) |
added support for string
Diffstat (limited to 'model.cpp')
-rw-r--r-- | model.cpp | 15 |
1 files changed, 13 insertions, 2 deletions
@@ -94,7 +94,7 @@ RetAddr::RetAddr(Cons *_addr) : FrameObj(CLS_RET_ADDR), addr(_addr) {} string RetAddr::_debug_repr() { return string("#<Return Address>"); } #endif -UnspecObj::UnspecObj() : EvalObj() {} +UnspecObj::UnspecObj() : EvalObj(CLS_SIM_OBJ) {} string UnspecObj::ext_repr() { return string("#<Unspecified>"); } @@ -150,7 +150,7 @@ string ProcObj::_debug_repr() { return ext_repr(); } SpecialOptObj::SpecialOptObj() : OptObj() {} -BoolObj::BoolObj(bool _val) : EvalObj(), val(_val) {} +BoolObj::BoolObj(bool _val) : EvalObj(CLS_SIM_OBJ), val(_val) {} bool BoolObj::is_true() { return val; } @@ -161,6 +161,17 @@ NumObj::NumObj(NumLvl _level, bool _exactness) : bool NumObj::is_exact() { return exactness; } +StrObj::StrObj(string _str) : EvalObj(CLS_SIM_OBJ), str(_str) {} + +string StrObj::ext_repr() { return str; } + +StrObj *StrObj::from_string(string repr) { + int len = repr.length(); + if (repr[0] == '\"' && repr[len - 1] == '\"') + return new StrObj(repr.substr(1, len - 2)); + return NULL; +} + BuiltinProcObj::BuiltinProcObj(BuiltinProc f, string _name) : OptObj(), handler(f), name(_name) {} |