last few day's work

[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.2 %G%";

#include	<stdio.h>
#include	<signal.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);
	fputs(msg, stderr);
	perror(fname);
	kill(getpid(), SIGTRAP);
	return 0;
}