36 lines
1.3 KiB
Plaintext
36 lines
1.3 KiB
Plaintext
DEFINITION MODULE Lookup;
|
||
|
||
(*
|
||
file search strategy using DOS environment variable.
|
||
*)
|
||
|
||
FROM LogiFile IMPORT File;
|
||
|
||
EXPORT QUALIFIED LookupFile;
|
||
|
||
PROCEDURE LookupFile(prompt: ARRAY OF CHAR;
|
||
name: ARRAY OF CHAR;
|
||
paths: ARRAY OF CHAR;
|
||
defext: ARRAY OF CHAR;
|
||
VAR file: File;
|
||
query, autoquery, acceptoptions: BOOLEAN;
|
||
VAR effectivename: ARRAY OF CHAR;
|
||
VAR goodfile: BOOLEAN);
|
||
|
||
(* for implementation the modules FileNames, *)
|
||
(* Options and CompFile are imported *)
|
||
|
||
(* prompt : string is displayed on terminal *)
|
||
(* name : for construction of a default file name *)
|
||
(* paths : drive and paths; separated by ';' *)
|
||
(* defext : default extension of searched file *)
|
||
(* file : opened file *)
|
||
(* query : explicit asking for file name *)
|
||
(* autoquery : switch automatically to mode query if not found *)
|
||
(* acceptoptions : accept options appended to file name *)
|
||
(* options are not evaluated *)
|
||
(* effectivename : name of found file *)
|
||
(* goodfile : lookup was successful *)
|
||
|
||
END Lookup.
|
||
|