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