|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 1035 (0x40b)
Types: TextFile
Names: »setint.c«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─⟦this⟧ »EUUGD11/stat-5.3/eu/stat/src/setint.c«
/* Copyright 1984 Gary Perlman */
#include <stdio.h>
/*LINTLIBRARY*/
#ifndef lint
static char sccsfid[] = "@(#) setint.c 5.0 (|stat) 1/5/86";
#endif
#define Status int
#define SUCCESS 0
#define FAILURE 1
/*FUNCTION setint: check type, convert string, and set integer option */
Status
setint (pgm, flag, value, var, minval, maxval)
char *pgm;
int flag; /* the single character option name */
char *value; /* the candidate value, in string format */
int *var; /* ptr to variable to stuff in answer */
int minval; /* minimum allowed value */
int maxval; /* maximum allowed value */
{
int tmpvar;
if (number (value) == 1) /* number returns 1 for integers, 2 for reals */
{
tmpvar = atoi (value);
if (tmpvar >= minval && tmpvar <= maxval)
{
*var = tmpvar;
return (SUCCESS);
}
fprintf (stderr, "%s: -%c option value must be between %d and %d\n",
pgm, flag, minval, maxval);
return (FAILURE);
}
fprintf (stderr, "%s: -%c option requires an integer value\n", pgm, flag);
return (FAILURE);
}