42 lines
704 B
C
42 lines
704 B
C
#ifndef lint
|
|
static char sccsid[] = "@(#)ckf_long.c 1.1 94/10/31";
|
|
#endif
|
|
|
|
/*
|
|
* Name: ckf_long.c
|
|
*
|
|
* Description: Determine if a field is a long integer. If the field
|
|
* is a valid long integer, then one is returned. Otherwise,
|
|
* zero is returned.
|
|
*
|
|
* Call syntax: ret_code = ckf_long(arg_p, field_p);
|
|
*
|
|
* Parameters: pointer arg_p;
|
|
* char * field_p;
|
|
*
|
|
* Return value: int ret_code;
|
|
*/
|
|
|
|
#include "menu.h"
|
|
|
|
|
|
int
|
|
ckf_long(arg_p, field_p)
|
|
pointer arg_p;
|
|
char * field_p;
|
|
{
|
|
extern long atol();
|
|
|
|
|
|
#ifdef lint
|
|
arg_p = arg_p;
|
|
#endif
|
|
|
|
if (atol(field_p) == 0 && *field_p != '0') {
|
|
menu_mesg("Field is not a valid long integer.");
|
|
return(0);
|
|
}
|
|
|
|
return(1);
|
|
} /* end ckf_long() */
|