home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / MathResource.def < prev    next >
Text File  |  1996-08-01  |  2KB  |  62 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: mathresource.h 1.2 (13.7.90)
  4. **    Includes Release 40.15
  5. **
  6. **    Data structure returned by OpenResource of:
  7. **    "MathIEEE.resource"
  8. **
  9. **
  10. **    (C) Copyright 1987-1993 Commodore-Amiga, Inc.
  11. **        All Rights Reserved
  12. **
  13. **      Interface module by Marcel Timmermans
  14. **      (C) Copyright 1995-1996 Marcel Timmermans
  15. **          All Rights Reserved
  16. *)
  17.  
  18. (*$ Implementation- *)
  19. DEFINITION MODULE MathResource;
  20.  
  21. FROM SYSTEM   IMPORT ADDRESS;
  22. FROM ExecD    IMPORT Node;
  23.  
  24.  
  25. (*
  26. *       The 'Init' entries are only used if the corresponding
  27. *       bit is set in the Flags field.
  28. *
  29. *       So if you are just a 68881, you do not need the Init stuff
  30. *       just make sure you have cleared the Flags field.
  31. *
  32. *       This should allow us to add Extended Precision later.
  33. *
  34. *       For Init users, if you need to be called whenever a task
  35. *       opens this library for use, you need to change the appropriate
  36. *       entries in MathIEEELibrary.
  37. *)
  38. TYPE
  39. (* definations for MathIEEEResource_FLAGS *)
  40.  MathIEEEResourceFlags=(
  41.   dblbas,dbltrans,sglbas,sgltrans,extbas,exttrans,mirf6,mirf7,
  42.   mirf8,mirf9,mirf10,mirf11,mirf12,mirf13,mirf14,mirf15
  43.  );
  44.  MathIEEEResourceFlagSet=SET OF MathIEEEResourceFlags;
  45.  
  46.  
  47.  MathIEEEResourcePtr = POINTER TO MathIEEEResource;
  48.  MathIEEEResource = RECORD
  49.   node          : Node;
  50.   flags         : MathIEEEResourceFlagSet;
  51.   baseAddr      : ADDRESS; (* ptr to 881 if exists *)
  52.   dblBasInit    : PROC;
  53.   dblTransInit  : PROC;
  54.   sglBasInit    : PROC;
  55.   sglTransInit  : PROC;
  56.   extBasInit    : PROC;
  57.   extTransInit  : PROC;
  58.  END;
  59.  
  60.  
  61. END MathResource.
  62.