home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / source / amiga / MathLibrary.mod < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.7 KB  |  59 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathLibrary.mod $
  4.   Description: Interface to mathieee*.library bases
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.8 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:13:14 $
  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- *>
  24.  
  25. MODULE [2] MathLibrary;
  26.  
  27. IMPORT e := Exec;
  28.  
  29. (*
  30. **
  31. **      Data structure returned by OpenLibrary of:
  32. **      mathieeedoubbas.library,mathieeedoubtrans.library
  33. **      mathieeesingbas.library,mathieeesingtrans.library
  34. **
  35. *)
  36.  
  37. TYPE
  38.  
  39.   MathIEEEBasePtr * = POINTER TO MathIEEEBase;
  40.   MathIEEEBase * = RECORD (e.LibraryBase)
  41.     libNode * : e.Library;
  42.     reserved : ARRAY 18 OF CHAR;
  43.     taskOpenLib * : PROCEDURE () : LONGINT;
  44.     taskCloseLib * : PROCEDURE () : LONGINT;
  45.     (* This structure may be extended in the future *)
  46.   END; (* MathIEEEBase *)
  47.  
  48. (*
  49. * Math resources may need to know when a program opens or closes this
  50. * library. The functions TaskOpenLib and TaskCloseLib are called when
  51. * a task opens or closes this library. They are initialized to point to
  52. * local initialization pertaining to 68881 stuff if 68881 resources
  53. * are found. To override the default the vendor must provide appropriate
  54. * hooks in the MathIEEEResource. If specified, these will be called
  55. * when the library initializes.
  56. *)
  57.  
  58. END MathLibrary.
  59.