home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source2.lha / source / amiga / MathResource.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.0 KB  |  80 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathResource.mod $
  4.   Description: Interface to MathIEEE.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: mathresource.h 1.2 (13.7.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  24. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  25. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  26.  
  27. MODULE [2] MathResource;
  28.  
  29. IMPORT e := Exec, s := Sets;
  30.  
  31.  
  32. (*
  33. **
  34. **      Data structure returned by OpenResource of:
  35. **      "MathIEEE.resource"
  36. **
  37. *)
  38.  
  39.  
  40. (*
  41. *       The 'Init' entries are only used if the corresponding
  42. *       bit is set in the Flags field.
  43. *
  44. *       So if you are just a 68881, you do not need the Init stuff
  45. *       just make sure you have cleared the Flags field.
  46. *
  47. *       This should allow us to add Extended Precision later.
  48. *
  49. *       For Init users, if you need to be called whenever a task
  50. *       opens this library for use, you need to change the appropriate
  51. *       entries in MathIEEELibrary.
  52. *)
  53.  
  54. TYPE
  55.  
  56.   MathIEEEResourcePtr * = POINTER TO MathIEEEResource;
  57.   MathIEEEResource * = RECORD (e.NodeBase)
  58.     node *         : e.Node;
  59.     flags *        : s.SET16;
  60.     baseAddr *     : e.APTR; (* ptr to 881 if exists *)
  61.     dblBasInit *   : e.PROC;
  62.     dblTransInit * : e.PROC;
  63.     sglBasInit *   : e.PROC;
  64.     sglTransInit * : e.PROC;
  65.     extBasInit *   : e.PROC;
  66.     extTransInit * : e.PROC;
  67.   END; (* MathIEEEResource *)
  68.  
  69. CONST
  70.  
  71. (* definations for MathIEEEResourceFLAGS *)
  72.   dblBas        * = 0;
  73.   dblTrans      * = 1;
  74.   sglBas        * = 2;
  75.   sglTrans      * = 3;
  76.   extBas        * = 4;
  77.   extTrans      * = 5;
  78.  
  79. END MathResource.
  80.