X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/c7f552fd8888da2f0d8cfb228fe0f28d3df3a12c..b4b6f2ea75b9f0f3ca918f5b84016610bf7a4d4f:/interpretor/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp b/interpretor/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp
new file mode 100644
index 0000000..443d085
--- /dev/null
+++ b/interpretor/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp
@@ -0,0 +1,90 @@
+/************************************************************************
+ ************************************************************************
+    FAUST compiler
+	Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
+    ---------------------------------------------------------------------
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ ************************************************************************
+ ************************************************************************/
+ 
+ 
+ 
+#include "errormsg.hh"
+#include "boxes.hh"
+#include "ppbox.hh"
+#include <iostream>
+using namespace std;
+
+const char* yyfilename = "????";
+int 		gErrorCount = 0;
+Tree 		DEFLINEPROP = tree(symbol("DefLineProp"));
+
+void yyerror(char* msg) 
+{ 
+	fprintf(stderr, "%s:%d:%s\n", yyfilename, yylineno, msg); 
+	gErrorCount++;
+}
+
+void evalerror(const char* filename, int linenum, const char* msg, Tree exp)
+{
+    fprintf(stderr, "%s:%d: ERROR: %s ", filename, linenum, msg); 
+    print(exp,stderr); fprintf(stderr, "\n");
+    gErrorCount++;
+}
+
+void evalerrorbox(const char* filename, int linenum, const char* msg, Tree exp)
+{
+    cerr << filename << ':' << linenum << ": ERROR: " << msg << " : " << boxpp(exp) << endl;
+    gErrorCount++;
+}
+
+void evalwarning(const char* filename, int linenum, const char* msg, Tree exp)
+{
+	fprintf(stderr, "%s:%d: WARNING: %s ", filename, linenum, msg); 
+	print(exp,stderr); fprintf(stderr, "\n");
+}
+
+void evalremark(const char* filename, int linenum, const char* msg, Tree exp)
+{
+	fprintf(stderr, "%s:%d: REMARK: %s ", filename, linenum, msg); 
+	print(exp,stderr); fprintf(stderr, "\n");
+}
+
+
+void setDefProp(Tree sym, const char* filename, int lineno)
+{
+	setProperty(sym, DEFLINEPROP, cons(tree(filename), tree(lineno)));
+}
+
+
+const char* getDefFileProp(Tree sym)
+{
+	Tree n;
+	if (getProperty(sym, DEFLINEPROP, n)) {
+		return name(hd(n)->node().getSym());
+	} else {
+		return "????";
+	}
+}
+
+int getDefLineProp(Tree sym)
+{
+	Tree n;
+	if (getProperty(sym, DEFLINEPROP, n)) {
+		return tl(n)->node().getInt();
+	} else {
+		return -1;
+	}
+}