Home | History | Annotate | Line # | Download | only in trek
getpar.c revision 1.12 
      1 /*	$NetBSD: getpar.c,v 1.12 2004/01/27 20:30:31 jsm Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1980, 1993
      5  *	The Regents of the University of California.  All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 #if 0
     35 static char sccsid[] = "@(#)getpar.c	8.1 (Berkeley) 5/31/93";
     36 #else
     37 __RCSID("$NetBSD: getpar.c,v 1.12 2004/01/27 20:30:31 jsm Exp $");
     38 #endif
     39 #endif /* not lint */
     40 
     41 #include <stdio.h>
     42 #include <stdlib.h>
     43 #include <string.h>
     44 #include "getpar.h"
     45 #include "trek.h"
     46 
     47 static int testterm(void);
     48 
     49 /**
     50  **	get integer parameter
     51  **/
     52 
     53 int
     54 getintpar(s)
     55 	const char	*s;
     56 {
     57 	int	i;
     58 	int		n;
     59 
     60 	while (1)
     61 	{
     62 		if (testnl() && s)
     63 			printf("%s: ", s);
     64 		i = scanf("%d", &n);
     65 		if (i < 0)
     66 			exit(1);
     67 		if (i > 0 && testterm())
     68 			return (n);
     69 		printf("invalid input; please enter an integer\n");
     70 		skiptonl(0);
     71 	}
     72 }
     73 
     74 /**
     75  **	get floating parameter
     76  **/
     77 
     78 double getfltpar(s)
     79 	const char	*s;
     80 {
     81 	int		i;
     82 	double			d;
     83 
     84 	while (1)
     85 	{
     86 		if (testnl() && s)
     87 			printf("%s: ", s);
     88 		i = scanf("%lf", &d);
     89 		if (i < 0)
     90 			exit(1);
     91 		if (i > 0 && testterm())
     92 			return (d);
     93 		printf("invalid input; please enter a double\n");
     94 		skiptonl(0);
     95 	}
     96 }
     97 
     98 /**
     99  **	get yes/no parameter
    100  **/
    101 
    102 const struct cvntab	Yntab[] =
    103 {
    104 	{ "y",	"es",	(cmdfun)1,	1 },
    105 	{ "n",	"o",	(cmdfun)0,	0 },
    106 	{ NULL,	NULL,	NULL,		0 }
    107 };
    108 
    109 int
    110 getynpar(s)
    111 	const char	*s;
    112 {
    113 	const struct cvntab	*r;
    114 
    115 	r = getcodpar(s, Yntab);
    116 	return r->value2;
    117 }
    118 
    119 
    120 /**
    121  **	get coded parameter
    122  **/
    123 
    124 const struct cvntab *getcodpar(s, tab)
    125 	const char		*s;
    126 	const struct cvntab	tab[];
    127 {
    128 	char				input[100];
    129 	const struct cvntab		*r;
    130 	int				flag;
    131 	const char			*p, *q;
    132 	int				c;
    133 	int				f;
    134 
    135 	flag = 0;
    136 	while (1)
    137 	{
    138 		flag |= (f = testnl());
    139 		if (flag)
    140 			printf("%s: ", s);
    141 		if (f)
    142 			cgetc(0);		/* throw out the newline */
    143 		scanf("%*[ \t;]");
    144 		if ((c = scanf("%99[^ \t;\n]", input)) < 0)
    145 			exit(1);
    146 		if (c == 0)
    147 			continue;
    148 		flag = 1;
    149 
    150 		/* if command list, print four per line */
    151 		if (input[0] == '?' && input[1] == 0)
    152 		{
    153 			c = 4;
    154 			for (r = tab; r->abrev; r++)
    155 			{
    156 				strcpy(input, r->abrev);
    157 				strcat(input, r->full);
    158 				printf("%14.14s", input);
    159 				if (--c > 0)
    160 					continue;
    161 				c = 4;
    162 				printf("\n");
    163 			}
    164 			if (c != 4)
    165 				printf("\n");
    166 			continue;
    167 		}
    168 
    169 		/* search for in table */
    170 		for (r = tab; r->abrev; r++)
    171 		{
    172 			p = input;
    173 			for (q = r->abrev; *q; q++)
    174 				if (*p++ != *q)
    175 					break;
    176 			if (!*q)
    177 			{
    178 				for (q = r->full; *p && *q; q++, p++)
    179 					if (*p != *q)
    180 						break;
    181 				if (!*p || !*q)
    182 					break;
    183 			}
    184 		}
    185 
    186 		/* check for not found */
    187 		if (!r->abrev)
    188 		{
    189 			printf("invalid input; ? for valid inputs\n");
    190 			skiptonl(0);
    191 		}
    192 		else
    193 			return (r);
    194 	}
    195 }
    196 
    197 
    198 /**
    199  **	get string parameter
    200  **/
    201 
    202 void
    203 getstrpar(s, r, l, t)
    204 	const char	*s;
    205 	char	*r;
    206 	int	l;
    207 	const char	*t;
    208 {
    209 	int	i;
    210 	char		format[20];
    211 	int	f;
    212 
    213 	if (t == 0)
    214 		t = " \t\n;";
    215 	(void)sprintf(format, "%%%d[^%s]", l, t);
    216 	while (1)
    217 	{
    218 		if ((f = testnl()) && s)
    219 			printf("%s: ", s);
    220 		if (f)
    221 			cgetc(0);
    222 		scanf("%*[\t ;]");
    223 		i = scanf(format, r);
    224 		if (i < 0)
    225 			exit(1);
    226 		if (i != 0)
    227 			return;
    228 	}
    229 }
    230 
    231 
    232 /**
    233  **	test if newline is next valid character
    234  **/
    235 
    236 int
    237 testnl()
    238 {
    239 	char		c;
    240 
    241 	while ((c = cgetc(0)) != '\n')
    242 		if ((c >= '0' && c <= '9') || c == '.' || c == '!' ||
    243 				(c >= 'A' && c <= 'Z') ||
    244 				(c >= 'a' && c <= 'z') || c == '-')
    245 		{
    246 			ungetc(c, stdin);
    247 			return(0);
    248 		}
    249 	ungetc(c, stdin);
    250 	return (1);
    251 }
    252 
    253 
    254 /**
    255  **	scan for newline
    256  **/
    257 
    258 void
    259 skiptonl(c)
    260 int	c;
    261 {
    262 	while (c != '\n')
    263 		if (!(c = cgetc(0)))
    264 			return;
    265 	ungetc('\n', stdin);
    266 	return;
    267 }
    268 
    269 
    270 /**
    271  **	test for valid terminator
    272  **/
    273 
    274 static int
    275 testterm()
    276 {
    277 	char		c;
    278 
    279 	if (!(c = cgetc(0)))
    280 		return (1);
    281 	if (c == '.')
    282 		return (0);
    283 	if (c == '\n' || c == ';')
    284 		ungetc(c, stdin);
    285 	return (1);
    286 }
    287 
    288 
    289 /*
    290 **  TEST FOR SPECIFIED DELIMITER
    291 **
    292 **	The standard input is scanned for the parameter.  If found,
    293 **	it is thrown away and non-zero is returned.  If not found,
    294 **	zero is returned.
    295 */
    296 
    297 int
    298 readdelim(d)
    299 char	d;
    300 {
    301 	char	c;
    302 
    303 	while ((c = cgetc(0)) != '\0')
    304 	{
    305 		if (c == d)
    306 			return (1);
    307 		if (c == ' ')
    308 			continue;
    309 		ungetc(c, stdin);
    310 		break;
    311 	}
    312 	return (0);
    313 }
    314