Imported Upstream version 93u+upstream

1 files changed, 129 insertions, 0 deletions

diff --git a/src/lib/libast/misc/optjoin.c b/src/lib/libast/misc/optjoin.c
new file mode 100644
index 0000000..1648dec
--- /dev/null
+++ b/src/lib/libast/misc/optjoin.c
@@ -0,0 +1,129 @@
+/***********************************************************************
+*                                                                      *
+*               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
+ *
+ * multi-pass commmand line option parse assist
+ *
+ *	int fun(char** argv, int last)
+ *
+ * each fun() argument parses as much of argv as
+ * possible starting at (opt_info.index,opt_info.offset) using
+ * optget()
+ *
+ * if last!=0 then fun is the last pass to view
+ * the current arg, otherwise fun sets opt_info.again=1
+ * and another pass will get a crack at it
+ *
+ * 0 fun() return causes immediate optjoin() 0 return
+ *
+ * optjoin() returns non-zero if more args remain
+ * to be parsed at opt_info.index
+ */
+
+#include <optlib.h>
+
+typedef int (*Optpass_f)(char**, int);
+
+int
+optjoin(char** argv, ...)
+{
+	va_list			ap;
+	register Optpass_f	fun;
+	register Optpass_f	rep;
+	Optpass_f		err;
+	Optstate_t*		state;
+	int			r;
+	int			more;
+	int			user;
+	int			last_index;
+	int			last_offset;
+	int			err_index;
+	int			err_offset;
+
+	state = optstate(&opt_info);
+	err = rep = 0;
+	r = -1;
+	while (r < 0)
+	{
+		va_start(ap, argv);
+		state->join = 0;
+		while (fun = va_arg(ap, Optpass_f))
+		{
+			last_index = opt_info.index;
+			last_offset = opt_info.offset;
+			state->join++;
+			user = (*fun)(argv, 0);
+			more = argv[opt_info.index] != 0;
+			if (!opt_info.again)
+			{
+				if (!more)
+				{
+					state->join = 0;
+					r = 0;
+					break;
+				}
+				if (!user)
+				{
+					if (*argv[opt_info.index] != '+')
+					{
+						state->join = 0;
+						r = 1;
+						break;
+					}
+					opt_info.again = -1;
+				}
+				else
+					err = 0;
+			}
+			if (opt_info.again)
+			{
+				if (opt_info.again > 0 && (!err || err_index < opt_info.index || err_index == opt_info.index && err_offset < opt_info.offset))
+				{
+					err = fun;
+					err_index = opt_info.index;
+					err_offset = opt_info.offset;
+				}
+				opt_info.again = 0;
+				opt_info.index = state->pindex ? state->pindex : 1;
+				opt_info.offset = state->poffset;
+			}
+			if (!rep || opt_info.index != last_index || opt_info.offset != last_offset)
+				rep = fun;
+			else if (fun == rep)
+			{
+				if (!err)
+				{
+					state->join = 0;
+					r = 1;
+					break;
+				}
+				(*err)(argv, 1);
+				opt_info.offset = 0;
+			}
+		}
+		va_end(ap);
+	}
+	return r;
+}