core/math/libm.factor

   1 ! Copyright (C) 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: alien
   4 DEFER: alien-invoke
   5
   6 IN: math-internals
   7
   8 : facos ( x -- y )
   9     "double" "libm" "acos" { "double" } alien-invoke ;
  10     foldable
  11
  12 : fasin ( x -- y )
  13     "double" "libm" "asin" { "double" } alien-invoke ;
  14     foldable
  15
  16 : fatan ( x -- y )
  17     "double" "libm" "atan" { "double" } alien-invoke ;
  18     foldable
  19
  20 : fatan2 ( x y -- z )
  21     "double" "libm" "atan2" { "double" "double" } alien-invoke ;
  22     foldable
  23
  24 : fcos ( x -- y )
  25     "double" "libm" "cos" { "double" } alien-invoke ;
  26     foldable
  27
  28 : fexp ( x -- y )
  29     "double" "libm" "exp" { "double" } alien-invoke ;
  30     foldable
  31
  32 : fcosh ( x -- y )
  33     "double" "libm" "cosh" { "double" } alien-invoke ;
  34     foldable
  35
  36 : flog ( x -- y )
  37     "double" "libm" "log" { "double" } alien-invoke ;
  38     foldable
  39
  40 : fpow ( x y -- z )
  41     "double" "libm" "pow" { "double" "double" } alien-invoke ;
  42     foldable
  43
  44 : fsin ( x -- y )
  45     "double" "libm" "sin" { "double" } alien-invoke ;
  46     foldable
  47
  48 : fsinh ( x -- y )
  49     "double" "libm" "sinh" { "double" } alien-invoke ;
  50     foldable
  51
  52 : fsqrt ( x -- y )
  53     "double" "libm" "sqrt" { "double" } alien-invoke ;
  54     foldable