xref: /titanic_50/usr/src/lib/libc/port/gen/a64l.c (revision 1ae0874509b6811fdde1dfd46f0d93fd09867a3f)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 /*	Copyright (c) 1988 AT&T	*/
30 /*	  All Rights Reserved  	*/
31 
32 
33 /*
34  * convert base 64 ascii to long int
35  * char set is [./0-9A-Za-z]
36  *
37  */
38 #pragma weak a64l = _a64l
39 #include "synonyms.h"
40 #include <sys/types.h>
41 #include <stdlib.h>
42 
43 #define	BITSPERCHAR	6 /* to hold entire character set */
44 #define	MAXBITS		(6 * BITSPERCHAR) /* maximum number */
45 			/* of 6 chars converted */
46 
47 long
48 a64l(const char *s)
49 {
50 	int i, c;
51 	int lg = 0;
52 
53 	for (i = 0; ((c = *s++) != '\0') && (i < MAXBITS); i += BITSPERCHAR) {
54 		if (c > 'Z')
55 			c -= 'a' - 'Z' - 1;
56 		if (c > '9')
57 			c -= 'A' - '9' - 1;
58 		lg |= (c - ('0' - 2)) << i;
59 	}
60 	return ((long)lg);
61 }
62