Research V5 development

Work on file usr/source/s4/perror.c

Co-Authored-By: Dennis Ritchie <dmr@research.uucp>
Synthesized-from: v5

diff --git a/usr/source/s4/perror.c b/usr/source/s4/perror.c
new file mode 100644 (file)
index 0000000..e9e6dc1
--- /dev/null
+++ b/usr/source/s4/perror.c
@@ -0,0 +1,15 @@
+int    errno;
+int    sys_nerr;
+char   *sys_errlist[];
+perror(s)
+char *s;
+{
+       char *c;
+
+       c = "Unknown error";
+       if(errno < sys_nerr)
+               c = sys_errlist[errno];
+       if(*s == '\0')
+               printf("%s", c); else
+               printf("%s: %s\n", s, c);
+}