Recompile and test of the master branch.
[Faustine.git] / interpretor / faust-0.9.47mr3 / compiler / utils / names.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 * \file eval.cpp
25 * Interface for names propagation.
26 *
27 **/
28
29
30 #include "ppsig.hh"
31 #include "names.hh"
32 #include "property.hh"
33 #include "ppsig.hh"
34 #include "doc_Text.hh"
35 #include "Text.hh"
36 #include <assert.h>
37
38
39 // History
40 // 2009/09/08 : get/setDefNameProperty
41
42
43 extern int gMaxNameSize;
44
45
46 /**
47 * Definition name property : a property to keep track of the definition name
48 * of an expression. Whenever an identifier is evaluated, it is attached as a
49 * property of its definitionObviously there is no perfect solution since a same
50 * definition quand be given to different names.
51 */
52 Tree DEFNAMEPROPERTY = tree(symbol("DEFNAMEPROPERTY"));
53
54 void setDefNameProperty(Tree t, Tree id)
55 {
56 //cerr << "setDefNameProperty : " << *id << " FOR " << t << "#" << boxpp(t) << endl;
57 setProperty(t, DEFNAMEPROPERTY, id);
58 }
59
60 void setDefNameProperty(Tree t, const string& name)
61 {
62 //cerr << "setDefNameProperty : " << name << " FOR " << t << "#" << boxpp(t) << endl;
63 int n = name.size();
64 int m = (gMaxNameSize>1023) ? 1023 : gMaxNameSize;
65 if (n > m) {
66 // the name is too long we reduce it to 2/3 of maxsize
67 char buf[1024];
68 int i = 0;
69 // copy first third
70 for (; i < m/3; i++) { buf[i] = name[i]; }
71 // add ...
72 buf[i++] = '.';
73 buf[i++] = '.';
74 buf[i++] = '.';
75 // copy last third
76 for (int c = n-m/3; c<n; c++, i++) { buf[i] = name[c]; }
77 buf[i] = 0;
78 setProperty(t, DEFNAMEPROPERTY, tree(buf));
79 } else {
80 setProperty(t, DEFNAMEPROPERTY, tree(name.c_str()));
81 }
82
83 }
84
85 bool getDefNameProperty(Tree t, Tree& id)
86 {
87 //cerr << "getDefNameProperty of : " << t << endl;
88 return getProperty(t, DEFNAMEPROPERTY, id);
89 }
90
91
92 /**
93 * Convert a definition name (can be long) into a short nickname
94 * that can be used as an equation name in latex
95 * @todo Simplify long definition names.
96 */
97 string defName2NickName (const string& defname)
98 {
99 return defname;
100 }
101
102 Tree NICKNAMEPROPERTY = tree(symbol("NICKNAMEPROPERTY"));
103
104
105 /**
106 * Set the nickname property of a signal
107 */
108 void setSigNickname(Tree t, const string& id)
109 {
110 Tree s,d;
111 if (isSigFixDelay(t,s,d) && isZero(d)) {
112 setProperty(s, NICKNAMEPROPERTY, tree(id));
113 } else {
114 setProperty(t, NICKNAMEPROPERTY, tree(id));
115 }
116 }
117
118
119 /**
120 * Get the nickname property of a signal
121 */
122 bool getSigNickname(Tree t, Tree& id)
123 {
124 bool r = getProperty(t, NICKNAMEPROPERTY, id);
125 return r;
126 }
127
128
129
130 /**
131 * set the nickname property of a list of signals. If the list
132 * contains more than one signal, adds an index to the nickname
133 */
134 void setSigListNickName (Tree lsig, const string& nickname)
135 {
136 assert(isList(lsig));
137
138 if (isNil(tl(lsig))) {
139 setSigNickname(hd(lsig), nickname);
140 } else {
141 int i=0;
142 while (!isNil(lsig)) {
143 setSigNickname(hd(lsig), subst("$0_$1", nickname, T(++i)));
144 lsig = tl(lsig);
145 }
146 }
147 }
148
149
150
151