Subversion Repositories or1k

/* Copyright (C) 1995,1996 Robert de Bath <rdebath@cix.compulink.co.uk>

 * This file is part of the Linux-8086 C library and is distributed

 * under the GNU Library General Public License.

 */

static char buf[34];

extern char * ultostr();

char * ltostr(val, radix, uppercase)

long val;

int radix;

int uppercase;

{

   char *p;

   int flg = 0;

   if( val < 0 ) { flg++; val= -val; }

   p = ultostr(val, radix, uppercase);

   if(p && flg) *--p = '-';

   return p;

}

char * ultostr(val, radix, uppercase)

unsigned long val;

int radix;

int uppercase;

{

   register char *p;

   register int c;

   if( radix > 36 || radix < 2 ) return 0;

   p = buf+sizeof(buf);

   *--p = '\0';

   do

   {

      c = val%radix;

      val/=radix;

      if( c > 9 ) *--p = (uppercase ? 'A' : 'a')-10+c; else *--p = '0'+c;

   }

   while(val);

   return p;

}