Merge branch 'OOP' of https://scm.cri.ensmp.fr/git/Faustine into OOP
[Faustine.git] / interpretor / faust-0.9.47mr3 / compiler / errors / errormsg.cpp
1 /************************************************************************
2 ************************************************************************
3 FAUST compiler
4 Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
5 ---------------------------------------------------------------------
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 ************************************************************************
20 ************************************************************************/
21
22
23
24 #include "errormsg.hh"
25 #include "boxes.hh"
26 #include "ppbox.hh"
27 #include <iostream>
28 using namespace std;
29
30 const char* yyfilename = "????";
31 int gErrorCount = 0;
32 Tree DEFLINEPROP = tree(symbol("DefLineProp"));
33
34 void yyerror(char* msg)
35 {
36 fprintf(stderr, "%s:%d:%s\n", yyfilename, yylineno, msg);
37 gErrorCount++;
38 }
39
40 void evalerror(const char* filename, int linenum, const char* msg, Tree exp)
41 {
42 fprintf(stderr, "%s:%d: ERROR: %s ", filename, linenum, msg);
43 print(exp,stderr); fprintf(stderr, "\n");
44 gErrorCount++;
45 }
46
47 void evalerrorbox(const char* filename, int linenum, const char* msg, Tree exp)
48 {
49 cerr << filename << ':' << linenum << ": ERROR: " << msg << " : " << boxpp(exp) << endl;
50 gErrorCount++;
51 }
52
53 void evalwarning(const char* filename, int linenum, const char* msg, Tree exp)
54 {
55 fprintf(stderr, "%s:%d: WARNING: %s ", filename, linenum, msg);
56 print(exp,stderr); fprintf(stderr, "\n");
57 }
58
59 void evalremark(const char* filename, int linenum, const char* msg, Tree exp)
60 {
61 fprintf(stderr, "%s:%d: REMARK: %s ", filename, linenum, msg);
62 print(exp,stderr); fprintf(stderr, "\n");
63 }
64
65
66 void setDefProp(Tree sym, const char* filename, int lineno)
67 {
68 setProperty(sym, DEFLINEPROP, cons(tree(filename), tree(lineno)));
69 }
70
71
72 const char* getDefFileProp(Tree sym)
73 {
74 Tree n;
75 if (getProperty(sym, DEFLINEPROP, n)) {
76 return name(hd(n)->node().getSym());
77 } else {
78 return "????";
79 }
80 }
81
82 int getDefLineProp(Tree sym)
83 {
84 Tree n;
85 if (getProperty(sym, DEFLINEPROP, n)) {
86 return tl(n)->node().getInt();
87 } else {
88 return -1;
89 }
90 }