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

Added "date" valexpr to session, for bal -V

Browse source
This commit is contained in:
John Wiegley 2009-02-24 21:07:05 -04:00
parent 6d880c2728
commit a8a87ab908
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/session.cc
View file

@ -235,6 +235,11 @@ expr_t::ptr_op_t session_t::lookup(const string& name)
{ {
const char * p = name.c_str(); const char * p = name.c_str();
switch (*p) { switch (*p) {
case 'd':
if (is_eq(p, "date"))
return MAKE_FUNCTOR(session_t::fn_today);
break;
case 'n': case 'n':
if (is_eq(p, "now")) if (is_eq(p, "now"))
return MAKE_FUNCTOR(session_t::fn_now); return MAKE_FUNCTOR(session_t::fn_now);