basis/math/libm/libm.factor

   1 ! Copyright (C) 2006, 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.syntax words ;
   4 FROM: math => float mod ;
   5 IN: math.libm
   6
   7 LIBRARY: libm
   8
   9 FUNCTION-ALIAS: facos
  10     double acos ( double x )
  11
  12 FUNCTION-ALIAS: fasin
  13     double asin ( double x )
  14
  15 FUNCTION-ALIAS: fatan
  16     double atan ( double x )
  17
  18 FUNCTION-ALIAS: fatan2
  19     double atan2 ( double x, double y )
  20
  21 FUNCTION-ALIAS: fcos
  22     double cos ( double x )
  23
  24 FUNCTION-ALIAS: fsin
  25     double sin ( double x )
  26
  27 FUNCTION-ALIAS: ftan
  28     double tan ( double x )
  29
  30 FUNCTION-ALIAS: fcosh
  31     double cosh ( double x )
  32
  33 FUNCTION-ALIAS: fsinh
  34     double sinh ( double x )
  35
  36 FUNCTION-ALIAS: ftanh
  37     double tanh ( double x )
  38
  39 FUNCTION-ALIAS: fexp
  40     double exp ( double x )
  41
  42 FUNCTION-ALIAS: flog
  43     double log ( double x )
  44
  45 FUNCTION-ALIAS: flog10
  46     double log10 ( double x )
  47
  48 FUNCTION-ALIAS: fpow
  49     double pow ( double x, double y )
  50
  51 FUNCTION-ALIAS: fsqrt
  52     double sqrt ( double x )
  53
  54 FUNCTION: double fmod ( double x, double y )
  55
  56 M: float mod fmod ; inline
  57
  58 ! fsqrt has an intrinsic so we don't actually want to inline it
  59 ! unconditionally
  60 <<
  61 \ fsqrt f "inline" set-word-prop
  62 >>
  63
  64 ! Windows doesn't have these...
  65 FUNCTION-ALIAS: flog1+
  66     double log1p ( double x )
  67
  68 FUNCTION-ALIAS: facosh
  69     double acosh ( double x )
  70
  71 FUNCTION-ALIAS: fasinh
  72     double asinh ( double x )
  73
  74 FUNCTION-ALIAS: fatanh
  75     double atanh ( double x )