43fa6fe319
identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>.
43 lines
671 B
C
43 lines
671 B
C
/*
|
|
* Written by J.T. Conklin <jtc@netbsd.org>.
|
|
* Public domain.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#if defined(LIBC_SCCS) && !defined(lint)
|
|
__RCSID("$NetBSD: a64l.c,v 1.5 1997/07/21 14:08:48 jtc Exp $");
|
|
#endif
|
|
|
|
#include "namespace.h"
|
|
#include <stdlib.h>
|
|
|
|
#ifdef __weak_alias
|
|
__weak_alias(a64l,_a64l);
|
|
#endif
|
|
|
|
long
|
|
a64l(s)
|
|
const char *s;
|
|
{
|
|
long value, digit, shift;
|
|
int i;
|
|
|
|
value = 0;
|
|
shift = 0;
|
|
for (i = 0; *s && i < 6; i++, s++) {
|
|
if (*s <= '/')
|
|
digit = *s - '.';
|
|
else if (*s <= '9')
|
|
digit = *s - '0' + 2;
|
|
else if (*s <= 'Z')
|
|
digit = *s - 'A' + 12;
|
|
else
|
|
digit = *s - 'a' + 38;
|
|
|
|
value |= digit << shift;
|
|
shift += 6;
|
|
}
|
|
|
|
return (long) value;
|
|
}
|