

DEFINITION MODULE MYINOUT;

(* FROM Files IMPORT File;                                 VERSION SUN *)

FROM FileIO IMPORT FILE;                                   (*  SOLARIS *)
FROM NUM    IMPORT LONGCARD;                               (*  SOLARIS *)

VAR
   OK : BOOLEAN;


PROCEDURE OpenInput  (Ext : ARRAY OF CHAR);


PROCEDURE OpenOutput (Ext : ARRAY OF CHAR);


PROCEDURE OpenAsInput  (S : ARRAY OF CHAR);


PROCEDURE OpenAsOutput (S : ARRAY OF CHAR);


PROCEDURE CloseInput;


PROCEDURE CloseOutput;


PROCEDURE SetInput (f : FILE);


PROCEDURE SetOutput (f : FILE);


PROCEDURE GetInput (VAR f : FILE);


PROCEDURE GetOutput (VAR f : FILE);


PROCEDURE EOL () : BOOLEAN;


PROCEDURE EOF () : BOOLEAN;


PROCEDURE ReadLn;
PROCEDURE Read         (VAR C : CHAR);
PROCEDURE ReadBool     (VAR B : BOOLEAN);
PROCEDURE ReadInt      (VAR x : INTEGER);
PROCEDURE ReadCard     (VAR x : CARDINAL);
PROCEDURE ReadLongInt  (VAR x : LONGINT);
PROCEDURE ReadLongCard (VAR x : LONGCARD);
PROCEDURE ReadReal     (VAR x : REAL);
PROCEDURE ReadLongReal (VAR x : LONGREAL);
PROCEDURE ReadString   (VAR S : ARRAY OF CHAR);


PROCEDURE ReadLine     (VAR S : ARRAY OF CHAR);


PROCEDURE WriteLn;
PROCEDURE Write         (C : CHAR);
PROCEDURE WriteString   (S : ARRAY OF CHAR);
PROCEDURE WriteBool     (B : BOOLEAN);
PROCEDURE WriteInt      (x : INTEGER;  n : CARDINAL);
PROCEDURE WriteCard     (x, n : CARDINAL);
PROCEDURE WriteLongInt  (x : LONGINT;  n : CARDINAL);
PROCEDURE WriteLongCard (x : LONGCARD;  n : CARDINAL);
PROCEDURE WriteReal     (x : REAL;  p : CARDINAL;  i : INTEGER);
PROCEDURE WriteLongReal (x : LONGREAL;   p : CARDINAL;  i : INTEGER);


PROCEDURE Error (S : ARRAY OF CHAR);


PROCEDURE Assert (Assertion: BOOLEAN;   S : ARRAY OF CHAR);


END MYINOUT.
