<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>FAUST compiler: sigorderrules.cpp Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css"/>
</head>
<body>
<!-- Generated by Doxygen 1.6.3 -->
<div class="navigation" id="top">
<div class="tabs">
<ul>
<li><a href="index.html"><span>Main Page</span></a></li>
<li><a href="pages.html"><span>Related Pages</span></a></li>
<li><a href="annotated.html"><span>Classes</span></a></li>
<li class="current"><a href="files.html"><span>Files</span></a></li>
</ul>
</div>
<div class="tabs">
<ul>
<li><a href="files.html"><span>File List</span></a></li>
<li><a href="globals.html"><span>File Members</span></a></li>
</ul>
</div>
<h1>sigorderrules.cpp</h1><a href="sigorderrules_8cpp.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/************************************************************************</span>
<a name="l00002"></a>00002 <span class="comment"> ************************************************************************</span>
<a name="l00003"></a>00003 <span class="comment"> FAUST compiler</span>
<a name="l00004"></a>00004 <span class="comment"> Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale</span>
<a name="l00005"></a>00005 <span class="comment"> ---------------------------------------------------------------------</span>
<a name="l00006"></a>00006 <span class="comment"> This program is free software; you can redistribute it and/or modify</span>
<a name="l00007"></a>00007 <span class="comment"> it under the terms of the GNU General Public License as published by</span>
<a name="l00008"></a>00008 <span class="comment"> the Free Software Foundation; either version 2 of the License, or</span>
<a name="l00009"></a>00009 <span class="comment"> (at your option) any later version.</span>
<a name="l00010"></a>00010 <span class="comment"></span>
<a name="l00011"></a>00011 <span class="comment"> This program is distributed in the hope that it will be useful,</span>
<a name="l00012"></a>00012 <span class="comment"> but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="l00013"></a>00013 <span class="comment"> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span>
<a name="l00014"></a>00014 <span class="comment"> GNU General Public License for more details.</span>
<a name="l00015"></a>00015 <span class="comment"></span>
<a name="l00016"></a>00016 <span class="comment"> You should have received a copy of the GNU General Public License</span>
<a name="l00017"></a>00017 <span class="comment"> along with this program; if not, write to the Free Software</span>
<a name="l00018"></a>00018 <span class="comment"> Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.</span>
<a name="l00019"></a>00019 <span class="comment"> ************************************************************************</span>
<a name="l00020"></a>00020 <span class="comment"> ************************************************************************/</span>
<a name="l00021"></a>00021
<a name="l00022"></a>00022 <span class="comment">/************************************************************************</span>
<a name="l00023"></a>00023 <span class="comment"> ************************************************************************</span>
<a name="l00024"></a>00024 <span class="comment"> Signals Order Rules</span>
<a name="l00025"></a>00025 <span class="comment"> Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale</span>
<a name="l00026"></a>00026 <span class="comment"> ---------------------------------------------------------------------</span>
<a name="l00027"></a>00027 <span class="comment"> A small typing system that computes the "order" of a signal :</span>
<a name="l00028"></a>00028 <span class="comment"> 0 = numerical constant</span>
<a name="l00029"></a>00029 <span class="comment"> 1 = non-numerical constants (FConst)</span>
<a name="l00030"></a>00030 <span class="comment"> 2 = User Interface</span>
<a name="l00031"></a>00031 <span class="comment"> 3 = Audio</span>
<a name="l00032"></a>00032 <span class="comment"> This order will be used to put expressions in normal form.</span>
<a name="l00033"></a>00033 <span class="comment"> </span>
<a name="l00034"></a>00034 <span class="comment"> Contrary to the full type system, it doesn't require environments</span>
<a name="l00035"></a>00035 <span class="comment"> or special treatments for recursions</span>
<a name="l00036"></a>00036 <span class="comment"> ************************************************************************</span>
<a name="l00037"></a>00037 <span class="comment"> ************************************************************************/</span>
<a name="l00038"></a>00038
<a name="l00039"></a>00039
<a name="l00040"></a>00040 <span class="preprocessor">#include <stdio.h></span>
<a name="l00041"></a>00041 <span class="preprocessor">#include "<a class="code" href="sigtype_8hh.html">sigtype.hh</a>"</span>
<a name="l00042"></a>00042 <span class="preprocessor">#include "<a class="code" href="sigprint_8hh.html">sigprint.hh</a>"</span>
<a name="l00043"></a>00043 <span class="preprocessor">#include "<a class="code" href="prim2_8hh.html">prim2.hh</a>"</span>
<a name="l00044"></a>00044 <span class="preprocessor">#include "<a class="code" href="tlib_8hh.html">tlib.hh</a>"</span>
<a name="l00045"></a>00045 <span class="preprocessor">#include "<a class="code" href="sigorderrules_8hh.html">sigorderrules.hh</a>"</span>
<a name="l00046"></a>00046 <span class="preprocessor">#include "<a class="code" href="xtended_8hh.html">xtended.hh</a>"</span>
<a name="l00047"></a>00047
<a name="l00048"></a><a class="code" href="sigorderrules_8cpp.html#a4831df6a207c7f0b14702106844d88a5">00048</a> <a class="code" href="classCTree.html" title="A CTree = (Node x [CTree]) is a Node associated with a list of subtrees called branches...">Tree</a> <a class="code" href="sigorderrules_8cpp.html#a4831df6a207c7f0b14702106844d88a5">ORDERPROP</a> = <a class="code" href="tree_8hh.html#a61c13e9361cfa80bbb3cd6ce60a8f595">tree</a>(<a class="code" href="symbol_8hh.html#aaa87083235b70d1042e59ae25e0800d8" title="Returns (and creates if new) the symbol of name str.">symbol</a>(<span class="stringliteral">"OrderProp"</span>));
<a name="l00049"></a>00049
<a name="l00050"></a>00050 <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="sigorderrules_8cpp.html#a88c56ff370235b402e14543deca129c2" title="Infere the order of a term according to its components.">infereSigOrder</a>(<a class="code" href="classCTree.html" title="A CTree = (Node x [CTree]) is a Node associated with a list of subtrees called branches...">Tree</a> sig);
<a name="l00051"></a>00051
<a name="l00062"></a><a class="code" href="sigorderrules_8hh.html#a20942fac53773f763795775cfdcfb086">00062</a> <span class="keywordtype">int</span> <a class="code" href="sigorderrules_8cpp.html#a20942fac53773f763795775cfdcfb086" title="retrieve the order annotation (between 0 and 3) of a signal.">getSigOrder</a>(<a class="code" href="classCTree.html" title="A CTree = (Node x [CTree]) is a Node associated with a list of subtrees called branches...">Tree</a> sig)
<a name="l00063"></a>00063 {
<a name="l00064"></a>00064 <a class="code" href="classCTree.html" title="A CTree = (Node x [CTree]) is a Node associated with a list of subtrees called branches...">Tree</a> tt;
<a name="l00065"></a>00065 <span class="keywordflow">if</span> (<a class="code" href="list_8cpp.html#a665745948013d012bb123e9577c094bd">getProperty</a>(sig, ORDERPROP, tt)) {
<a name="l00066"></a>00066 <span class="keywordflow">return</span> <a class="code" href="tree_8cpp.html#a523bce65e2a281fe678f2362496061cf" title="if t has a node of type int, return it otherwise error">tree2int</a>(tt);
<a name="l00067"></a>00067 } <span class="keywordflow">else</span> {
<a name="l00068"></a>00068 <span class="keywordtype">int</span> order = <a class="code" href="sigorderrules_8cpp.html#a88c56ff370235b402e14543deca129c2" title="Infere the order of a term according to its components.">infereSigOrder</a>(sig);
<a name="l00069"></a>00069 <a class="code" href="list_8cpp.html#a5ead5a3e91af18d8f94e0974990a3c5a">setProperty</a>(sig, ORDERPROP, <a class="code" href="tree_8hh.html#a61c13e9361cfa80bbb3cd6ce60a8f595">tree</a>(order));
<a name="l00070"></a>00070 <span class="keywordflow">return</span> order;
<a name="l00071"></a>00071 }
<a name="l00072"></a>00072 }
<a name="l00073"></a>00073
<a name="l00074"></a>00074 <span class="comment">// shortcut for order inference algorithm</span>
<a name="l00075"></a><a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">00075</a> <span class="preprocessor">#define O getSigOrder</span>
<a name="l00076"></a>00076 <span class="preprocessor"></span>
<a name="l00077"></a>00077
<a name="l00078"></a>00078
<a name="l00084"></a><a class="code" href="sigorderrules_8cpp.html#a88c56ff370235b402e14543deca129c2">00084</a> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="sigorderrules_8cpp.html#a88c56ff370235b402e14543deca129c2" title="Infere the order of a term according to its components.">infereSigOrder</a>(<a class="code" href="classCTree.html" title="A CTree = (Node x [CTree]) is a Node associated with a list of subtrees called branches...">Tree</a> sig)
<a name="l00085"></a>00085 {
<a name="l00086"></a>00086 <span class="keywordtype">int</span> i;
<a name="l00087"></a>00087 <span class="keywordtype">double</span> r;
<a name="l00088"></a>00088 <a class="code" href="classCTree.html" title="A CTree = (Node x [CTree]) is a Node associated with a list of subtrees called branches...">Tree</a> sel, s1, s2, s3, s4, ff, id, ls, l, x, y, var, body, type, <a class="code" href="symbol_8hh.html#a8243134fbbd9d924ebbb3f833922e310" title="Returns the name of a symbol.">name</a>, file;
<a name="l00089"></a>00089
<a name="l00090"></a>00090 <a class="code" href="classxtended.html">xtended</a>* xt = (<a class="code" href="classxtended.html">xtended</a>*) <a class="code" href="symbol_8hh.html#a603fcb6c07eacf2688c2a8470637d0ff" title="Returns user data.">getUserData</a>(sig);
<a name="l00091"></a>00091 <span class="comment">// primitive elements</span>
<a name="l00092"></a>00092 <span class="keywordflow">if</span> (xt)
<a name="l00093"></a>00093 {
<a name="l00094"></a>00094 <span class="comment">//return 3;</span>
<a name="l00095"></a>00095 vector<int> args;
<a name="l00096"></a>00096 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i=0; i<sig-><a class="code" href="classCTree.html#a68f2be5e845407bc956a2893fe6f0d03" title="return the number of branches (subtrees) of a tree">arity</a>(); i++) { args.push_back( <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(sig-><a class="code" href="classCTree.html#a06c1513b23dc7b0d9da9c930c6dc43c5" title="return the ith branch (subtree) of a tree">branch</a>(i)) ); }
<a name="l00097"></a>00097 <span class="keywordflow">return</span> xt-><a class="code" href="classxtended.html#a1f1bca3c6d30fd3878c8fbe372cd5387">infereSigOrder</a>(args);
<a name="l00098"></a>00098 }
<a name="l00099"></a>00099
<a name="l00100"></a>00100
<a name="l00101"></a>00101 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a75cc925deac1e031e75ae72271dd5995">isSigInt</a>(sig, &i)) <span class="keywordflow">return</span> 0;
<a name="l00102"></a>00102
<a name="l00103"></a>00103 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a305497ed8593020624204f9d359743f2">isSigReal</a>(sig, &r)) <span class="keywordflow">return</span> 0;
<a name="l00104"></a>00104
<a name="l00105"></a>00105 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a38254d67a0541d98c6097fd51b22ea45">isSigInput</a>(sig, &i)) <span class="keywordflow">return</span> 3;
<a name="l00106"></a>00106
<a name="l00107"></a>00107 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a1415deb58619ab50a536d7f2ce425f22">isSigOutput</a>(sig, &i, s1)) <span class="keywordflow">return</span> 3;
<a name="l00108"></a>00108
<a name="l00109"></a>00109 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a0899d7e2a69a467b0dcf62242397367f">isSigDelay1</a>(sig, s1)) <span class="keywordflow">return</span> 3;
<a name="l00110"></a>00110
<a name="l00111"></a>00111 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a18895c816779682006a84aede438af29">isSigPrefix</a>(sig, s1, s2)) <span class="keywordflow">return</span> 3;
<a name="l00112"></a>00112
<a name="l00113"></a>00113 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#af55cdefee258834b3b8f6c070d4970c9">isSigFixDelay</a>(sig, s1, s2)) <span class="keywordflow">return</span> 3;
<a name="l00114"></a>00114
<a name="l00115"></a>00115 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a8705584c3c319be54be73dc391d25634">isSigBinOp</a>(sig, &i, s1, s2)) <span class="keywordflow">return</span> <a class="code" href="interval_8hh.html#a1c45761573e6cbc97cfacac78d905016">max</a>(<a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s1),<a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s2));
<a name="l00116"></a>00116
<a name="l00117"></a>00117 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a3ef48f0da2ef5b8e3ee7371a1e4059ae">isSigIntCast</a>(sig, s1)) <span class="keywordflow">return</span> <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s1);
<a name="l00118"></a>00118
<a name="l00119"></a>00119 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a52448156d86125bbc8de23d641217de2">isSigFloatCast</a>(sig, s1)) <span class="keywordflow">return</span> <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s1);
<a name="l00120"></a>00120
<a name="l00121"></a>00121 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a7d60b2c9da70fb0a2edff9593d38c573">isSigFFun</a>(sig,ff,ls) && <a class="code" href="list_8hh.html#a2569c3a07bbbfa55e0afde62de62aeec">isNil</a>(ls)) <span class="keywordflow">return</span> 1;
<a name="l00122"></a>00122
<a name="l00123"></a>00123 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a7d60b2c9da70fb0a2edff9593d38c573">isSigFFun</a>(sig, ff, ls)) <span class="keywordflow">return</span> <a class="code" href="interval_8hh.html#a1c45761573e6cbc97cfacac78d905016">max</a>(1,<a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(ls));
<a name="l00124"></a>00124
<a name="l00125"></a>00125 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a71788aa9ccfc0aa598243fbef2a88f68">isSigFConst</a>(sig,type,name,file)) <span class="keywordflow">return</span> 1;
<a name="l00126"></a>00126
<a name="l00127"></a>00127 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a13d7a7178d98383c309b0e4a45dfc96b">isSigFVar</a>(sig,type,name,file)) <span class="keywordflow">return</span> 2;
<a name="l00128"></a>00128
<a name="l00129"></a>00129 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a9cb8af593289d910a1f8ec8a9c8d880f">isSigButton</a>(sig)) <span class="keywordflow">return</span> 2;
<a name="l00130"></a>00130
<a name="l00131"></a>00131 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a48996c1ce74258d499baae3d267078bc">isSigCheckbox</a>(sig)) <span class="keywordflow">return</span> 2;
<a name="l00132"></a>00132
<a name="l00133"></a>00133 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#aac990f39e6a1d50e8e1de3b6f7701cfe">isSigVSlider</a>(sig)) <span class="keywordflow">return</span> 2;
<a name="l00134"></a>00134
<a name="l00135"></a>00135 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#aaa72c718314a1ba2cee25a95c153e37d">isSigHSlider</a>(sig)) <span class="keywordflow">return</span> 2;
<a name="l00136"></a>00136
<a name="l00137"></a>00137 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#aa8476971aba67dfc3af7b5d11f974ef3">isSigNumEntry</a>(sig)) <span class="keywordflow">return</span> 2;
<a name="l00138"></a>00138
<a name="l00139"></a>00139 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a5acf9dd03d1d0032e9486867876f1806">isSigHBargraph</a>(sig, l, x, y, s1)) <span class="keywordflow">return</span> <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s1);
<a name="l00140"></a>00140
<a name="l00141"></a>00141 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a667a345cf4efcba00fce5a06bc1e8299">isSigVBargraph</a>(sig, l, x, y, s1)) <span class="keywordflow">return</span> <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s1);
<a name="l00142"></a>00142
<a name="l00143"></a>00143 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#ad717966fe25735c5cf799e04338192b4">isSigAttach</a>(sig, s1, s2)) <span class="keywordflow">return</span> <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(s1);
<a name="l00144"></a>00144
<a name="l00145"></a>00145 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="recursive-tree_8cpp.html#a4cb44c6e41e21da830e748dc35f16ba5" title="is t a de Bruijn recursive tree">isRec</a>(sig, var, body)) exit(1); <span class="comment">//return 3; // not supposed to appen.</span>
<a name="l00146"></a>00146
<a name="l00147"></a>00147 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="recursive-tree_8cpp.html#a3a07093d0e487cc733adab39f6a18e78" title="is t a de Bruijn recursive reference">isRef</a>(sig, var)) exit(1); <span class="comment">//return 3; // not supposed to appen. </span>
<a name="l00148"></a>00148
<a name="l00149"></a>00149 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a9b54e9177bb3726e06700649c3e5c05d">isProj</a>(sig, &i, s1)) <span class="keywordflow">return</span> 3;
<a name="l00150"></a>00150
<a name="l00151"></a>00151 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#aa9b2ad7a65566fbc382d60e315b42740">isSigTable</a>(sig, <span class="keywordtype">id</span>, s1, s2)) <span class="keywordflow">return</span> 3;
<a name="l00152"></a>00152
<a name="l00153"></a>00153 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#ab5b22110acbd38b7d4634dc94bcc8d22">isSigWRTbl</a>(sig, <span class="keywordtype">id</span>, s1, s2, s3)) <span class="keywordflow">return</span> 3;
<a name="l00154"></a>00154
<a name="l00155"></a>00155 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a9d9cbd375c200fa4e666de6ffb72dbca">isSigRDTbl</a>(sig, s1, s2)) <span class="keywordflow">return</span> 3;
<a name="l00156"></a>00156
<a name="l00157"></a>00157 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a95620993ef284f3e29f20ebcc3b0a08e">isSigDocConstantTbl</a>(sig, s1, s2)) <span class="keywordflow">return</span> 3;
<a name="l00158"></a>00158
<a name="l00159"></a>00159 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a4d843f58a403cb0802c2255489977396">isSigDocWriteTbl</a>(sig,s1,s2,s3,s4)) <span class="keywordflow">return</span> 3;
<a name="l00160"></a>00160
<a name="l00161"></a>00161 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#aec3b01f2f3ae693b4422142a22e4d0af">isSigDocAccessTbl</a>(sig,s1,s2)) <span class="keywordflow">return</span> 3;
<a name="l00162"></a>00162
<a name="l00163"></a>00163 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a771720237ca174a55a6823cc6623d602">isSigGen</a>(sig, s1)) <span class="keywordflow">return</span> 3;
<a name="l00164"></a>00164
<a name="l00165"></a>00165 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a55f14d5c4b5bc07285840f93d380b422">isSigSelect2</a>(sig,sel,s1,s2)) <span class="keywordflow">return</span> 3;
<a name="l00166"></a>00166
<a name="l00167"></a>00167 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="signals_8cpp.html#a33cf5ac61f2ad8244394ce1e59914bbc">isSigSelect3</a>(sig,sel,s1,s2,s3)) <span class="keywordflow">return</span> 3;
<a name="l00168"></a>00168
<a name="l00169"></a>00169 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="list_8hh.html#a8bdd73641276e0c0f999f504348eacc1">isList</a>(sig))
<a name="l00170"></a>00170 {
<a name="l00171"></a>00171 <span class="keywordtype">int</span> r = 0;
<a name="l00172"></a>00172 <span class="keywordflow">while</span> (<a class="code" href="list_8hh.html#a8bdd73641276e0c0f999f504348eacc1">isList</a>(sig)) { <span class="keywordtype">int</span> x = <a class="code" href="sigorderrules_8cpp.html#a396fecfabe3105afc15a61c209f910f0">O</a>(<a class="code" href="list_8hh.html#a067ad6f83087b420a1c44e48e56be389">hd</a>(sig)); <span class="keywordflow">if</span> (x > r) r = x; sig = <a class="code" href="list_8hh.html#a4075748f5c7156306ec898795313a2e0">tl</a>(sig); }
<a name="l00173"></a>00173 <span class="keywordflow">return</span> r;
<a name="l00174"></a>00174 }
<a name="l00175"></a>00175
<a name="l00176"></a>00176 <span class="comment">// unrecognized signal here</span>
<a name="l00177"></a>00177 fprintf(stderr, <span class="stringliteral">"ERROR infering signal order : unrecognized signal : "</span>); <a class="code" href="list_8cpp.html#a850f2e459a901e0c9908d3a3a54b306e">print</a>(sig, stderr); fprintf(stderr, <span class="stringliteral">"\n"</span>);
<a name="l00178"></a>00178 exit(1);
<a name="l00179"></a>00179 <span class="keywordflow">return</span> 0;
<a name="l00180"></a>00180 }
<a name="l00181"></a>00181
</pre></div></div>
<hr class="footer"/><address style="text-align: right;"><small>Generated on Wed Apr 28 23:59:59 2010 for FAUST compiler by
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.6.3 </small></address>
</body>
</html>
