diff options
Diffstat (limited to 'usr.bin/f2c/error.c')
-rw-r--r-- | usr.bin/f2c/error.c | 347 |
1 files changed, 0 insertions, 347 deletions
diff --git a/usr.bin/f2c/error.c b/usr.bin/f2c/error.c deleted file mode 100644 index 0899d82..0000000 --- a/usr.bin/f2c/error.c +++ /dev/null @@ -1,347 +0,0 @@ -/**************************************************************** -Copyright 1990, 1993, 1994 by AT&T, Lucent Technologies and Bellcore. - -Permission to use, copy, modify, and distribute this software -and its documentation for any purpose and without fee is hereby -granted, provided that the above copyright notice appear in all -copies and that both that the copyright notice and this -permission notice and warranty disclaimer appear in supporting -documentation, and that the names of AT&T, Bell Laboratories, -Lucent or Bellcore or any of their entities not be used in -advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -AT&T, Lucent and Bellcore disclaim all warranties with regard to -this software, including all implied warranties of -merchantability and fitness. In no event shall AT&T, Lucent or -Bellcore be liable for any special, indirect or consequential -damages or any damages whatsoever resulting from loss of use, -data or profits, whether in an action of contract, negligence or -other tortious action, arising out of or in connection with the -use or performance of this software. -****************************************************************/ - -#include "defs.h" - - void -#ifdef KR_headers -warni(s, t) - char *s; - int t; -#else -warni(char *s, int t) -#endif -{ - char buf[100]; - sprintf(buf,s,t); - warn(buf); - } - - void -#ifdef KR_headers -warn1(s, t) - char *s; - char *t; -#else -warn1(char *s, char *t) -#endif -{ - char buff[100]; - sprintf(buff, s, t); - warn(buff); -} - - void -#ifdef KR_headers -warn(s) - char *s; -#else -warn(char *s) -#endif -{ - if(nowarnflag) - return; - if (infname && *infname) - fprintf(diagfile, "Warning on line %ld of %s: %s\n", - lineno, infname, s); - else - fprintf(diagfile, "Warning on line %ld: %s\n", lineno, s); - fflush(diagfile); - ++nwarn; -} - - void -#ifdef KR_headers -errstr(s, t) - char *s; - char *t; -#else -errstr(char *s, char *t) -#endif -{ - char buff[100]; - sprintf(buff, s, t); - err(buff); -} - - - void -#ifdef KR_headers -erri(s, t) - char *s; - int t; -#else -erri(char *s, int t) -#endif -{ - char buff[100]; - sprintf(buff, s, t); - err(buff); -} - - void -#ifdef KR_headers -errl(s, t) - char *s; - long t; -#else -errl(char *s, long t) -#endif -{ - char buff[100]; - sprintf(buff, s, t); - err(buff); -} - - char *err_proc = 0; - - void -#ifdef KR_headers -err(s) - char *s; -#else -err(char *s) -#endif -{ - if (err_proc) - fprintf(diagfile, - "Error processing %s before line %ld", - err_proc, lineno); - else - fprintf(diagfile, "Error on line %ld", lineno); - if (infname && *infname) - fprintf(diagfile, " of %s", infname); - fprintf(diagfile, ": %s\n", s); - fflush(diagfile); - ++nerr; -} - - void -#ifdef KR_headers -yyerror(s) - char *s; -#else -yyerror(char *s) -#endif -{ - err(s); -} - - - void -#ifdef KR_headers -dclerr(s, v) - char *s; - Namep v; -#else -dclerr(char *s, Namep v) -#endif -{ - char buff[100]; - - if(v) - { - sprintf(buff, "Declaration error for %s: %s", v->fvarname, s); - err(buff); - } - else - errstr("Declaration error %s", s); -} - - - void -#ifdef KR_headers -execerr(s, n) - char *s; - char *n; -#else -execerr(char *s, char *n) -#endif -{ - char buf1[100], buf2[100]; - - sprintf(buf1, "Execution error %s", s); - sprintf(buf2, buf1, n); - err(buf2); -} - - - void -#ifdef KR_headers -Fatal(t) - char *t; -#else -Fatal(char *t) -#endif -{ - fprintf(diagfile, "Compiler error line %ld", lineno); - if (infname) - fprintf(diagfile, " of %s", infname); - fprintf(diagfile, ": %s\n", t); - done(3); -} - - - - void -#ifdef KR_headers -fatalstr(t, s) - char *t; - char *s; -#else -fatalstr(char *t, char *s) -#endif -{ - char buff[100]; - sprintf(buff, t, s); - Fatal(buff); -} - - - void -#ifdef KR_headers -fatali(t, d) - char *t; - int d; -#else -fatali(char *t, int d) -#endif -{ - char buff[100]; - sprintf(buff, t, d); - Fatal(buff); -} - - - void -#ifdef KR_headers -badthing(thing, r, t) - char *thing; - char *r; - int t; -#else -badthing(char *thing, char *r, int t) -#endif -{ - char buff[50]; - sprintf(buff, "Impossible %s %d in routine %s", thing, t, r); - Fatal(buff); -} - - - void -#ifdef KR_headers -badop(r, t) - char *r; - int t; -#else -badop(char *r, int t) -#endif -{ - badthing("opcode", r, t); -} - - - void -#ifdef KR_headers -badtag(r, t) - char *r; - int t; -#else -badtag(char *r, int t) -#endif -{ - badthing("tag", r, t); -} - - - - - void -#ifdef KR_headers -badstg(r, t) - char *r; - int t; -#else -badstg(char *r, int t) -#endif -{ - badthing("storage class", r, t); -} - - - - void -#ifdef KR_headers -badtype(r, t) - char *r; - int t; -#else -badtype(char *r, int t) -#endif -{ - badthing("type", r, t); -} - - void -#ifdef KR_headers -many(s, c, n) - char *s; - char c; - int n; -#else -many(char *s, char c, int n) -#endif -{ - char buff[250]; - - sprintf(buff, - "Too many %s.\nTable limit now %d.\nTry rerunning with the -N%c%d option.\n", - s, n, c, 2*n); - Fatal(buff); -} - - void -#ifdef KR_headers -err66(s) - char *s; -#else -err66(char *s) -#endif -{ - errstr("Fortran 77 feature used: %s", s); - --nerr; -} - - - void -#ifdef KR_headers -errext(s) - char *s; -#else -errext(char *s) -#endif -{ - errstr("f2c extension used: %s", s); - --nerr; -} |