sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

post.x = y defines metadata tag x

Browse source
This commit is contained in:
John Wiegley 2012-04-04 02:28:07 -05:00
parent 5a615ec680
commit 322d55823e
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/item.cc
View file

@ -398,6 +398,13 @@ value_t get_comment(item_t& item)
} }
} }
void item_t::define(const symbol_t::kind_t, const string& name,
expr_t::ptr_op_t def)
{
bind_scope_t bound_scope(*scope_t::default_scope, *this);
set_tag(name, def->calc(bound_scope));
}
expr_t::ptr_op_t item_t::lookup(const symbol_t::kind_t kind, expr_t::ptr_op_t item_t::lookup(const symbol_t::kind_t kind,
const string& name) const string& name)
{ {

2
src/item.h
View file

@ -216,6 +216,8 @@ public:
return _state; return _state;
} }
virtual void define(const symbol_t::kind_t, const string&,
expr_t::ptr_op_t);
virtual expr_t::ptr_op_t lookup(const symbol_t::kind_t kind, virtual expr_t::ptr_op_t lookup(const symbol_t::kind_t kind,
const string& name); const string& name);