(*---------------------------------------------------------------------------
    :Program.    TwoFiles.def
    :Author.     Bernd Preusing
    :Address.    Gerhardstr. 16  D-2200 Elmshorn
    :Phone.      04121/22486
    :Shortcut.   [bep]
    :Version.    1.1
    :Date.       11-Nov-88
    :Copyright.  PD
    :Language.   Modula-II
    :Translator. M2Amiga
    :Imports.    InOut2 [bep]
    :UpDate.     1.1: Added InMessage and OutMessage
    :Contents.   Open Input and/or Output from commandline or Terminal
    :Remark.
---------------------------------------------------------------------------*)
DEFINITION MODULE TwoFiles;

TYPE
	sFileName = ARRAY[0..79] OF CHAR;

	(* bekommt den '-'-Parameter incl. '-' *)
	prOpt = PROCEDURE(VAR ARRAY OF CHAR);

VAR	(* nur zum Auslesen *)
	InFileName, OutFileName: sFileName;

	(* zum Setzen der Msgs. Default: 'in>' und 'out>' *)
	InMessage, OutMessage: sFileName;

(* p wird aufgerufen, falls im Verlauf (!!) der Action ein Parameter
   auftaucht, der mit '-' beginnt. p darf nichts von hier aufrufen!
   Falls p nicht gesetzt, werden solche Parameter wie normale
   FileNamen behandelt!
   p=NIL: OptProc wieder löschen *)
PROCEDURE OptProcedure(p: prOpt);

(* Setze TwoFiles-Variable
    Standard: TRUE
  TRUE:  falls ein Output-File geöffnet werden soll und bereits existiert,
	 wird nachgefragt, ob es überschrieben werden soll.
  FALSE: keine Nachfrage, File wird gelöscht.
*)
PROCEDURE SetAsk(ask: BOOLEAN);

(* OpenInput, OpenOutput oder beides
   result: FALSE, wenn keine Parameter mehr oder kein Name eingegeben *)
PROCEDURE OpenFiles(in, out: BOOLEAN): BOOLEAN;

END TwoFiles.def