home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / tricks / fildir.def < prev    next >
Text File  |  1990-04-05  |  2KB  |  45 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     FILDIR.DEF                         *)
  3. (*        (c) 1990 Richard Rattey  &  TOOLBOX             *)
  4. (* ------------------------------------------------------ *)
  5. DEFINITION MODULE Fildir;
  6.  
  7. TYPE
  8.   Path      = ARRAY [1..79] OF CHAR;
  9.  
  10.   SearchRec = RECORD
  11.                 Fill : ARRAY [1..21] OF CHAR;
  12.                 Attr : CHAR;
  13.                 Time : LONGCARD;
  14.                 Size : LONGCARD;
  15.                 Name : ARRAY [1..13] OF CHAR;
  16.               END;
  17.  
  18.   DateTime  = RECORD
  19.                 Year, Month,
  20.                 Day, Hour,
  21.                 Min, Sec   : CARDINAL;
  22.               END;
  23.  
  24. VAR
  25.   DosError  : CARDINAL;
  26.  
  27.   PROCEDURE GetDrive(VAR Laufwerk : CARDINAL);
  28.   PROCEDURE GetDir(Laufwerk : CARDINAL; VAR s : Path);
  29.   PROCEDURE ChDir(s : Path);
  30.   PROCEDURE MkDir(s : Path);
  31.   PROCEDURE RmDir(s : Path);
  32.   PROCEDURE UnpackTime(VAR zeit : LONGCARD;
  33.                        VAR DT : DateTime);
  34.   PROCEDURE PackTime(VAR zeit : LONGCARD;
  35.                      VAR DT : DateTime);
  36.   PROCEDURE FindFirst(suchpfad : Path; Attr : CARDINAL;
  37.                       VAR datei : SearchRec);
  38.   PROCEDURE FindNext(VAR datei : SearchRec);
  39.   PROCEDURE GetFATTr(VAR datei : Path; VAR Attr : CARDINAL);
  40.   PROCEDURE SetFATTr(VAR datei : Path; Attr : CARDINAL);
  41.  
  42. END Fildir.
  43. (* ------------------------------------------------------ *)
  44. (*                 Ende von FILDIR.DEF                    *)
  45.