X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/interpreter/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp

diff --git a/interpreter/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp b/interpreter/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp
new file mode 100644
index 0000000..443d085
--- /dev/null
+++ b/interpreter/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;
+	}
+}