Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine
[Faustine.git] / interpretor / faust-0.9.47mr3 / compiler / headers / compile_scal.hh
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 #ifndef _COMPILE_SCAL_
25 #define _COMPILE_SCAL_
26
27 #include <utility>
28 #include "compile.hh"
29 #include "sigtyperules.hh"
30 #include "sigraterules.hh"
31 #include "occurences.hh"
32 #include "property.hh"
33
34 ////////////////////////////////////////////////////////////////////////
35 /**
36 * Compile a list of FAUST signals into a scalar C++ class
37 */
38 ///////////////////////////////////////////////////////////////////////
39
40 class ScalarCompiler : public Compiler
41 {
42 protected:
43 property<string> fCompileProperty;
44 property<string> fVectorProperty;
45 property<pair<string,string> > fStaticInitProperty; // property added to solve 20101208 kjetil bug
46 property<pair<string,string> > fInstanceInitProperty; // property added to solve 20101208 kjetil bug
47
48 static map<string, int> fIDCounters;
49 Tree fSharingKey;
50 OccMarkup fOccMarkup;
51 bool fHasIota;
52
53 RateInferrer* fRates;
54
55 public:
56
57 ScalarCompiler ( const string& name, const string& super, int numInputs, int numOutputs) :
58 Compiler(name,super,numInputs,numOutputs,false),
59 fHasIota(false),
60 fRates(0)
61 {}
62
63 ScalarCompiler ( Klass* k) :
64 Compiler(k),
65 fHasIota(false)
66 {}
67
68 virtual void compileMultiSignal (Tree lsig);
69 virtual void compileSingleSignal (Tree lsig);
70
71
72 protected:
73
74 virtual string CS (Tree sig);
75 virtual string generateCode (Tree sig);
76 virtual string generateCacheCode(Tree sig, const string& exp) ;
77
78 virtual string generateVariableStore(Tree sig, const string& exp);
79
80 string getFreshID (const string& prefix);
81
82 void compilePreparedSignalList (Tree lsig);
83 Tree prepare(Tree L0);
84 Tree prepare2 (Tree L0);
85
86
87 bool getCompiledExpression(Tree sig, string& name);
88 string setCompiledExpression(Tree sig, const string& name);
89
90 void setVectorNameProperty(Tree sig, const string& vecname);
91 bool getVectorNameProperty(Tree sig, string& vecname);
92
93 int getSharingCount(Tree t);
94 void setSharingCount(Tree t, int count);
95 void sharingAnalysis(Tree t);
96 void sharingAnnotation(int vctxt, Tree t);
97
98
99 // generation du code
100
101 string generateXtended (Tree sig);
102 virtual string generateFixDelay (Tree sig, Tree arg, Tree size);
103 string generatePrefix (Tree sig, Tree x, Tree e);
104 string generateIota (Tree sig, Tree arg);
105 string generateBinOp (Tree sig, int opcode, Tree arg1, Tree arg2);
106
107 string generateFFun (Tree sig, Tree ff, Tree largs);
108
109 string generateInput (Tree sig, const string& idx);
110 string generateOutput (Tree sig, const string& idx, const string& arg1);
111
112 string generateTable (Tree sig, Tree tsize, Tree content);
113 string generateStaticTable (Tree sig, Tree tsize, Tree content);
114 string generateWRTbl (Tree sig, Tree tbl, Tree idx, Tree data);
115 string generateRDTbl (Tree sig, Tree tbl, Tree idx);
116 string generateSigGen (Tree sig, Tree content);
117 string generateStaticSigGen(Tree sig, Tree content);
118
119 string generateSelect2 (Tree sig, Tree sel, Tree s1, Tree s2);
120 string generateSelect3 (Tree sig, Tree sel, Tree s1, Tree s2, Tree s3);
121
122 string generateRecProj (Tree sig, Tree exp, int i);
123 void generateRec (Tree sig, Tree var, Tree le);
124
125 string generateIntCast (Tree sig, Tree x);
126 string generateFloatCast (Tree sig, Tree x);
127
128 string generateButton (Tree sig, Tree label);
129 string generateCheckbox (Tree sig, Tree label);
130 string generateVSlider (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step);
131 string generateHSlider (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step);
132 string generateNumEntry (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step);
133
134 string generateVBargraph (Tree sig, Tree label, Tree min, Tree max, const string& exp);
135 string generateHBargraph (Tree sig, Tree label, Tree min, Tree max, const string& exp);
136
137 string generateNumber(Tree sig, const string& exp);
138 string generateFConst (Tree sig, const string& file, const string& name);
139 string generateFVar (Tree sig, const string& file, const string& name);
140
141 virtual string generateDelayVec(Tree sig, const string& exp, const string& ctype, const string& vname, int mxd);
142 string generateDelayVecNoTemp(Tree sig, const string& exp, const string& ctype, const string& vname, int mxd);
143 //string generateDelayVecWithTemp(Tree sig, const string& exp, const string& ctype, const string& vname, int mxd);
144 virtual void generateDelayLine(const string& ctype, const string& vname, int mxd, const string& exp);
145
146 // up et down sampling
147 virtual string generateUpSample (Tree sig, Tree arg, Tree size);
148 virtual string generateDownSample (Tree sig, Tree arg, Tree size);
149
150
151
152 void getTypedNames(Type t, const string& prefix, string& ctype, string& vname);
153 void ensureIotaCode();
154 int pow2limit(int x);
155
156
157
158 };
159
160 #endif