Return to atod.c CVS log

Up to [MW Coherent from dump] / coherent / a / usr / src / sample

Annotation of coherent/a/usr/src/sample/atod.c, revision 1.1

1.1     ! root        1: #include <ctype.h>
        !             2: 
        !             3: #define        ERROR   0x10            /* largest input base */
        !             4: 
        !             5: /*
        !             6:  * atod() converts the string 'num' to a double and returns its value.
        !             7:  * If there is a non-digit in the string, or if there is an overflow,
        !             8:  * then atod() exits with an appropriate error message.
        !             9:  * atod() accepts leading zero for octal and leading 0x for hexidecimal;
        !            10:  * in the latter case, 'a'-'f' and 'A'-'F' are accepted as digits.
        !            11:  */
        !            12: double
        !            13: atod(num)
        !            14: char   *num;
        !            15: {
        !            16:        register char   *str;
        !            17:        register int    i;
        !            18:        double          res     = 0,
        !            19:                        base    = 10;
        !            20: 
        !            21:        str = num;
        !            22:        i = *str++;
        !            23:        if (i == '0')
        !            24:                if ((i = *str++) == 'x') {
        !            25:                        i = *str++;
        !            26:                        base = 0x10;
        !            27:                } else
        !            28:                        base = 010;
        !            29:        for (; i != '\0'; i = *str++) {
        !            30:                i = todigit(i);
        !            31:                if (i >= base)
        !            32:                        die("bad number '%s'", num);
        !            33:                res = res * base + i;
        !            34:                if (res+1 == res)
        !            35:                        die("number too big '%s'", num);
        !            36:        }
        !            37:        return (res);
        !            38: }
        !            39: 
        !            40: 
        !            41: /*
        !            42:  * todigit() converts character 'ch' to an integer equivalent,
        !            43:  * assuming that 'ch' is a digit or 'a'-'f' or 'A'-'F'.
        !            44:  * If this is not true, then it returns ERROR.
        !            45:  */
        !            46: todigit(ch)
        !            47: register int   ch;
        !            48: {
        !            49:        if (!isascii(ch))
        !            50:                return (ERROR);
        !            51:        if (isdigit(ch))
        !            52:                return (ch - '0' + 0);
        !            53:        if (isupper(ch))
        !            54:                ch = tolower(ch);
        !            55:        if ('a' <= ch && ch <= 'f')
        !            56:                return (ch - 'a' + 0xA);
        !            57:        return (ERROR);
        !            58: }
        !            59: 
        !            60: 

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