source: buchla-68k/orig/LATTICE/PERROR.C@ 7bf3856

Last change on this file since 7bf3856 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.

  • Property mode set to 100755
File size: 744 bytes
Line 
1/*
2 perror.c -- print a system error message
3 Version 1 -- 1988-05-02
4*/
5
6#define CII
7
8/*
9 * Print the error indicated
10 * in the cerror cell.
11 */
12
13#ifdef CII
14#define void int
15extern int errno, s_nerr, strlen(), write();
16extern char *s_errl[];
17#else
18extern int errno, sys_nerr, strlen(), write();
19extern char *sys_errlist[];
20#endif
21
22void
23perror(s)
24char *s;
25{
26 register char *c;
27 register int n;
28
29 c = "Unknown error";
30
31#ifdef CII
32 if(errno < s_nerr)
33 c = s_errl[errno];
34#else
35 if(errno < sys_nerr)
36 c = sys_errlist[errno];
37#endif
38
39 n = strlen(s);
40
41 if(n) {
42 (void) write(2, s, (unsigned)n);
43 (void) write(2, ": ", 2);
44 }
45
46 (void) write(2, c, (unsigned)strlen(c));
47 (void) write(2, "\n", 1);
48}
Note: See TracBrowser for help on using the repository browser.