|
utility
|
|
cmd_head.c,
count_tokens.c,
cp_file.c,
errmsg.c,
file_opened.c,
find_line.c,
find_string.c,
fn_base.c,
fn_dir.c,
fn_ext.c,
fn_root.c,
gchoice.c,
gdata_line.c,
gdouble.c,
gfield.c,
gint.c,
gntoken.c,
graphics_ok.c,
gstring.c,
lock.c,
lower.c,
mat_multiply.c,
mat_transform.c,
mat_transpose.c,
mv_file.c,
new_extension.c,
nolead.c,
notrail.c,
ordinal.c,
pfield.c,
squish_blanks.c,
test.c,
unlock.c,
upper.c,
utility.h,
utility.make,
valchars.c,
vec_angle.c,
vec_crossprod.c,
vec_diff.c,
vec_dotprod.c,
vec_length.c,
vec_norm.c,
|
|
|
#include "utility.h"
int gchoice(prompt,choices,null_ok,choice)
/*============================================================================*/
/* PURPOSE: GET A ONE CHARACTER CHOICE FROM THE USER. CASE IS IMMATERIAL
/* SINCE THE SUPPLIED CHOICES ARE UPPERCASED.
/* INPUTS:
/* PROMPT PROMPT STRING TO BE DISPLAYED FOR USER.
/* CHOICES LIST OF VALID ONE CHARACTER CHOICES.
/* NULL_OK TRUE/FALSE IF NULL ENTRY IS VALID.
/* OUTPUTS:
/* CHOICES UPPERCASED LIST OF CHOICES.
/* CHOICE VALID UPPERCASE ONE CHARACTER CHOICE IF SELECTED.
/* FUNCTION VALUE STATUS OF USER RESPONSE (AS IN UTILITY.H).
/* WRITTEN: M.V.GRIESHABER
/* LAST MODIFICATION: 11 JUNE 1991 MVG
*/
char prompt[];
char choices[];
int null_ok;
char *choice;
{
char response[100]; /* USER INPUT. */
int status; /* STATUS OF USER INPUT. */
int i; /* LOOP INDEX: WHICH CHARACTER. */
while(TRUE)
{
status=gstring(prompt,null_ok,response);
if (status==ABORT_ENTRY || status==NULL_ENTRY) return(status);
response[0]=toupper(response[0]);
for (i=0; i
|
