home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Resources / FileSysRes.i < prev    next >
Text File  |  1990-08-28  |  2KB  |  46 lines
  1. {
  2.     FileSysRes.i for PCQ Pascal
  3.  
  4.     FileSystem.resource description
  5. }
  6.  
  7.  
  8. {$I "Include:Exec/Nodes.i"}
  9. {$I "Include:Exec/Lists.i"}
  10. {$I "Include:Libraries/DOS.i"}
  11.  
  12. Const
  13.  
  14.     FSRNAME    = "FileSystem.resource";
  15.  
  16. Type
  17.  
  18.     FileSysResource = record
  19.     fsr_Node    : Node;        { on resource list }
  20.     fsr_Creator    : String;    { name of creator of this resource }
  21.     fsr_FileSysEntries : List;    { list of FileSysEntry structs }
  22.     end;
  23.     FileSysResourcePtr = ^FileSysResource;
  24.  
  25.     FileSysEntry = record
  26.     fse_Node    : Node;        { on fsr_FileSysEntries list }
  27.                     { ln_Name is of creator of this entry }
  28.     fse_DosType    : Integer;    { DosType of this FileSys }
  29.     fse_Version    : Integer;    { Version of this FileSys }
  30.     fse_PatchFlags    : Integer;    { bits set for those of the following that }
  31.                     {   need to be substituted into a standard }
  32.                     {   device node for this file system: e.g. }
  33.                     {   0x180 for substitute SegList & GlobalVec }
  34.     fse_Type    : Integer;    { device node type: zero }
  35.     fse_Task    : Address;    { standard dos "task" field }
  36.     fse_Lock    : BPTR;        { not used for devices: zero }
  37.     fse_Handler    : BSTR;        { filename to loadseg (if SegList is null) }
  38.     fse_StackSize    : Integer;    { stacksize to use when starting task }
  39.     fse_Priority    : Integer;    { task priority when starting task }
  40.     fse_Startup    : BPTR;        { startup msg: FileSysStartupMsg for disks }
  41.     fse_SegList    : BPTR;        { code to run to start new task }
  42.     fse_GlobalVec    : BPTR;        { BCPL global vector when starting task }
  43.     { no more entries need exist than those implied by fse_PatchFlags }
  44.     end;
  45.     FileSysEntryPtr = ^FileSysEntry;
  46.