X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/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 deleted file mode 100644 index 443d085..0000000 --- a/interpretor/preprocessor/faust-0.9.47mr3/compiler/errors/errormsg.cpp +++ /dev/null @@ -1,90 +0,0 @@ -/************************************************************************ - ************************************************************************ - 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 -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; - } -}