interpretor/faust-0.9.47mr3/compiler/propagate/propagate.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 "propagate.hh"
  25 #include "prim2.hh"
  26 #include <assert.h>
  27 #include "ppbox.hh"
  28 #include "xtended.hh"
  29 #include "labels.hh"
  30 #include "Text.hh"
  31 #include "ppsig.hh"
  32 #include "names.hh"
  33
  34 //extern bool gPrintDocSwitch;
  35 //static siglist realPropagate (Tree slotenv, Tree path, Tree box, const siglist&  lsig);
  36
  37
  38 ////////////////////////////////////////////////////////////////////////
  39 /**
  40  * propagate : box listOfSignal-> listOfSignal'
  41  *
  42  * Propage une liste de signaux de l'entrée vers la sortie d'une boite
  43  * La boite a été annotée aec son type
  44  */
  45 ///////////////////////////////////////////////////////////////////////
  46
  47
  48 //! mix une liste de signaux sur n bus
  49 siglist mix(const siglist& lsig, int nbus)
  50 {
  51         int nlines      = lsig.size();
  52
  53         siglist dst(nbus);
  54
  55         for (int b=0; b<nbus; b++) {
  56                 Tree t = (b<nlines) ? lsig[b] : sigInt(0);
  57                 for (int i=b+nbus; i<nlines; i+=nbus) {
  58                         t = sigAdd(t, lsig[i]);
  59                 }
  60                 dst[b] = t;
  61         }
  62         return dst;
  63 }
  64
  65 //! split une liste de signaux sur n bus
  66 siglist split(const siglist& inputs, int nbus)
  67 {
  68         int nlines      = inputs.size();
  69
  70         siglist outputs(nbus);
  71
  72         for (int b=0; b<nbus; b++) {
  73                 outputs[b] = inputs[b % nlines];
  74         }
  75         return outputs;
  76 }
  77
  78 //! Fabrique une liste de n projections d'un groupe récursif
  79 siglist makeSigProjList (Tree t, int n)
  80 {
  81         siglist l(n);
  82         for (int i = 0; i < n; i++) l[i] = sigDelay0(sigProj(i, t));
  83         return l;
  84 }
  85
  86 //! Fabrique une liste de n mem projections d'un groupe récursif
  87 siglist makeMemSigProjList (Tree t, int n)
  88 {
  89         siglist l(n);
  90         for (int i = 0; i < n; i++) l[i] = sigDelay1(sigProj(i, t));
  91         return l;
  92 }
  93
  94
  95 //! Fabrique une liste de n entrées
  96 siglist makeSigInputList (int n)
  97 {
  98         siglist l(n);
  99         for (int i = 0; i < n; i++) l[i] = sigInput(i);
 100         return l;
 101 }
 102
 103 inline siglist makeList(Tree t)
 104 {
 105         siglist l(1);
 106         l[0] = t;
 107         return l;
 108 }
 109
 110 siglist listRange(const siglist& l, int i, int j)
 111 {
 112         siglist r(j-i);
 113         for (int x = i; x < j; x++) r[x-i] = l[x];
 114         return r;
 115 }
 116
 117 siglist listConcat(const siglist& a, const siglist& b)
 118 {
 119         int n1 = a.size();
 120         int n2 = b.size();
 121         siglist r(n1+n2);
 122
 123         for (int x=0; x<n1; x++) r[x] = a[x];
 124         for (int x=0; x<n2; x++) r[x+n1] = b[x];
 125         return r;
 126 }
 127
 128 /**
 129  * Convert an stl list of signals into a tree list of signals
 130  */
 131 Tree listConvert(const siglist& a)
 132 {
 133         int     n = a.size();
 134         Tree    t=nil;
 135         while (n--) t = cons(a[n],t);
 136         return t;
 137 }
 138
 139 // siglist listConvertBack(Tree l)
 140 // {
 141 //      siglist r;
 142 //      while (!isNil(l)) { r.push_back(hd(l)); l = tl(l); }
 143 //      return r;
 144 // }
 145
 146 siglist listLift(const siglist& l)
 147 {
 148         int             n = l.size();
 149         siglist         r(n);
 150
 151         for(int i = 0; i<n; i++) r[i] = lift(l[i]);
 152         return r;
 153 }
 154
 155 static int      gDummyInput = 10000;
 156
 157 /**
 158  * Propagate computes the outputs signals of a block-diagram according to a list of input signals.
 159  *
 160  *\param slotenv input signals associated with symbolic slots
 161  *\param path stack of user interface groups : (type,label)*
 162  *\param box block-diagram where we propagate the signals
 163  *\param lsig list of signals to be propagated into box
 164  *\return list of resulting signals
 165  */
 166 /*
 167 // for debugging purposes
 168
 169 siglist realpropagate (Tree slotenv, Tree path, Tree box, const siglist&  lsig);
 170
 171 siglist propagate (Tree slotenv, Tree path, Tree box, const siglist&  lsig)
 172 {
 173         cerr << "propagate in " << boxpp(box) << endl;
 174         for (int i=0; i<lsig.size(); i++) { cerr << " -> signal " << i << " : " << *(lsig[i]) << endl; }
 175         cerr << endl;
 176         return realpropagate (slotenv, path, box, lsig);
 177 }
 178 */
 179
 180 /**
 181  * Old try for names propagation.
 182  */
 183 //siglist propagate (Tree slotenv, Tree path, Tree box, const siglist&  lsig)
 184 //{
 185 //      siglist S = realPropagate(slotenv, path, box, lsig);
 186 //
 187 //      if (gPrintDocSwitch) {
 188 //              Tree    id;
 189 //              if (lsig.size()==0 && getDefNameProperty(box, id)) {
 190 //                      string nickname = defName2NickName(tree2str(id));
 191 //                      //setSigListNickName(S, nickname);
 192 //              }
 193 //      }
 194 //
 195 //      return S;
 196 //}
 197
 198 //siglist realPropagate (Tree slotenv, Tree path, Tree box, const siglist&  lsig)
 199 siglist propagate (Tree slotenv, Tree path, Tree box, const siglist&  lsig)
 200 {
 201         int             i;
 202         double  r;
 203         prim0   p0;
 204         prim1   p1;
 205         prim2   p2;
 206         prim3   p3;
 207         prim4   p4;
 208         prim5   p5;
 209
 210         Tree    t1, t2, ff, label, cur, min, max, step, type, name, file, slot, body;
 211
 212
 213         xtended* xt = (xtended*)getUserData(box);
 214
 215         // Extended Primitives
 216
 217         if (xt) {
 218                 assert(lsig.size() == xt->arity());
 219                 return makeList(xt->computeSigOutput(lsig));
 220         }
 221
 222         // Numbers and Constants
 223
 224         else if (isBoxInt(box, &i))     {
 225                 assert(lsig.size()==0);
 226                 return makeList(sigInt(i));
 227         }
 228         else if (isBoxReal(box, &r))    {
 229                 assert(lsig.size()==0);
 230                 return makeList(sigReal(r));
 231         }
 232
 233     else if (isBoxFConst(box, type, name, file))    {
 234         assert(lsig.size()==0);
 235         return makeList(sigFConst(type, name, file));
 236     }
 237
 238     else if (isBoxFVar(box, type, name, file))    {
 239         assert(lsig.size()==0);
 240         return makeList(sigFVar(type, name, file));
 241     }
 242
 243         // Wire and Cut
 244
 245         else if (isBoxCut(box))                                 {
 246                 assert(lsig.size()==1);
 247                 return siglist();
 248         }
 249
 250         else if (isBoxWire(box))                                {
 251                 assert(lsig.size()==1);
 252                 return lsig;
 253         }
 254
 255         // Slots and Symbolic Boxes
 256
 257         else if (isBoxSlot(box))                                {
 258                 Tree sig;
 259                 assert(lsig.size()==0);
 260                 if (!searchEnv(box,sig,slotenv)) {
 261                         // test YO simplification des diagrames
 262                         //fprintf(stderr, "propagate : internal error (slot undefined)\n");
 263                         //exit(1);
 264                         sig = sigInput(++gDummyInput);
 265                 }
 266                 return makeList(sig);
 267         }
 268
 269         else if (isBoxSymbolic(box, slot, body))                                {
 270                 assert(lsig.size()>0);
 271                 return propagate(pushEnv(slot,lsig[0],slotenv), path, body, listRange(lsig, 1, lsig.size()));
 272         }
 273
 274         // Primitives
 275
 276         else if (isBoxPrim0(box, &p0))                  {
 277                 assert(lsig.size()==0);
 278                 return makeList( p0() );
 279         }
 280
 281         else if (isBoxPrim1(box, &p1))                          {
 282                 assert(lsig.size()==1);
 283                 return makeList( p1(lsig[0]) );
 284         }
 285
 286         else if (isBoxPrim2(box, &p2))                          {
 287 //              printf("prim2 recoit : "); print(lsig); printf("\n");
 288                 assert(lsig.size()==2);
 289                 return makeList( p2(lsig[0],lsig[1]) );
 290         }
 291
 292         else if (isBoxPrim3(box, &p3))                          {
 293                 assert(lsig.size()==3);
 294                 return makeList( p3(lsig[0],lsig[1],lsig[2]) );
 295         }
 296
 297         else if (isBoxPrim4(box, &p4))                          {
 298                 assert(lsig.size()==4);
 299                 return makeList( p4(lsig[0],lsig[1],lsig[2],lsig[3]) );
 300         }
 301
 302         else if (isBoxPrim5(box, &p5))                          {
 303                 assert(lsig.size()==5);
 304                 return makeList( p5(lsig[0],lsig[1],lsig[2],lsig[3],lsig[4]) );
 305         }
 306
 307         else if (isBoxFFun(box, ff))                            {
 308                 //cerr << "propagate en boxFFun of arity " << ffarity(ff) << endl;
 309                 assert(int(lsig.size())==ffarity(ff));
 310                 return makeList(sigFFun(ff, listConvert(lsig)));
 311         }
 312
 313         // User Interface Widgets
 314
 315         else if (isBoxButton(box, label))       {
 316                 assert(lsig.size()==0);
 317                 return makeList(sigButton(normalizePath(cons(label, path))));
 318         }
 319
 320         else if (isBoxCheckbox(box, label))     {
 321                 assert(lsig.size()==0);
 322                 return makeList(sigCheckbox(normalizePath(cons(label, path))));
 323         }
 324
 325         else if (isBoxVSlider(box, label, cur, min, max, step))         {
 326                 assert(lsig.size()==0);
 327                 return makeList(sigVSlider(normalizePath(cons(label, path)), cur, min, max, step));
 328         }
 329
 330         else if (isBoxHSlider(box, label, cur, min, max, step))         {
 331                 assert(lsig.size()==0);
 332                 return makeList(sigHSlider(normalizePath(cons(label, path)), cur, min, max, step));
 333         }
 334
 335         else if (isBoxNumEntry(box, label, cur, min, max, step))        {
 336                 assert(lsig.size()==0);
 337                 return makeList(sigNumEntry(normalizePath(cons(label, path)), cur, min, max, step));
 338         }
 339
 340         else if (isBoxVBargraph(box, label, min, max))  {
 341                 assert(lsig.size()==1);
 342                 return makeList(sigVBargraph(normalizePath(cons(label, path)), min, max, lsig[0]));
 343         }
 344
 345         else if (isBoxHBargraph(box, label, min, max))  {
 346                 assert(lsig.size()==1);
 347                 return makeList(sigHBargraph(normalizePath(cons(label, path)), min, max, lsig[0]));
 348         }
 349
 350         // User Interface Groups
 351
 352         else if (isBoxVGroup(box, label, t1))   {
 353                 return propagate(slotenv,cons(cons(tree(0),label), path), t1, lsig);
 354         }
 355
 356         else if (isBoxHGroup(box, label, t1))   {
 357                 return propagate(slotenv, cons(cons(tree(1),label), path), t1, lsig);
 358         }
 359
 360         else if (isBoxTGroup(box, label, t1))   {
 361                 return propagate(slotenv, cons(cons(tree(2),label), path), t1, lsig);
 362         }
 363
 364         // Block Diagram Composition Algebra
 365
 366         else if (isBoxSeq(box, t1, t2))         {
 367                 int in1, out1, in2, out2;
 368                 getBoxType(t1, &in1, &out1);
 369                 getBoxType(t2, &in2, &out2);
 370
 371         assert(out1==in2);
 372
 373                 if (out1 == in2) {
 374                         return propagate(slotenv, path, t2, propagate(slotenv, path,t1,lsig));
 375                 } else if (out1 > in2) {
 376                         siglist lr = propagate(slotenv, path, t1,lsig);
 377                         return listConcat(propagate(slotenv, path, t2, listRange(lr, 0, in2)), listRange(lr, in2, out1));
 378                 } else {
 379                         return propagate(slotenv, path, t2, listConcat( propagate(slotenv, path, t1, listRange(lsig,0,in1)), listRange(lsig,in1,in1+in2-out1) ) );
 380                 }
 381         }
 382
 383         else if (isBoxPar(box, t1, t2))         {
 384                 int in1, out1, in2, out2;
 385                 getBoxType(t1, &in1, &out1);
 386                 getBoxType(t2, &in2, &out2);
 387
 388                 return listConcat(      propagate(slotenv, path, t1, listRange(lsig, 0,  in1)),
 389                                                         propagate(slotenv, path, t2, listRange(lsig, in1, in1+in2)) );
 390         }
 391
 392         else if (isBoxSplit(box, t1, t2))       {
 393                 int in1, out1, in2, out2;
 394                 getBoxType(t1, &in1, &out1);
 395                 getBoxType(t2, &in2, &out2);
 396
 397                 siglist l1 = propagate(slotenv, path, t1, lsig);
 398                 siglist l2 = split(l1, in2);
 399                 return propagate(slotenv, path, t2, l2);
 400         }
 401
 402         else if (isBoxMerge(box, t1, t2))       {
 403                 int in1, out1, in2, out2;
 404                 getBoxType(t1, &in1, &out1);
 405                 getBoxType(t2, &in2, &out2);
 406
 407                 siglist l1 = propagate(slotenv, path, t1, lsig);
 408                 siglist l2 = mix(l1, in2);
 409                 return propagate(slotenv, path, t2, l2);
 410         }
 411 /*
 412         else if (isBoxRec(box, t1, t2))         {
 413                 int in1, out1, in2, out2;
 414                 getBoxType(t1, &in1, &out1);
 415                 getBoxType(t2, &in2, &out2);
 416
 417                 siglist l0 = makeSigProjList(ref(1), in2);
 418                 siglist l1 = propagate(slotenv, path, t2, l0);
 419                 siglist l2 = propagate(slotenv, path, t1, listConcat(l1,listLift(lsig)));
 420                 Tree g = rec(listConvert(l2));
 421                 return makeSigProjList(g, out1);
 422         }
 423 */
 424     else if (isBoxRec(box, t1, t2))     {
 425         // Bug Corrected
 426         int in1, out1, in2, out2;
 427         getBoxType(t1, &in1, &out1);
 428         getBoxType(t2, &in2, &out2);
 429
 430         Tree slotenv2 = lift(slotenv); // the environment must also be lifted
 431
 432         siglist l0 = makeMemSigProjList(ref(1), in2);
 433         siglist l1 = propagate(slotenv2, path, t2, l0);
 434         siglist l2 = propagate(slotenv2, path, t1, listConcat(l1,listLift(lsig)));
 435         Tree g = rec(listConvert(l2));
 436         return makeSigProjList(g, out1);
 437     }
 438
 439         cout << "ERROR in file " << __FILE__ << ':' << __LINE__ << ", unrecognised box expression : " << boxpp(box) << endl;
 440         exit(1);
 441         return siglist();
 442 }
 443
 444
 445 Tree boxPropagateSig (Tree path, Tree box, const siglist& lsig)
 446 {
 447         return listConvert(propagate(nil, path, box, lsig));
 448 }
 449