54 lines
1.2 KiB
Plaintext
54 lines
1.2 KiB
Plaintext
|
(* Version 1.10, Nov 1984 *)
|
|||
|
|
DEFINITION MODULE DiskFiles;
|
|||
|
|
(*
|
|||
|
|
Interface to disk file functions of the underlying OS.
|
|||
|
|
[Private module of the Modula-2 system.]
|
|||
|
|
|
|||
|
|
The default drive 'DK:', and drives 'A:' through 'P:'
|
|||
|
|
are supported under DOS or CP/M-86. This driver provides
|
|||
|
|
buffering. The maximum number of open files is 12.
|
|||
|
|
|
|||
|
|
Derived from the Lilith Modula-2 system developed by the
|
|||
|
|
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
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.
|
|||
|
|
|