xref: /titanic_50/usr/src/lib/libc/port/gen/a64l.c (revision 7257d1b4d25bfac0c802847390e98a464fd787ac)
17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate  * CDDL HEADER START
37c478bd9Sstevel@tonic-gate  *
47c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5*7257d1b4Sraf  * Common Development and Distribution License (the "License").
6*7257d1b4Sraf  * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate  *
87c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate  * and limitations under the License.
127c478bd9Sstevel@tonic-gate  *
137c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate  *
197c478bd9Sstevel@tonic-gate  * CDDL HEADER END
207c478bd9Sstevel@tonic-gate  */
21*7257d1b4Sraf 
227c478bd9Sstevel@tonic-gate /*
23*7257d1b4Sraf  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
247c478bd9Sstevel@tonic-gate  * Use is subject to license terms.
257c478bd9Sstevel@tonic-gate  */
267c478bd9Sstevel@tonic-gate 
277c478bd9Sstevel@tonic-gate /*	Copyright (c) 1988 AT&T	*/
287c478bd9Sstevel@tonic-gate /*	  All Rights Reserved  	*/
297c478bd9Sstevel@tonic-gate 
30*7257d1b4Sraf #pragma ident	"%Z%%M%	%I%	%E% SMI"
317c478bd9Sstevel@tonic-gate 
327c478bd9Sstevel@tonic-gate /*
337c478bd9Sstevel@tonic-gate  * convert base 64 ascii to long int
347c478bd9Sstevel@tonic-gate  * char set is [./0-9A-Za-z]
357c478bd9Sstevel@tonic-gate  *
367c478bd9Sstevel@tonic-gate  */
37*7257d1b4Sraf #include "lint.h"
387c478bd9Sstevel@tonic-gate #include <sys/types.h>
397c478bd9Sstevel@tonic-gate #include <stdlib.h>
407c478bd9Sstevel@tonic-gate 
417c478bd9Sstevel@tonic-gate #define	BITSPERCHAR	6 /* to hold entire character set */
427c478bd9Sstevel@tonic-gate #define	MAXBITS		(6 * BITSPERCHAR) /* maximum number */
437c478bd9Sstevel@tonic-gate 			/* of 6 chars converted */
447c478bd9Sstevel@tonic-gate 
457c478bd9Sstevel@tonic-gate long
a64l(const char * s)467c478bd9Sstevel@tonic-gate a64l(const char *s)
477c478bd9Sstevel@tonic-gate {
487c478bd9Sstevel@tonic-gate 	int i, c;
497c478bd9Sstevel@tonic-gate 	int lg = 0;
507c478bd9Sstevel@tonic-gate 
517c478bd9Sstevel@tonic-gate 	for (i = 0; ((c = *s++) != '\0') && (i < MAXBITS); i += BITSPERCHAR) {
527c478bd9Sstevel@tonic-gate 		if (c > 'Z')
537c478bd9Sstevel@tonic-gate 			c -= 'a' - 'Z' - 1;
547c478bd9Sstevel@tonic-gate 		if (c > '9')
557c478bd9Sstevel@tonic-gate 			c -= 'A' - '9' - 1;
567c478bd9Sstevel@tonic-gate 		lg |= (c - ('0' - 2)) << i;
577c478bd9Sstevel@tonic-gate 	}
587c478bd9Sstevel@tonic-gate 	return ((long)lg);
597c478bd9Sstevel@tonic-gate }
60