home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / c / genmo112.lha / GTB-Modula / Modules / FileOut.def < prev    next >
Encoding:
Modula Definition  |  1993-09-28  |  1.2 KB  |  49 lines
  1. (*
  2.  * -------------------------------------------------------------------------
  3.  *
  4.  *    :Module.    FileOut.def
  5.  *    :Contents.    Ausgaben wie mit InOut aber auf eine Datei.
  6.  *
  7.  *    :Author.    Reiner Nix
  8.  *    :Address.    Geranienhof 2, 5000 Köln 71 Seeberg
  9.  *    :Address.    rbnix@pool.informatik.rwth-aachen.de
  10.  *    :Copyright.    Public Domain
  11.  *    :Language.    Modula-2
  12.  *    :Translator.    M2Amiga A-L V4.2d
  13.  *    :History.    V1.0    21.11.90    M2Amiga V3.3d
  14.  *    :History.    V1.1    13.08.91    M2Amiga V4.0d
  15.  *    :History.    V1.2    23.08.93    erweitert um WriteHex 
  16.  *
  17.  * -------------------------------------------------------------------------
  18.  *)
  19. DEFINITION MODULE FileOut;
  20.  
  21. FROM    FileSystem    IMPORT    File;
  22.  
  23.  
  24. PROCEDURE WriteLn    (VAR file    :File);
  25.  
  26. PROCEDURE Write        (VAR file    :File;
  27.              char        :CHAR);
  28.  
  29. PROCEDURE WriteString    (VAR file    :File;
  30.              string        :ARRAY OF CHAR);
  31.  
  32. PROCEDURE WriteInt    (VAR file    :File;
  33.              number        :LONGINT; n    :CARDINAL);
  34.  
  35. PROCEDURE WriteHex    (VAR file    :File;
  36.              number        :LONGINT; n    :CARDINAL);
  37.  
  38. PROCEDURE WriteCard    (VAR file    :File;
  39.              number        :LONGCARD; n    :CARDINAL);
  40.  
  41. PROCEDURE WriteBool    (VAR file    :File;
  42.              boolean    :BOOLEAN);
  43.  
  44. PROCEDURE WriteReal    (VAR file    :File;
  45.              number        :REAL; m,n    :CARDINAL);
  46.  
  47.  
  48. END FileOut.
  49.