123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- #ifndef NORCSID
- static char rcsid[]= "$Header$";
- #endif
- #include <stdio.h>
- int nerrors=0;
- yyerror(s) char *s; {
- error("Parser gives %s",s);
- }
- goodbye() {
- error("This was fatal, goodbye!");
- #ifndef NDEBUG
- abort();
- #endif
- }
- /*VARARGS1*/
- fatal(s,a,b,c,d) char *s; {
- error(s,a,b,c,d);
- errorexit();
- goodbye();
- exit(-1);
- }
- /*VARARGS1*/
- error(s,a,b,c,d) char *s; {
- extern int lineno;
- extern char *filename;
- fprintf(stderr,"\"%s\", line %d:",filename,lineno);
- fprintf(stderr,s,a,b,c,d);
- fprintf(stderr,"\n");
- nerrors++;
- }
- #ifndef NDEBUG
- badassertion(string,file,line) char *string,*file; {
- fprintf(stderr,"\"%s\", line %d: Assertion failed \"%s\"\n",
- file,line,string);
- goodbye();
- }
- #endif
- tabovf(string) char *string; {
- fatal("%s overflow",string);
- }
|