rexx/lstring/x2d.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:20:58  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* ------------------ Lx2d ------------------- */
  15 void
  16 Lx2d( const PLstr to, const PLstr from, long n )
  17 {
  18         Lstr    tmp;
  19         int     sign;
  20
  21         LINITSTR(tmp);
  22
  23         if (n<=0) {
  24                 Lx2c(&tmp,from);
  25                 Lc2d(to,&tmp,0);
  26         } else {
  27                 if (n>8) n=8;
  28                 Lspace(&tmp,from,0,' ');
  29                 Lright(to,&tmp,n,'0');
  30                 sign = HEXVAL(LSTR(*to)[0]) & 0x8;
  31                 Lx2c(&tmp,to);
  32                 Lc2d(to,&tmp,0);
  33                 if (sign) {
  34                         if (n==sizeof(long)*2)
  35                                 LINT(*to) = -(~LINT(*to) + 1);
  36                         else
  37                                 LINT(*to) = LINT(*to) - (1L << (n*4));
  38                 }
  39
  40
  41                 /****
  42                 if ((LLEN(*to)&1) && LSTR(*to)[0]>'7') {
  43                         Lright(&tmp,to,LLEN(*to)+1,'f');
  44                         Lstrcpy(to,&tmp);
  45                 }
  46                 Lx2c(&tmp,to);
  47                 Lc2d(to,&tmp,n/2);
  48                 ****/
  49         }
  50         LFREESTR(tmp);
  51 } /* Lx2d */