38 lines
1003 B
Plaintext
38 lines
1003 B
Plaintext
|
(* Version 1.10, Nov 1984 *)
|
|||
|
|
DEFINITION MODULE FileNames;
|
|||
|
|
(*
|
|||
|
|
Read a file specification from the terminal.
|
|||
|
|
|
|||
|
|
Derived from the Lilith Modula-2 system developed by the
|
|||
|
|
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
EXPORT QUALIFIED
|
|||
|
|
FNParts, FNPartSet, ReadFileName;
|
|||
|
|
|
|||
|
|
|
|||
|
|
TYPE
|
|||
|
|
FNParts = (FNDrive, FNPath, FNName, FNExt);
|
|||
|
|
FNPartSet = SET OF FNParts;
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE ReadFileName(VAR resultFN: ARRAY OF CHAR;
|
|||
|
|
defaultFN: ARRAY OF CHAR;
|
|||
|
|
VAR ReadInName: FNPartSet);
|
|||
|
|
(*
|
|||
|
|
- Read a file specification from terminal.
|
|||
|
|
|
|||
|
|
in: defaultFN default file specification,
|
|||
|
|
out: resultFN the file specification read,
|
|||
|
|
ReadInName which parts are in specification.
|
|||
|
|
|
|||
|
|
Reads until a <cr>, blank, <can>, or <esc> is typed.
|
|||
|
|
After a call to ReadFileName, Terminal.Read must be called
|
|||
|
|
to read the termination character. The format of the
|
|||
|
|
specification depends on the host operating system.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
END FileNames.
|
|||
|
|
|