home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / resources / filesysres.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.0 KB  |  40 lines
  1. {$if not def RESOURCES_FILESYSRES_H} CONST RESOURCES_FILESYSRES_H=0;
  2.  
  3. { ************************************************************************
  4.   ** KickPascal-Include-Datei "resources/filesysres.h" zu Kickstart 3.0 **
  5.   ************************************************************************ }
  6.  
  7. TYPE p_FileSysResource = ^FileSysResource;
  8. TYPE p_FileSysEntry = ^FileSysEntry;
  9.  
  10. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  11. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  12. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  13.  
  14.  
  15. CONST FSRNAME = "FileSystem.resource";
  16.  
  17. TYPE FileSysResource = RECORD
  18.  fsr_Node           : Node;
  19.  fsr_Creator        : Str;
  20.  fsr_FileSysEntries : List;
  21. END;
  22.  
  23. TYPE FileSysEntry = RECORD
  24.  fse_Node       : Node;
  25.  fse_DosType    : Long;
  26.  fse_Version    : Long;
  27.  fse_PatchFlags : Long;
  28.  fse_Type       : Long;
  29.  fse_Task       : Ptr;
  30.  fse_Lock       : BPTR;
  31.  fse_Handler    : BSTR;
  32.  fse_StackSize  : Long;
  33.  fse_Priority   : LongInt;
  34.  fse_Startup    : BPTR;
  35.  fse_SegList    : BPTR;
  36.  fse_GlobalVec  : BPTR;
  37. END;
  38.  
  39. {$endif}
  40.