::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:
class Type.Real.Public public Gilda:
:
:...............................................................................
:::::::::::::::::::::::::::::: Type.Real :::::::::::::::::::::::::::::::::::::
:
method REAL.GILDA..double: Convert a Gilda number to a real; platform independent.
exit Real double :Double result.
entry Input string :Text to parse.
change Index = 0 word : In - Index to the first digit.
: Zero to validate all text was parsed.
:Out - Index past the last digit or
: Zero if all text was parsed.
:...............................................................................
:
method REAL.JAVA..double: Parse a Java number to a real; platform independent.
exit Real double :Single or Double result.
entry Input string :Text to parse.
change Index = 0 word : In - Index to the first digit.
:Out - Index past the last digit.
: Zero if all text must be parsed.
:...............................................................................
:
method IEEE.GILDA..double: Convert a Gilda real number to an IEEE Real.
exit Real double :Single or Double result.
entry Input string :Text to parse.
change Index = 0 word : In - Index to the first digit.
: Zero to validate all text was parsed.
:Out - Index past the last digit.
:...............................................................................
:
function IS.DENORMAL..double: See if a real is an IEEE denormalized value.
entry Double[0] :IEEE double precision real
exit Denormal cell :Mantissa (low 52 bits) of a denormalized value
:
:...............................................................................
:
method REAL.GILDA..single: Convert a Gilda number to a real; platform independent.
exit Real single :Single result.
entry Input string :Text to parse.
change Index = 0 word : In - Index to the first digit.
: Zero to validate all text was parsed.
:Out - Index past the last digit or
: Zero if all text was parsed.
:...............................................................................
:
method REAL.JAVA..single: Parse a Java number to a real; platform independent.
exit Real single :Single result.
entry Input string :Jave number to parse.
change Index = 0 word : In - Index to the first digit.
:Out - Index past the last digit.
: Zero if all text must be parsed.
:...............................................................................
:
method IEEE.GILDA..single: Convert a Gilda real number to an IEEE Real.
exit Real single :Single or Double result.
entry Input string :Text to parse.
change Index = 0 word : In - Index to the first digit.
: Zero to validate all text was parsed.
:Out - Index past the last digit.
:...............................................................................
end