Return to mmatof.c CVS log

Up to [Research Unix] / researchv10no / cmd / PDP11 / fpp / aux

Annotation of researchv10no/cmd/PDP11/fpp/aux/mmatof.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Original ("atof1") from J.P. Hawkins at WH: "atof1.c"
        !             3:  * "atof" in libc.a is in assembly language and uses floating point;
        !             4:  * (No good when using RH floating point preprocessor)
        !             5:  * mjm: put this in "flibu" (-lfu) "mmatof.o
        !             6:  *     change name: atof1 -> atof
        !             7:  */
        !             8: 
        !             9: double atof(s) /*convert string s to floating point*//* mjm: was atof1 */
        !            10: char s[];
        !            11: {
        !            12:        char *s1;
        !            13:        char *s2;
        !            14:        double val,power;
        !            15:        int i,sign,esin,exp;
        !            16: 
        !            17:        s1 = s;
        !            18:        s2 = s;
        !            19:        while(*s2 != '\0')
        !            20:                switch (*s2) {
        !            21:                        case ' ' :
        !            22:                        case '\015' :
        !            23:                        case '\012' :
        !            24:                        case '\t':
        !            25:                        s2++;
        !            26:                        break;
        !            27:                        case 'E':
        !            28:                        *s1++ = 'e';
        !            29:                        s2++;
        !            30:                        break;
        !            31:                        default:
        !            32:                        *s1++ = *s2++;
        !            33:                }
        !            34:        *s1 = '\0';
        !            35:        i=0;
        !            36:        sign = 1;
        !            37:        if(s[i] == '+' || s[i] == '-')
        !            38:                sign = (s[i++] == '+') ? 1 : -1 ;
        !            39:        for(val = 0;s[i] >= '0' && s[i] <= '9';i++)
        !            40:                val = 10 * val + s[i] - '0';
        !            41:        if(s[i] == '.')
        !            42:        {
        !            43:                i++;
        !            44:                for(power = 1;s[i] >= '0' && s[i] <= '9'; i++)
        !            45:                {
        !            46:                        val = val * 10 + s[i] - '0';
        !            47:                        power *= 10;
        !            48:                }
        !            49:                val /= power;
        !            50:        }
        !            51:        if(s[i] == 'e')
        !            52:        {
        !            53:                i++;
        !            54:                esin = 1;
        !            55:                if(s[i] == '+' || s[i] == '-')
        !            56:                        esin = (s[i++] == '+') ? 1 : -1;
        !            57:                for(exp = 0;s[i] >= '0' && s[i] <= '9';i++)
        !            58:                        exp = 10 * exp + s[i] - '0';
        !            59:                power = 1;
        !            60:                for(i=0;i<exp;i++)
        !            61:                        power *= 10;
        !            62:                val = (esin == -1) ? val/power : val * power ;
        !            63:        }
        !            64:        return(sign * val);
        !            65: }

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