/***************************************************************************
 *                                                                         *
 *   VALIDIG.C                                                             *
 *                                                                         *
 *   Copyright (c) 1987-1997 Galacticomm, Inc.    All Rights Reserved.     *
 *                                                                         *
 *   This is the GCOMM.LIB routine for use with edtval(), returning 1      *
 *   if the character is a valid digit, or 0 otherwise.                    *
 *                                                                         *
 *                                            - T. Stryker 2/3/92          *
 *                                                                         *
 ***************************************************************************/

#include "gcomm.h"

#define FILREV "$Revision: 4 $"

GBOOL                              /*   returns TRUE=valid digit           */
validig(                           /* is c a valid decimal digit?          */
INT c)                             /*   character to check                 */
{
     return(c >= '0' && c <= '9' ? TRUE : FALSE);
}
