(* ------------------------------------------------------ *)
(*                     FILDIR.DEF                         *)
(*        (c) 1990 Richard Rattey  &  TOOLBOX             *)
(* ------------------------------------------------------ *)
DEFINITION MODULE Fildir;

TYPE
  Path      = ARRAY [1..79] OF CHAR;

  SearchRec = RECORD
                Fill : ARRAY [1..21] OF CHAR;
                Attr : CHAR;
                Time : LONGCARD;
                Size : LONGCARD;
                Name : ARRAY [1..13] OF CHAR;
              END;

  DateTime  = RECORD
                Year, Month,
                Day, Hour,
                Min, Sec   : CARDINAL;
              END;

VAR
  DosError  : CARDINAL;

  PROCEDURE GetDrive(VAR Laufwerk : CARDINAL);
  PROCEDURE GetDir(Laufwerk : CARDINAL; VAR s : Path);
  PROCEDURE ChDir(s : Path);
  PROCEDURE MkDir(s : Path);
  PROCEDURE RmDir(s : Path);
  PROCEDURE UnpackTime(VAR zeit : LONGCARD;
                       VAR DT : DateTime);
  PROCEDURE PackTime(VAR zeit : LONGCARD;
                     VAR DT : DateTime);
  PROCEDURE FindFirst(suchpfad : Path; Attr : CARDINAL;
                      VAR datei : SearchRec);
  PROCEDURE FindNext(VAR datei : SearchRec);
  PROCEDURE GetFATTr(VAR datei : Path; VAR Attr : CARDINAL);
  PROCEDURE SetFATTr(VAR datei : Path; Attr : CARDINAL);

END Fildir.
(* ------------------------------------------------------ *)
(*                 Ende von FILDIR.DEF                    *)
