+++ /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 <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);
-}
projects / Faustine.git / blobdiff