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 / MathIEEEDoubTrans.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.9 KB  |  139 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: MathIEEEDoubTrans.mod $
  4.   Description: Interface to mathieeedoubtrans.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.   Includes Release 40.15
  12.  
  13.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  14.       All Rights Reserved
  15.  
  16.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  17.   This file is part of the Oberon-A Interface.
  18.   See Oberon-A.doc for conditions of use and distribution.
  19.  
  20. ***************************************************************************)
  21.  
  22. <* STANDARD- *> <* INITIALISE+ *> <* MAIN- *>
  23. <*$ CaseChk-  IndexChk- LongVars+ NilChk+  *>
  24. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  25.  
  26. MODULE [2] MathIEEEDoubTrans;
  27.  
  28. (*
  29.   This module is not defined.  This is because the compiler cannot yet
  30.   handle the LONGREAL as an 8-byte IEEE double-precision real.
  31.   Have patience.
  32. *)
  33.  
  34. (*
  35. IMPORT SYS := SYSTEM, Kernel, e := Exec, m := MathLibrary;
  36.  
  37.  
  38. (*-- MathIEEEDoubTrans Base variable --------------------------------------*)
  39.  
  40. CONST
  41.  
  42.   mathIEEEDoubTransName * = "mathieeedoubtrans.library";
  43.  
  44. VAR
  45.  
  46.   base * : MathIEEEBasePtr;
  47.  
  48.  
  49. (*-- Library Functions ------------------------------------------------*)
  50.  
  51. PROCEDURE Atan* [base,-30]
  52.   ( parm [0] : e.DOUBLE )
  53.   : e.DOUBLE;
  54.  
  55. PROCEDURE Sin* [base,-36]
  56.   ( parm [0] : e.DOUBLE )
  57.   : e.DOUBLE;
  58.  
  59. PROCEDURE Cos* [base,-42]
  60.   ( parm [0] : e.DOUBLE )
  61.   : e.DOUBLE;
  62.  
  63. PROCEDURE Tan* [base,-48]
  64.   ( parm [0] : e.DOUBLE )
  65.   : e.DOUBLE;
  66.  
  67. PROCEDURE Sincos* [base,-54]
  68.   ( VAR cos[8] : e.DOUBLE;
  69.     parm [0]   : e.DOUBLE )
  70.    : e.DOUBLE;
  71.  
  72. PROCEDURE Sinh* [base,-60]
  73.   ( parm [0] : e.DOUBLE )
  74.   : e.DOUBLE;
  75.  
  76. PROCEDURE Cosh* [base,-66]
  77.   ( parm [0] : e.DOUBLE )
  78.   : e.DOUBLE;
  79.  
  80. PROCEDURE Tanh* [base,-72]
  81.   ( parm [0] : e.DOUBLE )
  82.   : e.DOUBLE;
  83.  
  84. PROCEDURE Exp* [base,-78]
  85.   ( parm [0] : e.DOUBLE )
  86.   : e.DOUBLE;
  87.  
  88. PROCEDURE Log* [base,-84]
  89.   ( parm [0] : e.DOUBLE )
  90.   : e.DOUBLE;
  91.  
  92. PROCEDURE Pow* [base,-90]
  93.   ( exp  [1] : e.DOUBLE;
  94.     parm [0] : e.DOUBLE )
  95.   : e.DOUBLE;
  96.  
  97. PROCEDURE Sqrt* [base,-96]
  98.   ( parm [0] : e.DOUBLE )
  99.   : e.DOUBLE;
  100.  
  101. PROCEDURE Tieee* [base,-102]
  102.   ( parm [0] : e.DOUBLE )
  103.   : e.SINGLE;
  104.  
  105. PROCEDURE Fieee* [base,-108]
  106.   ( parm [0] : e.SINGLE )
  107.   : e.DOUBLE;
  108.  
  109. PROCEDURE Asin* [base,-114]
  110.   ( parm [0] : e.DOUBLE )
  111.   : e.DOUBLE;
  112.  
  113. PROCEDURE Acos* [base,-120]
  114.   ( parm [0] : e.DOUBLE )
  115.   : e.DOUBLE;
  116.  
  117. PROCEDURE Log10* [base,-126]
  118.   ( parm [0] : e.DOUBLE )
  119.   : e.DOUBLE;
  120.  
  121. (*-- Library Base variable --------------------------------------------*)
  122.  
  123. <*$LongVars-*>
  124.  
  125. (*-----------------------------------*)
  126. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  127.  
  128. BEGIN (* CloseLib *)
  129.   IF base # NIL THEN e.CloseLibrary (base) END
  130. END CloseLib;
  131.  
  132. BEGIN
  133.   base :=
  134.     SYS.VAL ( MathIEEEBasePtr, e.OpenLibrary (Name, e.libraryMinimum) );
  135.   IF base = NIL THEN HALT (100) END;
  136.   Kernel.SetCleanup (CloseLib)
  137. *)
  138. END MathIEEEDoubTrans.
  139.