home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
modula2
/
library
/
filetool
/
toolutil.def
< prev
next >
Wrap
Text File
|
1987-11-04
|
1KB
|
47 lines
DEFINITION MODULE ToolUtilities;
(*
Title : TOOLUTIL.DEF
LastEdit : 11/04/87
Author : Russell G. Osterlund, Jr.
System : LOGITECH MODULA-2/86, REPERTOIRE, BlackBeard
This product has been developed with the use of, and embodies portions of,
LOGITECH software development tools - compiler, linker, and M2MAKE.
*)
FROM ToolTypes IMPORT
DirectoryRecPtr;
PROCEDURE InitDirectoryInfo (directory: DirectoryRecPtr);
PROCEDURE ReadInfo (directory: DirectoryRecPtr);
PROCEDURE SortByName (l, r: INTEGER);
PROCEDURE SortByExtension (l, r: INTEGER);
PROCEDURE SortBySize (l, r: INTEGER);
PROCEDURE SortByDate (l, r: INTEGER);
PROCEDURE BuildFullFileName (directory: DirectoryRecPtr;
filenum: CARDINAL;
VAR FullFileName: ARRAY OF CHAR);
PROCEDURE BuildFullPath (TheDrive: CHAR;
ThePath: ARRAY OF CHAR;
VAR FullPath: ARRAY OF CHAR);
PROCEDURE ConcatPathFile (Path: ARRAY OF CHAR;
FileName: ARRAY OF CHAR;
VAR Combined: ARRAY OF CHAR);
PROCEDURE RedisplayDirectory (directory: DirectoryRecPtr;
first: CARDINAL);
PROCEDURE RedisplayScreen (directory, LeftDirectory, RightDirectory: DirectoryRecPtr);
END ToolUtilities.