1 /* $NetBSD: l64a.c,v 1.9 1999/02/06 15:04:05 kleink Exp $ */ 2 3 /* 4 * Written by J.T. Conklin <jtc@netbsd.org>. 5 * Public domain. 6 */ 7 8 #include <sys/cdefs.h> 9 #if defined(LIBC_SCCS) && !defined(lint) 10 __RCSID("$NetBSD: l64a.c,v 1.9 1999/02/06 15:04:05 kleink Exp $"); 11 #endif 12 13 #include "namespace.h" 14 #include <stdlib.h> 15 16 #ifdef __weak_alias 17 __weak_alias(l64a,_l64a); 18 __weak_alias(l64a_r,_l64a_r); 19 #endif 20 21 char * 22 l64a (value) 23 long value; 24 { 25 static char buf[8]; 26 27 (void)l64a_r(value, buf, sizeof (buf)); 28 return buf; 29 } 30 31 int 32 l64a_r (value, buffer, buflen) 33 long value; 34 char *buffer; 35 int buflen; 36 { 37 char *s = buffer; 38 int digit; 39 unsigned long v = value; 40 41 if (value == 0UL) 42 goto out; 43 44 for (; v != 0 && buflen > 1; s++, buflen--) { 45 digit = (int)(v & 0x3f); 46 47 if (digit < 2) 48 *s = digit + '.'; 49 else if (digit < 12) 50 *s = digit + '0' - 2; 51 else if (digit < 38) 52 *s = digit + 'A' - 12; 53 else 54 *s = digit + 'a' - 38; 55 v >>= 6; 56 } 57 58 out: 59 *s = '\0'; 60 61 return (v == 0UL ? 0 : -1); 62 } 63