UNIX 6th Ed. - /usr/source/s5/rin.c

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

Defined functions