/*- * Copyright (c) 1980, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #ifndef lint static char sccsid[] = "@(#)error.c 8.1 (Berkeley) 6/6/93"; #endif /* not lint */ #include "whoami.h" #include "0.h" #ifndef PI1 #include "tree_ty.h" /* must be included for yy.h */ #include "yy.h" #endif char errpfx = 'E'; extern int yyline; /* * Panic is called when impossible * (supposedly, anyways) situations * are encountered. * Panic messages should be short * as they do not go to the message * file. */ panic(s) char *s; { #ifdef DEBUG #ifdef PI1 printf("Snark (%s) line=%d\n", s, line); abort(); #else printf("Snark (%s) line=%d, yyline=%d\n", s, line, yyline); abort () ; /* die horribly */ #endif #endif #ifdef PI1 Perror( "Snark in pi1", s); #else Perror( "Snark in pi", s); #endif pexit(DIED); } /* * Error is called for * semantic errors and * prints the error and * a line number. */ /*VARARGS1*/ error(a1, a2, a3, a4, a5) register char *a1; { char errbuf[256]; /* was extern. why? ...pbk */ register int i; if (errpfx == 'w' && opt('w') != 0) { errpfx = 'E'; return; } Enocascade = FALSE; geterr((int) a1, errbuf); a1 = errbuf; if (line < 0) line = -line; #ifndef PI1 if (opt('l')) yyoutline(); #endif yysetfile(filename); if (errpfx == ' ') { printf(" "); for (i = line; i >= 10; i /= 10) pchr( ' ' ); printf("... "); } else if (Enoline) printf(" %c - ", errpfx); else printf("%c %d - ", errpfx, line); printf(a1, a2, a3, a4, a5); if (errpfx == 'E') #ifndef PI0 eflg = TRUE, codeoff(); #else eflg = TRUE; #endif errpfx = 'E'; if (Eholdnl) Eholdnl = FALSE; else pchr( '\n' ); } /*VARARGS1*/ cerror(a1, a2, a3, a4, a5) char *a1; { if (Enocascade) return; setpfx(' '); error(a1, a2, a3, a4, a5); } #ifdef PI1 /*VARARGS*/ derror(a1, a2, a3, a4, a5) char *a1, *a2, *a3, *a4, *a5; { if (!holdderr) error(a1, a2, a3, a4, a5); errpfx = 'E'; } char *lastname, printed, hadsome; /* * this yysetfile for PI1 only. * the real yysetfile is in yyput.c */ yysetfile(name) char *name; { if (lastname == name) return; printed |= 1; gettime( name ); printf("%s %s:\n" , myctime( &tvec ) , name ); lastname = name; } #endif