+++ /dev/null
-/************************************************************************
- ************************************************************************
- 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 <assert.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <limits.h>
-#include "recursivness.hh"
-#include "property.hh"
-
-#include "signals.hh"
-#include "ppsig.hh"
-#include "set"
-
-using namespace std;
-
-
-/**
- * @file recursivness.cpp
- * Annotate a signal expression with recursivness information. Recursiveness
- * indicates the amount of recursive dependencies of a signal. A closed signal
- * has a recursivness of 0 because is has no recursive dependencies. This means
- * that the succesive samples of this signal can be computed in parallel.
- * In a signal of type \x.(...F(x)...), F(x) has a recursivness of 1. In a
- * signal of type \x.(... \y.(...F(x)...G(y)...)...) F(x) has a recursivness of 2
- * while G(y) has a recursivness of 1.
- */
-
-//--------------------------------------------------------------------------
-static int annotate(Tree env, Tree sig);
-static int position (Tree env, Tree t, int p=1);
-
-Tree RECURSIVNESS = tree(symbol("RecursivnessProp"));
-//--------------------------------------------------------------------------
-
-
-/**
- * Annotate a signal with recursivness. Should be used before
- * calling getRecursivness
- * @param sig signal to annotate
- */
-void recursivnessAnnotation(Tree sig)
-{
- annotate(nil, sig);
-}
-
-
-/**
- * Return the recursivness of a previously
- * annotated signal. An error is generated
- * if the signal has no recursivness property
- * @param sig signal
- * @return recursivness of the signal
- */
-int getRecursivness(Tree sig)
-{
- Tree tr;
- if ( ! getProperty(sig, RECURSIVNESS, tr)) {
- cerr << "Error in getRecursivness of " << *sig << endl;
- exit(1);
- }
- return tree2int(tr);
-}
-
-//-------------------------------------- IMPLEMENTATION ------------------------------------
-/**
- * Annotate a signal with recursivness
- * @param env the current environment
- * @param sig signal to annotate
- * @return recursivness of the signal
- */
-static int annotate(Tree env, Tree sig)
-{
- Tree tr, var, body;
-
- if (getProperty(sig, RECURSIVNESS, tr)) {
- return tree2int(tr); // already annotated
- } else if (isRec(sig, var, body)) {
- int p = position(env, sig);
- if (p > 0) {
- return p; // we are inside \x.(...)
- } else {
- int r = annotate(cons(sig, env), body) - 1;
- if (r<0) r=0;
- setProperty(sig, RECURSIVNESS, tree(r));
- return r;
- }
- } else {
- int rmax = 0;
- vector<Tree> v; getSubSignals(sig, v);
- for (unsigned int i=0; i<v.size(); i++) {
- int r = annotate(env, v[i]);
- if (r>rmax) rmax=r;
- }
- setProperty(sig, RECURSIVNESS, tree(rmax));
- return rmax;
- }
-}
-
-
-
-/**
- * return the position of a signal in the current recursive environment
- * @param env the current recursive environment of the signal
- * @param t signal we want to know the position
- * @return the position in the recursive environment
- */
-static int position (Tree env, Tree t, int p)
-{
- if (isNil(env)) return 0; // was not in the environment
- if (hd(env) == t) return p;
- else return position (tl(env), t, p+1);
-}
-
-
-//-----------------------------------list recursive symbols-----------------------
-
-
-
-/**
- * return the set of recursive symbols appearing in a signal.
- * @param sig the signal to analyze
- * @return the set of symbols
- */
-
-// the property used to memoize the results
-property<Tree> SymListProp;
-
-Tree symlistVisit(Tree sig, set<Tree>& visited)
-{
- Tree S;
- if (SymListProp.get(sig, S)) {
- return S;
- } else if ( visited.count(sig) > 0 ){
- return nil;
- } else {
- visited.insert(sig);
- Tree id, body;
- if (isRec(sig, id, body)) {
- Tree U = singleton(sig);
- for (int i=0; i<len(body); i++) {
- U = setUnion(U, symlistVisit(nth(body,i), visited));
- }
- return U;
- } else {
- vector<Tree> subsigs;
- int n = getSubSignals(sig, subsigs, true); // il faut visiter aussi les tables
- Tree U = nil;
- for (int i=0; i<n; i++) {
- U = setUnion(U, symlistVisit(subsigs[i], visited));
- }
- return U;
- }
- }
-}
-
-Tree symlist(Tree sig)
-{
- Tree S;
- if (!SymListProp.get(sig, S)) {
- set<Tree> visited;
- S = symlistVisit(sig, visited);
- SymListProp.set(sig, S);
- }
- //cerr << "SYMLIST " << *S << " OF " << ppsig(sig) << endl;
- return S;
-}