summaryrefslogtreecommitdiff
path: root/value.cc
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2008-07-24 09:13:03 -0400
committerJohn Wiegley <johnw@newartisans.com>2008-07-24 09:13:03 -0400
commit171f79dda268b59d708f5002d1d616a71a30ecb5 (patch)
tree8f57eb53ade3a63b8155054a085c0267ea3f0cf3 /value.cc
parent643f2d33cf24bbae4a13acfbfc6af5fe8439f905 (diff)
downloadledger-171f79dda268b59d708f5002d1d616a71a30ecb5.tar.gz
ledger-171f79dda268b59d708f5002d1d616a71a30ecb5.tar.bz2
ledger-171f79dda268b59d708f5002d1d616a71a30ecb5.zip
There are no more asserts or exceptions while parsing, but still there are
many balancing errors.
Diffstat (limited to 'value.cc')
-rw-r--r--value.cc28
1 files changed, 23 insertions, 5 deletions
diff --git a/value.cc b/value.cc
index 70bbdc6f..85f9f49a 100644
--- a/value.cc
+++ b/value.cc
@@ -1006,24 +1006,38 @@ void value_t::in_place_cast(type_t cast_type)
}
break;
- case AMOUNT:
+ case AMOUNT: {
+ const amount_t& amt(as_amount());
switch (cast_type) {
case INTEGER:
- set_long(as_amount().to_long());
+ if (amt.is_null())
+ set_long(0L);
+ else
+ set_long(as_amount().to_long());
return;
case BALANCE:
- set_balance(as_amount());
+ if (amt.is_null())
+ set_balance(balance_t());
+ else
+ set_balance(as_amount());
return;
case BALANCE_PAIR:
- set_balance_pair(as_amount());
+ if (amt.is_null())
+ set_balance_pair(balance_pair_t());
+ else
+ set_balance_pair(as_amount());
return;
case STRING:
- set_string(as_amount().to_string());
+ if (amt.is_null())
+ set_string("");
+ else
+ set_string(as_amount().to_string());
return;
default:
break;
}
break;
+ }
case BALANCE:
switch (cast_type) {
@@ -1244,6 +1258,10 @@ value_t value_t::round() const
return *this;
case AMOUNT:
return as_amount().round();
+ case BALANCE:
+ return as_balance().round();
+ case BALANCE_PAIR:
+ return as_balance_pair().round();
default:
break;
}