INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
project:
"The Universal Simple Formatting Library (USFL)"
copyright:
"Object Tools, 1996-2001"
version:
"1.2"
cluster:
formats
class
G_COMMERCIAL_FORMAT
inherit
G_SCIENTIFIC_FORMAT
redefine
make
,
parse_escape_sequence
,
raise_exception
,
set_default_format
,
sprint
end
creation
make
feature
default_currency
:
STRING
default_decimal
:
CHARACTER
frozen
default_currency_is_dollar
:
STRING
default_decimal_is_point
:
CHARACTER
frozen
Picture_chars
:
STRING
frozen
Delimiter_chars
:
STRING
frozen
Special_chars
:
STRING
LRBracket
:
CHARACTER
RRBracket
:
CHARACTER
LSBracket
:
CHARACTER
RSBracket
:
CHARACTER
make
is_picture_char
(
c
:
CHARACTER
):
BOOLEAN
set_default_format
(
format
:
STRING
)
sprint
(
para
:
ANY
):
STRING
-- print argument to string using default format string
set_currency
(
currency
:
STRING
)
set_decimal
(
point
:
CHARACTER
)
end
-- class
G_COMMERCIAL_FORMAT
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES