/* Copyright (c) 1979 Regents of the University of California */ # /* * pi - Pascal interpreter code translator * * Charles Haley, Bill Joy UCB * Version 1.2 January 1979 */ #include "0.h" #ifndef PI1 #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); #endif #endif #ifdef PI1 Perror( "Snark in pi1", s); #else Perror( "Snark in pi", s); #endif pexit(DIED); } extern char *errfile; /* * Error is called for * semantic errors and * prints the error and * a line number. */ error(a1, a2, a3, a4) register char *a1; { char buf[256]; register int i; if (errpfx == 'w' && opt('w') != 0) return; Enocascade = 0; geterr(a1, buf); a1 = buf; if (line < 0) line = -line; #ifndef PI1 if (opt('l')) yyoutline(); #endif yysetfile(filename); if (errpfx == ' ') { printf(" "); for (i = line; i >= 10; i =/ 10) putchar(' '); printf("... "); } else if (Enoline) printf(" %c - ", errpfx); else printf("%c %d - ", errpfx, line); printf(a1, a2, a3, a4); if (errpfx == 'E') #ifndef PI0 eflg++, cgenflg++; #else eflg++; #endif errpfx = 'E'; if (Eholdnl) Eholdnl = 0; else putchar('\n'); } cerror(a1, a2, a3, a4) { if (Enocascade) return; setpfx(' '); error(a1, a2, a3, a4); } #ifdef PI1 derror(a1, a2, a3, a4) { if (!holdderr) error(a1, a2, a3, a4); errpfx = 'E'; } char *lastname, printed, hadsome; yysetfile(name) char *name; { if (lastname == name) return; printed =| 1; printf("%s:\n", name); lastname = name; } #endif