Return to atoi.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin / sh

Annotation of coherent/d/bin/sh/atoi.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Non-floating ASCII to int conversion
        !             3:  * int atoi(cp)
        !             4:  * char *cp;
        !             5:  * Modified by rec 22.Apr.82 to allow octal and hexadecimal.
        !             6:  */
        !             7: 
        !             8: atoi(cp)
        !             9: register char *cp;
        !            10: {
        !            11:        register val;
        !            12:        register c;
        !            13:        register base;
        !            14:        int sign;
        !            15: 
        !            16:        val = sign = 0;
        !            17:        while ((c = *cp)==' ' || c=='\t')
        !            18:                cp++;
        !            19:        if (c == '-') {
        !            20:                sign = 1;
        !            21:                cp++;
        !            22:        } else if (c == '+')
        !            23:                cp++;
        !            24:        base = 10;
        !            25:        if ((c = *cp) == '0') {
        !            26:                cp++;
        !            27:                if ((c = *cp) == 'x' || c == 'X') {
        !            28:                        cp++;
        !            29:                        base = 16;
        !            30:                } else
        !            31:                        base = 8;
        !            32:        }
        !            33:        for (;;) {
        !            34:                c = *cp++;
        !            35:                if ((c -= '0') >= 0 && c <= 9) {
        !            36:                        val = val*base - c;
        !            37:                        continue;
        !            38:                }
        !            39:                if (base == 16) {
        !            40:                        if ((c += 10 + '0' - 'A') >= 0 && c < base) {
        !            41:                                val = val*base - c;
        !            42:                                continue;
        !            43:                        }
        !            44:                        if ((c += 'A' - 'a') >= 0 && c < base) {
        !            45:                                val = val*base - c;
        !            46:                                continue;
        !            47:                        }
        !            48:                }
        !            49:                break;
        !            50:        }
        !            51:        if (!sign)
        !            52:                val = -val;
        !            53:        return (val);
        !            54: }

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