Loading...
stdlib/a64l.c Libc-262 /dev/null
--- Libc/Libc-262/stdlib/a64l.c
+++ /dev/null
@@ -1,47 +0,0 @@
-/*
- * Written by J.T. Conklin <jtc@netbsd.org>.
- * Public domain.
- */
-
-#if defined(LIBC_SCCS) && !defined(lint)
-static char *rcsid = "$OpenBSD: a64l.c,v 1.3 1997/08/17 22:58:34 millert Exp $";
-#endif /* LIBC_SCCS and not lint */
-
-#include <errno.h>
-#include <stdlib.h>
-
-long
-a64l(s)
-	const char *s;
-{
-	long value, digit, shift;
-	int i;
-
-	if (s == NULL) {
-		errno = EINVAL;
-		return(-1L);
-	}
-
-	value = 0;
-	shift = 0;
-	for (i = 0; *s && i < 6; i++, s++) {
-		if (*s >= '.' && *s <= '/')
-			digit = *s - '.';
-		else if (*s >= '0' && *s <= '9')
-			digit = *s - '0' + 2;
-		else if (*s >= 'A' && *s <= 'Z')
-			digit = *s - 'A' + 12;
-		else if (*s >= 'a' && *s <= 'z')
-			digit = *s - 'a' + 38;
-		else {
-			errno = EINVAL;
-			return(-1L);
-		}
-
-		value |= digit << shift;
-		shift += 6;
-	}
-
-	return(value);
-}
-