40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
DEFINITION MODULE DiskFiles;
|
||
(*
|
||
Interface to disk file functions of the underlying OS
|
||
|
||
Derived from the Lilith Modula-2 system developed by the
|
||
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
||
[Private module of the Modula-2 system]
|
||
*)
|
||
|
||
|
||
FROM FileSystem IMPORT File;
|
||
|
||
EXPORT QUALIFIED InitDiskSystem,
|
||
DiskFileProc, DiskDirProc;
|
||
|
||
|
||
PROCEDURE InitDiskSystem;
|
||
(*- Initialize mediums for further disk file operations
|
||
|
||
This procedure has to be imported by FileSystem. This has the side-effect,
|
||
that this module is referenced and will therefore be linked to the user
|
||
program.
|
||
*)
|
||
|
||
PROCEDURE DiskFilePROC (VAR f: File);
|
||
(*- low-level interface for disk operations within a file
|
||
|
||
This procedure is passed as a parameter to the procedure CreateMedium in
|
||
FileSystem.
|
||
*)
|
||
|
||
PROCEDURE DiskDirProc (VAR f: File; name: ARRAY OF CHAR);
|
||
(*- low-level interface for disk operations within a directory
|
||
|
||
This procedure is passed as a parameter to the procedure CreateMedium in
|
||
FileSystem.
|
||
*)
|
||
|
||
END DiskFiles.
|
||
|