DEFINITION MODULE Drectory;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/drectory.dev   1.4   30 Dec 1990 17:59:50   coleb  $
 *
 *)


  FROM SYSTEM IMPORT ADDRESS;

  TYPE
    DiskTypes = ( SSFloppy, DSFloppy, HCFloppy,
        HardDisk, unknown );

    FileMode = ( ReadOnlyFile, HiddenFile,
        SystemFile, VolumeLabelFile,
        SubdirectoryFile, ArchiveFile, ResAttr1,
        ResAttr2, ResAttr3, ResAttr4, ResAttr5,
        ResAttr6, ResAttr7, ResAttr8, ResAttr9,
        ResAttr10 );

    ModeSet = SET OF FileMode;

    FileInfoRec =
      RECORD
        attribute: ModeSet;
        hour, minute, second: CARDINAL;
        month, day, year: CARDINAL;
        size: LONGINT;
        name: ARRAY [0..12] OF CHAR;
      END;

    FileInfoProc = PROCEDURE(FileInfoRec) :
      BOOLEAN;


  PROCEDURE AddBlockToFile(FileName : ARRAY OF
      CHAR; FileHandle : CARDINAL; BlockAdr:
      ADDRESS; BlockSize: CARDINAL );

  PROCEDURE AddToFile(FileName : ARRAY OF CHAR;
      FileHandle : CARDINAL; message : ARRAY OF
      CHAR);

  PROCEDURE ChDir(DirName : ARRAY OF CHAR) :
      CARDINAL;

  PROCEDURE CopyFile(OldHandle : CARDINAL;
      NewFileName : ARRAY OF CHAR) : CARDINAL;

  PROCEDURE DeleteFile(FileName : ARRAY OF CHAR) :
      CARDINAL;

  PROCEDURE FindFiles(FileName : ARRAY OF CHAR;
      FileProc : FileInfoProc) : CARDINAL;

  PROCEDURE FindFirstFile(FileSpec : ARRAY OF
      CHAR; VAR DirHandle: CARDINAL; VAR
      FileInfo : FileInfoRec) : CARDINAL;

  PROCEDURE FindNextFile( DirHandle: CARDINAL;
      VAR FileInfo : FileInfoRec) : CARDINAL;

  PROCEDURE FreeDiskSpace(DriveLetter : CHAR; VAR
      FreeBytes : LONGINT) : CARDINAL;

  PROCEDURE GetCurrentDir(TheDrive : CHAR; VAR
      ThePath : ARRAY OF CHAR) : CARDINAL;

  PROCEDURE GetDefaultDrive() : CHAR;

  PROCEDURE GetDirFromList( PathStyleStr: ARRAY
      OF CHAR; whichDir: CARDINAL; VAR output:
      ARRAY OF CHAR ): BOOLEAN;

  PROCEDURE GetDiskInfo( TheDrive: CHAR; VAR
      BytesPerSector, SectorsPerCluster,
      ClustersOnDisk: CARDINAL; VAR KindOfDisk:
      DiskTypes );

  PROCEDURE GetDrivePathAndName( FileSpec: ARRAY
      OF CHAR; VAR DriveLetter: CHAR; VAR
      PathName, FileName : ARRAY OF CHAR);

  PROCEDURE GetFileDateAndTime(FileHandle :
      CARDINAL; VAR month, day, year, hours,
      minutes, seconds : CARDINAL);

  PROCEDURE GetFileMode(FileName : ARRAY OF CHAR;
      VAR TheSet : ModeSet) : CARDINAL;

  PROCEDURE MkDir(DirName : ARRAY OF CHAR) :
      CARDINAL;

  PROCEDURE RmDir(DirName : ARRAY OF CHAR) :
      CARDINAL;

  PROCEDURE RenameFile(OldFileName, NewFileName :
      ARRAY OF CHAR): CARDINAL;

  PROCEDURE SetDefaultDrive(DriveLetter : CHAR);

  PROCEDURE SetFileDateAndTime(FileHandle, month,
      day, year, hours, minutes, seconds :
      CARDINAL);

  PROCEDURE SetFileLength( TheHandle : CARDINAL;
      length : LONGINT) : CARDINAL;

  PROCEDURE SetFileMode(FileName : ARRAY OF CHAR;
      TheSet : ModeSet) : CARDINAL;

  PROCEDURE ValidFile( fname: ARRAY OF CHAR ):
      BOOLEAN;

  PROCEDURE VolumeLabel(TheDrive : CHAR; VAR
      TheLabel : ARRAY OF CHAR);

  PROCEDURE Init();

END Drectory.