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     ! 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.