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.
|
|||
|
|
|