1 files changed, 78 insertions, 0 deletions
diff --git a/private/crt32/misc/perror.c b/private/crt32/misc/perror.c
new file mode 100644
index 000000000..9e41b1c7a
--- /dev/null
+++ b/private/crt32/misc/perror.c
@@ -0,0 +1,78 @@
+/***
+*perror.c - print system error message
+*
+*	Copyright (c) 1985-1992, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	defines perror() - print system error message
+*	System error message are indexed by errno; conforms to XENIX
+*	standard, with much compatability with 1983 uniforum draft standard.
+*
+*Revision History:
+*	09-02-83  RN	initial version
+*	04-13-87  JCR	added const to declaration
+*	12-11-87  JCR	Added "_LOAD_DS" to declaration
+*	12-29-87  JCR	Multi-thread support
+*	05-31-88  PHG	Merged DLL and normal versions
+*	06-03-88  JCR	Added <io.h> to so _write_lk evaluates correctly and
+*			added (char *)message casts to get rid of warnings
+*	03-15-90  GJF	Replace _LOAD_DS with _CALLTYPE1, added #include
+*			<cruntime.h>, removed #include <register.h> and fixed
+*			the copyright. Also, cleaned up the formatting a bit.
+*	04-05-90  GJF	Added #include <string.h>.
+*	08-14-90  SBM	Removed unneeded #include <errmsg.h>
+*	10-04-90  GJF	New-style function declarator.
+*	08-26-92  GJF	Include unistd.h for POSIX build.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#ifdef	_POSIX_
+#include <unistd.h>
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <syserr.h>
+#include <os2dll.h>
+#include <io.h>
+
+/***
+*void perror(message) - print system error message
+*
+*Purpose:
+*	prints user's error message, then follows it with ": ", then the system
+*	error message, then a newline.	All output goes to stderr.  If user's
+*	message is NULL or a null string, only the system error message is
+*	printer.  If errno is weird, prints "Unknown error".
+*
+*Entry:
+*	const char *message - users message to prefix system error message
+*
+*Exit:
+*	Prints message; no return value.
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+void _CALLTYPE1 perror (
+	REG1 const char *message
+	)
+{
+	REG2 int fh = 2;
+
+	_lock_fh(fh);		/* acquire file handle lock */
+
+	if (message && *message)
+	{
+		_write_lk(fh,(char *)message,strlen(message));
+		_write_lk(fh,": ",2);
+	}
+
+	message = _sys_err_msg( errno );
+	_write_lk(fh,(char *)message,strlen(message));
+	_write_lk(fh,"\n",1);
+
+	_unlock_fh(fh); 	/* release file handle lock */
+}