[unix-history] / usr / src / usr.bin / pascal / libpc / PERROR.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)PERROR.c 1.1 %G%";

#include	<stdio.h>
#include	<signal.h>
#include	"h00vars.h"

/*
 * Routine PERROR is called from the runtime library when a runtime
 * I/O error occurs. Its arguments are a pointer to an error message and 
 * the name of the offending file.
 */
long
PERROR(msg, fname)

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