immutable class MONEY < $NFE{MONEY}, $SIGNED{MONEY}, $HASH,


Ancestors
$FIXED_FMT $FMT $STR $OPTION
$HASH $IS_EQ $SIGNED{_} $NFE{_}
$TEXT $BINARY $ORDERED{_} $IS_LT{_}
$VALUE{_} $NIL $IS_NIL



Public


Readable Attributes
attr val : RAT ;

Constants
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 ;

Features
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


Private

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 ;

The Sather Home Page