home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / MathIEEESingTrans.mod < prev    next >
Encoding:
Text File  |  1992-12-17  |  2.1 KB  |  60 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE MathIEEESingTrans;
  10.  
  11. IMPORT e    := Exec,
  12.        I    := Intuition,
  13.        ml * := MathLibrary,
  14.        sys  := SYSTEM;
  15.  
  16. CONST
  17.  
  18.   mathIEEESingTransName * = "mathieeesingtrans.library";
  19.  
  20. VAR
  21.  
  22.   base * : ml.MathIEEEBasePtr;
  23.  
  24. PROCEDURE Atan  * {base,- 30}(x{0}       :e.SINGLE):e.SINGLE;
  25. PROCEDURE Sin   * {base,- 36}(x{0}       :e.SINGLE):e.SINGLE;
  26. PROCEDURE Cos   * {base,- 42}(x{0}       :e.SINGLE):e.SINGLE;
  27. PROCEDURE Tan   * {base,- 48}(x{0}       :e.SINGLE):e.SINGLE;
  28. PROCEDURE Sincos* {base,- 54}(VAR cos{8} : e.SINGLE;
  29.                               x{0}       :e.SINGLE) :e.SINGLE;
  30. PROCEDURE Sinh  * {base,- 60}(x{0}       :e.SINGLE):e.SINGLE;
  31. PROCEDURE Cosh  * {base,- 66}(x{0}       :e.SINGLE):e.SINGLE;
  32. PROCEDURE Tanh  * {base,- 72}(x{0}       :e.SINGLE):e.SINGLE;
  33. PROCEDURE Exp   * {base,- 78}(x{0}       :e.SINGLE):e.SINGLE;
  34. PROCEDURE Log   * {base,- 84}(x{0}       :e.SINGLE):e.SINGLE;
  35. PROCEDURE Pow   * {base,- 90}(exp{1}     : e.SINGLE;
  36.                               x{0}       :e.SINGLE):e.SINGLE;
  37. PROCEDURE Sqrt  * {base,- 96}(x{0}       :e.SINGLE):e.SINGLE;
  38. PROCEDURE Tieee * {base,-102}(x{0}       :e.SINGLE):e.SINGLE;
  39. PROCEDURE Fieee * {base,-108}(x{0}       :e.SINGLE):e.SINGLE;
  40. PROCEDURE Asin  * {base,-114}(x{0}       :e.SINGLE):e.SINGLE;
  41. PROCEDURE Acos  * {base,-120}(x{0}       :e.SINGLE):e.SINGLE;
  42. PROCEDURE Log10 * {base,-126}(x{0}       :e.SINGLE):e.SINGLE;
  43.  
  44.  
  45. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  46.  
  47.  
  48. BEGIN
  49.  
  50.   base := e.OpenLibrary(mathIEEESingTransName,37);
  51.  
  52. CLOSE
  53.  
  54.   IF base#NIL THEN e.CloseLibrary(base) END;
  55.  
  56. END MathIEEESingTrans.
  57.  
  58.  
  59.  
  60.