Imported Upstream version 93u+upstream

1 files changed, 204 insertions, 0 deletions

diff --git a/src/lib/libast/string/strtoip6.c b/src/lib/libast/string/strtoip6.c
new file mode 100644
index 0000000..ff1c652
--- /dev/null
+++ b/src/lib/libast/string/strtoip6.c
@@ -0,0 +1,204 @@
+/***********************************************************************
+*                                                                      *
+*               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
+
+#if _PACKAGE_ast
+#include <ast.h>
+#else
+#include <stdint.h>
+#endif
+
+#include <ctype.h>
+#include <ip6.h>
+
+/*
+ * convert string to ipv6 network byte order ip address
+ * with optional prefix bits
+ * pointer to first unused char placed in *e, even on error
+ * return 0:ok <0:error
+ */
+
+#define COL		16
+#define DOT		17
+#define END		18
+#define PFX		19
+
+int
+strtoip6(register const char* s, char** e, unsigned char* addr, unsigned char* bits)
+{
+	register unsigned char*	b = addr;
+	register unsigned char*	x = b + IP6ADDR;
+	register unsigned char*	z;
+	register int		c;
+	register uint32_t	a;
+
+	static unsigned char	lex[256];
+
+	if (!lex[0])
+	{
+		for (c = 0; c < sizeof(lex); ++c)
+			lex[c] = END;
+		lex['0'] = 0;
+		lex['1'] = 1;
+		lex['2'] = 2;
+		lex['3'] = 3;
+		lex['4'] = 4;
+		lex['5'] = 5;
+		lex['6'] = 6;
+		lex['7'] = 7;
+		lex['8'] = 8;
+		lex['9'] = 9;
+		lex['A'] = lex['a'] = 10;
+		lex['B'] = lex['b'] = 11;
+		lex['C'] = lex['c'] = 12;
+		lex['D'] = lex['d'] = 13;
+		lex['E'] = lex['e'] = 14;
+		lex['F'] = lex['f'] = 15;
+		lex[':'] = COL;
+		lex['.'] = DOT;
+		lex['/'] = PFX;
+	}
+	while (isspace(*s))
+		s++;
+	z = 0;
+	a = 0;
+	if (*s)
+		for (;;)
+		{
+			switch (c = lex[*((unsigned char*)s++)])
+			{
+			case END:
+			case PFX:
+				if ((x - b) < 2)
+					break;
+				*b++ = a>>8;
+				*b++ = a;
+				break;
+			case COL:
+				if ((x - b) < 2)
+					break;
+				*b++ = a>>8;
+				*b++ = a;
+				a = 0;
+				if (*s == ':')
+				{
+					if (z)
+					{
+						s--;
+						break;
+					}
+					z = b;
+					if ((c = lex[*((unsigned char*)++s)]) >= 16)
+					{
+						s++;
+						break;
+					}
+				}
+				continue;
+			case DOT:
+				if (b >= x)
+				{
+					s--;
+					break;
+				}
+				*b++ = ((a >> 8) & 0xf) * 100 + ((a >> 4) & 0xf) * 10 + (a & 0xf);
+				a = 0;
+				for (;;)
+				{
+					switch (c = lex[*((unsigned char*)s++)])
+					{
+					case COL:
+					case END:
+					case PFX:
+						if (b < x)
+							*b++ = a;
+						a = 0;
+						break;
+					case DOT:
+						if (b >= x)
+							break;
+						*b++ = a;
+						a = 0;
+						continue;
+					default:
+						a = (a * 10) + c;
+						continue;
+					}
+					break;
+				}
+				if (c == COL)
+				{
+					if (*s == ':')
+					{
+						if (z)
+						{
+							s--;
+							break;
+						}
+						z = b;
+						if ((c = lex[*((unsigned char*)++s)]) >= 16)
+						{
+							s++;
+							break;
+						}
+					}
+					if ((b - addr) == 6 && addr[0] == 0x20 && addr[1] == 0x02)
+						continue;
+				}
+				break;
+			default:
+				a = (a << 4) | c;
+				continue;
+			}
+			break;
+		}
+	if (b == addr)
+		c = END + 1;
+	else
+	{
+		if (z)
+		{
+			while (b > z)
+				*--x = *--b;
+			while (x > z)
+				*--x = 0;
+		}
+		else
+			while (b < x)
+				*b++ = 0;
+		if (bits)
+		{
+			if (c == PFX)
+			{
+				a = 0;
+				while ((c = lex[*((unsigned char*)s++)]) < 10)
+					a = a * 10 + c;
+			}
+			else
+				a = 0xff;
+			*bits = a;
+		}
+	}
+	if (e)
+		*e = (char*)(s - 1);
+	return c == END ? 0 : -1;
+}