Return to rin.c CVS log

Up to [Research Unix] / researchv8dc / libc / gen

Annotation of researchv8dc/libc/gen/rin.c, revision 1.1.1.1

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

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