1/*++ 2/* NAME 3/* alldig 3 4/* SUMMARY 5/* predicate if string is all numerical 6/* SYNOPSIS 7/* #include <stringops.h> 8/* 9/* int alldig(string) 10/* const char *string; 11/* DESCRIPTION 12/* alldig() determines if its argument is an all-numerical string. 13/* SEE ALSO 14/* An alldig() routine appears in Brian W. Kernighan, P.J. Plauger: 15/* "Software Tools", Addison-Wesley 1976. 16/* LICENSE 17/* .ad 18/* .fi 19/* The Secure Mailer license must be distributed with this software. 20/* AUTHOR(S) 21/* Wietse Venema 22/* IBM T.J. Watson Research 23/* P.O. Box 704 24/* Yorktown Heights, NY 10598, USA 25/*--*/ 26 27/* System library. */ 28 29#include <sys_defs.h> 30#include <ctype.h> 31 32/* Utility library. */ 33 34#include <stringops.h> 35 36/* alldig - return true if string is all digits */ 37 38int alldig(const char *string) 39{ 40 const char *cp; 41 42 if (*string == 0) 43 return (0); 44 for (cp = string; *cp != 0; cp++) 45 if (!ISDIGIT(*cp)) 46 return (0); 47 return (1); 48} 49