Return to rin.c CVS log

Up to [CSRG BSD Unix] / 41BSD / libc / gen

Annotation of 41BSD/libc/gen/rin.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: 
                      3: rin()
                      4: {
                      5:        double d;
                      6:        register n, c, f;
                      7: 
                      8:        d = 0.;
                      9:        f = 0;
                     10:        n = 0;
                     11: loop:
                     12:        c = getchar();
                     13:        if(c == EOF)
                     14:                exit();
                     15:        if(c == '-') {
                     16:                f++;
                     17:                goto loop;
                     18:        }
                     19:        if(c == '.') {
                     20:                n++;
                     21:                goto loop;
                     22:        }
                     23:        if(isdigit(c)) {
                     24:                if(n)
                     25:                        n++;
                     26:                d = d*10.+c-'0';
                     27:                goto loop;
                     28:        }
                     29:        if(f)
                     30:                d = -d;
                     31:        for(f=1; f<n; f++)
                     32:                d /= 10.;
                     33:        n = d;
                     34:        return(n);
                     35: }

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