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