home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / GPMsym / realinout.def < prev    next >
Text File  |  1996-09-03  |  2KB  |  35 lines
  1. (***********************************************************************)
  2. (*                                                                     *)
  3. (*            Modula-2 Compiler RealInOut Library Module               *)
  4. (*                                                                     *)
  5. (*          High level input and output procedures for                 *)
  6. (*          REAL numbers. RealInOut will be redirected                 *)
  7. (*          when InOut is redirected.                                  *)
  8. (*                                                                     *)
  9. (*       original module : N. Wirth, PIM-2, 1982                       *)
  10. (*       modifications   :                                             *)
  11. (*                         pms 27 Oct 94 Delete reference to WriteOct  *)
  12. (*                                       Now implemented in Modula2    *)
  13. (*                         jl  April 96  Now implemented using RealStr *)
  14. (*                                                                     *)
  15. (***********************************************************************)
  16.  
  17. DEFINITION MODULE RealInOut;
  18.  
  19.    VAR
  20.       Done : BOOLEAN;
  21.  
  22.    PROCEDURE ReadReal(VAR x : REAL);
  23.    (* Precondition  : TRUE
  24.     * Postcondition : Done = TRUE if and only if the next sequence 
  25.     *                 of characters represents a REAL value.
  26.     *)
  27.  
  28.    PROCEDURE WriteReal(x : REAL; width : CARDINAL);
  29.    (* Precondition  : x and width are defined.
  30.     * Postcondition : Outputs a REAL value occupying at least width character
  31.     *                 positions with leading blanks as required to make width
  32.     *)
  33.  
  34. END RealInOut.   
  35.