@database HYPER:Modula-2/InOut
@node Main "HYPER:Modula-2/InOut"

Prozeduren

   @{" CloseInput " link Modul 22}                  @{" CloseOutput " link Modul 23}                 @{" OpenInput " link Modul 16}
   @{" OpenOutput " link Modul 17}                  @{" Read " link Modul 34}                        @{" ReadBytes " link Modul 40}
   @{" ReadCard " link Modul 38}                    @{" ReadInt " link Modul 36}                     @{" ReadLongCard " link Modul 39}
   @{" ReadLongInt " link Modul 37}                 @{" ReadString " link Modul 35}                  @{" SetInput " link Modul 19}
   @{" SetOutput " link Modul 20}                   @{" Write " link Modul 25}                       @{" WriteBytes " link Modul 32}
   @{" WriteCard " link Modul 29}                   @{" WriteHex " link Modul 31}                    @{" WriteInt " link Modul 28}
   @{" WriteLn " link Modul 26}                     @{" WriteOct " link Modul 30}                    @{" WriteString " link Modul 27}


Konstanten

   @{" eol " link Modul 10}                      

Variablen

   @{" done " link Modul 12}                        @{" termCh " link Modul 14}                   

@endnode
@node Modul "HYPER:Modula-2/InOut.def.guide"
DEFINITION MODULE InOut;
(* jr/28mai87, cn/25juli87 bp/14aug90 *)
(*$ LargeVars:=FALSE
    LongAlign:=FALSE
    NameChk:=FALSE
*)

FROM SYSTEM IMPORT BYTE;
IMPORT ASCII;

CONST
 eol = ASCII.eol;
VAR
 done: BOOLEAN;
 termCh: CHAR;

PROCEDURE OpenInput(defExt: ARRAY OF CHAR);
PROCEDURE OpenOutput(defExt: ARRAY OF CHAR);

PROCEDURE SetInput(name:ARRAY OF CHAR);
PROCEDURE SetOutput(name:ARRAY OF CHAR);

PROCEDURE CloseInput;
PROCEDURE CloseOutput;

PROCEDURE @{" Write " link HYPER:Autodocs/dos/Write() }(ch: CHAR);
PROCEDURE WriteLn;
PROCEDURE WriteString(str: ARRAY OF CHAR);
PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
PROCEDURE WriteCard(x: LONGCARD; n: INTEGER);
PROCEDURE WriteOct(x: LONGINT; n: INTEGER);
PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
PROCEDURE WriteBytes(VAR blk: ARRAY OF BYTE);

PROCEDURE @{" Read " link HYPER:Autodocs/dos/Read() }(VAR ch: CHAR);
PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
PROCEDURE ReadInt(VAR x: INTEGER);
PROCEDURE ReadLongInt(VAR x: LONGINT);
PROCEDURE ReadCard(VAR x: CARDINAL);
PROCEDURE ReadLongCard(VAR x: LONGCARD);
PROCEDURE ReadBytes(VAR blk:ARRAY OF BYTE);

END InOut.def

@endnode