25 lines
830 B
Modula-2
25 lines
830 B
Modula-2
DEFINITION MODULE Conversions;
|
|
(*
|
|
Module: Numeric-to-string conversions
|
|
Author: Ceriel J.H. Jacobs
|
|
Version: $Header$
|
|
*)
|
|
|
|
PROCEDURE ConvertOctal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|
(* Convert number "num" to right-justified octal representation of
|
|
"len" positions, and put the result in "str".
|
|
If the result does not fit in "str", it is truncated on the right.
|
|
*)
|
|
|
|
PROCEDURE ConvertHex(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|
(* Convert a hexadecimal number to a string *)
|
|
|
|
PROCEDURE ConvertCardinal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|
(* Convert a cardinal number to a string *)
|
|
|
|
PROCEDURE ConvertInteger(num: INTEGER;
|
|
len: CARDINAL;
|
|
VAR str: ARRAY OF CHAR);
|
|
(* Convert an integer number to a string *)
|
|
|
|
END Conversions.
|