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 / MathIEEESingTrans.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.8 KB  |  140 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathIEEESingTrans.mod $
  4.   Description: Interface to mathieeesingtrans.library
  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: mathieeesingtrans_protos.h 1.3 (7.11.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] MathIEEESingTrans;
  28.  
  29. IMPORT SYS := SYSTEM, Kernel, e := Exec, m := MathLibrary;
  30.  
  31.  
  32. (*-- MathIEEESingTrans Base variable --------------------------------------*)
  33.  
  34. CONST
  35.  
  36.   mathIEEESingTransName * = "mathieeesingtrans.library";
  37.  
  38. VAR
  39.  
  40.   base * : m.MathIEEEBasePtr;
  41.  
  42.  
  43. (*-- Library Functions ------------------------------------------------*)
  44.  
  45. PROCEDURE Atan* [base,-30]
  46.   ( parm [0] : REAL )
  47.   : REAL;
  48.  
  49. PROCEDURE Sin* [base,-36]
  50.   ( parm [0] : REAL )
  51.   : REAL;
  52.  
  53. PROCEDURE Cos* [base,-42]
  54.   ( parm [0] : REAL )
  55.   : REAL;
  56.  
  57. PROCEDURE Tan* [base,-48]
  58.   ( parm [0] : REAL )
  59.   : REAL;
  60.  
  61. PROCEDURE Sincos* [base,-54]
  62.   ( VAR cos[8] : REAL;
  63.     parm [0]   : REAL )
  64.    : REAL;
  65.  
  66. PROCEDURE Sinh* [base,-60]
  67.   ( parm [0] : REAL )
  68.   : REAL;
  69.  
  70. PROCEDURE Cosh* [base,-66]
  71.   ( parm [0] : REAL )
  72.   : REAL;
  73.  
  74. PROCEDURE Tanh* [base,-72]
  75.   ( parm [0] : REAL )
  76.   : REAL;
  77.  
  78. PROCEDURE Exp* [base,-78]
  79.   ( parm [0] : REAL )
  80.   : REAL;
  81.  
  82. PROCEDURE Log* [base,-84]
  83.   ( parm [0] : REAL )
  84.   : REAL;
  85.  
  86. PROCEDURE Pow* [base,-90]
  87.   ( exp  [1] : REAL;
  88.     parm [0] : REAL )
  89.   : REAL;
  90.  
  91. PROCEDURE Sqrt* [base,-96]
  92.   ( parm [0] : REAL )
  93.   : REAL;
  94.  
  95. PROCEDURE Tieee* [base,-102]
  96.   ( parm [0] : REAL )
  97.   : REAL;
  98.  
  99. PROCEDURE Fieee* [base,-108]
  100.   ( parm [0] : REAL )
  101.   : REAL;
  102.  
  103. PROCEDURE Asin* [base,-114]
  104.   ( parm [0] : REAL )
  105.   : REAL;
  106.  
  107. PROCEDURE Acos* [base,-120]
  108.   ( parm [0] : REAL )
  109.   : REAL;
  110.  
  111. PROCEDURE Log10* [base,-126]
  112.   ( parm [0] : REAL )
  113.   : REAL;
  114.  
  115. (*-- Library Base variable --------------------------------------------*)
  116.  
  117. <*$LongVars-*>
  118.  
  119. (*-----------------------------------*)
  120. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  121.  
  122. BEGIN (* CloseLib *)
  123.   IF base # NIL THEN e.CloseLibrary (base) END;
  124. END CloseLib;
  125.  
  126. (*-----------------------------------*)
  127. PROCEDURE [0] OpenLib * (mustOpen : BOOLEAN);
  128.  
  129. BEGIN (* OpenLib *)
  130.   IF base = NIL THEN
  131.   END;
  132. END OpenLib;
  133.  
  134. BEGIN
  135.   base := SYS.VAL(m.MathIEEEBasePtr,
  136.                   e.OpenLibrary (mathIEEESingTransName, e.libraryMinimum));
  137.   IF base = NIL THEN HALT (100) END;
  138.   Kernel.SetCleanup (CloseLib)
  139. END MathIEEESingTrans.
  140.