Initial revision

This commit is contained in:
ceriel
1987-05-13 14:36:45 +00:00
parent b767dd20a3
commit 0fe3fbd296
53 changed files with 3189 additions and 0 deletions

View File

@@ -0,0 +1,20 @@
DEFINITION MODULE Conversions;
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.