(* ------------------------------------------------------ *)
(*                   BINARYIO.DEF                         *)
(*         (c) 1990  Roland Minges & TOOLBOX              *)
(* ------------------------------------------------------ *)
DEFINITION MODULE BinaryIO;

IMPORT SYSTEM, (* STDLIB, *) Streams, Strings;

(* ----------------- schreiben -------------------------- *)

PROCEDURE WRite         (    s        : Streams.Stream;
                             Char     : CHAR         );

PROCEDURE WRiteString   (    s        : Streams.Stream;
                             TheString: ARRAY OF CHAR);

PROCEDURE WRiteCard     (    s        : Streams.Stream;
                             TheNumber: CARDINAL     );

PROCEDURE WRiteLongCard (    s        : Streams.Stream;
                             TheNumber: LONGCARD     );

PROCEDURE WRiteInt      (    s        : Streams.Stream;
                             TheNumber: INTEGER      );

PROCEDURE WRiteLongInt  (    s        : Streams.Stream;
                             TheNumber: LONGINT      );

PROCEDURE WRiteReal     (    s        : Streams.Stream;
                             TheNumber: REAL         );

PROCEDURE WRiteBlock    (    s        : Streams.Stream;
                             Start    : SYSTEM.ADDRESS;
                             Size     : LONGCARD     );

(* ----------------------- lesen ------------------------ *)

PROCEDURE REad          (    s        : Streams.Stream;
                         VAR Char     : CHAR         );

PROCEDURE REadString    (    s        : Streams.Stream;
                         VAR TheString: ARRAY OF CHAR);

PROCEDURE REadCard      (    s        : Streams.Stream;
                         VAR TheNumber: CARDINAL     );

PROCEDURE REadLongCard  (    s        : Streams.Stream;
                         VAR TheNumber: LONGCARD     );

PROCEDURE REadInt       (    s        : Streams.Stream;
                         VAR TheNumber: INTEGER      );

PROCEDURE REadLongInt   (    s        : Streams.Stream;
                         VAR TheNumber: LONGINT      );

PROCEDURE REadReal      (    s        : Streams.Stream;
                         VAR TheNumber: REAL         );

PROCEDURE REadBlock     (    s        : Streams.Stream;
                             Start    : SYSTEM.ADDRESS;
                         VAR Size     : LONGCARD     );
END BinaryIO.
(* ------------------------------------------------------ *)
(*               Ende von BINARYIO.DEF                    *)
