INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

copyright: "Object Tools, 1996-2001"
version: "1.2"
cluster: formats
class G_REAL_COMMERCIAL_FORMATTER
inherit

G_ABSTRACT_COMMERCIAL_FORMATTER
redefine
set_currency,
set_delimiters,
set_point
end

G_EXTENDED_MATH
end

G_STRING_TOOLS
end
creation

make
feature

make (r: DOUBLE_REF)

set_point (c: CHARACTER)
require
point_not_null: c /= '%U'

set_delimiters (s: STRING)

set_currency (s: STRING)
require
string_not_void: s /= void

output: STRING
require
non_void_picture: picture /= void
end -- class G_REAL_COMMERCIAL_FORMATTER

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES