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 / MathLibrary.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.8 KB  |  61 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathLibrary.mod $
  4.   Description: Interface to mathieee*.library bases
  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: mathlibrary.h 1.6 (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] MathLibrary;
  28.  
  29. IMPORT e := Exec;
  30.  
  31. (*
  32. **
  33. **      Data structure returned by OpenLibrary of:
  34. **      mathieeedoubbas.library,mathieeedoubtrans.library
  35. **      mathieeesingbas.library,mathieeesingtrans.library
  36. **
  37. *)
  38.  
  39. TYPE
  40.  
  41.   MathIEEEBasePtr * = POINTER TO MathIEEEBase;
  42.   MathIEEEBase * = RECORD (e.LibraryBase)
  43.     libNode * : e.Library;
  44.     reserved : ARRAY 18 OF CHAR;
  45.     taskOpenLib * : PROCEDURE () : LONGINT;
  46.     taskCloseLib * : PROCEDURE () : LONGINT;
  47.     (* This structure may be extended in the future *)
  48.   END; (* MathIEEEBase *)
  49.  
  50. (*
  51. * Math resources may need to know when a program opens or closes this
  52. * library. The functions TaskOpenLib and TaskCloseLib are called when
  53. * a task opens or closes this library. They are initialized to point to
  54. * local initialization pertaining to 68881 stuff if 68881 resources
  55. * are found. To override the default the vendor must provide appropriate
  56. * hooks in the MathIEEEResource. If specified, these will be called
  57. * when the library initializes.
  58. *)
  59.  
  60. END MathLibrary.
  61.