--- /dev/null
+#ifndef __SIGVISITOR__
+#define __SIGVISITOR__
+
+#include "signals.hh"
+
+struct sigvisitor
+{
+ // predefined visit scheme
+ void visit(Tree sig);
+
+ // Unrecognized signal (default handler)
+ virtual void visitError (Tree sig);
+
+ virtual ~sigvisitor() {}
+
+ //---------------abstract methods---------------
+ // numbers
+ virtual void visitInt (Tree sig, int i) = 0;
+ virtual void visitReal (Tree sig, double r) = 0;
+
+ // audio inputs-outputs
+ virtual void visitInput (Tree sig, int i) = 0;
+ virtual void visitOutput (Tree sig, int i, Tree s) = 0;
+
+ // fixed size delays
+ virtual void visitDelay1 (Tree sig, Tree s) = 0;
+ virtual void visitPrefix (Tree sig, Tree s1, Tree s2) = 0;
+ virtual void visitFixDelay (Tree sig, Tree s1, Tree s2) = 0;
+
+ // numerical operations
+ virtual void visitBinOp (Tree sig, int opcode, Tree s1, Tree s2) = 0;
+ virtual void visitIntCast (Tree sig, Tree s) = 0;
+ virtual void visitFloatCast (Tree sig, Tree s) = 0;
+ virtual void visitFFun (Tree sig, Tree ff, Tree ls) = 0;
+ virtual void visitFConst (Tree sig, Tree type, Tree name, Tree file) = 0;
+ virtual void visitFVar (Tree sig, Tree type, Tree name, Tree file) = 0;
+
+ // user interface
+ virtual void visitButton (Tree sig, Tree label) = 0;
+ virtual void visitCheckbox (Tree sig, Tree label) = 0;
+ virtual void visitVSlider (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step) = 0;
+ virtual void visitHSlider (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step) = 0;
+ virtual void visitNumEntry (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step) = 0;
+ virtual void visitVBargraph (Tree sig, Tree label, Tree min, Tree max, Tree s1) = 0;
+ virtual void visitHBargraph (Tree sig, Tree label, Tree min, Tree max, Tree s1) = 0;
+ virtual void visitAttach (Tree sig, Tree s1, Tree s2) = 0;
+
+ // recursive
+ virtual void visitRec (Tree sig, Tree var, Tree body) = 0;
+ virtual void visitRef (Tree sig, Tree var) = 0;
+ virtual void visitProj (Tree sig, int i, Tree s1) = 0;
+
+ // Tables
+ virtual void visitTable (Tree sig, Tree id, Tree s1, Tree s2) = 0;
+ virtual void visitWRTbl (Tree sig, Tree id, Tree s1, Tree s2, Tree s3) = 0;
+ virtual void visitRDTbl (Tree sig, Tree s1, Tree s2) = 0;
+ virtual void visitGen (Tree sig, Tree s1) = 0;
+
+ virtual void visitDocConstantTbl (Tree sig, Tree s1, Tree s2) = 0;
+ virtual void visitDocWriteTbl (Tree sig, Tree s1, Tree s2, Tree s3, Tree s4) = 0;
+ virtual void visitDocAccessTbl (Tree sig, Tree s1, Tree s2) = 0;
+
+ // Selectors
+ virtual void visitSelect2 (Tree sig, Tree sel, Tree s1, Tree s2) = 0;
+ virtual void visitSelect3 (Tree sig, Tree sel, Tree s1, Tree s2, Tree s3) = 0;
+
+ // Tuples
+ virtual void visitTuple (Tree sig, int mod, Tree ls) = 0;
+ virtual void visitTupleAccess (Tree sig, Tree ts, Tree idx) = 0;
+
+ // List of signals
+ virtual void visitList (Tree lsig) = 0;
+};
+
+struct fullvisitor : sigvisitor
+{
+ // numbers
+ virtual void visitInt (Tree sig, int i) {}
+ virtual void visitReal (Tree sig, double r) {}
+
+ // audio inputs-outputs
+ virtual void visitInput (Tree sig, int i) {}
+ virtual void visitOutput (Tree sig, int i, Tree s) { visit(s);}
+
+ // fixed size delays
+ virtual void visitDelay1 (Tree sig, Tree s) { visit(s);}
+ virtual void visitPrefix (Tree sig, Tree s1, Tree s2) { visit(s1); visit(s2); }
+ virtual void visitFixDelay (Tree sig, Tree s1, Tree s2) { visit(s1); visit(s2); }
+
+ // numerical operations
+ virtual void visitIntCast (Tree sig, Tree s) { visit(s);}
+ virtual void visitFloatCast (Tree sig, Tree s) { visit(s);}
+ virtual void visitBinOp (Tree sig, int op, Tree s1, Tree s2) { visit(s1); visit(s2); }
+ virtual void visitFFun (Tree sig, Tree ff, Tree ls) { visit(ls); }
+ virtual void visitFConst (Tree sig, Tree type, Tree name, Tree file) {}
+ virtual void visitFVar (Tree sig, Tree type, Tree name, Tree file) {}
+
+ // user interface
+ virtual void visitButton (Tree sig, Tree label) {}
+ virtual void visitCheckbox (Tree sig, Tree label) {}
+ virtual void visitVSlider (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step) {}
+ virtual void visitHSlider (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step) {}
+ virtual void visitNumEntry (Tree sig, Tree label, Tree cur, Tree min, Tree max, Tree step) {}
+ virtual void visitVBargraph (Tree sig, Tree label, Tree min, Tree max, Tree s) { visit(s);}
+ virtual void visitHBargraph (Tree sig, Tree label, Tree min, Tree max, Tree s) { visit(s);}
+ virtual void visitAttach (Tree sig, Tree s1, Tree s2) { visit(s1); visit(s2); }
+
+ // recursive
+ virtual void visitRec (Tree sig, Tree var, Tree body) { visit(body); }
+ virtual void visitRef (Tree sig, Tree var) { }
+ virtual void visitProj (Tree sig, int i, Tree s) { visit(s); }
+
+ // Tables
+ virtual void visitTable (Tree sig, Tree id, Tree s1, Tree s2) { visit(s1); visit(s2); }
+ virtual void visitWRTbl (Tree sig, Tree id, Tree s1, Tree s2, Tree s3) { visit(s1); visit(s2); visit(s3); }
+ virtual void visitRDTbl (Tree sig, Tree s1, Tree s2) { visit(s1); visit(s2); }
+ virtual void visitGen (Tree sig, Tree s1) { visit(s1); }
+
+ // Selectors
+ virtual void visitSelect2 (Tree sig, Tree sel, Tree s1, Tree s2) { visit(sel); visit(s1); visit(s2); }
+ virtual void visitSelect3 (Tree sig, Tree sel, Tree s1, Tree s2, Tree s3) { visit(sel); visit(s1); visit(s2); visit(s3); }
+
+ // Tuples
+ virtual void visitTuple (Tree sig, int mod, Tree ls) { visit(ls); }
+ virtual void visitTupleAccess (Tree sig, Tree ts, Tree idx) { visit(ts); visit(idx); }
+
+ // List of signals
+ virtual void visitList (Tree lsig) { while (!isNil(lsig)) { visit(hd(lsig)); lsig=tl(lsig); }}
+};
+
+#endif