New directory tree, with preprocessor/ inside interpretor/.

[Faustine.git] / 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 (file)
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;
+       }
+}