DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦7bd943199⟧ TextFile

    Length: 388 (0x184)
    Types: TextFile
    Notes: UNIX file
    Names: »perror.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »libc/gen/perror.c«

TextFile

/*
 * Print error messages based on value in `errno'.
 */

#include <stdio.h>

extern	int	errno;
extern	char	*sys_errlist[];
extern	int	sys_nerr;

perror(s)
register char *s;
{
	register char *es;

	if (errno < sys_nerr)
		es = sys_errlist[errno]; else
		es = "Bad error number";
	if (s != NULL) {
		fputs(s, stderr);
		fputs(": ", stderr);
	}
	fputs(es, stderr);
	fputs("\n", stderr);
}