1*1974Swnj /* @(#)perror.c 4.1 (Berkeley) 12/21/80 */ 2*1974Swnj /* 3*1974Swnj * Print the error indicated 4*1974Swnj * in the cerror cell. 5*1974Swnj */ 6*1974Swnj 7*1974Swnj int errno; 8*1974Swnj int sys_nerr; 9*1974Swnj char *sys_errlist[]; 10*1974Swnj perror(s) 11*1974Swnj char *s; 12*1974Swnj { 13*1974Swnj register char *c; 14*1974Swnj register n; 15*1974Swnj 16*1974Swnj c = "Unknown error"; 17*1974Swnj if(errno < sys_nerr) 18*1974Swnj c = sys_errlist[errno]; 19*1974Swnj n = strlen(s); 20*1974Swnj if(n) { 21*1974Swnj write(2, s, n); 22*1974Swnj write(2, ": ", 2); 23*1974Swnj } 24*1974Swnj write(2, c, strlen(c)); 25*1974Swnj write(2, "\n", 1); 26*1974Swnj } 27