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