projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
date and time created 80/12/21 16:39:58 by wnj
[unix-history]
/
usr
/
src
/
lib
/
libc
/
stdio
/
perror.c
/* @(#)perror.c 4.1 (Berkeley) %G% */
/*
* Print the error indicated
* in the cerror cell.
*/
int
errno
;
int
sys_nerr
;
char
*
sys_errlist
[];
perror
(
s
)
char
*
s
;
{
register
char
*
c
;
register
n
;
c
=
"Unknown error"
;
if
(
errno
<
sys_nerr
)
c
=
sys_errlist
[
errno
];
n
=
strlen
(
s
);
if
(
n
) {
write
(
2
,
s
,
n
);
write
(
2
,
": "
,
2
);
}
write
(
2
,
c
,
strlen
(
c
));
write
(
2
,
"
\n
"
,
1
);
}