--- /dev/null
+/************************************************************************
+ ************************************************************************
+ 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;
+ }
+}