home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 03 / praxis / binaryio.def next >
Encoding:
Modula Definition  |  1989-12-13  |  2.5 KB  |  65 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   BINARYIO.DEF                         *)
  3. (*         (c) 1990  Roland Minges & TOOLBOX              *)
  4. (* ------------------------------------------------------ *)
  5. DEFINITION MODULE BinaryIO;
  6.  
  7. IMPORT SYSTEM, (* STDLIB, *) Streams, Strings;
  8.  
  9. (* ----------------- schreiben -------------------------- *)
  10.  
  11. PROCEDURE WRite         (    s        : Streams.Stream;
  12.                              Char     : CHAR         );
  13.  
  14. PROCEDURE WRiteString   (    s        : Streams.Stream;
  15.                              TheString: ARRAY OF CHAR);
  16.  
  17. PROCEDURE WRiteCard     (    s        : Streams.Stream;
  18.                              TheNumber: CARDINAL     );
  19.  
  20. PROCEDURE WRiteLongCard (    s        : Streams.Stream;
  21.                              TheNumber: LONGCARD     );
  22.  
  23. PROCEDURE WRiteInt      (    s        : Streams.Stream;
  24.                              TheNumber: INTEGER      );
  25.  
  26. PROCEDURE WRiteLongInt  (    s        : Streams.Stream;
  27.                              TheNumber: LONGINT      );
  28.  
  29. PROCEDURE WRiteReal     (    s        : Streams.Stream;
  30.                              TheNumber: REAL         );
  31.  
  32. PROCEDURE WRiteBlock    (    s        : Streams.Stream;
  33.                              Start    : SYSTEM.ADDRESS;
  34.                              Size     : LONGCARD     );
  35.  
  36. (* ----------------------- lesen ------------------------ *)
  37.  
  38. PROCEDURE REad          (    s        : Streams.Stream;
  39.                          VAR Char     : CHAR         );
  40.  
  41. PROCEDURE REadString    (    s        : Streams.Stream;
  42.                          VAR TheString: ARRAY OF CHAR);
  43.  
  44. PROCEDURE REadCard      (    s        : Streams.Stream;
  45.                          VAR TheNumber: CARDINAL     );
  46.  
  47. PROCEDURE REadLongCard  (    s        : Streams.Stream;
  48.                          VAR TheNumber: LONGCARD     );
  49.  
  50. PROCEDURE REadInt       (    s        : Streams.Stream;
  51.                          VAR TheNumber: INTEGER      );
  52.  
  53. PROCEDURE REadLongInt   (    s        : Streams.Stream;
  54.                          VAR TheNumber: LONGINT      );
  55.  
  56. PROCEDURE REadReal      (    s        : Streams.Stream;
  57.                          VAR TheNumber: REAL         );
  58.  
  59. PROCEDURE REadBlock     (    s        : Streams.Stream;
  60.                              Start    : SYSTEM.ADDRESS;
  61.                          VAR Size     : LONGCARD     );
  62. END BinaryIO.
  63. (* ------------------------------------------------------ *)
  64. (*               Ende von BINARYIO.DEF                    *)
  65.