Return to numeric.c CVS log

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

coherent

/*
 * Check for numeric field.
 */
numeric(s)
register char *s;
{
	register c;

	while (c = *s++)
		if ((c < '0') || (c > '9')) {
			showError("Field must be numeric");
			return (0);
		}
	return (1);
}

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