home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Modula / Source / CONVERSIONS.DEF < prev    next >
Text File  |  1985-04-25  |  2KB  |  59 lines
  1. (****************************************
  2. *                                       *
  3. *     Conversions:                      *
  4. *                                       *
  5. *     Number to string conversion       *
  6. *                                       *
  7. *     Version of 03.06.83               *
  8. *                                       *
  9. *     Institut fuer Informatik          *
  10. *     ETH-Zuerich                       *
  11. *     CH-8092 Zuerich                   *
  12. *                                       *
  13. ****************************************)
  14.  
  15. DEFINITION MODULE Conversions;                  (* LG, PF *)
  16.  
  17.   FROM SYSTEM IMPORT ADDRESS;
  18.  
  19.   EXPORT QUALIFIED ConvertOctal, ConvertHex,
  20.                    ConvertCardinal, ConvertInteger,
  21.                    ConvertAddrOct, ConvertAddrHex, ConvertAddrDec;
  22.  
  23.  
  24.   PROCEDURE ConvertOctal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
  25.     (* conversion of an octal number to a string *)
  26.  
  27.   PROCEDURE ConvertHex(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
  28.     (* conversion of a hexadecimal number to a string *)
  29.  
  30.   PROCEDURE ConvertCardinal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
  31.     (* conversion of a cardinal decimal number to a string *)
  32.  
  33.   PROCEDURE ConvertInteger(num: INTEGER; len: CARDINAL;
  34.                            VAR str: ARRAY OF CHAR);
  35.     (* conversion of an integer decimal number to a string *)
  36.  
  37.   PROCEDURE ConvertAddrHex (num: ADDRESS; len: CARDINAL;
  38.                            VAR str: ARRAY OF CHAR);
  39.     (* conversion of an address into a hexadecimal string *)
  40.  
  41.   PROCEDURE ConvertAddrOct (num: ADDRESS; len: CARDINAL;
  42.                            VAR str: ARRAY OF CHAR);
  43.    (* conversion of an address into an octal string*)
  44.  
  45.   PROCEDURE ConvertAddrDec (num: ADDRESS; len: CARDINAL;
  46.                            VAR str: ARRAY OF CHAR);
  47.    (* conversion of an address into a decimal string *)
  48.  
  49.  
  50.    (* note: len is the minimum size of the converted number, e.g. 0.
  51.             octal and hexa conversions fill with leading zeroes,
  52.             decimal conversion fills with blanks *)
  53.  
  54.    (* note 2: the routines for address conversion are distinct,
  55.       because, for the MC68000, an ADDRESS is 32 bits, but a CARDINAL
  56.       is normally 16 bits - depending on compilation options *)
  57.  
  58. END Conversions.
  59.