home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / lpr / longinou.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  2.0 KB  |  55 lines
  1. DEFINITION MODULE LongInOut;
  2.  
  3. (* Read and write procedures for LONGCARDs, LONGINTs and ADDRESSs 
  4.    from/on InOut.In and InOut.Out based on the InOut.Read... and
  5.    InOut.Write... procedures. *)
  6.  
  7. FROM   SYSTEM  IMPORT ADDRESS;
  8.  
  9. VAR Done : BOOLEAN;
  10.  
  11. PROCEDURE WriteLongInt(TheNumber : LONGINT; 
  12.                     Length    : CARDINAL); (* min. length *)
  13.   (* Writes the LongInt number. *)
  14.  
  15. PROCEDURE WriteLongCard(TheNumber : LONGCARD; 
  16.                      Length    : CARDINAL); (* min. length *)
  17.   (* Writes the LongCard number in decimal representation. *)
  18.  
  19. PROCEDURE WriteLongOct(TheNumber : LONGCARD;
  20.                     Length    : CARDINAL); (* min. length *)
  21.   (* Writes the LongCard number in Octal representation. *)
  22.  
  23. PROCEDURE WriteLongHex(TheNumber : LONGCARD;
  24.                     Length    : CARDINAL); (* min. length *)
  25.   (* Writes the LongCard number in Hexadecimal representation. *)
  26.  
  27. PROCEDURE WriteAdr   (TheAddress : ADDRESS; 
  28.                       Length     : CARDINAL); (* min. length *)
  29.   (* Writes the Address in decimal representation. *)
  30.  
  31. PROCEDURE WriteAdrOct(TheAddress : ADDRESS; 
  32.                       Length     : CARDINAL); (* min. length *)
  33.   (* Writes the Address in Octal representation. *)
  34.  
  35. PROCEDURE WriteAdrHex(TheAddress : ADDRESS; 
  36.                       Length     : CARDINAL); (* min. length *)
  37.   (* Writes the Address in Hexadecimal representation. *)
  38.  
  39. PROCEDURE ReadLongInt(VAR TheNumber : LONGINT);
  40.   (* A LongInt number is read using InOut.ReadString.
  41.      Syntax as in InOut.ReadInt. 
  42.      Done := "Long Integer was read."*)
  43.  
  44. PROCEDURE ReadLongCard(VAR TheNumber : LONGCARD);
  45.   (* A LongCard number is read using InOut.ReadString.
  46.      Syntax as in InOut.ReadCard.
  47.      Done := "Long Cardinal was read."*)
  48.  
  49. PROCEDURE ReadAdr(VAR TheAddress : ADDRESS);
  50.   (* TheAddress is read using InOut.ReadString.
  51.      Syntax as in ReadLongCard.
  52.      Done := "Address was read."*)
  53.  
  54. END (* DEFINITION MODULE *) LongInOut.
  55.