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

Added new value expressions for value conversion

Browse source 
They are:

  to_boolean
  to_int
  to_datetime
  to_date
  to_amount
  to_balance
  to_string
  to_mask
  to_sequence
This commit is contained in:
John Wiegley 2009-11-11 21:33:53 -05:00
parent b6ff8f19d5
commit 95cc364961
2 changed files with 90 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

81
src/report.cc
View file

@ -353,6 +353,69 @@ value_t report_t::fn_lot_tag(call_scope_t& scope)
return NULL_VALUE;
}
value_t report_t::fn_to_boolean(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::BOOLEAN);
return args.value_at(0);
}
value_t report_t::fn_to_int(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::INTEGER);
return args.value_at(0);
}
value_t report_t::fn_to_datetime(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::DATETIME);
return args.value_at(0);
}
value_t report_t::fn_to_date(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::DATE);
return args.value_at(0);
}
value_t report_t::fn_to_amount(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::AMOUNT);
return args.value_at(0);
}
value_t report_t::fn_to_balance(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::BALANCE);
return args.value_at(0);
}
value_t report_t::fn_to_string(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::STRING);
return args.value_at(0);
}
value_t report_t::fn_to_mask(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::MASK);
return args.value_at(0);
}
value_t report_t::fn_to_sequence(call_scope_t& scope)
{
interactive_t args(scope, "v");
args.value_at(0).in_place_cast(value_t::SEQUENCE);
return args.value_at(0);
}
namespace {
value_t fn_black(call_scope_t&) {
return string_value("black");
@ -823,6 +886,24 @@ expr_t::ptr_op_t report_t::lookup(const symbol_t::kind_t kind,
return MAKE_FUNCTOR(report_t::fn_today);
else if (is_eq(p, "t"))
return MAKE_FUNCTOR(report_t::fn_display_amount);
else if (is_eq(p, "to_boolean"))
return MAKE_FUNCTOR(report_t::fn_to_boolean);
else if (is_eq(p, "to_int"))
return MAKE_FUNCTOR(report_t::fn_to_int);
else if (is_eq(p, "to_datetime"))
return MAKE_FUNCTOR(report_t::fn_to_datetime);
else if (is_eq(p, "to_date"))
return MAKE_FUNCTOR(report_t::fn_to_date);
else if (is_eq(p, "to_amount"))
return MAKE_FUNCTOR(report_t::fn_to_amount);
else if (is_eq(p, "to_balance"))
return MAKE_FUNCTOR(report_t::fn_to_balance);
else if (is_eq(p, "to_string"))
return MAKE_FUNCTOR(report_t::fn_to_string);
else if (is_eq(p, "to_mask"))
return MAKE_FUNCTOR(report_t::fn_to_mask);
else if (is_eq(p, "to_sequence"))
return MAKE_FUNCTOR(report_t::fn_to_sequence);
break;
case 'T':

9
src/report.h
View file

@ -155,6 +155,15 @@ public:
value_t fn_lot_date(call_scope_t& scope);
value_t fn_lot_price(call_scope_t& scope);
value_t fn_lot_tag(call_scope_t& scope);
value_t fn_to_boolean(call_scope_t& scope);
value_t fn_to_int(call_scope_t& scope);
value_t fn_to_datetime(call_scope_t& scope);
value_t fn_to_date(call_scope_t& scope);
value_t fn_to_amount(call_scope_t& scope);
value_t fn_to_balance(call_scope_t& scope);
value_t fn_to_string(call_scope_t& scope);
value_t fn_to_mask(call_scope_t& scope);
value_t fn_to_sequence(call_scope_t& scope);
value_t fn_now(call_scope_t&) {
return terminus;