120 lines
2.7 KiB
Plaintext
120 lines
2.7 KiB
Plaintext
|
(* Version 1.10, Nov 1984 *)
|
|||
|
|
DEFINITION MODULE DiskDirectory;
|
|||
|
|
(*
|
|||
|
|
Interface to directory functions of the underlying OS
|
|||
|
|
|
|||
|
|
Derived from the Lilith Modula-2 system developed by the
|
|||
|
|
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
EXPORT QUALIFIED
|
|||
|
|
CurrentDrive, SelectDrive,
|
|||
|
|
CurrentDirectory, ChangeDirectory,
|
|||
|
|
MakeDir, RemoveDir,
|
|||
|
|
ResetDiskSys, ResetDrive;
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE CurrentDrive (VAR drive: CHAR);
|
|||
|
|
(*
|
|||
|
|
- Returns the current default drive.
|
|||
|
|
|
|||
|
|
out: drive name of the default drive, given in
|
|||
|
|
character format (e.g. 'A').
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE SelectDrive (drive: CHAR; VAR done: BOOLEAN);
|
|||
|
|
(*
|
|||
|
|
- Set default drive.
|
|||
|
|
|
|||
|
|
in: drive name of drive to make default, specified
|
|||
|
|
in character format.
|
|||
|
|
|
|||
|
|
out: done TRUE if operation was successful.
|
|||
|
|
|
|||
|
|
The default drive will be used by all routines referring
|
|||
|
|
to DK: .
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE CurrentDirectory (drive: CHAR;
|
|||
|
|
VAR dir: ARRAY OF CHAR);
|
|||
|
|
(*
|
|||
|
|
- Gets the current directory for the specified drive.
|
|||
|
|
|
|||
|
|
in: drive name of the drive, specified in
|
|||
|
|
character format (e.g. 'A'); blank or
|
|||
|
|
0C denotes the current drive.
|
|||
|
|
|
|||
|
|
out: dir current directory for that drive.
|
|||
|
|
|
|||
|
|
Under DOS 1.1, dir[0] will be set to nul (0C).
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE ChangeDirectory (dir: ARRAY OF CHAR;
|
|||
|
|
VAR done: BOOLEAN);
|
|||
|
|
(*
|
|||
|
|
- Set the current directory
|
|||
|
|
|
|||
|
|
in: dir drive and directory path name.
|
|||
|
|
|
|||
|
|
out: done TRUE if successful; FALSE if the
|
|||
|
|
directory does not exist.
|
|||
|
|
|
|||
|
|
Under DOS 1.1, this function has no effect and 'done'
|
|||
|
|
is FALSE.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE MakeDir (dir: ARRAY OF CHAR;
|
|||
|
|
VAR done: BOOLEAN);
|
|||
|
|
(*
|
|||
|
|
- Create a sub-directory
|
|||
|
|
|
|||
|
|
in: dir drive, optional pathname and name of
|
|||
|
|
sub-directory to create.
|
|||
|
|
|
|||
|
|
out: done TRUE if successful; FALSE if path or
|
|||
|
|
drive does not exist.
|
|||
|
|
|
|||
|
|
Under DOS 1.1, this function has no effect and 'done'
|
|||
|
|
is FALSE.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE RemoveDir (dir: ARRAY OF CHAR;
|
|||
|
|
VAR done: BOOLEAN);
|
|||
|
|
(*
|
|||
|
|
- Remove a directory
|
|||
|
|
|
|||
|
|
in: dir drive and name of the sub-directory
|
|||
|
|
to remove.
|
|||
|
|
|
|||
|
|
out: done: TRUE if successful; FALSE if directory
|
|||
|
|
does not exist.
|
|||
|
|
|
|||
|
|
The specified directory must be empty or the procedure
|
|||
|
|
returns FALSE. Under DOS 1.1, this function has no effect
|
|||
|
|
and 'done' is FALSE.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE ResetDiskSys;
|
|||
|
|
(*
|
|||
|
|
- MS-DOS disk reset
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
PROCEDURE ResetDrive (d: CHAR): CARDINAL;
|
|||
|
|
(*
|
|||
|
|
- This function has no effect and always returns 255.
|
|||
|
|
It is part of this definition module for reasons of
|
|||
|
|
compatibility with other implementations.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
|
|||
|
|
END DiskDirectory.
|
|||
|
|
|
|||
|
|
|