Imported Upstream version 93u+upstream

1 files changed, 114 insertions, 0 deletions

diff --git a/src/lib/libast/port/astquery.c b/src/lib/libast/port/astquery.c
new file mode 100644
index 0000000..d0d87db
--- /dev/null
+++ b/src/lib/libast/port/astquery.c
@@ -0,0 +1,114 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1985-2011 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                 Glenn Fowler <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                   Phong Vo <kpv@research.att.com>                    *
+*                                                                      *
+***********************************************************************/
+#pragma prototyped
+/*
+ * AT&T Research
+ *
+ * output printf prompt and read response
+ * if format==0 then verify that interaction is possible
+ *
+ * return:
+ *
+ *	0	[1yY+]
+ *	-1	[qQ] or EOF
+ *	1	otherwise
+ *
+ * if (quit&ERROR_PROMPT) then tty forced for IO
+ * if quit>=0 then [qQ] or EOF calls exit(quit)
+ */
+
+#include <ast.h>
+#include <error.h>
+
+int
+astquery(int quit, const char* format, ...)
+{
+	va_list		ap;
+	register int	n;
+	register int	c;
+	int		r;
+	Sfio_t*		ip;
+	Sfio_t*		op;
+
+	static Sfio_t*	rfp;
+	static Sfio_t*	wfp;
+
+	r = 0;
+	va_start(ap, format);
+	if (!format)
+		goto done;
+	r = -1;
+	if (!rfp)
+	{
+		c = errno;
+		if (isatty(sffileno(sfstdin)))
+			rfp = sfstdin;
+		else if (!(rfp = sfopen(NiL, "/dev/tty", "r")))
+			goto done;
+		if (isatty(sffileno(sfstderr)))
+			wfp = sfstderr;
+		else if (!(wfp = sfopen(NiL, "/dev/tty", "w")))
+			goto done;
+		errno = c;
+	}
+	if (quit & ERROR_PROMPT)
+	{
+		quit &= ~ERROR_PROMPT;
+		ip = rfp;
+		op = wfp;
+	}
+	else
+	{
+		ip = sfstdin;
+		op = sfstderr;
+	}
+	sfsync(sfstdout);
+	sfvprintf(op, format, ap);
+	sfsync(op);
+	for (n = c = sfgetc(ip);; c = sfgetc(ip))
+		switch (c)
+		{
+		case EOF:
+			n = c;
+			/*FALLTHROUGH*/
+		case '\n':
+			switch (n)
+			{
+			case EOF:
+			case 'q':
+			case 'Q':
+				if (quit >= 0)
+					exit(quit);
+				goto done;
+			case '1':
+			case 'y':
+			case 'Y':
+			case '+':
+				r = 0;
+				goto done;
+			}
+			return 1;
+		}
+ done:
+	va_end(ap);
+	return r;
+}