sigprint.cpp

Go to the documentation of this file.

/************************************************************************
 ************************************************************************
    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 <stdio.h>

#include "signals.hh"
#include "sigtype.hh"
#include "sigtyperules.hh"

// imprime le type d'un signal en clair
#if 0
void printSigType (Tree tp)
{
    Tree t0;
    int     n, v, c;
    
    if (isTableType(tp, t0)) {
        printf("table-of "); 
        printSigType(t0);
    } else if (isSigType(tp, &n, &v, &c)) {
        putchar("NR"[n]);
        putchar("KB S"[v]);
        putchar("CI X"[c]);
        //printf(" {%d,%d,%d} ", n, v, c);
    } else {
        printf("unknown");
    }
}

void printSigTypeList (Tree l)
{
    char sep = '(';

    do {
        putchar(sep); sep = ',';
        printSigType(hd(l));
        l = tl(l);
    } while (isList(l));

    putchar(')');
}
#endif 

void printSigType (int n, int v, int c)
{
    putchar("NR"[n]);
    putchar("KB S"[v]);
    putchar("CI X"[c]);
}

const char* binopname[]= {
        "+", "-", "*", "/", "%", 
        "<<", ">>",
        ">", "<", ">=", "<=", "==", "!=",
        "&", "|", "^" 
};

int binopprec[]= {
        2, 2, 3, 3, 3,
        1, 1,
        1, 1, 1, 1, 1, 1,
        1, 1, 1
};      

void printSignal(Tree sig, FILE* out, int prec)
{
    int     i;
    double  r;
    Tree     x, y, z, u, le, id;
        
         if ( isSigInt(sig, &i) )           { fprintf(out, "%d", i);    }
    else if ( isSigReal(sig, &r) )          { fprintf(out, "%f", r);    }
    else if ( isSigInput(sig, &i) )         { fprintf(out, "IN%d", i);  }
    else if ( isSigOutput(sig, &i, x) )     { fprintf(out, "OUT%d := ", i); printSignal(x, out, 0); }
    
    else if ( isSigBinOp(sig, &i, x, y) )   { 
        if (prec > binopprec[i]) fputs("(", out); 
        printSignal(x,out,binopprec[i]); fputs(binopname[i], out); printSignal(y, out, binopprec[i]); 
        if (prec > binopprec[i]) fputs(")", out);   
    }
    else if ( isSigDelay1(sig, x) )         { fputs("mem(", out); printSignal(x,out,0); fputs(")", out);        }
    else if ( isSigPrefix(sig, x, y) )      { fputs("prefix(", out); printSignal(x,out,0); fputs(",", out);  printSignal(y,out,0); fputs(")", out);     }
    else if ( isSigAttach(sig, x, y) )      { fputs("attach(", out); printSignal(x,out,0); fputs(",", out);  printSignal(y,out,0); fputs(")", out);     }
    else if ( isSigFixDelay(sig, x, y) )    { 
        if (prec > 4) fputs("(", out); 
        printSignal(x,out,4); fputs("@", out); printSignal(y, out, 4); 
        if (prec > 4) fputs(")", out);  
    }

    else if ( isProj(sig, &i, x) )          { printSignal(x,out,prec); fprintf(out, "#%d", i);      }
    else if ( isRef(sig, i) )               { fprintf(out, "$%d", i);   }
    else if ( isRef(sig, x) )               { print(x, out);            }
    else if ( isRec(sig, le))               { fputs("\\_.", out); printSignal(le, out, prec);   }
    else if ( isRec(sig, x, le))            { fputs("\\", out); print(x,out); fputs(".", out); printSignal(le, out, prec);  }
    
    else if ( isSigTable(sig, id, x, y) )   { fputs("table(", out); printSignal(x,out,0); fputc(',', out); printSignal(y,out,0); fputc(')', out);   }
    else if ( isSigWRTbl(sig, id, x, y, z) ){ printSignal(x,out,0); fputc('[',out); printSignal(y,out,0); fputs("] := (", out); printSignal(z,out,0); fputc(')', out);   }
    else if ( isSigRDTbl(sig, x, y) )       { printSignal(x,out,0); fputc('[', out); printSignal(y,out,0); fputc(']', out);   }

    else if (isSigDocConstantTbl(sig,x,y))  { fputs("sigDocConstantTbl(", out); printSignal(x,out,0); fputc(',', out);
                                                                                printSignal(y,out,0); fputc(')', out);   }

    else if (isSigDocWriteTbl(sig,x,y,z,u)) { fputs("sigDocWriteTbl(", out);    printSignal(x,out,0); fputc(',', out);
                                                                                printSignal(y,out,0); fputc(',', out);
                                                                                printSignal(z,out,0); fputc(',', out);
                                                                                printSignal(u,out,0); fputc(')', out);   }

    else if (isSigDocAccessTbl(sig,x,y))    { fputs("sigDocAccessTbl(", out);   printSignal(x,out,0); fputc(',', out);
                                                                                printSignal(y,out,0); fputc(')', out);   }


    else if ( isSigGen(sig, x) )            { printSignal(x,out,prec);              }
 
    else if ( isSigIntCast(sig, x) )        { fputs("int(", out); printSignal(x,out,0); fputs(")", out);        }
    else if ( isSigFloatCast(sig, x) )      { fputs("float(", out); printSignal(x,out,0); fputs(")", out);      }

    else if (isList(sig)) {
        char sep = '{';
        do { 
            fputc(sep, out);
            printSignal(hd(sig), out, 0);
            sep=',';
            sig = tl(sig);
        } while (isList(sig));
        fputc('}', out);
    }
    else
        print(sig, out);
}