/***************************************************************************
 *                                                                         *
 *   ALLDGS.C                                                              *
 *                                                                         *
 *   Copyright (c) 1987-1997 Galacticomm, Inc.    All Rights Reserved.     *
 *                                                                         *
 *   This is the GCOMM.LIB routine for determining if a string is all      *
 *   decimal digits or not.                                                *
 *                                                                         *
 *                                            - R. Stein   2/7/92          *
 *                                                                         *
 ***************************************************************************/

#include "gcomm.h"

#define FILREV "$Revision: 5 $"

GBOOL                              /*   returns TRUE=all digits            */
alldgs(                            /* is string all digits                 */
const CHAR *string)                /*   string to check                    */
{
     while (*string != '\0') {
          if (!isdigit(*string)) {
               return(FALSE);
          }
          string++;
     }
     return(TRUE);
}
