server_common/a8
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
aozhiwei 2023-03-03 22:05:15 +08:00
parent 8cf0d04a93
commit bb2f76674d
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
a8/lisp.cc
View File

@ -29,9 +29,10 @@ namespace a8
value = symbol; value = symbol;
} }
Value::Value(CProc cproc) Value::Value(const std::string& proc_name, CProc cproc)
{ {
type = ValueType::kCProc; type = ValueType::kCProc;
name = proc_name;
value = cproc; value = cproc;
} }
@ -67,6 +68,8 @@ namespace a8
case ValueType::kCProc: case ValueType::kCProc:
{ {
auto obj = a8::MutableXObject::CreateObject(); auto obj = a8::MutableXObject::CreateObject();
obj->SetVal("type", "lambda");
obj->SetVal("name", name);
return *obj; return *obj;
} }
break; break;
@ -86,7 +89,7 @@ namespace a8
void Scope::RegisterCProc(const std::string& name, CProc proc) void Scope::RegisterCProc(const std::string& name, CProc proc)
{ {
vars_[name] = std::make_shared<Value>(proc); vars_[name] = std::make_shared<Value>(name, proc);
} }
GlobalScope::GlobalScope() GlobalScope::GlobalScope()

3
a8/lisp.h
View File

@ -36,12 +36,13 @@ namespace a8
struct Value struct Value
{ {
ValueType type; ValueType type;
std::string name;
std::any value; std::any value;
Value(Atom atom); Value(Atom atom);
Value(List list); Value(List list);
Value(Symbol symbol); Value(Symbol symbol);
Value(CProc cproc); Value(const std::string& proc_name, CProc cproc);
bool IsType(ValueType t) { return t == type; }; bool IsType(ValueType t) { return t == type; };
a8::XObject ToXObject(); a8::XObject ToXObject();
}; };