From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001
From: cgd <cgd@NetBSD.org>
Date: Sun, 21 Mar 1993 09:45:37 +0000
Subject: initial import of 386bsd-0.1 sources

---
 monop/getinp.c | 116 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 116 insertions(+)
 create mode 100644 monop/getinp.c

(limited to 'monop/getinp.c')

diff --git a/monop/getinp.c b/monop/getinp.c
new file mode 100644
index 00000000..62ea845f
--- /dev/null
+++ b/monop/getinp.c
@@ -0,0 +1,116 @@
+/*
+ * 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[] = "@(#)getinp.c	5.4 (Berkeley) 2/28/91";
+#endif /* not lint */
+
+# include	<stdio.h>
+# include	<ctype.h>
+
+# define	reg	register
+
+# define	LINE	70
+
+static char	buf[257];
+
+getinp(prompt, list)
+char	*prompt, *list[]; {
+
+	reg int	i, n_match, match;
+	char	*sp;
+	int	plen;
+	static int comp();
+
+	for (;;) {
+inter:
+		printf(prompt);
+		for (sp = buf; (*sp=getchar()) != '\n'; )
+			if (*sp == -1)	/* check for interupted system call */
+				goto inter;
+			else if (sp != buf || *sp != ' ')
+				sp++;
+		if (buf[0] == '?' && buf[1] == '\n') {
+			printf("Valid inputs are: ");
+			for (i = 0, match = 18; list[i]; i++) {
+				if ((match+=(n_match=strlen(list[i]))) > LINE) {
+					printf("\n\t");
+					match = n_match + 8;
+				}
+				if (*list[i] == '\0') {
+					match += 8;
+					printf("<RETURN>");
+				}
+				else
+					printf(list[i]);
+				if (list[i+1])
+					printf(", ");
+				else
+					putchar('\n');
+				match += 2;
+			}
+			continue;
+		}
+		*sp = '\0';
+		for (sp = buf; *sp; sp++)
+			if (isupper(*sp))
+				*sp = tolower(*sp);
+		for (i = n_match = 0; list[i]; i++)
+			if (comp(list[i])) {
+				n_match++;
+				match = i;
+			}
+		if (n_match == 1)
+			return match;
+		else if (buf[0] != '\0')
+			printf("Illegal response: \"%s\".  Use '?' to get list of valid answers\n", buf);
+	}
+}
+
+static
+comp(s1)
+char	*s1; {
+
+	reg char	*sp, *tsp, c;
+
+	if (buf[0] != '\0')
+		for (sp = buf, tsp = s1; *sp; ) {
+			c = isupper(*tsp) ? tolower(*tsp) : *tsp;
+			tsp++;
+			if (c != *sp++)
+				return 0;
+		}
+	else if (*s1 != '\0')
+		return 0;
+	return 1;
+}
-- 
cgit v1.2.3