Return to atob.c CVS log

Up to [Apple Darwin 0.x] / driverkit / libDriver

Annotation of driverkit/libDriver/atob.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
                      3:  *
                      4:  * @APPLE_LICENSE_HEADER_START@
                      5:  * 
                      6:  * Portions Copyright (c) 1999 Apple Computer, Inc.  All Rights
                      7:  * Reserved.  This file contains Original Code and/or Modifications of
                      8:  * Original Code as defined in and that are subject to the Apple Public
                      9:  * Source License Version 1.1 (the "License").  You may not use this file
                     10:  * except in compliance with the License.  Please obtain a copy of the
                     11:  * License at http://www.apple.com/publicsource and read it before using
                     12:  * this file.
                     13:  * 
                     14:  * The Original Code and all software distributed under the License are
                     15:  * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
                     16:  * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
                     17:  * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
                     18:  * FITNESS FOR A PARTICULAR PURPOSE OR NON- INFRINGEMENT.  Please see the
                     19:  * License for the specific language governing rights and limitations
                     20:  * under the License.
                     21:  * 
                     22:  * @APPLE_LICENSE_HEADER_END@
                     23:  */
                     24: /* Copyright (c) 1991 NeXT Computer, Inc.  All rights reserved.
                     25:  *
                     26:  *     File:   libsa/atob.c
                     27:  *
                     28:  *     Ascii to Binary converter.  Accepts all C numeric formats.
                     29:  *
                     30:  * HISTORY
                     31:  * 13-Sep-91  Mike DeMoney ([email protected]) and Peter King ([email protected])
                     32:  *     Created from libmike.
                     33:  */
                     34: 
                     35: 
                     36: /*
                     37:  * Header files.
                     38:  */
                     39: #import "ctype.h"
                     40: 
                     41: static unsigned int    digit(char c);
                     42: 
                     43: /*
                     44:  * atob -- convert ascii to binary.  Accepts all C numeric formats.
                     45:  *        Returns pointer to next character after last character used.
                     46:  */
                     47: char *
                     48: atob(
                     49:        const char              *cp,
                     50:        int                     *iptr
                     51: ) {
                     52:        int             minus = 0;
                     53:        int             value = 0;
                     54:        unsigned int    base = 10;
                     55:        unsigned int    d;
                     56: 
                     57:        *iptr = 0;
                     58:        if (!cp) {
                     59:                return(0);
                     60:        }
                     61:  
                     62:        while (isspace(*cp)) {
                     63:                cp++;
                     64:        }
                     65: 
                     66:        while (*cp == '-') {
                     67:                cp++;
                     68:                minus = !minus;
                     69:        }
                     70: 
                     71:        /*
                     72:         * Determine base by looking at first 2 characters
                     73:         */
                     74:        if (*cp == '0') {
                     75:                switch (*++cp) {
                     76:                case 'X':
                     77:                case 'x':
                     78:                        base = 16;
                     79:                        cp++;
                     80:                        break;
                     81: 
                     82:                case 'B':       /* a frill: allow binary base */
                     83:                case 'b':
                     84:                        base = 2;
                     85:                        cp++;
                     86:                        break;
                     87:                
                     88:                default:
                     89:                        base = 8;
                     90:                        break;
                     91:                }
                     92:        }
                     93: 
                     94:        while ((d = digit(*cp)) < base) {
                     95:                value *= base;
                     96:                value += d;
                     97:                cp++;
                     98:        }
                     99: 
                    100:        if (minus) {
                    101:                value = -value;
                    102:        }
                    103: 
                    104:        *iptr = value;
                    105:        return((char *)cp);
                    106: }
                    107: 
                    108: /*
                    109:  * digit -- convert the ascii representation of a digit to its
                    110:  * binary representation
                    111:  */
                    112: static unsigned int
                    113: digit(
                    114:        char            c
                    115: ) {
                    116:        unsigned int    d;
                    117: 
                    118:        if (isdigit(c)) {
                    119:                d = c - '0';
                    120:        } else if (isalpha(c)) {
                    121:                if (isupper(c)) {
                    122:                        c = tolower(c);
                    123:                }
                    124:                d = c - 'a' + 10;
                    125:        } else {
                    126:                d = 999999; /* larger than any base to break callers loop */
                    127:        }
                    128: 
                    129:        return d;
                    130: }
                    131: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.