1 /* 2 * Written by J.T. Conklin <jtc@netbsd.org>. 3 * Public domain. 4 */ 5 6 #include <sys/cdefs.h> 7 #if defined(LIBC_SCCS) && !defined(lint) 8 __RCSID("$NetBSD: a64l.c,v 1.4 1997/07/13 20:16:33 christos Exp $"); 9 #endif 10 11 #include <stdlib.h> 12 13 long 14 a64l(s) 15 const char *s; 16 { 17 long value, digit, shift; 18 int i; 19 20 value = 0; 21 shift = 0; 22 for (i = 0; *s && i < 6; i++, s++) { 23 if (*s <= '/') 24 digit = *s - '.'; 25 else if (*s <= '9') 26 digit = *s - '0' + 2; 27 else if (*s <= 'Z') 28 digit = *s - 'A' + 12; 29 else 30 digit = *s - 'a' + 38; 31 32 value |= digit << shift; 33 shift += 6; 34 } 35 36 return (long) value; 37 } 38