Imported Upstream version 93u+upstream

1 files changed, 360 insertions, 0 deletions

diff --git a/src/lib/libast/string/tokscan.c b/src/lib/libast/string/tokscan.c
new file mode 100644
index 0000000..34f6dfc
--- /dev/null
+++ b/src/lib/libast/string/tokscan.c
@@ -0,0 +1,360 @@
+/***********************************************************************
+*                                                                      *
+*               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
+/*
+ * Glenn Fowler
+ * AT&T Research
+ *
+ * scan s for tokens in fmt
+ * s modified in place and not restored
+ * if nxt!=0 then it will point to the first unread char in s
+ * the number of scanned tokens is returned
+ * -1 returned if s was not empty and fmt failed to match
+ *
+ * ' ' in fmt matches 0 or more {space,tab}
+ * '\n' in fmt eats remainder of current line
+ * "..." and '...' quotes interpreted
+ * newline is equivalent to end of buf except when quoted
+ * \\ quotes following char
+ *
+ * message support for %s and %v data
+ *
+ *	(5:12345)		fixed length strings, ) may be \t
+ *	(null)			NiL
+ *
+ * "..." and '...' may span \n, and \\n is the line splice
+ * quoted '\r' translated to '\n'
+ * otherwise tokenizing is unconditionally terminated by '\n'
+ *
+ * a null arg pointer skips that arg
+ *
+ *	%c		char
+ *	%[hl]d		[short|int|long] base 10
+ *	%f		double
+ *	%g		double
+ *	%[hl]n		[short|int|long] C-style base
+ *	%[hl]o		[short|int|long] base 8
+ *	%s		string
+ *	%[hl]u		same as %[hl]n
+ *	%v		argv, elements
+ *	%[hl]x		[short|int|long] base 16
+ *
+ * unmatched char args are set to "", int args to 0
+ */
+
+#include <ast.h>
+#include <tok.h>
+
+static char	empty[1];
+
+/*
+ * get one string token into p
+ */
+
+static char*
+lextok(register char* s, register int c, char** p, int* n)
+{
+	register char*	t;
+	register int	q;
+	char*		b;
+	char*		u;
+
+	if (*s == '(' && (!c || c == ' ' || c == '\n'))
+	{
+		q = strtol(s + 1, &b, 10);
+		if (*b == ':')
+		{
+			if (*(t = ++b + q) == ')' || *t == '\t')
+			{
+				s = t;
+				*s++ = 0;
+				goto end;
+			}
+		}
+		else if (strneq(b, "null)", 5))
+		{
+			s = b + 5;
+			b = 0;
+			goto end;
+		}
+	}
+	b = s;
+	q = 0;
+	t = 0;
+	for (;;)
+	{
+		if (!*s || !q && *s == '\n')
+		{
+			if (!q)
+			{
+				if (!c || c == ' ' || c == '\n') (*n)++;
+				else
+				{
+					s = b;
+					b = empty;
+					break;
+				}
+			}
+			if (t) *t = 0;
+			break;
+		}
+		else if (*s == '\\')
+		{
+			u = s;
+			if (!*++s || *s == '\n' && (!*++s || *s == '\n')) continue;
+			if (p)
+			{
+				if (b == u) b = s;
+				else if (!t) t = u;
+			}
+		}
+		else if (q)
+		{
+			if (*s == q)
+			{
+				q = 0;
+				if (!t) t = s;
+				s++;
+				continue;
+			}
+			else if (*s == '\r') *s = '\n';
+		}
+		else if (*s == '"' || *s == '\'')
+		{
+			q = *s++;
+			if (p)
+			{
+				if (b == (s - 1)) b = s;
+				else if (!t) t = s - 1;
+			}
+			continue;
+		}
+		else if (*s == c || c == ' ' && *s == '\t')
+		{
+			*s++ = 0;
+			if (t) *t = 0;
+		end:
+			if (c == ' ') while (*s == ' ' || *s == '\t') s++;
+			(*n)++;
+			break;
+		}
+		if (t) *t++ = *s;
+		s++;
+	}
+	if (p) *p = b;
+	return(s);
+}
+
+/*
+ * scan entry
+ */
+
+int
+tokscan(register char* s, char** nxt, const char* fmt, ...)
+{
+	register int	c;
+	register char*	f;
+	int		num = 0;
+	char*		skip = 0;
+	int		q;
+	int		onum;
+	long		val;
+	double		dval;
+	va_list		ap;
+	char*		p_char;
+	double*		p_double;
+	int*		p_int;
+	long*		p_long;
+	short*		p_short;
+	char**		p_string;
+	char*		prv_f = 0;
+	va_list		prv_ap;
+
+	va_start(ap, fmt);
+	if (!*s || *s == '\n')
+	{
+		skip = s;
+		s = empty;
+	}
+	f = (char*)fmt;
+	for (;;) switch (c = *f++)
+	{
+	case 0:
+		if (f = prv_f)
+		{
+			prv_f = 0;
+			/* prv_ap value is guarded by prv_f */
+			va_copy(ap, prv_ap);
+			continue;
+		}
+		goto done;
+	case ' ':
+		while (*s == ' ' || *s == '\t') s++;
+		break;
+	case '%':
+		onum = num;
+		switch (c = *f++)
+		{
+		case 'h':
+		case 'l':
+			q = c;
+			c = *f++;
+			break;
+		default:
+			q = 0;
+			break;
+		}
+		switch (c)
+		{
+		case 0:
+		case '%':
+			f--;
+			continue;
+		case ':':
+			prv_f = f;
+			f = va_arg(ap, char*);
+			va_copy(prv_ap, ap);
+			va_copy(ap, va_listval(va_arg(ap, va_listarg)));
+			continue;
+		case 'c':
+			p_char = va_arg(ap, char*);
+			if (!(c = *s) || c == '\n')
+			{
+				if (p_char) *p_char = 0;
+			}
+			else
+			{
+				if (p_char) *p_char = c;
+				s++;
+				num++;
+			}
+			break;
+		case 'd':
+		case 'n':
+		case 'o':
+		case 'u':
+		case 'x':
+			switch (c)
+			{
+			case 'd':
+				c = 10;
+				break;
+			case 'n':
+			case 'u':
+				c = 0;
+				break;
+			case 'o':
+				c = 8;
+				break;
+			case 'x':
+				c = 16;
+				break;
+			}
+			if (!*s || *s == '\n')
+			{
+				val = 0;
+				p_char = s;
+			}
+			else val = strtol(s, &p_char, c);
+			switch (q)
+			{
+			case 'h':
+				if (p_short = va_arg(ap, short*)) *p_short = (short)val;
+				break;
+			case 'l':
+				if (p_long = va_arg(ap, long*)) *p_long = val;
+				break;
+			default:
+				if (p_int = va_arg(ap, int*)) *p_int = (int)val;
+				break;
+			}
+			if (s != p_char)
+			{
+				s = p_char;
+				num++;
+			}
+			break;
+		case 'f':
+		case 'g':
+			if (!*s || *s == '\n')
+			{
+				dval = 0;
+				p_char = s;
+			}
+			else dval = strtod(s, &p_char);
+			if (p_double = va_arg(ap, double*)) *p_double = dval;
+			if (s != p_char)
+			{
+				s = p_char;
+				num++;
+			}
+			break;
+		case 's':
+			p_string = va_arg(ap, char**);
+			if (q = *f) f++;
+			if (!*s || *s == '\n')
+			{
+				if (p_string) *p_string = s;
+			}
+			else s = lextok(s, q, p_string, &num);
+			break;
+		case 'v':
+			p_string = va_arg(ap, char**);
+			c = va_arg(ap, int);
+			if (q = *f) f++;
+			if ((!*s || *s == '\n') && p_string)
+			{
+				*p_string = 0;
+				p_string = 0;
+			}
+			while (*s && *s != '\n' && --c > 0)
+			{
+				s = lextok(s, q, p_string, &num);
+				if (p_string) p_string++;
+			}
+			if (p_string) *p_string = 0;
+			break;
+		}
+		if (skip) num = onum;
+		else if (num == onum)
+		{
+			if (!num) num = -1;
+			skip = s;
+			s = empty;
+		}
+		break;
+	case '\n':
+		goto done;
+	default:
+		if ((*s++ != c) && !skip)
+		{
+			skip = s - 1;
+			s = empty;
+		}
+		break;
+	}
+ done:
+	va_end(ap);
+	if (*s == '\n') *s++ = 0;
+	if (nxt) *nxt = skip ? skip : s;
+	return(num);
+}