home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / FileSysRes.def < prev    next >
Text File  |  1996-08-01  |  2KB  |  57 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: filesysres.h 36.4 (3.5.90)
  4. **    Includes Release 40.15
  5. **
  6. **    FileSystem.resource description
  7. **
  8. **    (C) Copyright 1988-1993 Commodore-Amiga, Inc.
  9. **        All Rights Reserved
  10. **
  11. **      Interface module by Marcel Timmermans
  12. **      (C) Copyright 1995-1996 Marcel Timmermans
  13. **          All Rights Reserved
  14. *)
  15.  
  16. (*$ Implementation- *)
  17. DEFINITION MODULE FileSysRes;
  18.  
  19. FROM SYSTEM   IMPORT ADDRESS,LONGSET;
  20. FROM ExecD    IMPORT Node,TaskPtr,BPTR,List;
  21. FROM DosD     IMPORT FileLockPtr,BSTR;
  22.  
  23. CONST
  24.   fsrName = "FileSystem.resource";
  25.  
  26. TYPE
  27.  FileSysResource = RECORD
  28.   node          : Node;         (* on resource list *)
  29.   creator       : ADDRESS;      (* name of creator of this resource *)
  30.   fileSysEntries: List;         (* list of FileSysEntry structs *)    
  31.  END;
  32.  
  33.  FileSysEntry = RECORD
  34.   node       : Node;
  35.                                 (* on fsr_FileSysEntries list *)
  36.                                 (* ln_Name is of creator of this entry *)
  37.   dosType    : LONGCARD;        (* DosType of this FileSys *)
  38.   version    : LONGCARD;        (* Version of this FileSys *)
  39.   patchFlags : LONGSET;         (* bits set for those of the following that *)
  40.                                 (*   need to be substituted into a standard *)
  41.                                 (*   device node for this file system: e.g. *)
  42.                                 (*   0x180 for substitute SegList & GlobalVec *)
  43.   type       : LONGCARD;        (* device node type: zero *)
  44.   task       : TaskPtr;         (* standard dos "task" field *)
  45.   lock       : FileLockPtr;     (* not used for devices: zero *)
  46.   handler    : BSTR;            (* filename to loadseg (if SegList is null) *)
  47.   stackSize  : LONGCARD;        (* stacksize to use when starting task *)
  48.   priority   : LONGINT;         (* task priority when starting task *)
  49.   startup    : BPTR;            (* startup msg: FileSysStartupMsg for disks *)
  50.   segList    : BPTR;            (* code to run to start new task *)
  51.   globalVec  : BPTR;            (* BCPL global vector when starting task *)              
  52.     (* no more entries need exist than those implied by fse_PatchFlags *)
  53.  END;
  54.  
  55.  
  56. END FileSysRes.
  57.