45 lines
1.4 KiB
Plaintext
45 lines
1.4 KiB
Plaintext
|
DEFINITION MODULE Conversions;
|
|||
|
|
(*
|
|||
|
|
Convert from INTEGER and CARDINAL to string
|
|||
|
|
|
|||
|
|
|
|||
|
|
Derived from the Lilith Modula-2 system developed by the
|
|||
|
|
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
EXPORT QUALIFIED ConvertOctal, ConvertHex,
|
|||
|
|
ConvertCardinal, ConvertInteger;
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE ConvertOctal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|||
|
|
(*- Convert number to right-justified octal representation
|
|||
|
|
in: num value to be represented,
|
|||
|
|
len minimum width of representation,
|
|||
|
|
out: str result string.
|
|||
|
|
|
|||
|
|
If the representation of 'num' uses fewer than 'len' digits, blanks
|
|||
|
|
are added on the left. If the representation will not fit in 'str',
|
|||
|
|
it is truncated on the right.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE ConvertHex(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|||
|
|
(*- Convert number to right-justified hexadecimal representation.
|
|||
|
|
[see ConvertOctal]
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE ConvertCardinal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|||
|
|
(*- Convert a CARDINAL to right-justified decimal representation.
|
|||
|
|
[see ConvertOctal]
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE ConvertInteger(num: INTEGER; len: CARDINAL;
|
|||
|
|
VAR str: ARRAY OF CHAR);
|
|||
|
|
(*- Convert an INTEGER to right-justified decimal representation.
|
|||
|
|
[see ConvertOctal]
|
|||
|
|
Note that a leading '-' is generated if num < 0, but never a '+'.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
END Conversions.
|
|||
|
|
|
|||
|
|
|
|||
|
|
[see Co
|