initial import of 386bsd-0.1 sources

1 files changed, 297 insertions, 0 deletions

diff --git a/trek/getpar.c b/trek/getpar.c
new file mode 100644
index 00000000..70142013
--- /dev/null
+++ b/trek/getpar.c
@@ -0,0 +1,297 @@
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)getpar.c	4.8 (Berkeley) 6/1/90";
+#endif /* not lint */
+
+# include	<stdio.h>
+# include	"getpar.h"
+
+/**
+ **	get integer parameter
+ **/
+
+getintpar(s)
+char	*s;
+{
+	register int	i;
+	int		n;
+
+	while (1)
+	{
+		if (testnl() && s)
+			printf("%s: ", s);
+		i = scanf("%d", &n);
+		if (i < 0)
+			exit(1);
+		if (i > 0 && testterm())
+			return (n);
+		printf("invalid input; please enter an integer\n");
+		skiptonl(0);
+	}
+}
+
+/**
+ **	get floating parameter
+ **/
+
+double getfltpar(s)
+char	*s;
+{
+	register int		i;
+	double			d;
+
+	while (1)
+	{
+		if (testnl() && s)
+			printf("%s: ", s);
+		i = scanf("%lf", &d);
+		if (i < 0)
+			exit(1);
+		if (i > 0 && testterm())
+			return (d);
+		printf("invalid input; please enter a double\n");
+		skiptonl(0);
+	}
+}
+
+/**
+ **	get yes/no parameter
+ **/
+
+struct cvntab	Yntab[] =
+{
+	"y",	"es",	(int (*)())1,	0,
+	"n",	"o",	(int (*)())0,	0,
+	0
+};
+
+getynpar(s)
+char	*s;
+{
+	struct cvntab		*r;
+
+	r = getcodpar(s, Yntab);
+	return ((int) r->value);
+}
+
+
+/**
+ **	get coded parameter
+ **/
+
+struct cvntab *getcodpar(s, tab)
+char		*s;
+struct cvntab	tab[];
+{
+	char				input[100];
+	register struct cvntab		*r;
+	int				flag;
+	register char			*p, *q;
+	int				c;
+	int				f;
+
+	flag = 0;
+	while (1)
+	{
+		flag |= (f = testnl());
+		if (flag)
+			printf("%s: ", s);
+		if (f)
+			cgetc(0);		/* throw out the newline */
+		scanf("%*[ \t;]");
+		if ((c = scanf("%[^ \t;\n]", input)) < 0)
+			exit(1);
+		if (c == 0)
+			continue;
+		flag = 1;
+
+		/* if command list, print four per line */
+		if (input[0] == '?' && input[1] == 0)
+		{
+			c = 4;
+			for (r = tab; r->abrev; r++)
+			{
+				concat(r->abrev, r->full, input);
+				printf("%14.14s", input);
+				if (--c > 0)
+					continue;
+				c = 4;
+				printf("\n");
+			}
+			if (c != 4)
+				printf("\n");
+			continue;
+		}
+
+		/* search for in table */
+		for (r = tab; r->abrev; r++)
+		{
+			p = input;
+			for (q = r->abrev; *q; q++)
+				if (*p++ != *q)
+					break;
+			if (!*q)
+			{
+				for (q = r->full; *p && *q; q++, p++)
+					if (*p != *q)
+						break;
+				if (!*p || !*q)
+					break;
+			}
+		}
+
+		/* check for not found */
+		if (!r->abrev)
+		{
+			printf("invalid input; ? for valid inputs\n");
+			skiptonl(0);
+		}
+		else
+			return (r);
+	}
+}
+
+
+/**
+ **	get string parameter
+ **/
+
+getstrpar(s, r, l, t)
+char	*s;
+char	*r;
+int	l;
+char	*t;
+{
+	register int	i;
+	char		format[20];
+	register int	f;
+
+	if (t == 0)
+		t = " \t\n;";
+	(void)sprintf(format, "%%%d[^%s]", l, t);
+	while (1)
+	{
+		if ((f = testnl()) && s)
+			printf("%s: ", s);
+		if (f)
+			cgetc(0);
+		scanf("%*[\t ;]");
+		i = scanf(format, r);
+		if (i < 0)
+			exit(1);
+		if (i != 0)
+			return;
+	}
+}
+
+
+/**
+ **	test if newline is next valid character
+ **/
+
+testnl()
+{
+	register char		c;
+
+	while ((c = cgetc(0)) != '\n')
+		if ((c >= '0' && c <= '9') || c == '.' || c == '!' ||
+				(c >= 'A' && c <= 'Z') ||
+				(c >= 'a' && c <= 'z') || c == '-')
+		{
+			ungetc(c, stdin);
+			return(0);
+		}
+	ungetc(c, stdin);
+	return (1);
+}
+
+
+/**
+ **	scan for newline
+ **/
+
+skiptonl(c)
+char	c;
+{
+	while (c != '\n')
+		if (!(c = cgetc(0)))
+			return;
+	ungetc('\n', stdin);
+	return;
+}
+
+
+/**
+ **	test for valid terminator
+ **/
+
+testterm()
+{
+	register char		c;
+
+	if (!(c = cgetc(0)))
+		return (1);
+	if (c == '.')
+		return (0);
+	if (c == '\n' || c == ';')
+		ungetc(c, stdin);
+	return (1);
+}
+
+
+/*
+**  TEST FOR SPECIFIED DELIMETER
+**
+**	The standard input is scanned for the parameter.  If found,
+**	it is thrown away and non-zero is returned.  If not found,
+**	zero is returned.
+*/
+
+readdelim(d)
+char	d;
+{
+	register char	c;
+
+	while (c = cgetc(0))
+	{
+		if (c == d)
+			return (1);
+		if (c == ' ')
+			continue;
+		ungetc(c, stdin);
+		break;
+	}
+	return (0);
+}