Return to oatoi.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / gutil

Annotation of 43BSD/ingres/source/gutil/oatoi.c, revision 1.1.1.1

1.1       root        1: # include      <sccs.h>
                      2: 
                      3: SCCSID(@(#)oatoi.c     8.1     12/31/84)
                      4: 
                      5: /*
                      6: **  OCTAL ASCII TO INTEGER CONVERSION
                      7: **
                      8: **     The ascii string 'a' which represents an octal number
                      9: **     is converted to binary and returned.  Conversion stops at any
                     10: **     non-octal digit. The integer reflects the natural word length of the
                     11: **     machine.
                     12: **
                     13: **     Note that the number may not have a sign, and may not have
                     14: **     leading blanks.
                     15: **
                     16: **     (Intended for converting the status codes in users(FILE))
                     17: */
                     18: 
                     19: oatoi(a)
                     20: char   *a;
                     21: {
                     22:        register int    r;
                     23:        register char   *p;
                     24:        register char   c;
                     25: 
                     26:        r = 0;
                     27:        p = a;
                     28: 
                     29:        while ((c = *p++) >= '0' && c <= '7')
                     30:                r = (r << 3) | (c &= 7);
                     31: 
                     32:        return (r);
                     33: }

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