Return to numeric.c CVS log

Up to [MW Coherent from dump] / coherent / d / usr / lib / scn

Annotation of coherent/d/usr/lib/scn/numeric.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Check for numeric field.
                      3:  */
                      4: numeric(s)
                      5: register char *s;
                      6: {
                      7:        register c;
                      8: 
                      9:        while (c = *s++)
                     10:                if ((c < '0') || (c > '9')) {
                     11:                        showError("Field must be numeric");
                     12:                        return (0);
                     13:                }
                     14:        return (1);
                     15: }

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