rexx/lstring/pow.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:38  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 /* ----------------- Lpow --------------------- */
  16 void
  17 Lpow( const PLstr to, const PLstr num, const PLstr p )
  18 {
  19         L2REAL(num);
  20         L2REAL(p);
  21         Lrcpy(to, pow(LREAL(*num),LREAL(*p)));
  22 } /* Lpow */