rexx/lstring/reradix.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.2  1999/11/26 12:52:25  bnv
   8  * Nothing important.
   9  *
  10  * Revision 1.1  1998/07/02 17:18:00  bnv
  11  * Initial Version
  12  *
  13  */
  14
  15 #include <lstring.h>
  16
  17 /* --------------- Lreradix ----------------- */
  18 void
  19 Lreradix( const PLstr to, const PLstr subject,
  20         const int fromradix, const int toradix )
  21 {
  22         /* and suppose that subject is string */
  23         /* radix must be from 2 to 16 */
  24         long    integer=0;
  25         int     j;
  26
  27         for (j=0; j<LLEN(*subject); j++)
  28                 integer = integer*fromradix + HEXVAL(LSTR(*subject)[j]);
  29
  30         /* ... incomplete ... */
  31 } /* Lreradix */