home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xco212p.zip / ISODEF / swholeio.def < prev    next >
Text File  |  1994-12-22  |  1KB  |  39 lines
  1. DEFINITION MODULE SWholeIO;
  2.  
  3.   (* Input and output of whole numbers in decimal text form over default
  4.      channels.  The read result is of the type IOConsts.ReadResults.
  5.   *)
  6.  
  7.   (* The text form of a signed whole number is
  8.        ["+" | "-"], decimal digit, {decimal digit}
  9.  
  10.      The text form of an unsigned whole number is
  11.        decimal digit, {decimal digit}
  12.   *)
  13.  
  14. PROCEDURE ReadInt (VAR int: INTEGER);
  15.   (* Skips leading spaces, and removes any remaining characters from the default input
  16.      channel that form part of a signed whole number.  The value of this number is assigned
  17.      to int.  The read result is set to the value allRight, outOfRange, wrongFormat,
  18.      endOfLine, or endOfInput.
  19.   *)
  20.  
  21. PROCEDURE WriteInt (int: INTEGER; width: CARDINAL);
  22.   (* Writes the value of int to the default output channel in text form, in a field of the
  23.      given minimum width.
  24.   *)
  25.  
  26. PROCEDURE ReadCard (VAR card: CARDINAL);
  27.   (* Skips leading spaces, and removes any remaining characters from the default input
  28.      channel that form part of an unsigned whole number.  The value of this number is
  29.      assigned to card.  The read result is set to the value allRight, outOfRange,
  30.      wrongFormat, endOfLine, or endOfInput.
  31.   *)
  32.  
  33. PROCEDURE WriteCard (card: CARDINAL; width: CARDINAL);
  34.   (* Writes the value of card to the default output channel in text form, in a field of the
  35.      given minimum width.
  36.   *)
  37.  
  38. END SWholeIO.
  39.