home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / 2014.11.minnie.tuhs.org.tar / minnie.tuhs.org / UnixArchive / PDP-11 / Trees / V6 / usr / source / s5 / rin.c < prev    next >
Text File  |  1975-05-14  |  335b  |  34 lines
  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. }
  34.