76 lines
2.4 KiB
Plaintext
76 lines
2.4 KiB
Plaintext
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 the default drive, given in character format.
|
||
*)
|
||
|
||
PROCEDURE SelectDrive (drive: CHAR; VAR done: BOOLEAN);
|
||
(*- Set default drive.
|
||
in: drive name of drive to make default, specified in char 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 0C for the current drive, 1C for drive "A", etc.
|
||
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.
|
||
|
||
It is part of this
|
||
definition module for reasons of compatibil |