immutable class MONEY < $NFE{MONEY}, $SIGNED{MONEY}, $HASH, |
---|
$FIXED_FMT | $FMT | $STR | $OPTION | $HASH | $IS_EQ | $SIGNED{_} | $NFE{_} | $TEXT | $BINARY | $ORDERED{_} | $IS_LT{_} | $VALUE{_} | $NIL | $IS_NIL |
attr val : RAT ; |
---|
const Calculate_Places : CARD := 4 ; |
---|
**** | Four decimal places! |
const Precision : INTI := INTI::create(10000) ; |
---|
**** | divisor for four places! |
const is_limited : BOOL := false ; |
---|
const is_signed : BOOL := true ; |
---|
const negatable : BOOL := true ; |
---|
abs : SAME .. Included as abs |
---|
binstr : BINSTR .. Included as binstr |
---|
build( .. Included as build |
---|
build( .. Included as build |
---|
create(str : BINSTR) : SAME .. Included as create |
---|
create(val : CARD) : SAME .. Included as create |
---|
**** |
________This_routine_creates_a_local_money_value_from_the_given_number ___of_integral_local_currency_units. |
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
div( .. Included as div |
---|
div( .. Included as div |
---|
div( .. Included as div |
---|
div( .. Included as div |
---|
div( .. Included as div |
---|
div( .. Included as div |
---|
exchange_val( .. Included as exchange_val |
---|
fmt( .. Included as fmt |
---|
fmt( .. Included as fmt |
---|
foreign( .. Included as foreign |
---|
hash : CARD .. Included as hash |
---|
is_eq( .. Included as is_eq |
---|
is_eq(other : $OB) : BOOL .. Included as is_eq |
---|
**** | This is the generic equality predicate. c.f. the class $IS_EQ |
is_exact : BOOL .. Included as is_exact |
---|
**** | This predicate returns true if and only if the value of self is an exact number. |
is_lt( .. Included as is_lt |
---|
is_money( .. Included as is_money |
---|
is_neg : BOOL .. Included as is_neg |
---|
is_nil : BOOL .. Included as is_nil |
---|
is_pos : BOOL .. Included as is_pos |
---|
**** |
________This_predicate_returns_true_if_and_only_if_the_value_of_self_is ___greater_than_zero. |
is_zero : BOOL .. Included as is_zero |
---|
loc_val : BINSTR .. Included as loc_val |
---|
minus( .. Included as minus |
---|
negate : SAME .. Included as negate |
---|
nil : SAME .. Included as nil |
---|
one : SAME .. Included as one |
---|
plus( .. Included as plus |
---|
read(index : BIN_CURSOR) : SAME .. Included as read |
---|
sign : NUM_SIGNS .. Included as sign |
---|
str( .. Included as str |
---|
str : STR .. Included as str |
---|
times( .. Included as times |
---|
times( .. Included as times |
---|
times( .. Included as times |
---|
times( .. Included as times |
---|
times( .. Included as times |
---|
write(fyle : BIN_FILE) .. Included as write |
---|
zero : SAME |
---|
check_prefix( .. Included as check_prefix |
---|
check_sign( .. Included as check_sign |
---|
is_sign( .. Included as is_sign |
---|
is_sign_or_unit( .. Included as is_sign_or_unit |
---|
is_symbol( .. Included as is_symbol |
---|
scan( .. Included as scan |
---|
suffix_check( .. Included as suffix_check |
---|
symbol_check( .. Included as symbol_check |
---|
attr val : RAT ; |
---|