Move dstool_oss to ydb/apps/dstool.

1 files changed, 347 insertions, 0 deletions

diff --git a/contrib/tools/f2c/src/error.c b/contrib/tools/f2c/src/error.c
new file mode 100644
index 0000000000..d0064f0302
--- /dev/null
+++ b/contrib/tools/f2c/src/error.c
@@ -0,0 +1,347 @@
+/****************************************************************
+Copyright 1990, 1993, 1994, 2000 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(const char *s, const 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(const char *s, const 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(const 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;
+}