stdlib/a64l.c

   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  */
  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