| | 1 | /* |
| | 2 | * Copyright (c) 2003 Apple Computer, Inc. All rights reserved. |
| | 3 | * |
| | 4 | * @APPLE_LICENSE_HEADER_START@ |
| | 5 | * |
| | 6 | * This file contains Original Code and/or Modifications of Original Code |
| | 7 | * as defined in and that are subject to the Apple Public Source License |
| | 8 | * Version 2.0 (the 'License'). You may not use this file except in |
| | 9 | * compliance with the License. Please obtain a copy of the License at |
| | 10 | * http://www.opensource.apple.com/apsl/ and read it before using this |
| | 11 | * file. |
| | 12 | * |
| | 13 | * The Original Code and all software distributed under the License are |
| | 14 | * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER |
| | 15 | * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, |
| | 16 | * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, |
| | 17 | * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. |
| | 18 | * Please see the License for the specific language governing rights and |
| | 19 | * limitations under the License. |
| | 20 | * |
| | 21 | * @APPLE_LICENSE_HEADER_END@ |
| | 22 | */ |
| | 23 | /* |
| | 24 | * Written by J.T. Conklin <jtc@netbsd.org>. |
| | 25 | * Public domain. |
| | 26 | */ |
| | 27 | |
| | 28 | #if defined(LIBC_SCCS) && !defined(lint) |
| | 29 | static char *rcsid = "$OpenBSD: a64l.c,v 1.3 1997/08/17 22:58:34 millert Exp $"; |
| | 30 | #endif /* LIBC_SCCS and not lint */ |
| | 31 | |
| | 32 | #include <errno.h> |
| | 33 | #include <stdlib.h> |
| | 34 | |
| | 35 | long |
| | 36 | a64l(s) |
| | 37 | const char *s; |
| | 38 | { |
| | 39 | long value, digit, shift; |
| | 40 | int i; |
| | 41 | |
| | 42 | if (s == NULL) { |
| | 43 | errno = EINVAL; |
| | 44 | return(-1L); |
| | 45 | } |
| | 46 | |
| | 47 | value = 0; |
| | 48 | shift = 0; |
| | 49 | for (i = 0; *s && i < 6; i++, s++) { |
| | 50 | if (*s >= '.' && *s <= '/') |
| | 51 | digit = *s - '.'; |
| | 52 | else if (*s >= '0' && *s <= '9') |
| | 53 | digit = *s - '0' + 2; |
| | 54 | else if (*s >= 'A' && *s <= 'Z') |
| | 55 | digit = *s - 'A' + 12; |
| | 56 | else if (*s >= 'a' && *s <= 'z') |
| | 57 | digit = *s - 'a' + 38; |
| | 58 | else { |
| | 59 | errno = EINVAL; |
| | 60 | return(-1L); |
| | 61 | } |
| | 62 | |
| | 63 | value |= digit << shift; |
| | 64 | shift += 6; |
| | 65 | } |
| | 66 | |
| | 67 | return(value); |
| | 68 | } |
| | 69 | |
projects / apple / libc.git / blame_incremental