1 /*        $NetBSD: l64a.c,v 1.14 2012/03/13 21:13:48 christos 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.14 2012/03/13 21:13:48 christos Exp $");
11 #endif
12 
13 #include "namespace.h"
14 
15 #include <assert.h>
16 #include <errno.h>
17 #include <stdlib.h>
18 
19 #ifdef __weak_alias
__weak_alias(l64a,_l64a)20 __weak_alias(l64a,_l64a)
21 __weak_alias(l64a_r,_l64a_r)
22 #endif
23 
24 char *
25 l64a(long value)
26 {
27           static char buf[8];
28 
29           (void)l64a_r(value, buf, (int)sizeof (buf));
30           return buf;
31 }
32 
33 int
l64a_r(long value,char * buffer,int buflen)34 l64a_r(long value, char *buffer, int buflen)
35 {
36           char *s = buffer;
37           int digit;
38           unsigned long v = value;
39 
40           _DIAGASSERT(buffer != NULL);
41 
42           if (value == 0UL)
43                     goto out;
44 
45           for (; v != 0 && buflen > 1; s++, buflen--) {
46                     digit = (int)(v & 0x3f);
47 
48                     if (digit < 2)
49                               *s = digit + '.';
50                     else if (digit < 12)
51                               *s = digit + '0' - 2;
52                     else if (digit < 38)
53                               *s = digit + 'A' - 12;
54                     else
55                               *s = digit + 'a' - 38;
56                     v >>= 6;
57           }
58 
59 out:
60           *s = '\0';
61 
62           return (v == 0UL ? 0 : -1);
63 }
64