Category : Modula II Source Code
Archive   : FILETOO2.ZIP
Filename : TOOLUTIL.DEF

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.