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.