Imported Upstream version 93u+upstream

1 files changed, 139 insertions, 0 deletions

diff --git a/src/lib/libast/comp/wc.c b/src/lib/libast/comp/wc.c
new file mode 100644
index 0000000..521b55a
--- /dev/null
+++ b/src/lib/libast/comp/wc.c
@@ -0,0 +1,139 @@
+/***********************************************************************
+*                                                                      *
+*               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
+
+/*
+ * NOTE: mbs* and wcs* are provided to avoid link errors only
+ */
+
+#include <ast.h>
+#include <wchar.h>
+
+#define STUB	1
+
+#if !_lib_mbtowc
+#undef	STUB
+size_t
+mbtowc(wchar_t* t, const char* s, size_t n)
+{
+	if (t && n > 0)
+		*t = *s;
+	return 1;
+}
+#endif
+
+#if !_lib_mbrtowc
+#undef	STUB
+size_t
+mbrtowc(wchar_t* t, const char* s, size_t n, mbstate_t* q)
+{
+#if _lib_mbtowc
+#undef	STUB
+	memset(q, 0, sizeof(*q));
+	return mbtowc(t, s, n);
+#else
+	*q = 0;
+	if (t && n > 0)
+		*t = *s;
+	return 1;
+#endif
+}
+#endif
+
+#if !_lib_mbstowcs
+#undef	STUB
+size_t
+mbstowcs(wchar_t* t, const char* s, size_t n)
+{
+	register wchar_t*	p = t;
+	register wchar_t*	e = t + n;
+	register unsigned char*	u = (unsigned char*)s;
+
+	if (t)
+		while (p < e && (*p++ = *u++));
+	else
+		while (p++, *u++);
+	return p - t;
+}
+#endif
+
+#if !_lib_wctomb
+#undef	STUB
+int
+wctomb(char* s, wchar_t c)
+{
+	if (s)
+		*s = c;
+	return 1;
+}
+#endif
+
+#if !_lib_wcrtomb
+#undef	STUB
+size_t
+wcrtomb(char* s, wchar_t c, mbstate_t* q)
+{
+#if _lib_wctomb
+#undef	STUB
+	memset(q, 0, sizeof(*q));
+	return wctomb(s, c);
+#else
+	if (s)
+		*s = c;
+	*q = 0;
+	return 1;
+#endif
+}
+#endif
+
+#if !_lib_wcslen
+#undef	STUB
+size_t
+wcslen(const wchar_t* s)
+{
+	register const wchar_t*	p = s;
+
+	while (*p)
+		p++;
+	return p - s;
+}
+#endif
+
+#if !_lib_wcstombs
+#undef	STUB
+size_t
+wcstombs(char* t, register const wchar_t* s, size_t n)
+{
+	register char*		p = t;
+	register char*		e = t + n;
+
+	if (t)
+		while (p < e && (*p++ = *s++));
+	else
+		while (p++, *s++);
+	return p - t;
+}
+#endif
+
+#if STUB
+NoN(wc)
+#endif