rexx/lstring/lmath.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:37  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:18:00  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <math.h>
  13 #include <lstring.h>
  14
  15 /* ------------------ pow10 ------------------- */
  16 static double
  17 pow10d( double num )
  18 {
  19         return pow(10.0,num);
  20 } /* pow10d */
  21
  22 #define MATH(func) \
  23         void L##func(const PLstr to, const PLstr num) \
  24         {Lrcpy(to, func(Lrdreal(num)));}
  25
  26 MATH( acos )
  27 MATH( asin )
  28 MATH( atan )
  29 MATH( cos  )
  30 MATH( cosh )
  31 MATH( exp  )
  32 MATH( log  )
  33 MATH( log10)
  34 MATH( pow10d)
  35 MATH( sin  )
  36 MATH( sinh )
  37 MATH( sqrt )
  38 MATH( tan  )
  39 MATH( tanh )
  40 #undef MATH