1*3870Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*3870Smckusick 
3*3870Smckusick static char sccsid[] = "@(#)PERROR.c 1.1 06/10/81";
4*3870Smckusick 
5*3870Smckusick #include	<stdio.h>
6*3870Smckusick #include	<signal.h>
7*3870Smckusick #include	"h00vars.h"
8*3870Smckusick 
9*3870Smckusick /*
10*3870Smckusick  * Routine PERROR is called from the runtime library when a runtime
11*3870Smckusick  * I/O error occurs. Its arguments are a pointer to an error message and
12*3870Smckusick  * the name of the offending file.
13*3870Smckusick  */
14*3870Smckusick long
15*3870Smckusick PERROR(msg, fname)
16*3870Smckusick 
17*3870Smckusick 	char	*msg, *fname;
18*3870Smckusick {
19*3870Smckusick 	PFLUSH();
20*3870Smckusick 	fputc('\n',stderr);
21*3870Smckusick 	SETRACE();
22*3870Smckusick 	fputs(msg, stderr);
23*3870Smckusick 	perror(fname);
24*3870Smckusick 	return 0;
25*3870Smckusick }
26