Imported Upstream version 93u+upstream

1 files changed, 148 insertions, 0 deletions

diff --git a/src/lib/libast/string/strerror.c b/src/lib/libast/string/strerror.c
new file mode 100644
index 0000000..1664126
--- /dev/null
+++ b/src/lib/libast/string/strerror.c
@@ -0,0 +1,148 @@
+/***********************************************************************
+*                                                                      *
+*               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
+ *
+ * return error message string given errno
+ */
+
+#include "lclib.h"
+
+#include "FEATURE/errno"
+
+#undef	strerror
+
+#if !defined(sys_errlist) && !_def_errno_sys_errlist
+#if _dat_sys_errlist
+extern char*	sys_errlist[];
+#else
+#undef		_dat_sys_nerr
+char*		sys_errlist[] = { 0 };
+#endif
+#endif
+
+#if !defined(sys_nerr) && !_def_errno_sys_nerr
+#if _dat_sys_nerr
+extern int	sys_nerr;
+#else
+#undef		_dat_sys_nerr
+int		sys_nerr = 0;
+#endif
+#endif
+
+#if _lib_strerror
+extern char*	strerror(int);
+#endif
+
+#if _PACKAGE_astsa
+
+#define fmtbuf(n)	((n),tmp)
+
+static char		tmp[32];
+
+#endif
+
+char*
+_ast_strerror(int err)
+{
+	char*		msg;
+	int		z;
+
+#if _lib_strerror
+	z = errno;
+	msg = strerror(err);
+	errno = z;
+#else
+	if (err > 0 && err <= sys_nerr)
+		msg = (char*)sys_errlist[err];
+	else
+		msg = 0;
+#endif
+	if (msg)
+	{
+#if !_PACKAGE_astsa
+		if (ERROR_translating())
+		{
+#if _lib_strerror
+			static int	sys;
+
+			if (!sys)
+			{
+				char*	s;
+				char*	t;
+				char*	p;
+
+#if _lib_strerror
+				/*
+				 * stash the pending strerror() msg
+				 */
+
+				msg = strcpy(fmtbuf(strlen(msg) + 1), msg);
+#endif
+
+				/*
+				 * make sure that strerror() translates
+				 */
+
+				if (!(s = strerror(1)))
+					sys = -1;
+				else
+				{
+					t = fmtbuf(z = strlen(s) + 1);
+					strcpy(t, s);
+					ast.locale.set |= AST_LC_internal;
+					p = setlocale(LC_MESSAGES, NiL);
+					setlocale(LC_MESSAGES, "C");
+					sys = (s = strerror(1)) && strcmp(s, t) ? 1 : -1;
+					setlocale(LC_MESSAGES, p);
+					ast.locale.set &= ~AST_LC_internal;
+				}
+			}
+			if (sys > 0)
+				return msg;
+#endif
+			return ERROR_translate(NiL, NiL, "errlist", msg);
+		}
+#endif
+		return msg;
+	}
+	msg = fmtbuf(z = 32);
+	sfsprintf(msg, z, ERROR_translate(NiL, NiL, "errlist", "Error %d"), err);
+	return msg;
+}
+
+#if !_lib_strerror
+
+#if defined(__EXPORT__)
+#define extern		__EXPORT__
+#endif
+
+extern char*
+strerror(int err)
+{
+	return _ast_strerror(err);
+}
+
+#endif