l64a.c revision 1.10 
1/*	$NetBSD: l64a.c,v 1.10 1999/09/16 11:45:34 lukem 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.10 1999/09/16 11:45:34 lukem 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
20__weak_alias(l64a,_l64a);
21__weak_alias(l64a_r,_l64a_r);
22#endif
23
24char *
25l64a (value)
26	long value;
27{
28	static char buf[8];
29
30	(void)l64a_r(value, buf, sizeof (buf));
31	return buf;
32}
33
34int
35l64a_r (value, buffer, buflen)
36	long value;
37	char *buffer;
38	int buflen;
39{
40	char *s = buffer;
41	int digit;
42	unsigned long v = value;
43
44	_DIAGASSERT(buffer != NULL);
45#ifdef _DIAGNOSTIC
46	if (buffer == NULL) {
47		errno = EFAULT;
48		return (-1);
49	}
50#endif
51
52	if (value == 0UL)
53		goto out;
54
55	for (; v != 0 && buflen > 1; s++, buflen--) {
56		digit = (int)(v & 0x3f);
57
58		if (digit < 2)
59			*s = digit + '.';
60		else if (digit < 12)
61			*s = digit + '0' - 2;
62		else if (digit < 38)
63			*s = digit + 'A' - 12;
64		else
65			*s = digit + 'a' - 38;
66		v >>= 6;
67	}
68
69out:
70	*s = '\0';
71
72	return (v == 0UL ? 0 : -1);
73}
74