--- /dev/null
+Faustine 0.01:
+--------------
+
+* First internal release.
PREREQUISITES
-------------
-* Faust is needed (tested version: 0.9.44).
* OCaml is needed (tested version: 4.00.1).
* The external "libsndfile-ocaml" OCaml module is needed.
* The GNU C compiler gcc is recommended.
This generates the configuration file "Makefile".
You will be asked for include paths:
-* OCaml path
-* libsndfile-ocaml path
+* your OCaml path
+* your libsndfile-ocaml path
2- From the top directory, do:
make
-This builds Faustine interpreter and Faust compiler for the first time.
+This builds Faustine interpreter (and an adhoc Faust multirate preprocessor)
+for the first time.
This phase is fairly verbose; consider redirecting the output to a file:
make > makelog.txt
--- Karim Barkati and Haisheng Wang, 2013
\ No newline at end of file
+-- Karim Barkati and Haisheng Wang, 2013
CONTENTS
--------
- Changes what's new with each release
+ Changes.txt what's new with each release
INSTALL instructions for installation
LICENSE license and copyright notice
- Makefile main Makefile
+ Makefile main Makefile generated by configure
+ Makefile.in main Makefile body
README this file
- config/ autoconfiguration stuff
- emacs/ OCaml editing mode and debugger interface for GNU Emacs
- lex/ lexer generator
- otherlibs/ several external libraries
- parsing/ syntax analysis
- stdlib/ standard library
- tools/ various utilities
- toplevel/ interactive system
- typing/ typechecking
- utils/ utility libraries
- yacc/ parser generator
+ configure configuration script
+ examples/ vector examples (fft, image processing...)
+ interpretor/ Faustine's interpretor source code
+ libs/ external libraries
INSTALLATION
--- Karim Barkati and Haisheng Wang, 2013
\ No newline at end of file
+-- Karim Barkati and Haisheng Wang, 2013
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Signal.html">
-<link rel="next" href="Interpreter.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp</title>
-</head>
-<body>
-<div class="navbar"><a href="Signal.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Interpreter.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Faustexp.html">Faustexp</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Faustexp: <code class="code">sig</code> <a href="Faustexp.html">..</a> <code class="code">end</code></pre>Module: Faustexp
- Description: dimension estimation and delay estimation of faust expressions.<br>
-<b>Author(s):</b> WANG Haisheng
- Created: 03/06/2013 Modified: 04/06/2013<br>
-<hr width="100%">
-<pre><span id="EXCEPTIONBeam_Matching_Error"><span class="keyword">exception</span> Beam_Matching_Error</span> <span class="keyword">of</span> <code class="type">string</code></pre>
-<div class="info">
-Exception raised in beam matching of faust expressions.<br>
-</div>
-<pre><span id="EXCEPTIONNotYetDone"><span class="keyword">exception</span> NotYetDone</span></pre>
-<div class="info">
-Exception raised in case that the branch under call hasn't yet been programed.<br>
-</div>
-<pre><span id="VALdelay"><span class="keyword">val</span> <a href="code_VALFaustexp.delay.html">delay</a></span> : <code class="type"><a href="Types.html#TYPEfaust_exp">Types.faust_exp</a> -> int</code></pre><div class="info">
-val delay : faust_exp -> int, returns the number of delays estimated staticly.
-Attention: delays of "@" is estimated as 10 constant,
-delays of "vectorize" and "serialize" haven't been implemented,
-delays of "rdtable" hasn't been implemented.<br>
-</div>
-<pre><span id="VALexp_of_string"><span class="keyword">val</span> <a href="code_VALFaustexp.exp_of_string.html">exp_of_string</a></span> : <code class="type">string -> <a href="Types.html#TYPEfaust_exp">Types.faust_exp</a></code></pre><div class="info">
-val exp_of_string : string -> faust_exp, faust expression parser.<br>
-</div>
-<pre><span id="VALget_root"><span class="keyword">val</span> <a href="code_VALFaustexp.get_root.html">get_root</a></span> : <code class="type"><a href="Types.html#TYPEdimension">Types.dimension</a> -> int * int</code></pre><div class="info">
-val get_root : dimension -> int * int, returns the root of dimension tree.<br>
-</div>
-<pre><span id="VALsubtree"><span class="keyword">val</span> <a href="code_VALFaustexp.subtree.html">subtree</a></span> : <code class="type"><a href="Types.html#TYPEdimension">Types.dimension</a> -> int -> <a href="Types.html#TYPEdimension">Types.dimension</a></code></pre><div class="info">
-val subtree : dimention -> int -> dimension, returns a subtree of dimension tree.<br>
-</div>
-<pre><span id="VALsubtree_left"><span class="keyword">val</span> <a href="code_VALFaustexp.subtree_left.html">subtree_left</a></span> : <code class="type"><a href="Types.html#TYPEdimension">Types.dimension</a> -> <a href="Types.html#TYPEdimension">Types.dimension</a></code></pre><div class="info">
-val subtree_left : dimension -> dimension, returns the left subtree of dimension tree.<br>
-</div>
-<pre><span id="VALsubtree_right"><span class="keyword">val</span> <a href="code_VALFaustexp.subtree_right.html">subtree_right</a></span> : <code class="type"><a href="Types.html#TYPEdimension">Types.dimension</a> -> <a href="Types.html#TYPEdimension">Types.dimension</a></code></pre><div class="info">
-val subtree_right : dimension -> dimension, returns the right subtree of dimension tree.<br>
-</div>
-<pre><span id="VALd_par"><span class="keyword">val</span> <a href="code_VALFaustexp.d_par.html">d_par</a></span> : <code class="type">int * int -> int * int -> int * int</code></pre><div class="info">
-val d_par : int * int -> int * int -> int * int, process dimension for constructor "par(,)",
-which is the addition of two dimensions.<br>
-</div>
-<pre><span id="VALd_seq"><span class="keyword">val</span> <a href="code_VALFaustexp.d_seq.html">d_seq</a></span> : <code class="type">'a * 'b -> 'b * 'c -> 'a * 'c</code></pre><div class="info">
-val d_seq : int * int -> int * int -> int * int, process dimension for constructor "seq(:)",
-which is (size of input beam of first exp, size of output beam of second exp)
-along with beam matching.<br>
-</div>
-<pre><span id="VALd_split"><span class="keyword">val</span> <a href="code_VALFaustexp.d_split.html">d_split</a></span> : <code class="type">'a * int -> int * 'b -> 'a * 'b</code></pre><div class="info">
-val d_split : int * int -> int * int -> int * int, process dimension for constructor "split(<:)",
-which is (size of input beam of first exp, size of output beam of second exp)
-along with beam matching.<br>
-</div>
-<pre><span id="VALd_merge"><span class="keyword">val</span> <a href="code_VALFaustexp.d_merge.html">d_merge</a></span> : <code class="type">'a * int -> int * 'b -> 'a * 'b</code></pre><div class="info">
-val d_merge : int * int -> int * int -> int * int, process dimension for constructor "merge(:>)",
-which is (size of input beam of first exp, size of output beam of second exp)
-along with beam matching.<br>
-</div>
-<pre><span id="VALd_rec"><span class="keyword">val</span> <a href="code_VALFaustexp.d_rec.html">d_rec</a></span> : <code class="type">int * 'a -> 'a * int -> int * 'a</code></pre><div class="info">
-val d_rec : int * int -> int * int -> int * int, process dimension for constructor "rec(~)",
-which is (size of input beam of first exp - size of output beam of second exp,
-size of output beam of first exp)
-along with beam matching.<br>
-</div>
-<pre><span id="VALdim"><span class="keyword">val</span> <a href="code_VALFaustexp.dim.html">dim</a></span> : <code class="type"><a href="Types.html#TYPEfaust_exp">Types.faust_exp</a> -> <a href="Types.html#TYPEdimension">Types.dimension</a></code></pre><div class="info">
-val dim : faust_exp -> int * int, returns dimension for faust expression,
-along with beam matching.<br>
-</div>
-<pre><span id="VALprint_exp"><span class="keyword">val</span> <a href="code_VALFaustexp.print_exp.html">print_exp</a></span> : <code class="type"><a href="Types.html#TYPEfaust_exp">Types.faust_exp</a> -> unit</code></pre><div class="info">
-val print_exp : faust_exp -> unit, print to console the input faust expression.<br>
-</div>
-</body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Faustexp.html">
-<link rel="next" href="Preprocess.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter</title>
-</head>
-<body>
-<div class="navbar"><a href="Faustexp.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Preprocess.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Interpreter.html">Interpreter</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Interpreter: <code class="code">sig</code> <a href="Interpreter.html">..</a> <code class="code">end</code></pre>Module: Interpreter
- Description: input beam -> process -> output beam<br>
-<b>Author(s):</b> WANG Haisheng
- Created: 15/05/2013 Modified: 04/06/2013<br>
-<hr width="100%">
-<pre><span id="EXCEPTIONEvaluation_Error"><span class="keyword">exception</span> Evaluation_Error</span> <span class="keyword">of</span> <code class="type">string</code></pre>
-<div class="info">
-Exception raised during interpretation of faust process.<br>
-</div>
-<br><code><span id="TYPEinterpreter_macro"><span class="keyword">type</span> <code class="type"></code>interpreter_macro</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Number_samples_int</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Max_Eval_Time_int</span></code></td>
-
-</tr></table>
-
-<div class="info">
-Macro constants of this file.<br>
-</div>
-
-<pre><span id="VALinterpreter_macro_to_value"><span class="keyword">val</span> <a href="code_VALInterpreter.interpreter_macro_to_value.html">interpreter_macro_to_value</a></span> : <code class="type"><a href="Interpreter.html#TYPEinterpreter_macro">interpreter_macro</a> -> int</code></pre><div class="info">
-val interpreter_macro_to_value : returns the value associated with the macro.<br>
-</div>
-<pre><span id="VALfun_array_to_fun"><span class="keyword">val</span> <a href="code_VALInterpreter.fun_array_to_fun.html">fun_array_to_fun</a></span> : <code class="type">('a -> 'b) array -> 'a -> 'b array</code></pre><div class="info">
-val func_of_func_array : (int -> value) array -> (int -> value array),
-applies the same int parameter to each element of function array,
-produces a value array.<br>
-</div>
-<pre><span id="VALcomputing"><span class="keyword">val</span> <a href="code_VALInterpreter.computing.html">computing</a></span> : <code class="type">(int -> <a href="Types.html#TYPEvalue">Types.value</a> array) -> int -> int -> float array array array</code></pre><div class="info">
-val computing : (int -> value array) -> int -> int -> float array array array,
-applies time sequence "0,1,2,3,...,max" to signal beam,
-returns primitive output data.<br>
-</div>
-<pre><span id="VALmatrix_transpose"><span class="keyword">val</span> <a href="code_VALInterpreter.matrix_transpose.html">matrix_transpose</a></span> : <code class="type">'a array array -> int -> 'a array array</code></pre><div class="info">
-val matrix_transpose : 'a array array -> 'a array array,
-transposes the input matrix.<br>
-</div>
-<pre><span id="VALchannels"><span class="keyword">val</span> <a href="code_VALInterpreter.channels.html">channels</a></span> : <code class="type">'a array array array -> int -> int array</code></pre><div class="info">
-val channels : 'a array array array -> int -> int array,
-returns an array of number of channels.<br>
-</div>
-<pre><span id="VALarrange"><span class="keyword">val</span> <a href="code_VALInterpreter.arrange.html">arrange</a></span> : <code class="type">'a array array array -> int -> 'a array list</code></pre><div class="info">
-val arrange : 'a array array array -> int -> 'a array list,
-arranges the output data in "array list" form.<br>
-</div>
-<pre><span id="VALcompute"><span class="keyword">val</span> <a href="code_VALInterpreter.compute.html">compute</a></span> : <code class="type">(int -> <a href="Types.html#TYPEvalue">Types.value</a>) list -> int list * float array list</code></pre><div class="info">
-val compute : (int -> value) list -> (int list) * (float array list).
-input: a list of signal functions
-output: channel number list, data list.<br>
-</div>
-<pre><span id="VALsublist"><span class="keyword">val</span> <a href="code_VALInterpreter.sublist.html">sublist</a></span> : <code class="type">'a list -> int -> int -> 'a list</code></pre><div class="info">
-val sublist : 'a list -> int -> int -> 'a list,
-<code class="code">sublist l start length</code>, returns the sublist of list 'l',
-from index 'start', with length 'length'.<br>
-</div>
-<pre><span id="VALmake_beam"><span class="keyword">val</span> <a href="code_VALInterpreter.make_beam.html">make_beam</a></span> : <code class="type">'a list * float array list -> ('a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)) list</code></pre><div class="info">
-val make_beam : (int list) * (float array list) -> (int * (int -> value)) list,
-input: (sample rate list, data list)
-output: beam = (sample rate, function) list<br>
-</div>
-<pre><span id="VALinterpret_const"><span class="keyword">val</span> <a href="code_VALInterpreter.interpret_const.html">interpret_const</a></span> : <code class="type">'a -> 'b list -> (int * ('c -> 'a)) list</code></pre><div class="info">
-val interpret_const : value -> beam -> beam, generates constant signal with frequency 0.<br>
-</div>
-<pre><span id="VALinterpret_ident"><span class="keyword">val</span> <a href="code_VALInterpreter.interpret_ident.html">interpret_ident</a></span> : <code class="type"><a href="Types.html#TYPEsymbol">Types.symbol</a> -><br> (int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)) list -> (int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)) list</code></pre><div class="info">
-val interpret_ident : string -> beam -> beam,
-generates signals according to identified symbols.<br>
-</div>
-<pre><span id="VALeval"><span class="keyword">val</span> <a href="code_VALInterpreter.eval.html">eval</a></span> : <code class="type"><a href="Types.html#TYPEfaust_exp">Types.faust_exp</a> -><br> <a href="Types.html#TYPEdimension">Types.dimension</a> -><br> (int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)) list -> (int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)) list</code></pre><div class="info">
-val rec eval : faust_exp -> beam -> beam,
-main interpretation work is done here.<br>
-</div>
-<pre><span id="VALextract_rate"><span class="keyword">val</span> <a href="code_VALInterpreter.extract_rate.html">extract_rate</a></span> : <code class="type">(int * 'a) list -> int list</code></pre><div class="info">
-val extract_rate : (int * (int -> value)) list -> int list,
-gets the sample rate list from beam.<br>
-</div>
-<pre><span id="VALinterpreter"><span class="keyword">val</span> <a href="code_VALInterpreter.interpreter.html">interpreter</a></span> : <code class="type"><a href="Types.html#TYPEfaust_exp">Types.faust_exp</a> -><br> int list * float array list -> int list * int list * float array list</code></pre><div class="info">
-val interpreter : faust_exp -> (int list) * (float array list) ->
-(int list) * (int list) * (float array list)
-input: faust expression, sample rate list * input data list
-output: channel list * sample rate list * output data list.<br>
-</div>
-</body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Parser.html">
-<link rel="next" href="Value.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Lexer</title>
-</head>
-<body>
-<div class="navbar"><a href="Parser.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Value.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Lexer.html">Lexer</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Lexer: <code class="code">sig</code> <a href="Lexer.html">..</a> <code class="code">end</code></pre><hr width="100%">
-<pre><span id="VAL__ocaml_lex_tables"><span class="keyword">val</span> <a href="code_VALLexer.__ocaml_lex_tables.html">__ocaml_lex_tables</a></span> : <code class="type">Lexing.lex_tables</code></pre><pre><span id="VALtoken"><span class="keyword">val</span> <a href="code_VALLexer.token.html">token</a></span> : <code class="type">Lexing.lexbuf -> <a href="Parser.html#TYPEtoken">Parser.token</a></code></pre><pre><span id="VAL__ocaml_lex_token_rec"><span class="keyword">val</span> <a href="code_VALLexer.__ocaml_lex_token_rec.html">__ocaml_lex_token_rec</a></span> : <code class="type">Lexing.lexbuf -> int -> <a href="Parser.html#TYPEtoken">Parser.token</a></code></pre></body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Preprocess.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main</title>
-</head>
-<body>
-<div class="navbar"><a href="Preprocess.html">Previous</a>
- <a href="index.html">Up</a>
- </div>
-<center><h1>Module <a href="type_Main.html">Main</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Main: <code class="code">sig</code> <a href="Main.html">..</a> <code class="code">end</code></pre>Module: Interpreter
- Description: Input wave -> interpretation -> output wave<br>
-<b>Author(s):</b> WANG Haisheng
- Created: 15/05/2013 Modified: 04/06/2013<br>
-<hr width="100%">
-<pre><span id="EXCEPTIONMissing_Expression"><span class="keyword">exception</span> Missing_Expression</span></pre>
-<div class="info">
-Exception raised when no string expression of faust process is typed in console.<br>
-</div>
-<br><code><span id="TYPEio_macro"><span class="keyword">type</span> <code class="type"></code>io_macro</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Input_Route_string</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Output_Route_string</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Dsp_Route_string</span></code></td>
-
-</tr></table>
-
-<div class="info">
-Macro constants of input/output route.<br>
-</div>
-
-<pre><span id="VALio_macro_to_string"><span class="keyword">val</span> <a href="code_VALMain.io_macro_to_string.html">io_macro_to_string</a></span> : <code class="type"><a href="Main.html#TYPEio_macro">io_macro</a> -> string</code></pre><div class="info">
-val io_macro_to_string : io_macro -> string.<br>
-</div>
-<pre><span id="VALset_GC"><span class="keyword">val</span> <a href="code_VALMain.set_GC.html">set_GC</a></span> : <code class="type">unit -> unit</code></pre><div class="info">
-val set_GC : unit -> unit<br>
-</div>
-<pre><span id="VALread_input_wave"><span class="keyword">val</span> <a href="code_VALMain.read_input_wave.html">read_input_wave</a></span> : <code class="type">string array -> int list * float array list</code></pre><div class="info">
-val read_input_wave : string array -> int list * float array list
- <code class="code">read_input_wave argv</code> gets information from command line,
- returns sample rate list and data (in form of float array) list.<br>
-</div>
-<pre><span id="VALwrite_output_wave"><span class="keyword">val</span> <a href="code_VALMain.write_output_wave.html">write_output_wave</a></span> : <code class="type">int list -> int list -> float array list -> unit</code></pre><div class="info">
-val write_output_wave : int list -> int list -> float_array_list -> unit.
- <code class="code">write_output_wave channel_numbers sample_rates data</code><br>
-</div>
-<pre><span id="VALwrite_output_txt"><span class="keyword">val</span> <a href="code_VALMain.write_output_txt.html">write_output_txt</a></span> : <code class="type">int list -> float array list -> unit</code></pre><br>
-val main : unit -> unit
-main function reads console input strings (Sys.argv) with
-input: string of faust process, input waves in default directory 'input_sounds/'
-output: output waves in default directory 'output_sounds/'.<br>
-<pre><span id="VALmain"><span class="keyword">val</span> <a href="code_VALMain.main.html">main</a></span> : <code class="type">unit -> unit</code></pre></body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Types.html">
-<link rel="next" href="Lexer.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser</title>
-</head>
-<body>
-<div class="navbar"><a href="Types.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Lexer.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Parser.html">Parser</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Parser: <code class="code">sig</code> <a href="Parser.html">..</a> <code class="code">end</code></pre><hr width="100%">
-<br><code><span id="TYPEtoken"><span class="keyword">type</span> <code class="type"></code>token</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">CONST</span> <span class="keyword">of</span> <code class="type">string</code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">IDENT</span> <span class="keyword">of</span> <code class="type">string</code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">LPAR</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">RPAR</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">SEQ</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">SPLIT</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">MERGE</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">PAR</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">REC</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">EOF</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">POINT</span></code></td>
-
-</tr></table>
-
-
-<pre><span id="VALyytransl_const"><span class="keyword">val</span> <a href="code_VALParser.yytransl_const.html">yytransl_const</a></span> : <code class="type">int array</code></pre><pre><span id="VALyytransl_block"><span class="keyword">val</span> <a href="code_VALParser.yytransl_block.html">yytransl_block</a></span> : <code class="type">int array</code></pre><pre><span id="VALyylhs"><span class="keyword">val</span> <a href="code_VALParser.yylhs.html">yylhs</a></span> : <code class="type">string</code></pre><pre><span id="VALyylen"><span class="keyword">val</span> <a href="code_VALParser.yylen.html">yylen</a></span> : <code class="type">string</code></pre><pre><span id="VALyydefred"><span class="keyword">val</span> <a href="code_VALParser.yydefred.html">yydefred</a></span> : <code class="type">string</code></pre><pre><span id="VALyydgoto"><span class="keyword">val</span> <a href="code_VALParser.yydgoto.html">yydgoto</a></span> : <code class="type">string</code></pre><pre><span id="VALyysindex"><span class="keyword">val</span> <a href="code_VALParser.yysindex.html">yysindex</a></span> : <code class="type">string</code></pre><pre><span id="VALyyrindex"><span class="keyword">val</span> <a href="code_VALParser.yyrindex.html">yyrindex</a></span> : <code class="type">string</code></pre><pre><span id="VALyygindex"><span class="keyword">val</span> <a href="code_VALParser.yygindex.html">yygindex</a></span> : <code class="type">string</code></pre><pre><span id="VALyytablesize"><span class="keyword">val</span> <a href="code_VALParser.yytablesize.html">yytablesize</a></span> : <code class="type">int</code></pre><pre><span id="VALyytable"><span class="keyword">val</span> <a href="code_VALParser.yytable.html">yytable</a></span> : <code class="type">string</code></pre><pre><span id="VALyycheck"><span class="keyword">val</span> <a href="code_VALParser.yycheck.html">yycheck</a></span> : <code class="type">string</code></pre><pre><span id="VALyynames_const"><span class="keyword">val</span> <a href="code_VALParser.yynames_const.html">yynames_const</a></span> : <code class="type">string</code></pre><pre><span id="VALyynames_block"><span class="keyword">val</span> <a href="code_VALParser.yynames_block.html">yynames_block</a></span> : <code class="type">string</code></pre><pre><span id="VALyyact"><span class="keyword">val</span> <a href="code_VALParser.yyact.html">yyact</a></span> : <code class="type">(Parsing.parser_env -> Obj.t) array</code></pre><pre><span id="VALyytables"><span class="keyword">val</span> <a href="code_VALParser.yytables.html">yytables</a></span> : <code class="type">Parsing.parse_tables</code></pre><pre><span id="VALmain"><span class="keyword">val</span> <a href="code_VALParser.main.html">main</a></span> : <code class="type">(Lexing.lexbuf -> <a href="Parser.html#TYPEtoken">token</a>) -> Lexing.lexbuf -> <a href="Types.html#TYPEfaust_exp">Types.faust_exp</a></code></pre></body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Interpreter.html">
-<link rel="next" href="Main.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Preprocess</title>
-</head>
-<body>
-<div class="navbar"><a href="Interpreter.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Main.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Preprocess.html">Preprocess</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Preprocess: <code class="code">sig</code> <a href="Preprocess.html">..</a> <code class="code">end</code></pre><hr width="100%">
-<pre><span id="VALpreprocess"><span class="keyword">val</span> <a href="code_VALPreprocess.preprocess.html">preprocess</a></span> : <code class="type">string -> string</code></pre></body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Value.html">
-<link rel="next" href="Faustexp.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal</title>
-</head>
-<body>
-<div class="navbar"><a href="Value.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Faustexp.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Signal.html">Signal</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Signal: <code class="code">sig</code> <a href="Signal.html">..</a> <code class="code">end</code></pre>Module: Signal
- Description: type signal = rate * (int -> value), operations of signals.<br>
-<b>Author(s):</b> WANG Haisheng
- Created: 03/06/2013 Modified: 03/06/2013<br>
-<hr width="100%">
-<pre><span id="EXCEPTIONSignal_operation"><span class="keyword">exception</span> Signal_operation</span> <span class="keyword">of</span> <code class="type">string</code></pre>
-<div class="info">
-Exception raised in operations of signals.<br>
-</div>
-<br><code><span id="TYPEsignal_macro"><span class="keyword">type</span> <code class="type"></code>signal_macro</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Delay_Memory_Length_int</span></code></td>
-
-</tr></table>
-
-<div class="info">
-Macro constants of the file.<br>
-</div>
-
-<pre><span id="VALsignal_macro_to_int"><span class="keyword">val</span> <a href="code_VALSignal.signal_macro_to_int.html">signal_macro_to_int</a></span> : <code class="type"><a href="Signal.html#TYPEsignal_macro">signal_macro</a> -> int</code></pre><div class="info">
-val signal_macro_to_int : signal_macro -> int.<br>
-</div>
-<pre><span id="VALfrequency"><span class="keyword">val</span> <a href="code_VALSignal.frequency.html">frequency</a></span> : <code class="type">'a * 'b -> 'a</code></pre><div class="info">
-val frequency : signal -> int, returns the frequency of a signal.<br>
-</div>
-<pre><span id="VALsignal_fun"><span class="keyword">val</span> <a href="code_VALSignal.signal_fun.html">signal_fun</a></span> : <code class="type">'a * 'b -> 'b</code></pre><div class="info">
-val signal_fun : signal -> (int -> value), returns the functional part of a signal.<br>
-</div>
-<pre><span id="VALcheck_frequency"><span class="keyword">val</span> <a href="code_VALSignal.check_frequency.html">check_frequency</a></span> : <code class="type">int -> int -> int</code></pre><div class="info">
-val check_frequency : int -> int -> int, returns the correction of frequency.<br>
-</div>
-<pre><span id="VALsignal_check_frequency"><span class="keyword">val</span> <a href="code_VALSignal.signal_check_frequency.html">signal_check_frequency</a></span> : <code class="type">int * 'a -> int * 'b -> int</code></pre><div class="info">
-val signal_check_frequency : signal -> signal -> int,
-checks the frequencies of two input signals, and returns common frequency or raise an exception.<br>
-</div>
-<pre><span id="VALsignal_check_frequency3"><span class="keyword">val</span> <a href="code_VALSignal.signal_check_frequency3.html">signal_check_frequency3</a></span> : <code class="type">int * 'a -> int * 'b -> int * 'c -> int</code></pre><div class="info">
-val signal_check_frequency3 : signal -> signal -> signal -> int,
-checks the frequencies of three input signal, and returns common frequency or raise an exception.<br>
-</div>
-<pre><span id="VALsignal_check_frequency4"><span class="keyword">val</span> <a href="code_VALSignal.signal_check_frequency4.html">signal_check_frequency4</a></span> : <code class="type">int * 'a -> int * 'b -> int * 'c -> int * 'd -> int</code></pre><div class="info">
-val signal_check_frequency4 : signal -> signal -> signal -> signal -> int,
-checks the frequencies of three input signal, and returns common frequency or raise an exception.<br>
-</div>
-<pre><span id="VALsignal_add_one_memory"><span class="keyword">val</span> <a href="code_VALSignal.signal_add_one_memory.html">signal_add_one_memory</a></span> : <code class="type">'a * (int -> 'b) -> 'a * (int -> 'b)</code></pre><div class="info">
-val signal_add_one_memory : signal -> signal,
-returns the signal with memory of one latest sample.<br>
-</div>
-<pre><span id="VALbeam_add_one_memory"><span class="keyword">val</span> <a href="code_VALSignal.beam_add_one_memory.html">beam_add_one_memory</a></span> : <code class="type">('a * (int -> 'b)) list -> ('a * (int -> 'b)) list</code></pre><div class="info">
-val beam_add_one_memory : signal list -> signal list,
-adds memory of one latest sample for each element in signal list.<br>
-</div>
-<pre><span id="VALsignal_add"><span class="keyword">val</span> <a href="code_VALSignal.signal_add.html">signal_add</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_add : signal -> signal -> signal, output(t) = input1(t) + input2(t),
- frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_neg"><span class="keyword">val</span> <a href="code_VALSignal.signal_neg.html">signal_neg</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_neg : signal -> signal, output(t) = -input(t), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_sub"><span class="keyword">val</span> <a href="code_VALSignal.signal_sub.html">signal_sub</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_sub : signal -> signal -> signal, output(t) = input1(t) - input2(t),
- frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_mul"><span class="keyword">val</span> <a href="code_VALSignal.signal_mul.html">signal_mul</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_mul : signal -> signal -> signal, output(t) = input1(t) * input2(t),
- frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_div"><span class="keyword">val</span> <a href="code_VALSignal.signal_div.html">signal_div</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_div : signal -> signal -> signal, output(t) = input1(t) / input2(t),
- frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_delay"><span class="keyword">val</span> <a href="code_VALSignal.signal_delay.html">signal_delay</a></span> : <code class="type">'a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> 'b * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_delay : signal -> signal -> signal, output(t) = input1(t - input2(t)),
- Attention: delay dynamic, frequency of output signal equals to that of first input signal.<br>
-</div>
-<pre><span id="VALsignal_mem"><span class="keyword">val</span> <a href="code_VALSignal.signal_mem.html">signal_mem</a></span> : <code class="type">'a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_mem : signal -> signal, equivalent to signal_delay with constant delay 1.<br>
-</div>
-<pre><span id="VALsignal_vectorize"><span class="keyword">val</span> <a href="code_VALSignal.signal_vectorize.html">signal_vectorize</a></span> : <code class="type">int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> 'a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_vectorize : signal -> signal -> signal, output(t)(i) = input1(input2(0) * t + i),
-Attention: vector size n static, frequency of output signal is (1/n * frequency of input1)<br>
-</div>
-<pre><span id="VALsignal_serialize"><span class="keyword">val</span> <a href="code_VALSignal.signal_serialize.html">signal_serialize</a></span> : <code class="type">int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_serialize : signal -> signal, output(t) = input(floor(t/n))(t%n),
- with n = size of input(0).
- Attention: input size unknown in the cas of "rec".<br>
-</div>
-<pre><span id="VALsignal_append"><span class="keyword">val</span> <a href="code_VALSignal.signal_append.html">signal_append</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_append : signal -> signal -> signal, symbol "#",
- appends vectors of the two input signals at each time, frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_nth"><span class="keyword">val</span> <a href="code_VALSignal.signal_nth.html">signal_nth</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_nth : signal -> signal -> signal, symbol "[]", output(t) = input1(t)(input2(t)),
- frequency consistent. Attention: selection index dynamic.<br>
-</div>
-<pre><span id="VALsignal_floor"><span class="keyword">val</span> <a href="code_VALSignal.signal_floor.html">signal_floor</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_floor : signal -> signal, output(t) = v_floor(input(t)), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_int"><span class="keyword">val</span> <a href="code_VALSignal.signal_int.html">signal_int</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_int : signal -> signal, output(t) = v_int(input(t)), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_sin"><span class="keyword">val</span> <a href="code_VALSignal.signal_sin.html">signal_sin</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_sin : signal -> signal, output(t) = v_sin(input(t)), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_cos"><span class="keyword">val</span> <a href="code_VALSignal.signal_cos.html">signal_cos</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_cos : signal -> signal, output(t) = v_cos(input(t)), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_atan"><span class="keyword">val</span> <a href="code_VALSignal.signal_atan.html">signal_atan</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_atan : signal -> signal, output(t) = v_atan(input(t)), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_atantwo"><span class="keyword">val</span> <a href="code_VALSignal.signal_atantwo.html">signal_atantwo</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> 'c * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><pre><span id="VALsignal_sqrt"><span class="keyword">val</span> <a href="code_VALSignal.signal_sqrt.html">signal_sqrt</a></span> : <code class="type">'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'a * ('b -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_sqrt : signal -> signal, output(t) = v_sqrt(input(t)), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_rdtable"><span class="keyword">val</span> <a href="code_VALSignal.signal_rdtable.html">signal_rdtable</a></span> : <code class="type">'a * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> 'b * (int -> 'c) -> 'd * ('e -> <a href="Types.html#TYPEvalue">Types.value</a>) -> 'd * ('e -> 'c)</code></pre><div class="info">
-val signal_rdtable : signal -> signal -> signal,
- output(t) = input1(input2(t)), frequency equals to that of input2.
- Attention: no memory implemented, very expensive when input1 comes from rec or delays.<br>
-</div>
-<pre><span id="VALsignal_mod"><span class="keyword">val</span> <a href="code_VALSignal.signal_mod.html">signal_mod</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_mod : signal -> signal -> signal,
- output(t) = input1(t) % input2(t), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_sup"><span class="keyword">val</span> <a href="code_VALSignal.signal_sup.html">signal_sup</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_sup : signal -> signal -> signal,
- output(t) = input1(t) > input2(t), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_inf"><span class="keyword">val</span> <a href="code_VALSignal.signal_inf.html">signal_inf</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -> int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>)</code></pre><div class="info">
-val signal_inf : signal -> signal -> signal,
- output(t) = input1(t) < input2(t), frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_select2"><span class="keyword">val</span> <a href="code_VALSignal.signal_select2.html">signal_select2</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> 'b) -> int * ('a -> 'b) -> int * ('a -> 'b)</code></pre><div class="info">
-val signal_select2 : signal -> signal -> signal -> signal,
-<code class="code">signal_select2 si s0 s1</code> selects s0 or s1 by index si, frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_select3"><span class="keyword">val</span> <a href="code_VALSignal.signal_select3.html">signal_select3</a></span> : <code class="type">int * ('a -> <a href="Types.html#TYPEvalue">Types.value</a>) -><br> int * ('a -> 'b) -> int * ('a -> 'b) -> int * ('a -> 'b) -> int * ('a -> 'b)</code></pre><div class="info">
-val signal_select3 : signal -> signal -> signal -> signal -> signal,
-<code class="code">signal_select3 si s0 s1 s2</code> selects s0 or s1 or s2 by index si, frequency consistent.<br>
-</div>
-<pre><span id="VALsignal_prefix"><span class="keyword">val</span> <a href="code_VALSignal.signal_prefix.html">signal_prefix</a></span> : <code class="type">'a * (int -> 'b) -> 'c * (int -> 'b) -> 'c * (int -> 'b)</code></pre><div class="info">
-val signal_prefix : signal -> signal -> signal,
-<code class="code">signal_prefix s0 s1</code> returns s0(0) if t = 0, s1(t-1) if t > 0, frequency same to s1.<br>
-</div>
-</body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="next" href="Parser.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Types</title>
-</head>
-<body>
-<div class="navbar"> <a href="index.html">Up</a>
- <a href="Parser.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Types.html">Types</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Types: <code class="code">sig</code> <a href="Types.html">..</a> <code class="code">end</code></pre>type symbol, defines valid identifiers in faust expressions.<br>
-<hr width="100%">
-<br><code><span id="TYPEvalue"><span class="keyword">type</span> <code class="type"></code>value</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">N</span> <span class="keyword">of</span> <code class="type">int</code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">R</span> <span class="keyword">of</span> <code class="type">float</code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Vec</span> <span class="keyword">of</span> <code class="type">int * (int -> <a href="Types.html#TYPEvalue">value</a>)</code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Zero</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">W</span></code></td>
-
-</tr></table>
-
-
-<br><code><span id="TYPEsymbol"><span class="keyword">type</span> <code class="type"></code>symbol</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Add</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Sup</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Mul</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Div</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Pass</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Stop</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Mem</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Delay</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Floor</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Int</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Sin</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Cos</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Atan</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Atantwo</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Sqrt</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Rdtable</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Mod</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Vectorize</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Concat</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Nth</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Serialize</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Larger</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Smaller</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Prefix</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Selecttwo</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Selectthree</span></code></td>
-
-</tr></table>
-
-<div class="info">
-type symbol, defines valid identifiers in faust expressions.<br>
-</div>
-
-<pre><span id="EXCEPTIONSymbol_not_defined"><span class="keyword">exception</span> Symbol_not_defined</span></pre>
-<pre><span id="VALsymbol_of_string"><span class="keyword">val</span> <a href="code_VALTypes.symbol_of_string.html">symbol_of_string</a></span> : <code class="type">string -> <a href="Types.html#TYPEsymbol">symbol</a></code></pre><pre><span id="TYPEsignal"><span class="keyword">type</span> <code class="type"></code>signal</span> = <code class="type">int * (int -> <a href="Types.html#TYPEvalue">value</a>)</code> </pre>
-
-<br><code><span id="TYPEfaust_exp"><span class="keyword">type</span> <code class="type"></code>faust_exp</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Const</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEvalue">value</a></code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Ident</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEsymbol">symbol</a></code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Par</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEfaust_exp">faust_exp</a> * <a href="Types.html#TYPEfaust_exp">faust_exp</a></code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Seq</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEfaust_exp">faust_exp</a> * <a href="Types.html#TYPEfaust_exp">faust_exp</a></code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Rec</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEfaust_exp">faust_exp</a> * <a href="Types.html#TYPEfaust_exp">faust_exp</a></code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Split</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEfaust_exp">faust_exp</a> * <a href="Types.html#TYPEfaust_exp">faust_exp</a></code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Merge</span> <span class="keyword">of</span> <code class="type"><a href="Types.html#TYPEfaust_exp">faust_exp</a> * <a href="Types.html#TYPEfaust_exp">faust_exp</a></code></code></td>
-
-</tr></table>
-
-
-<br><code><span id="TYPEdimension"><span class="keyword">type</span> <code class="type"></code>dimension</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">End</span> <span class="keyword">of</span> <code class="type">(int * int)</code></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Tree</span> <span class="keyword">of</span> <code class="type">(int * int) * (<a href="Types.html#TYPEdimension">dimension</a> * <a href="Types.html#TYPEdimension">dimension</a>)</code></code></td>
-
-</tr></table>
-
-
-</body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link rel="previous" href="Lexer.html">
-<link rel="next" href="Signal.html">
-<link rel="Up" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value</title>
-</head>
-<body>
-<div class="navbar"><a href="Lexer.html">Previous</a>
- <a href="index.html">Up</a>
- <a href="Signal.html">Next</a>
-</div>
-<center><h1>Module <a href="type_Value.html">Value</a></h1></center>
-<br>
-<pre><span class="keyword">module</span> Value: <code class="code">sig</code> <a href="Value.html">..</a> <code class="code">end</code></pre>Module: Value
- Description: basic data type in the vectorial faust interpreter.<br>
-<b>Author(s):</b> WANG Haisheng
- Created: 31/05/2013 Modified: 03/06/2013<br>
-<hr width="100%">
-<pre><span id="EXCEPTIONConvert_Error"><span class="keyword">exception</span> Convert_Error</span> <span class="keyword">of</span> <code class="type">string</code></pre>
-<div class="info">
-Exception raised in convertions between float/int and type 'Value'.<br>
-</div>
-<pre><span id="EXCEPTIONValue_operation"><span class="keyword">exception</span> Value_operation</span> <span class="keyword">of</span> <code class="type">string</code></pre>
-<div class="info">
-Exception raised in type 'Value' operations.<br>
-</div>
-<br><code><span id="TYPEvalue_macro"><span class="keyword">type</span> <code class="type"></code>value_macro</span> = </code><table class="typetable">
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Faust_Max_int</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Faust_Min_int</span></code></td>
-
-</tr>
-<tr>
-<td align="left" valign="top" >
-<code><span class="keyword">|</span></code></td>
-<td align="left" valign="top" >
-<code><span class="constructor">Faust_Bits_int</span></code></td>
-
-</tr></table>
-
-<div class="info">
-Macro constants of the file.<br>
-</div>
-
-<pre><span id="VALvalue_macro_to_int"><span class="keyword">val</span> <a href="code_VALValue.value_macro_to_int.html">value_macro_to_int</a></span> : <code class="type"><a href="Value.html#TYPEvalue_macro">value_macro</a> -> int</code></pre><div class="info">
-val value_macro_to_value : value_macro -> int.<br>
-</div>
-<pre><span id="VALreturn_N"><span class="keyword">val</span> <a href="code_VALValue.return_N.html">return_N</a></span> : <code class="type">int -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val return_N : int -> value, convert from int to value N.<br>
-</div>
-<pre><span id="VALreturn_R"><span class="keyword">val</span> <a href="code_VALValue.return_R.html">return_R</a></span> : <code class="type">float -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val return_R : float -> value, convert from float to value R.<br>
-</div>
-<pre><span id="VALreturn_Vec"><span class="keyword">val</span> <a href="code_VALValue.return_Vec.html">return_Vec</a></span> : <code class="type">int * (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val return_Vec : int * (int -> value) -> value, convert (size, vec) to value Vec.<br>
-</div>
-<pre><span id="VALfail"><span class="keyword">val</span> <a href="code_VALValue.fail.html">fail</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val fail, return value W.<br>
-</div>
-<pre><span id="VALtake_off_N"><span class="keyword">val</span> <a href="code_VALValue.take_off_N.html">take_off_N</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> int</code></pre><div class="info">
-val take_off_N : value -> int, convert from value N to int.
-Attention: Zero and W are converted to 0.<br>
-</div>
-<pre><span id="VALtake_off_R"><span class="keyword">val</span> <a href="code_VALValue.take_off_R.html">take_off_R</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> float</code></pre><div class="info">
-val take_off_R : value -> float, convert from value R to float.
-Attention: Zero and W are converted to 0.0, int converted to float.<br>
-</div>
-<pre><span id="VALconvert_back_R"><span class="keyword">val</span> <a href="code_VALValue.convert_back_R.html">convert_back_R</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> float array</code></pre><div class="info">
-val convert_back_r : value -> float array,
-return a float array of size 1 if v is N|R|Zero|W, a float array of size n if v is Vec.<br>
-</div>
-<pre><span id="VALstring_of_value"><span class="keyword">val</span> <a href="code_VALValue.string_of_value.html">string_of_value</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> string</code></pre><div class="info">
-val string_of_value : value -> string, converts value to following
-strings "N i" | "R f" | "Vec" | "Zero" | "W".<br>
-</div>
-<pre><span id="VALprint_value_list"><span class="keyword">val</span> <a href="code_VALValue.print_value_list.html">print_value_list</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> list -> unit</code></pre><div class="info">
-val print_value_list: value list -> unit, prints to console the value list.<br>
-</div>
-<pre><span id="VALfactory_add_memory"><span class="keyword">val</span> <a href="code_VALValue.factory_add_memory.html">factory_add_memory</a></span> : <code class="type">(int -> 'a) -> int -> int -> 'a</code></pre><div class="info">
-val factory_add_memory : (int -> 'b) -> int -> (int -> 'b),
-<code class="code">factory_add_memory f n</code> adds a memory of size n to fun f.<br>
-</div>
-<pre><span id="VALv_memory"><span class="keyword">val</span> <a href="code_VALValue.v_memory.html">v_memory</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_memory : value -> value, returns value Vec with memory.<br>
-</div>
-<pre><span id="VALv_list_memory"><span class="keyword">val</span> <a href="code_VALValue.v_list_memory.html">v_list_memory</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> list -> <a href="Types.html#TYPEvalue">Types.value</a> list</code></pre><div class="info">
-val v_list_memory : value list -> value list, returns value list with memory.<br>
-</div>
-<pre><span id="VALmake_vector"><span class="keyword">val</span> <a href="code_VALValue.make_vector.html">make_vector</a></span> : <code class="type">int -> (int -> <a href="Types.html#TYPEvalue">Types.value</a>) -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val make_vector : int -> (int -> value) -> value,
-<code class="code">make_vector size vec</code>, return a value Vec of (size, vec).<br>
-</div>
-<pre><span id="VALnormalize"><span class="keyword">val</span> <a href="code_VALValue.normalize.html">normalize</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val normalize: value -> value, normalize value to bounded <code class="code">-2147483648,2147483647</code>.<br>
-</div>
-<pre><span id="VALv_add"><span class="keyword">val</span> <a href="code_VALValue.v_add.html">v_add</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_add : value -> value -> value, value addition, recursive for value.Vec.<br>
-</div>
-<pre><span id="VAL(+~)"><span class="keyword">val</span> <a href="code_VALValue.(_plus__tilde_).html">(+~)</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val (+~) : value -> value -> value, operator of v_add.<br>
-</div>
-<pre><span id="VALv_neg"><span class="keyword">val</span> <a href="code_VALValue.v_neg.html">v_neg</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_neg : value -> value, v_neg v = -v.<br>
-</div>
-<pre><span id="VALv_sub"><span class="keyword">val</span> <a href="code_VALValue.v_sub.html">v_sub</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_sub : value -> value -> value, returns (v1 - v2).<br>
-</div>
-<pre><span id="VAL(-~)"><span class="keyword">val</span> <a href="code_VALValue.(_minus__tilde_).html">(-~)</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val (-~) : value -> value -> value, operator of v_sub.<br>
-</div>
-<pre><span id="VALv_mul"><span class="keyword">val</span> <a href="code_VALValue.v_mul.html">v_mul</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_mul : value -> value -> value, returns (v1 * v2), recursive for value.Vec.<br>
-</div>
-<pre><span id="VAL( *~ )"><span class="keyword">val</span> <a href="code_VALValue.( _star__tilde_ ).html">( *~ )</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val ( *~ ) : value -> value -> value, operator of v_mul.<br>
-</div>
-<pre><span id="VALv_recip"><span class="keyword">val</span> <a href="code_VALValue.v_recip.html">v_recip</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_recip : value -> value, v_recip v = 1./.v.<br>
-</div>
-<pre><span id="VALv_div"><span class="keyword">val</span> <a href="code_VALValue.v_div.html">v_div</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_div : value -> value -> value, value division, returns (v1/.v2).<br>
-</div>
-<pre><span id="VAL(/~)"><span class="keyword">val</span> <a href="code_VALValue.(_slash__tilde_).html">(/~)</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val (/~) : value -> value -> value, operator of v_div.<br>
-</div>
-<pre><span id="VALv_zero"><span class="keyword">val</span> <a href="code_VALValue.v_zero.html">v_zero</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_zero : value -> value, Attention: N i -> N 0 | R f -> R 0. | Zero -> Zero | W -> R 0.,
-and recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_floor"><span class="keyword">val</span> <a href="code_VALValue.v_floor.html">v_floor</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_floor : value -> value, returns floor of float, converts int to float, Zero to 0.,
- error to error, recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_int"><span class="keyword">val</span> <a href="code_VALValue.v_int.html">v_int</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_int : value -> value, converts value to value.N, error to error, recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_sin"><span class="keyword">val</span> <a href="code_VALValue.v_sin.html">v_sin</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_sin : value -> value, returns sin(v), recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_cos"><span class="keyword">val</span> <a href="code_VALValue.v_cos.html">v_cos</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_cos : value -> value, returns cos(v), recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_atan"><span class="keyword">val</span> <a href="code_VALValue.v_atan.html">v_atan</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_atan : value -> value, returns atan(v), recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_atantwo"><span class="keyword">val</span> <a href="code_VALValue.v_atantwo.html">v_atantwo</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_atantwo : value -> value, returns atantwo(v), recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_sqrt"><span class="keyword">val</span> <a href="code_VALValue.v_sqrt.html">v_sqrt</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_sqrt : value -> value, returns sqrt(v), recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_mod"><span class="keyword">val</span> <a href="code_VALValue.v_mod.html">v_mod</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_mod : value -> value -> value, returns (v1 % v2), recursive for value.Vec.<br>
-</div>
-<pre><span id="VALv_larger_than_zero"><span class="keyword">val</span> <a href="code_VALValue.v_larger_than_zero.html">v_larger_than_zero</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_larger_than_zero : value -> value, primitive comparison between value and zero,
-returns value.N 1 if true, value.N 0 if false.<br>
-</div>
-<pre><span id="VALv_sup"><span class="keyword">val</span> <a href="code_VALValue.v_sup.html">v_sup</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_sup : value -> value -> value, comparison of two values, returns value.N 1 if (v1 > v2),
-value.N 0 else.<br>
-</div>
-<pre><span id="VALv_inf"><span class="keyword">val</span> <a href="code_VALValue.v_inf.html">v_inf</a></span> : <code class="type"><a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a> -> <a href="Types.html#TYPEvalue">Types.value</a></code></pre><div class="info">
-val v_inf : value -> value -> value, comparison of two values, returns value.N 1 if (v1 < v2),
-value.N 0 else.<br>
-</div>
-</body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.d_merge</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> d_merge a b = <br>
- <span class="keyword">if</span> ((snd a) <span class="keyword">mod</span> (fst b)) = 0 <span class="keyword">then</span> <br>
- (fst a, snd b) <br>
- <span class="keyword">else</span> raise (<span class="constructor">Beam_Matching_Error</span> <span class="string">"merge"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.d_par</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> d_par a b = (((fst a) + (fst b)), ((snd a) + (snd b)))</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.d_rec</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> d_rec a b = <br>
- <span class="keyword">if</span> (fst a) >= (snd b) <span class="keywordsign">&&</span> (snd a) >= (fst b) <span class="keyword">then</span> <br>
- ((fst a) - (snd b), snd a) <br>
- <span class="keyword">else</span> raise (<span class="constructor">Beam_Matching_Error</span> <span class="string">"rec"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.d_seq</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> d_seq a b = <span class="keyword">if</span> (snd a) = (fst b) <span class="keyword">then</span> (fst a, snd b) <span class="keyword">else</span> raise (<span class="constructor">Beam_Matching_Error</span> <span class="string">"seq"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.d_split</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> d_split a b = <br>
- <span class="keyword">if</span> ((fst b) <span class="keyword">mod</span> (snd a)) = 0 <span class="keyword">then</span> <br>
- (fst a, snd b) <br>
- <span class="keyword">else</span> raise (<span class="constructor">Beam_Matching_Error</span> <span class="string">"split"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.delay</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> delay exp_faust = <span class="keyword">match</span> exp_faust <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Const</span> v <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Ident</span> s <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> s <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Add</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Sup</span> <span class="keywordsign">-></span> 0 <br>
- <span class="keywordsign">|</span><span class="constructor">Mul</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Div</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Pass</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Stop</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Mem</span> <span class="keywordsign">-></span> 1<br>
- <span class="keywordsign">|</span><span class="constructor">Delay</span> <span class="keywordsign">-></span> 100000 <span class="comment">(* danger! *)</span><br>
- <span class="keywordsign">|</span><span class="constructor">Floor</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Int</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Sin</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Cos</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Atan</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Atantwo</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Sqrt</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Rdtable</span> <span class="keywordsign">-></span> 100000 <span class="comment">(* danger! *)</span><br>
- <span class="keywordsign">|</span><span class="constructor">Mod</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Larger</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Smaller</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Vectorize</span> <span class="keywordsign">-></span> 100 <span class="comment">(* danger! *)</span><br>
- <span class="keywordsign">|</span><span class="constructor">Concat</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Nth</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Serialize</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Prefix</span> <span class="keywordsign">-></span> 1<br>
- <span class="keywordsign">|</span><span class="constructor">Selecttwo</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">Selectthree</span> <span class="keywordsign">-></span> 0<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">Par</span> (e1, e2) <span class="keywordsign">-></span> max (delay e1) (delay e2)<br>
- <span class="keywordsign">|</span><span class="constructor">Seq</span> (e1, e2) <span class="keywordsign">-></span> (delay e1) + (delay e2)<br>
- <span class="keywordsign">|</span><span class="constructor">Split</span> (e1, e2) <span class="keywordsign">-></span> (delay e1) + (delay e2)<br>
- <span class="keywordsign">|</span><span class="constructor">Merge</span> (e1, e2) <span class="keywordsign">-></span> (delay e1) + (delay e2)<br>
- <span class="keywordsign">|</span><span class="constructor">Rec</span> (e1, e2) <span class="keywordsign">-></span> delay e1</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.dim</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> dim exp_faust = <br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val dimension_constructor : ((int * int) -> (int * int) -> (int * int)) -> faust_exp
--> faust_exp -> dimension,
-returns the dimension tree of constructor(e1, e2).*)</span></td></tr></table><code class="code"><br>
- <span class="keyword">let</span> dimension_constructor = <span class="keyword">fun</span> constructor <span class="keywordsign">-></span> <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> subtree1 = dim e1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = dim e2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> root = constructor (get_root subtree1) (get_root subtree2) <span class="keyword">in</span><br>
- <span class="constructor">Tree</span> (root, (subtree1, subtree2)) <span class="keyword">in</span><br>
-<br>
- <span class="keyword">match</span> exp_faust <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Const</span> v <span class="keywordsign">-></span> <span class="constructor">End</span> (0, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Ident</span> s <span class="keywordsign">-></span> <br>
- (<br>
- <span class="keyword">match</span> s <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Add</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Sup</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1) <br>
- <span class="keywordsign">|</span><span class="constructor">Mul</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Div</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Pass</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Stop</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 0)<br>
- <span class="keywordsign">|</span><span class="constructor">Mem</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Delay</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Floor</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Int</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Sin</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Cos</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Atan</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Atantwo</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Sqrt</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Rdtable</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (3, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Mod</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Vectorize</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Concat</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Nth</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Serialize</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (1, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Larger</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Smaller</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Prefix</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (2, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Selecttwo</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (3, 1)<br>
- <span class="keywordsign">|</span><span class="constructor">Selectthree</span> <span class="keywordsign">-></span> <span class="constructor">End</span> (4, 1)<br>
- )<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Par</span> (e1, e2) <span class="keywordsign">-></span> dimension_constructor d_par e1 e2<br>
- <span class="keywordsign">|</span><span class="constructor">Seq</span> (e1, e2) <span class="keywordsign">-></span> dimension_constructor d_seq e1 e2<br>
- <span class="keywordsign">|</span><span class="constructor">Split</span> (e1, e2) <span class="keywordsign">-></span> dimension_constructor d_split e1 e2<br>
- <span class="keywordsign">|</span><span class="constructor">Merge</span> (e1, e2) <span class="keywordsign">-></span> dimension_constructor d_merge e1 e2<br>
- <span class="keywordsign">|</span><span class="constructor">Rec</span> (e1, e2) <span class="keywordsign">-></span> dimension_constructor d_rec e1 e2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.exp_of_string</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> exp_of_string s = (<span class="constructor">Parser</span>.main <span class="constructor">Lexer</span>.token (<span class="constructor">Lexing</span>.from_string s))</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.get_root</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> get_root = <span class="keyword">fun</span> d_tree <span class="keywordsign">-></span> <span class="keyword">match</span> d_tree <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> <span class="constructor">End</span> d <span class="keywordsign">-></span> d<br>
- <span class="keywordsign">|</span> <span class="constructor">Tree</span> (d, branches) <span class="keywordsign">-></span> d</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.print_exp</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> print_exp exp = <br>
- <span class="keyword">let</span> <span class="keyword">rec</span> string_of_exp exp = <span class="keyword">match</span> exp <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Const</span> v <span class="keywordsign">-></span> <span class="string">"Const"</span> ^ <span class="string">" ("</span> ^ (string_of_value v) ^ <span class="string">")"</span><br>
- <span class="keywordsign">|</span><span class="constructor">Ident</span> s <span class="keywordsign">-></span> <span class="string">"Ident"</span> ^ <span class="string">" \""</span> ^ <span class="string">"s"</span> ^ <span class="string">"\""</span><br>
- <span class="keywordsign">|</span><span class="constructor">Par</span> (e1, e2) <span class="keywordsign">-></span> <span class="string">"Par"</span> ^ <span class="string">" ("</span> ^ (string_of_exp e1) ^ <span class="string">", "</span> ^ (string_of_exp e2) ^ <span class="string">")"</span><br>
- <span class="keywordsign">|</span><span class="constructor">Seq</span> (e1, e2) <span class="keywordsign">-></span> <span class="string">"Seq"</span> ^ <span class="string">" ("</span> ^ (string_of_exp e1) ^ <span class="string">", "</span> ^ (string_of_exp e2) ^ <span class="string">")"</span><br>
- <span class="keywordsign">|</span><span class="constructor">Split</span> (e1, e2) <span class="keywordsign">-></span> <span class="string">"Split"</span> ^ <span class="string">" ("</span> ^ (string_of_exp e1) ^ <span class="string">", "</span> ^ (string_of_exp e2) ^ <span class="string">")"</span><br>
- <span class="keywordsign">|</span><span class="constructor">Merge</span> (e1, e2) <span class="keywordsign">-></span> <span class="string">"Merge"</span> ^ <span class="string">" ("</span> ^ (string_of_exp e1) ^ <span class="string">", "</span> ^ (string_of_exp e2) ^ <span class="string">")"</span><br>
- <span class="keywordsign">|</span><span class="constructor">Rec</span> (e1, e2) <span class="keywordsign">-></span> <span class="string">"Rec"</span> ^ <span class="string">" ("</span> ^ (string_of_exp e1) ^ <span class="string">", "</span> ^ (string_of_exp e2) ^ <span class="string">")"</span><br>
- <span class="keyword">in</span><br>
- print_string(<span class="string">"Parer : Types.faust_exp = "</span>^ (string_of_exp exp))</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.subtree</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> subtree = <span class="keyword">fun</span> d_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span><br>
- <span class="keyword">match</span> d_tree <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> <span class="constructor">End</span> d <span class="keywordsign">-></span> raise (<span class="constructor">Beam_Matching_Error</span> <span class="string">"Subtree left absent."</span>)<br>
- <span class="keywordsign">|</span> <span class="constructor">Tree</span> (d, branches) <span class="keywordsign">-></span> (<br>
- <span class="keyword">match</span> branches <span class="keyword">with</span> <br>
- (left, right) <span class="keywordsign">-></span> <span class="keyword">if</span> i = 0 <span class="keyword">then</span> left <span class="keyword">else</span> right)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.subtree_left</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> subtree_left = <span class="keyword">fun</span> d_tree <span class="keywordsign">-></span> subtree d_tree 0</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp.subtree_right</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> subtree_right = <span class="keyword">fun</span> d_tree <span class="keywordsign">-></span> subtree d_tree 1</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.arrange</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> arrange = <span class="keyword">fun</span> float_array_array_array <span class="keywordsign">-></span> <span class="keyword">fun</span> width <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> concat faaa = <span class="keyword">fun</span> i <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> faa = faaa.(i) <span class="keyword">in</span><br>
- <span class="constructor">Array</span>.concat (<span class="constructor">Array</span>.to_list faa)<br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> float_array_array = <span class="constructor">Array</span>.init width (concat float_array_array_array) <span class="keyword">in</span><br>
- <span class="keyword">let</span> float_array_list = <span class="constructor">Array</span>.to_list float_array_array <span class="keyword">in</span><br>
- float_array_list</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.channels</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> channels = <span class="keyword">fun</span> f_array_array_array <span class="keywordsign">-></span> <span class="keyword">fun</span> width <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> channel = <span class="keyword">fun</span> faaa <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> faa = faaa.(i) <span class="keyword">in</span><br>
- <span class="keyword">let</span> length = <span class="constructor">Array</span>.length faa <span class="keyword">in</span><br>
- <span class="keyword">let</span> fa = faa.(length - 1) <span class="keyword">in</span><br>
- <span class="constructor">Array</span>.length fa<br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> channel_array = <span class="constructor">Array</span>.init width (channel f_array_array_array) <span class="keyword">in</span><br>
- channel_array</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.compute</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> compute fun_list = <br>
- <span class="keyword">let</span> () = print_endline(<span class="string">"Computing output signals..."</span>) <span class="keyword">in</span><br>
- <br>
- <span class="comment">(* arrange input information *)</span><br>
- <span class="keyword">let</span> length = interpreter_macro_to_value <span class="constructor">Number_samples_int</span> <span class="keyword">in</span><br>
- <span class="keyword">let</span> width = <span class="constructor">List</span>.length fun_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> beam_fun = fun_array_to_fun (<span class="constructor">Array</span>.of_list fun_list) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* calculate output wave *)</span><br>
- <span class="keyword">let</span> tmp_float_array_array_array = computing beam_fun width length <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* arrange output data *)</span><br>
- <span class="keyword">let</span> output_float_array_array_array = matrix_transpose tmp_float_array_array_array width <span class="keyword">in</span><br>
- <span class="keyword">let</span> channel_array = channels output_float_array_array_array width <span class="keyword">in</span><br>
- <span class="keyword">let</span> channel_list = <span class="constructor">Array</span>.to_list channel_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> output_float_array_list = arrange output_float_array_array_array width <span class="keyword">in</span><br>
- (channel_list, output_float_array_list)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.computing</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> computing = <span class="keyword">fun</span> f <span class="keywordsign">-></span> <span class="keyword">fun</span> width <span class="keywordsign">-></span> <span class="keyword">fun</span> length <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> container_float_array_array_array = <br>
- ref (<span class="constructor">Array</span>.make length (<span class="constructor">Array</span>.make width [||])) <span class="keyword">in</span><br>
- <span class="keyword">let</span> index = ref 0 <span class="keyword">in</span><br>
-<br>
- <span class="keyword">try</span><br>
- <span class="keyword">while</span> !index < length <span class="keyword">do</span><br>
- (!container_float_array_array_array).(!index) <br>
- <- (<span class="constructor">Array</span>.map convert_back_R (f (!index)));<br>
- incr index;<br>
- <span class="keyword">done</span>;<br>
- !container_float_array_array_array<br>
-<br>
- <span class="keyword">with</span> x <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> error_message = <br>
- <span class="keyword">match</span> x <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Convert_Error</span> s <span class="keywordsign">-></span> <span class="string">"Convert_Error: "</span> ^ s<br>
- <span class="keywordsign">|</span><span class="constructor">Value_operation</span> s <span class="keywordsign">-></span> <span class="string">"Value_operation: "</span> ^ s<br>
- <span class="keywordsign">|</span><span class="constructor">Signal_operation</span> s <span class="keywordsign">-></span> <span class="string">"Signal_operation: "</span> ^ s<br>
- <span class="keywordsign">|</span><span class="constructor">Beam_Matching_Error</span> s <span class="keywordsign">-></span> <span class="string">"Beam_Matching_Error: "</span> ^ s<br>
- <span class="keywordsign">|</span><span class="constructor">Evaluation_Error</span> s <span class="keywordsign">-></span> <span class="string">"Evaluation_Error: "</span> ^ s<br>
- <span class="keywordsign">|</span><span class="constructor">NotYetDone</span> <span class="keywordsign">-></span> <span class="string">"NotYetDone"</span><br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> <span class="string">"Compute finished."</span><br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = print_endline error_message <span class="keyword">in</span><br>
- <span class="constructor">Array</span>.sub (!container_float_array_array_array) 0 !index</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.eval</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> eval exp_faust dimension_tree input_beam = <br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_par : faust_exp -> faust_exp -> beam -> beam,
-interprets par(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_par = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
-<br>
- <span class="comment">(* dimension information *)</span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
-<br>
- <span class="keyword">if</span> n = (fst d1) + (fst d2) <span class="keyword">then</span> <br>
- ( <br>
- <span class="comment">(* segmentation of input beam *)</span><br>
- <span class="keyword">let</span> input_beam1 = sublist input_beam 0 (fst d1) <span class="keyword">in</span><br>
- <span class="keyword">let</span> input_beam2 = sublist input_beam (fst d1) (fst d2) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* evaluate two expressions respectively *)</span><br>
- <span class="keyword">let</span> output_beam1 = eval e1 subtree1 input_beam1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> output_beam2 = eval e2 subtree2 input_beam2 <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* concat two output beams *)</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length output_beam1 = snd d1 <span class="keywordsign">&&</span> <span class="constructor">List</span>.length output_beam2 = snd d2 <br>
- <span class="keyword">then</span> (output_beam1 @ output_beam2) <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Par"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Par"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_seq : faust_exp -> faust_exp -> beam -> beam,
-interprets seq(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_seq = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
-<br>
- <span class="comment">(* dimension information *)</span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
-<br>
-<br>
- <span class="keyword">if</span> n = fst d1 <span class="keyword">then</span><br>
- (<br>
- <span class="comment">(* evaluate the first expression *)</span><br>
- <span class="keyword">let</span> output_beam1 = eval e1 subtree1 input_beam <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* evaluate the second expression *)</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length output_beam1 = fst d2 <br>
- <span class="keyword">then</span> eval e2 subtree2 output_beam1<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Seq"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Seq"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_split : faust_exp -> faust_exp -> beam -> beam,
-interprets split(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_split = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
-<br>
- <span class="comment">(* dimension information *)</span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
-<br>
-<br>
- <span class="keyword">if</span> n = fst d1 <span class="keyword">then</span><br>
- (<br>
- <span class="comment">(* evaluate the first expression *)</span><br>
- <span class="keyword">let</span> output_beam1 = eval e1 subtree1 input_beam <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* beam matching *)</span><br>
- <span class="keyword">let</span> ref_output_beam1 = ref (beam_add_one_memory output_beam1) <span class="keyword">in</span><br>
- <span class="keyword">let</span> input_beam2 = <span class="constructor">List</span>.concat <br>
- (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make ((fst d2)/(<span class="constructor">List</span>.length output_beam1)) !ref_output_beam1)) <br>
- <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* evaluate the second expression *)</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length input_beam2 = fst d2<br>
- <span class="keyword">then</span> eval e2 subtree2 input_beam2<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Split"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Split"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_merge : faust_exp -> faust_exp -> beam -> beam,
-interprets merge(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_merge = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
-<br>
- <span class="comment">(* dimension information *)</span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
-<br>
-<br>
- <span class="keyword">if</span> n = fst d1 <span class="keyword">then</span><br>
- (<br>
- <span class="comment">(* evaluate the first expression *)</span><br>
- <span class="keyword">let</span> output_beam1 = eval e1 subtree1 input_beam <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* beam matching *)</span><br>
- <span class="keyword">let</span> input_beam2 = <br>
- (<br>
- <span class="keyword">let</span> fois = (snd d1)/(fst d2) <span class="keyword">in</span><br>
- <span class="keyword">let</span> ref_beam = ref (sublist output_beam1 0 (fst d2)) <span class="keyword">in</span><br>
- <span class="keyword">for</span> i = 1 <span class="keyword">to</span> fois - 1 <span class="keyword">do</span><br>
- <span class="keyword">let</span> temp_beam = sublist output_beam1 (i*(fst d2)) (fst d2) <span class="keyword">in</span><br>
- ref_beam := <span class="constructor">List</span>.map2 signal_add (!ref_beam) temp_beam;<br>
- <span class="keyword">done</span>;<br>
- !ref_beam<br>
- )<br>
- <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* evaluate the second expression *)</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length input_beam2 = fst d2<br>
- <span class="keyword">then</span> eval e2 subtree2 input_beam2<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Merge"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Merge"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_rec : faust_exp -> faust_exp -> beam -> beam,
-interprets rec(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_rec = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
-<br>
- <span class="comment">(* dimension information *)</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* estimate stockage size for delay *)</span><br>
- <span class="keyword">let</span> delay_int = 1 + delay e2 + delay e1 <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* prepare stockage *)</span><br>
- <span class="keyword">let</span> memory_hashtbl = <span class="constructor">Hashtbl</span>.create delay_int <span class="keyword">in</span><br>
- <span class="keyword">let</span> rate_list = ref (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make (snd d1) 0)) <span class="keyword">in</span><br>
-<br>
- </code><table><tr><td> </td><td><span class="comment">(** val apply_to : 'a -> ('a -> 'b) -> 'b *)</span></td></tr></table><code class="code"><br>
- <span class="keyword">let</span> apply_to = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <span class="keyword">fun</span> f <span class="keywordsign">-></span> f t <span class="keyword">in</span><br>
-<br>
- </code><table><tr><td> </td><td><span class="comment">(** val get_value_fun_list : (int -> (int list) * (value list)) -> (int -> value) list *)</span></td></tr></table><code class="code"> <br>
- <span class="keyword">let</span> get_value_fun_list = <span class="keyword">fun</span> beam_fun <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> tmp = <span class="keyword">fun</span> beam_fun <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span> <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="constructor">List</span>.nth (snd (beam_fun t)) i <span class="keyword">in</span><br>
- <span class="constructor">List</span>.map (tmp beam_fun) (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.init (snd d1) (<span class="keyword">fun</span> n <span class="keywordsign">-></span> n))) <span class="keyword">in</span><br>
-<br>
- </code><table><tr><td> </td><td><span class="comment">(** val make_signal : int -> (int -> value) -> signal, combines rate and function. *)</span></td></tr></table><code class="code"><br>
- <span class="keyword">let</span> make_signal = <span class="keyword">fun</span> rate <span class="keywordsign">-></span> <span class="keyword">fun</span> f <span class="keywordsign">-></span> (rate, f) <span class="keyword">in</span><br>
-<br>
- </code><table><tr><td> </td><td><span class="comment">(** val output_beam_fun : int -> (int list) * (value list), with
- input : time
- output: rate list * value list *)</span></td></tr></table><code class="code"><br>
- <span class="keyword">let</span> <span class="keyword">rec</span> output_beam_fun = <span class="keyword">fun</span> t <span class="keywordsign">-></span><br>
-<br>
- <span class="comment">(* initial value in constrctor "rec '~'" *)</span><br>
- <span class="keyword">if</span> t < 0 <span class="keyword">then</span><br>
- <span class="keyword">let</span> init_rate_list = <span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make (snd d1) 0) <span class="keyword">in</span><br>
- <span class="keyword">let</span> value_list = <span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make (snd d1) <span class="constructor">Zero</span>) <span class="keyword">in</span><br>
- (init_rate_list, value_list)<br>
-<br>
- <span class="comment">(* check stockage at time t *)</span><br>
- <span class="keyword">else</span> <span class="keyword">if</span> <span class="constructor">Hashtbl</span>.mem memory_hashtbl t <span class="keyword">then</span> <br>
- (!rate_list, <span class="constructor">Hashtbl</span>.find memory_hashtbl t)<br>
-<br>
- <span class="comment">(* blocks : "a ~ b", calculate rate list and value list at time t *)</span><br>
- <span class="keyword">else</span> <br>
- <span class="comment">(* mid_output_fun_list : (int -> value) list *)</span><br>
- <span class="keyword">let</span> mid_output_fun_list = get_value_fun_list output_beam_fun <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* b_input_fun_list : (int -> value) list *)</span><br>
- <span class="keyword">let</span> b_input_fun_list = <span class="constructor">List</span>.map <br>
- (<span class="keyword">fun</span> s <span class="keywordsign">-></span> <span class="keyword">fun</span> t <span class="keywordsign">-></span> s (t - 1)) <br>
- (sublist mid_output_fun_list 0 (fst d2)) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* b_input_beam : signal list *)</span><br>
- <span class="keyword">let</span> b_input_beam = <span class="constructor">List</span>.map2 make_signal <br>
- (sublist !rate_list 0 (fst d2))<br>
- b_input_fun_list <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* evaluation of block "b" *)</span><br>
- <span class="keyword">let</span> b_output_beam = (eval e2 subtree2 b_input_beam) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* evaluation of block "a" *)</span><br>
- <span class="keyword">let</span> a_input_beam = b_output_beam @ input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> mid_output_beam = eval e1 subtree1 a_input_beam <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* calculate rate list and value list at time t *)</span><br>
- <span class="keyword">let</span> mid_output_rate_list = <span class="constructor">List</span>.map fst mid_output_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> mid_output_value_list = <span class="constructor">List</span>.map (apply_to t) (<span class="constructor">List</span>.map snd mid_output_beam) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* update stockage *)</span><br>
- <span class="keyword">let</span> () = (rate_list := mid_output_rate_list) <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.add memory_hashtbl t mid_output_value_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.remove memory_hashtbl (t - delay_int) <span class="keyword">in</span><br>
- (mid_output_rate_list, mid_output_value_list) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* output_beam : signal list *)</span><br>
- <span class="keyword">let</span> output_beam = <span class="constructor">List</span>.map2 make_signal !rate_list (get_value_fun_list output_beam_fun) <span class="keyword">in</span><br>
- output_beam <span class="keyword">in</span><br>
-<br>
-<br>
- </code><table><tr><td> </td><td><span class="comment">(** Call for previous functions *)</span></td></tr></table><code class="code"><br>
- <span class="keyword">match</span> exp_faust <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Const</span> v <span class="keywordsign">-></span> interpret_const v input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Ident</span> s <span class="keywordsign">-></span> interpret_ident s input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Par</span> (e1, e2) <span class="keywordsign">-></span> interpret_par e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Seq</span> (e1, e2) <span class="keywordsign">-></span> interpret_seq e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Split</span> (e1, e2) <span class="keywordsign">-></span> interpret_split e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Merge</span> (e1, e2) <span class="keywordsign">-></span> interpret_merge e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Rec</span> (e1, e2) <span class="keywordsign">-></span> interpret_rec e1 e2 dimension_tree input_beam</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.extract_rate</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> extract_rate = <span class="keyword">fun</span> beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> rate_naive_list = <span class="constructor">List</span>.map fst beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> correct_rate r = <br>
- <span class="keyword">if</span> r = 0 <span class="keyword">then</span> 44100 <br>
- <span class="keyword">else</span> <span class="keyword">if</span> r > 0 <span class="keyword">then</span> r<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Rec2"</span>)<br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> rate_list = <span class="constructor">List</span>.map correct_rate rate_naive_list <span class="keyword">in</span><br>
- rate_list</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.fun_array_to_fun</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> fun_array_to_fun = <span class="keyword">fun</span> fun_array <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> reverse = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <span class="keyword">fun</span> f <span class="keywordsign">-></span> f t <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_fun = <span class="keyword">fun</span> t<span class="keywordsign">-></span> <span class="constructor">Array</span>.map (reverse t) fun_array <span class="keyword">in</span><br>
- new_fun</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.interpret_const</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> interpret_const = <span class="keyword">fun</span> v <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">if</span> n = 0 <span class="keyword">then</span> [(0,(<span class="keyword">fun</span> t <span class="keywordsign">-></span> v))] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Const"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.interpret_ident</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> interpret_ident = <span class="keyword">fun</span> s <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">match</span> s <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Pass</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> input_beam <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident _"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Stop</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [] <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident !"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Add</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_add (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident +"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Sup</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_sub (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident -"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Mul</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_mul (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident *"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Div</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_div (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident /"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Delay</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_delay (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident @"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Mem</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_mem (<span class="constructor">List</span>.nth input_beam 0)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident mem"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Vectorize</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_vectorize (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident vectorize"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Serialize</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_serialize (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident serialize"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Concat</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_append (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident #"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Nth</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_nth (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident []"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Floor</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_floor (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident floor"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Int</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_int (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident int"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Sin</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_sin (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident sin"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Cos</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_cos (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident cos"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Atan</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_atan (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident atan"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Atantwo</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_atantwo (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident atantwo"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Sqrt</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 1 <span class="keyword">then</span> [signal_sqrt (<span class="constructor">List</span>.nth input_beam 0)]<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident sqrt"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Rdtable</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 3 <span class="keyword">then</span> [signal_rdtable (<span class="constructor">List</span>.nth input_beam 0) <br>
- (<span class="constructor">List</span>.nth input_beam 1) (<span class="constructor">List</span>.nth input_beam 2)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident rdtable"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Selecttwo</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 3 <span class="keyword">then</span> [signal_select2 (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1) <br>
- (<span class="constructor">List</span>.nth input_beam 2)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident select2"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Selectthree</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 4 <span class="keyword">then</span> [signal_select3 (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1) <br>
- (<span class="constructor">List</span>.nth input_beam 2) (<span class="constructor">List</span>.nth input_beam 3)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident select3"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Prefix</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_prefix (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident prefix"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Mod</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_mod (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident %"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Larger</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_sup (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident >"</span>)<br>
-<br>
- <span class="keywordsign">|</span><span class="constructor">Smaller</span> <span class="keywordsign">-></span> <span class="keyword">if</span> n = 2 <span class="keyword">then</span> [signal_inf (<span class="constructor">List</span>.nth input_beam 0) (<span class="constructor">List</span>.nth input_beam 1)] <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Ident <"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.interpreter</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> interpreter exp_faust input = <br>
- <span class="keyword">let</span> () = print_endline(<span class="string">"Interpretation..."</span>) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* make input beam *)</span><br>
- <span class="keyword">let</span> input_beam = make_beam input <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* estimate process dimension *)</span><br>
- <span class="keyword">let</span> dimension_tree = dim exp_faust <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* interprete output beam *)</span><br>
- <span class="keyword">let</span> output_beam = eval exp_faust dimension_tree input_beam <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* get rate list from output beam *)</span><br>
- <span class="keyword">let</span> rate_list = extract_rate output_beam <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* get channel list and data list from output beam *)</span><br>
- <span class="keyword">let</span> (channel_list, float_array_list) = compute (<span class="constructor">List</span>.map snd output_beam) <span class="keyword">in</span><br>
- (channel_list, rate_list, float_array_list)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.interpreter_macro_to_value</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> interpreter_macro_to_value m = <span class="keyword">match</span> m <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> <span class="constructor">Number_samples_int</span> <span class="keywordsign">-></span> 0xFFFF<br>
- <span class="keywordsign">|</span> <span class="constructor">Max_Eval_Time_int</span> <span class="keywordsign">-></span> 0xFFFFFFFF</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.interpreter_rec</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> interpreter_rec exp_faust dimension_tree input_beam = <br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_par : faust_exp -> faust_exp -> beam -> beam,
-interprets par(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_par = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
- <span class="keyword">if</span> n = (fst d1) + (fst d2) <span class="keyword">then</span> <br>
- (<br>
- <span class="keyword">let</span> input_beam1 = sublist input_beam 0 (fst d1) <span class="keyword">in</span><br>
- <span class="keyword">let</span> input_beam2 = sublist input_beam (fst d1) (fst d2) <span class="keyword">in</span><br>
- <span class="keyword">let</span> output_beam1 = interpreter_rec e1 subtree1 input_beam1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> output_beam2 = interpreter_rec e2 subtree2 input_beam2 <span class="keyword">in</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length output_beam1 = snd d1 <span class="keywordsign">&&</span> <span class="constructor">List</span>.length output_beam2 = snd d2 <br>
- <span class="keyword">then</span> (output_beam1 @ output_beam2) <br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Par"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Par"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_seq : faust_exp -> faust_exp -> beam -> beam,
-interprets seq(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_seq = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
- <span class="keyword">if</span> n = fst d1 <span class="keyword">then</span><br>
- (<br>
- <span class="keyword">let</span> output_beam1 = interpreter_rec e1 subtree1 input_beam <span class="keyword">in</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length output_beam1 = fst d2 <br>
- <span class="keyword">then</span> interpreter_rec e2 subtree2 output_beam1<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Seq"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Seq"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_split : faust_exp -> faust_exp -> beam -> beam,
-interprets split(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_split = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
- <span class="keyword">if</span> n = fst d1 <span class="keyword">then</span><br>
- (<br>
- <span class="keyword">let</span> output_beam1 = interpreter_rec e1 subtree1 input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> ref_output_beam1 = ref (beam_add_one_memory output_beam1) <span class="keyword">in</span><br>
- <span class="keyword">let</span> input_beam2 = <span class="constructor">List</span>.concat <br>
- (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make ((fst d2)/(<span class="constructor">List</span>.length output_beam1)) !ref_output_beam1)) <br>
- <span class="keyword">in</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length input_beam2 = fst d2<br>
- <span class="keyword">then</span> interpreter_rec e2 subtree2 input_beam2<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Split"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Split"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_merge : faust_exp -> faust_exp -> beam -> beam,
-interprets merge(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_merge = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
- <span class="keyword">if</span> n = fst d1 <span class="keyword">then</span><br>
- (<br>
- <span class="keyword">let</span> output_beam1 = interpreter_rec e1 subtree1 input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> input_beam2 = <br>
- (<br>
- <span class="keyword">let</span> fois = (snd d1)/(fst d2) <span class="keyword">in</span><br>
- <span class="keyword">let</span> ref_beam = ref (sublist output_beam1 0 (fst d2)) <span class="keyword">in</span><br>
- <span class="keyword">for</span> i = 1 <span class="keyword">to</span> fois - 1 <span class="keyword">do</span><br>
- <span class="keyword">let</span> temp_beam = sublist output_beam1 (i*(fst d2)) (fst d2) <span class="keyword">in</span><br>
- ref_beam := <span class="constructor">List</span>.map2 signal_add (!ref_beam) temp_beam;<br>
- <span class="keyword">done</span>;<br>
- !ref_beam<br>
- )<br>
- <span class="keyword">in</span><br>
- <span class="keyword">if</span> <span class="constructor">List</span>.length input_beam2 = fst d2<br>
- <span class="keyword">then</span> interpreter_rec e2 subtree2 input_beam2<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Merge"</span>)<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Merge"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
-</code><table><tr><td></td><td><span class="comment">(** val interpret_rec : faust_exp -> faust_exp -> beam -> beam,
-interprets rec(e1, e2) with input beam, produces output beam.*)</span></td></tr></table><code class="code"><br>
-<span class="keyword">let</span> interpret_rec = <span class="keyword">fun</span> e1 <span class="keywordsign">-></span> <span class="keyword">fun</span> e2 <span class="keywordsign">-></span> <span class="keyword">fun</span> dimension_tree <span class="keywordsign">-></span> <span class="keyword">fun</span> input_beam <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree1 = subtree_left dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> subtree2 = subtree_right dimension_tree <span class="keyword">in</span><br>
- <span class="keyword">let</span> d1 = get_root subtree1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> d2 = get_root subtree2 <span class="keyword">in</span><br>
- <span class="keyword">if</span> n = (fst d1) - (snd d2) <span class="keyword">then</span><br>
- (<br>
- <span class="keyword">let</span> aux1 = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <span class="keyword">fun</span> f <span class="keywordsign">-></span> f t <span class="keyword">in</span><br>
- <span class="keyword">let</span> aux2 = <span class="keyword">fun</span> beam_fun <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span> <span class="keyword">fun</span> t <span class="keywordsign">-></span> <span class="constructor">List</span>.nth (snd (beam_fun t)) i <span class="keyword">in</span><br>
- <span class="keyword">let</span> aux3 = <span class="keyword">fun</span> beam_fun <span class="keywordsign">-></span> <span class="constructor">List</span>.map <br>
- (aux2 beam_fun) <br>
- (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.init (snd d1) (<span class="keyword">fun</span> n <span class="keywordsign">-></span> n))) <br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> make_signal = <span class="keyword">fun</span> rate <span class="keywordsign">-></span> <span class="keyword">fun</span> f <span class="keywordsign">-></span> (rate, f) <span class="keyword">in</span><br>
- <span class="keyword">let</span> delay_int = 1 + delay e2 + delay e1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> memory_hashtbl = <span class="constructor">Hashtbl</span>.create delay_int <span class="keyword">in</span><br>
- <span class="keyword">let</span> rate_list = ref (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make (snd d1) 0)) <span class="keyword">in</span><br>
- <span class="keyword">let</span> <span class="keyword">rec</span> output_beam_fun = <span class="keyword">fun</span> t <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> t < 0 <span class="keyword">then</span><br>
- <span class="keyword">let</span> init_rate_list = <span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make (snd d1) 0) <span class="keyword">in</span><br>
- <span class="keyword">let</span> value_list = <span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.make (snd d1) <span class="constructor">Zero</span>) <span class="keyword">in</span><br>
- (init_rate_list, value_list)<br>
- <span class="keyword">else</span> <span class="keyword">if</span> <span class="constructor">Hashtbl</span>.mem memory_hashtbl t <span class="keyword">then</span> <br>
- (!rate_list, <span class="constructor">Hashtbl</span>.find memory_hashtbl t)<br>
- <span class="keyword">else</span> <br>
- <span class="keyword">let</span> mid_output_fun_list1 = aux3 output_beam_fun <span class="keyword">in</span> <span class="comment">(* danger! *)</span><br>
- <span class="keyword">let</span> b_input_fun_list = <span class="constructor">List</span>.map <br>
- (<span class="keyword">fun</span> s <span class="keywordsign">-></span> <span class="keyword">fun</span> t <span class="keywordsign">-></span> s (t - 1)) <br>
- (sublist mid_output_fun_list1 0 (fst d2)) <br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> b_input_beam = <span class="constructor">List</span>.map2 make_signal !rate_list b_input_fun_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> b_output_beam = (interpreter_rec e2 subtree2 b_input_beam) <span class="keyword">in</span><br>
- <span class="keyword">let</span> a_input_beam = b_output_beam @ input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> mid_output_beam2 = interpreter_rec e1 subtree1 a_input_beam <span class="keyword">in</span><br>
- <span class="keyword">let</span> mid_output_rate_list = <span class="constructor">List</span>.map fst mid_output_beam2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> mid_output_value_list = <span class="constructor">List</span>.map (aux1 t) (<span class="constructor">List</span>.map snd mid_output_beam2) <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = (rate_list := mid_output_rate_list) <span class="keyword">in</span><br>
- <span class="keyword">let</span> mid_output_value_list_for_stock = v_list_memory mid_output_value_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.add memory_hashtbl t mid_output_value_list_for_stock <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.remove memory_hashtbl (t - delay_int) <span class="keyword">in</span><br>
- (mid_output_rate_list, mid_output_value_list_for_stock)<br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> output_beam = <span class="constructor">List</span>.map2 make_signal !rate_list (aux3 output_beam_fun) <span class="keyword">in</span><br>
- output_beam<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Evaluation_Error</span> <span class="string">"Rec1"</span>) <span class="keyword">in</span><br>
-<br>
-<br>
- </code><table><tr><td> </td><td><span class="comment">(** Call for previous functions *)</span></td></tr></table><code class="code"><br>
- <span class="keyword">match</span> exp_faust <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Const</span> v <span class="keywordsign">-></span> interpret_const v input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Ident</span> s <span class="keywordsign">-></span> interpret_ident s input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Par</span> (e1, e2) <span class="keywordsign">-></span> interpret_par e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Seq</span> (e1, e2) <span class="keywordsign">-></span> interpret_seq e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Split</span> (e1, e2) <span class="keywordsign">-></span> interpret_split e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Merge</span> (e1, e2) <span class="keywordsign">-></span> interpret_merge e1 e2 dimension_tree input_beam<br>
- <span class="keywordsign">|</span><span class="constructor">Rec</span> (e1, e2) <span class="keywordsign">-></span> interpret_rec e1 e2 dimension_tree input_beam</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.make_beam</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> make_beam = <span class="keyword">fun</span> input <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> rate_list = fst input <span class="keyword">in</span><br>
- <span class="keyword">let</span> float_array_list = snd input <span class="keyword">in</span><br>
- <span class="keyword">let</span> value_array_list = <br>
- <span class="constructor">List</span>.map (<span class="constructor">Array</span>.map return_R) float_array_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> fun_list = <span class="constructor">List</span>.map <span class="constructor">Array</span>.get value_array_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> make_signal = <span class="keyword">fun</span> rate <span class="keywordsign">-></span> <span class="keyword">fun</span> f <span class="keywordsign">-></span> (rate, f) <span class="keyword">in</span><br>
- <span class="keyword">let</span> beam = <span class="constructor">List</span>.map2 make_signal rate_list fun_list <span class="keyword">in</span><br>
- beam</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.matrix_transpose</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> matrix_transpose = <span class="keyword">fun</span> m_array_array <span class="keywordsign">-></span> <span class="keyword">fun</span> width <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> get_element = <span class="keyword">fun</span> i <span class="keywordsign">-></span> <span class="keyword">fun</span> array <span class="keywordsign">-></span> <span class="constructor">Array</span>.get array i <span class="keyword">in</span><br>
- <span class="keyword">let</span> get_line = <span class="keyword">fun</span> array_array <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span> <br>
- <span class="constructor">Array</span>.map (get_element i) array_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> transpose array_array = <span class="constructor">Array</span>.init width (get_line array_array) <span class="keyword">in</span><br>
- transpose m_array_array</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.realise_value_list</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> realise_value_list vl = <br>
- <span class="keyword">let</span> realise_value = <span class="keyword">fun</span> v <span class="keywordsign">-></span> <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> <span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> memory_hashtbl = <span class="constructor">Hashtbl</span>.create size <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_vec = <span class="keyword">fun</span> i <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> i >= 0 <span class="keywordsign">&&</span> i < size <span class="keyword">then</span> <br>
- (<br>
- <span class="keyword">if</span> <span class="constructor">Hashtbl</span>.mem memory_hashtbl i <span class="keyword">then</span> <br>
- <span class="constructor">Hashtbl</span>.find memory_hashtbl i<br>
- <span class="keyword">else</span> <br>
- <span class="keyword">let</span> result = vec i <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.add memory_hashtbl i result <span class="keyword">in</span><br>
- result <br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Invalid_argument</span> <span class="string">"vector overflow."</span>)<br>
- <span class="keyword">in</span><br>
- return_Vec (size, new_vec)<br>
- <span class="keywordsign">|</span> _ <span class="keywordsign">-></span> v<br>
- <span class="keyword">in</span><br>
- <span class="constructor">List</span>.map realise_value vl</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter.sublist</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> sublist l start length = <br>
- <span class="keyword">try</span><br>
- <span class="keyword">let</span> arr = <span class="constructor">Array</span>.of_list l <span class="keyword">in</span><br>
- <span class="keyword">let</span> sub_array = <span class="constructor">Array</span>.sub arr start length <span class="keyword">in</span><br>
- <span class="constructor">Array</span>.to_list sub_array<br>
-<br>
- <span class="keyword">with</span> (<span class="constructor">Invalid_argument</span> <span class="string">"Array.sub"</span>) <span class="keywordsign">-></span><br>
- raise (<span class="constructor">Invalid_argument</span> <span class="string">"List.sub"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Lexer.__ocaml_lex_tables</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> __ocaml_lex_tables = {<br>
- <span class="constructor">Lexing</span>.lex_base = <br>
- <span class="string">"\000\000\242\255\243\255\001\000\247\255\248\255\249\255\250\255\079\000\000\000\253\255\001\000\072\000\255\255\245\255\252\255\244\255"</span>;<br>
- <span class="constructor">Lexing</span>.lex_backtrk = <br>
- <span class="string">"\255\255\255\255\255\255\009\000\255\255\255\255\255\255\255\255\004\000\255\255\255\255\002\000\001\000\255\255\255\255\255\255\255\255"</span>;<br>
- <span class="constructor">Lexing</span>.lex_default = <br>
- <span class="string">"\255\255\000\000\000\000\255\255\000\000\000\000\000\000\000\000\255\255\255\255\000\000\255\255\255\255\000\000\000\000\000\000\000\000"</span>;<br>
- <span class="constructor">Lexing</span>.lex_trans = <br>
- <span class="string">"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\013\000\013\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\013\000\010\000\000\000\010\000\000\000\010\000\000\000\000\000\006\000\005\000\010\000\010\000\004\000\010\000\007\000\010\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\003\000\014\000\011\000\000\000\010\000\016\000\010\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\009\000\000\000\015\000\000\000\010\000\000\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\000\000\000\000\000\000\002\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\000\000\000\000\000\000\000\000\000\000\000\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"</span>;<br>
- <span class="constructor">Lexing</span>.lex_check = <br>
- <span class="string">"\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\000\000\000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\000\000\000\000\255\255\000\000\255\255\000\000\255\255\255\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\011\000\000\000\255\255\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\255\255\009\000\255\255\000\000\255\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\255\255\255\255\255\255\000\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\255\255\255\255\255\255\255\255\255\255\255\255\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255"</span>;<br>
- <span class="constructor">Lexing</span>.lex_base_code = <br>
- <span class="string">""</span>;<br>
- <span class="constructor">Lexing</span>.lex_backtrk_code = <br>
- <span class="string">""</span>;<br>
- <span class="constructor">Lexing</span>.lex_default_code = <br>
- <span class="string">""</span>;<br>
- <span class="constructor">Lexing</span>.lex_trans_code = <br>
- <span class="string">""</span>;<br>
- <span class="constructor">Lexing</span>.lex_check_code = <br>
- <span class="string">""</span>;<br>
- <span class="constructor">Lexing</span>.lex_code = <br>
- <span class="string">""</span>;<br>
-}</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Lexer.__ocaml_lex_token_rec</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> token lexbuf =<br>
- __ocaml_lex_token_rec lexbuf 0<br>
-<span class="keyword">and</span> __ocaml_lex_token_rec lexbuf __ocaml_lex_state =<br>
- <span class="keyword">match</span> <span class="constructor">Lexing</span>.engine __ocaml_lex_tables __ocaml_lex_state lexbuf <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> 0 <span class="keywordsign">-></span><br>
-# 4 "lexer.mll"<br>
- ( token lexbuf )<br>
-# 127 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 1 <span class="keywordsign">-></span><br>
-<span class="keyword">let</span><br>
-# 5 "lexer.mll"<br>
- x<br>
-# 133 "lexer.ml"<br>
-= <span class="constructor">Lexing</span>.sub_lexeme lexbuf lexbuf.<span class="constructor">Lexing</span>.lex_start_pos lexbuf.<span class="constructor">Lexing</span>.lex_curr_pos <span class="keyword">in</span><br>
-# 5 "lexer.mll"<br>
- ( <span class="constructor">IDENT</span> x )<br>
-# 137 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 2 <span class="keywordsign">-></span><br>
-<span class="keyword">let</span><br>
-# 7 "lexer.mll"<br>
- x<br>
-# 143 "lexer.ml"<br>
-= <span class="constructor">Lexing</span>.sub_lexeme_char lexbuf lexbuf.<span class="constructor">Lexing</span>.lex_start_pos <span class="keyword">in</span><br>
-# 7 "lexer.mll"<br>
- ( <span class="constructor">IDENT</span> (<span class="constructor">String</span>.make 1 x) )<br>
-# 147 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 3 <span class="keywordsign">-></span><br>
-# 8 "lexer.mll"<br>
- ( <span class="constructor">IDENT</span> <span class="string">"[]"</span> )<br>
-# 152 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 4 <span class="keywordsign">-></span><br>
-<span class="keyword">let</span><br>
-# 9 "lexer.mll"<br>
- a<br>
-# 158 "lexer.ml"<br>
-= <span class="constructor">Lexing</span>.sub_lexeme lexbuf lexbuf.<span class="constructor">Lexing</span>.lex_start_pos lexbuf.<span class="constructor">Lexing</span>.lex_curr_pos <span class="keyword">in</span><br>
-# 9 "lexer.mll"<br>
- ( <span class="constructor">CONST</span> a )<br>
-# 162 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 5 <span class="keywordsign">-></span><br>
-# 10 "lexer.mll"<br>
- ( <span class="constructor">POINT</span> )<br>
-# 167 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 6 <span class="keywordsign">-></span><br>
-# 11 "lexer.mll"<br>
- ( <span class="constructor">LPAR</span> )<br>
-# 172 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 7 <span class="keywordsign">-></span><br>
-# 12 "lexer.mll"<br>
- ( <span class="constructor">RPAR</span> )<br>
-# 177 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 8 <span class="keywordsign">-></span><br>
-# 13 "lexer.mll"<br>
- ( <span class="constructor">PAR</span> )<br>
-# 182 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 9 <span class="keywordsign">-></span><br>
-# 14 "lexer.mll"<br>
- ( <span class="constructor">SEQ</span> )<br>
-# 187 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 10 <span class="keywordsign">-></span><br>
-# 15 "lexer.mll"<br>
- ( <span class="constructor">SPLIT</span> )<br>
-# 192 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 11 <span class="keywordsign">-></span><br>
-# 16 "lexer.mll"<br>
- ( <span class="constructor">MERGE</span> )<br>
-# 197 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 12 <span class="keywordsign">-></span><br>
-# 17 "lexer.mll"<br>
- ( <span class="constructor">REC</span> )<br>
-# 202 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 13 <span class="keywordsign">-></span><br>
-# 18 "lexer.mll"<br>
- ( <span class="constructor">EOF</span> )<br>
-# 207 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> __ocaml_lex_state <span class="keywordsign">-></span> lexbuf.<span class="constructor">Lexing</span>.refill_buff lexbuf; __ocaml_lex_token_rec lexbuf __ocaml_lex_state</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Lexer.token</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> token lexbuf =<br>
- __ocaml_lex_token_rec lexbuf 0<br>
-<span class="keyword">and</span> __ocaml_lex_token_rec lexbuf __ocaml_lex_state =<br>
- <span class="keyword">match</span> <span class="constructor">Lexing</span>.engine __ocaml_lex_tables __ocaml_lex_state lexbuf <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> 0 <span class="keywordsign">-></span><br>
-# 4 "lexer.mll"<br>
- ( token lexbuf )<br>
-# 127 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 1 <span class="keywordsign">-></span><br>
-<span class="keyword">let</span><br>
-# 5 "lexer.mll"<br>
- x<br>
-# 133 "lexer.ml"<br>
-= <span class="constructor">Lexing</span>.sub_lexeme lexbuf lexbuf.<span class="constructor">Lexing</span>.lex_start_pos lexbuf.<span class="constructor">Lexing</span>.lex_curr_pos <span class="keyword">in</span><br>
-# 5 "lexer.mll"<br>
- ( <span class="constructor">IDENT</span> x )<br>
-# 137 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 2 <span class="keywordsign">-></span><br>
-<span class="keyword">let</span><br>
-# 7 "lexer.mll"<br>
- x<br>
-# 143 "lexer.ml"<br>
-= <span class="constructor">Lexing</span>.sub_lexeme_char lexbuf lexbuf.<span class="constructor">Lexing</span>.lex_start_pos <span class="keyword">in</span><br>
-# 7 "lexer.mll"<br>
- ( <span class="constructor">IDENT</span> (<span class="constructor">String</span>.make 1 x) )<br>
-# 147 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 3 <span class="keywordsign">-></span><br>
-# 8 "lexer.mll"<br>
- ( <span class="constructor">IDENT</span> <span class="string">"[]"</span> )<br>
-# 152 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 4 <span class="keywordsign">-></span><br>
-<span class="keyword">let</span><br>
-# 9 "lexer.mll"<br>
- a<br>
-# 158 "lexer.ml"<br>
-= <span class="constructor">Lexing</span>.sub_lexeme lexbuf lexbuf.<span class="constructor">Lexing</span>.lex_start_pos lexbuf.<span class="constructor">Lexing</span>.lex_curr_pos <span class="keyword">in</span><br>
-# 9 "lexer.mll"<br>
- ( <span class="constructor">CONST</span> a )<br>
-# 162 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 5 <span class="keywordsign">-></span><br>
-# 10 "lexer.mll"<br>
- ( <span class="constructor">POINT</span> )<br>
-# 167 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 6 <span class="keywordsign">-></span><br>
-# 11 "lexer.mll"<br>
- ( <span class="constructor">LPAR</span> )<br>
-# 172 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 7 <span class="keywordsign">-></span><br>
-# 12 "lexer.mll"<br>
- ( <span class="constructor">RPAR</span> )<br>
-# 177 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 8 <span class="keywordsign">-></span><br>
-# 13 "lexer.mll"<br>
- ( <span class="constructor">PAR</span> )<br>
-# 182 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 9 <span class="keywordsign">-></span><br>
-# 14 "lexer.mll"<br>
- ( <span class="constructor">SEQ</span> )<br>
-# 187 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 10 <span class="keywordsign">-></span><br>
-# 15 "lexer.mll"<br>
- ( <span class="constructor">SPLIT</span> )<br>
-# 192 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 11 <span class="keywordsign">-></span><br>
-# 16 "lexer.mll"<br>
- ( <span class="constructor">MERGE</span> )<br>
-# 197 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 12 <span class="keywordsign">-></span><br>
-# 17 "lexer.mll"<br>
- ( <span class="constructor">REC</span> )<br>
-# 202 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> 13 <span class="keywordsign">-></span><br>
-# 18 "lexer.mll"<br>
- ( <span class="constructor">EOF</span> )<br>
-# 207 "lexer.ml"<br>
-<br>
- <span class="keywordsign">|</span> __ocaml_lex_state <span class="keywordsign">-></span> lexbuf.<span class="constructor">Lexing</span>.refill_buff lexbuf; __ocaml_lex_token_rec lexbuf __ocaml_lex_state</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main.io_macro_to_string</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> io_macro_to_string m = <span class="keyword">match</span> m <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> <span class="constructor">Input_Route_string</span> <span class="keywordsign">-></span> <span class="string">"input_sounds/"</span><br>
- <span class="keywordsign">|</span> <span class="constructor">Output_Route_string</span> <span class="keywordsign">-></span> <span class="string">"output_sounds/"</span><br>
- <span class="keywordsign">|</span> <span class="constructor">Dsp_Route_string</span> <span class="keywordsign">-></span> <span class="string">"dsp_files/"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main.main</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> main () = <br>
-<br>
- <span class="comment">(* ignore system alarm clock *)</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">Sys</span>.signal <span class="constructor">Sys</span>.sigalrm <span class="constructor">Sys</span>.<span class="constructor">Signal_ignore</span> <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* set garbage collector *)</span><br>
- <span class="keyword">let</span> _ = set_GC () <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* read input wave files *)</span><br>
- <span class="keyword">let</span> (input_rate_list, input_float_array_list) = read_input_wave <span class="constructor">Sys</span>.argv <span class="keyword">in</span><br>
- <br>
- <span class="comment">(* select output type *)</span><br>
- <span class="keyword">let</span> output_type = <span class="constructor">Sys</span>.argv.(1) <span class="keyword">in</span><br>
-<br>
- <span class="keyword">try</span><br>
- <span class="comment">(* preprocess *)</span><br>
- <span class="keyword">let</span> dsp_file_route_string = (io_macro_to_string <span class="constructor">Dsp_Route_string</span>) ^ <span class="constructor">Sys</span>.argv.(2) <span class="keyword">in</span><br>
- <span class="keyword">let</span> exp_string = <span class="constructor">Preprocess</span>.preprocess(dsp_file_route_string) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* parsing *)</span><br>
- <span class="keyword">let</span> exp_faust = exp_of_string exp_string <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* interpretation *)</span><br>
- <span class="keyword">let</span> (output_channel_list, output_rate_list, output_float_array_list) = <br>
- interpreter exp_faust (input_rate_list, input_float_array_list) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* make output wave files *)</span><br>
- <span class="keyword">if</span> output_type = <span class="string">"-wav"</span> <span class="keyword">then</span><br>
- write_output_wave output_channel_list output_rate_list output_float_array_list<br>
- <span class="keyword">else</span> <span class="keyword">if</span> output_type = <span class="string">"-txt"</span> <span class="keyword">then</span><br>
- write_output_txt output_channel_list output_float_array_list<br>
- <span class="keyword">else</span> raise (<span class="constructor">Invalid_argument</span> (<span class="string">"Unkown option: "</span> ^ output_type))<br>
-<br>
- <span class="keyword">with</span> <span class="constructor">NotYetDone</span> <span class="keywordsign">-></span><br>
- print_endline(<span class="string">"Operation not yet programed.."</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main.read_input_wave</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> read_input_wave = <span class="keyword">fun</span> argv <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> n_input = (<span class="constructor">Array</span>.length argv) - 3 <span class="keyword">in</span><br>
- <span class="keyword">if</span> n_input < 0 <span class="keyword">then</span> <br>
- raise <span class="constructor">Missing_Expression</span><br>
- <span class="keyword">else</span> <span class="keyword">if</span> n_input = 0 <span class="keyword">then</span> <br>
- ([], [])<br>
- <span class="keyword">else</span><br>
- <span class="comment">(* open wave file *)</span><br>
- <span class="keyword">let</span> file_string_array = <span class="constructor">Array</span>.sub argv 3 n_input <span class="keyword">in</span><br>
- <span class="keyword">let</span> make_chemin s = io_macro_to_string <span class="constructor">Input_Route_string</span> ^ s <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_chemin_string_array = <span class="constructor">Array</span>.map make_chemin file_string_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_array = <span class="constructor">Array</span>.map <span class="constructor">Sndfile</span>.openfile file_chemin_string_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_list = <span class="constructor">Array</span>.to_list file_array <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* prepare data container *)</span><br>
- <span class="keyword">let</span> frames_array = <span class="constructor">Array</span>.map <span class="constructor">Int64</span>.to_int (<span class="constructor">Array</span>.map <span class="constructor">Sndfile</span>.frames file_array) <span class="keyword">in</span><br>
- <span class="keyword">let</span> create_data_array num = <span class="constructor">Array</span>.create num 1. <span class="keyword">in</span><br>
- <span class="keyword">let</span> data_float_array_array = <span class="constructor">Array</span>.map create_data_array frames_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> data_float_array_list = <span class="constructor">Array</span>.to_list data_float_array_array <span class="keyword">in</span><br>
- <br>
- <span class="comment">(* read sample rates and data *)</span><br>
- <span class="keyword">let</span> rate_list = <span class="constructor">List</span>.map <span class="constructor">Sndfile</span>.samplerate file_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">List</span>.map2 <span class="constructor">Sndfile</span>.read file_list data_float_array_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">List</span>.map <span class="constructor">Sndfile</span>.close file_list <span class="keyword">in</span><br>
- (rate_list, data_float_array_list)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main.set_GC</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> set_GC () = <br>
- <span class="keyword">let</span> _ = <span class="constructor">Gc</span>.set { (<span class="constructor">Gc</span>.get()) <span class="keyword">with</span> <span class="constructor">Gc</span>.minor_heap_size = 0xFFFFFF } <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">Gc</span>.set { (<span class="constructor">Gc</span>.get()) <span class="keyword">with</span> <span class="constructor">Gc</span>.major_heap_increment = 0xFFFFFF } <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">Gc</span>.set { (<span class="constructor">Gc</span>.get()) <span class="keyword">with</span> <span class="constructor">Gc</span>.space_overhead = 100 } <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">Gc</span>.set { (<span class="constructor">Gc</span>.get()) <span class="keyword">with</span> <span class="constructor">Gc</span>.max_overhead = 0xFFFFF } <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">Gc</span>.set { (<span class="constructor">Gc</span>.get()) <span class="keyword">with</span> <span class="constructor">Gc</span>.stack_limit = 0xFFFFF } <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">Gc</span>.set { (<span class="constructor">Gc</span>.get()) <span class="keyword">with</span> <span class="constructor">Gc</span>.allocation_policy = 0 } <span class="keyword">in</span><br>
- ()</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main.write_output_txt</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> write_output_txt = <span class="keyword">fun</span> channel_int_list <span class="keywordsign">-></span> <span class="keyword">fun</span> data_float_array_list <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> () = print_endline(<span class="string">"Making output txt files..."</span>) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* make output txt file names : output0, output1, ... *)</span><br>
- <span class="keyword">let</span> n_output = <span class="constructor">List</span>.length data_float_array_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> n_array = <span class="constructor">Array</span>.init n_output (<span class="keyword">fun</span> n <span class="keywordsign">-></span> n) <span class="keyword">in</span><br>
- <span class="keyword">let</span> make_file_name i = <span class="string">"output"</span> ^ (string_of_int i) ^ <span class="string">".csv"</span> <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* make output wave file routes *)</span><br>
- <span class="keyword">let</span> make_chemin s = io_macro_to_string <span class="constructor">Output_Route_string</span> ^ s <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_name_string_array = <span class="constructor">Array</span>.map make_file_name n_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_chemin_string_array = <span class="constructor">Array</span>.map make_chemin file_name_string_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_chemin_string_list = <span class="constructor">Array</span>.to_list file_chemin_string_array <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* open output channels *)</span><br>
- <span class="keyword">let</span> file_list = <span class="constructor">List</span>.map open_out file_chemin_string_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> array_to_string = <span class="keyword">fun</span> data_float_array <span class="keywordsign">-></span> <span class="keyword">fun</span> channel_int <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> data_length = <span class="constructor">Array</span>.length data_float_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> <span class="keyword">rec</span> to_string_rec = <br>
- <span class="keyword">fun</span> data <span class="keywordsign">-></span> <span class="keyword">fun</span> channel <span class="keywordsign">-></span> <span class="keyword">fun</span> n <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span> <span class="keyword">fun</span> column <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> i < n <span class="keyword">then</span> <br>
- (<br>
- <span class="keyword">let</span> element = string_of_float (data.(i)) <span class="keyword">in</span><br>
- <span class="keyword">if</span> column < (channel - 1) <span class="keyword">then</span> <br>
- element ^ <span class="string">","</span> ^ (to_string_rec data channel n (i + 1) (column + 1))<br>
- <span class="keyword">else</span> <span class="keyword">if</span> column = (channel - 1) <span class="keyword">then</span><br>
- element ^ <span class="string">"\n"</span> ^ (to_string_rec data channel n (i + 1) 0)<br>
- <span class="keyword">else</span> raise (<span class="constructor">Invalid_argument</span> <span class="string">"write_output_txt."</span>)<br>
- )<br>
- <span class="keyword">else</span> <span class="string">""</span> <span class="keyword">in</span><br>
- to_string_rec data_float_array channel_int data_length 0 0 <span class="keyword">in</span><br>
-<br>
- <span class="keyword">let</span> data_string_list = <span class="constructor">List</span>.map2 array_to_string data_float_array_list channel_int_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">List</span>.map2 output_string file_list data_string_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">List</span>.map close_out file_list <span class="keyword">in</span><br>
- print_endline(<span class="string">"Success"</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main.write_output_wave</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> write_output_wave = <span class="keyword">fun</span> channel_int_list <span class="keywordsign">-></span> <span class="keyword">fun</span> rate_int_list <span class="keywordsign">-></span> <span class="keyword">fun</span> data_float_array_list <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> () = print_endline(<span class="string">"Making output wave files..."</span>) <span class="keyword">in</span><br>
- <br>
- <span class="comment">(* make output wave file names : output0, output1, ... *)</span><br>
- <span class="keyword">let</span> n_output = <span class="constructor">List</span>.length data_float_array_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> n_array = <span class="constructor">Array</span>.init n_output (<span class="keyword">fun</span> n <span class="keywordsign">-></span> n) <span class="keyword">in</span><br>
- <span class="keyword">let</span> make_file_name i = <span class="string">"output"</span> ^ (string_of_int i) ^ <span class="string">".wav"</span> <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* make output wave file routes *)</span><br>
- <span class="keyword">let</span> make_chemin s = io_macro_to_string <span class="constructor">Output_Route_string</span> ^ s <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_name_string_array = <span class="constructor">Array</span>.map make_file_name n_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_chemin_string_array = <span class="constructor">Array</span>.map make_chemin file_name_string_array <span class="keyword">in</span><br>
- <span class="keyword">let</span> file_chemin_string_list = <span class="constructor">Array</span>.to_list file_chemin_string_array <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* open files for writing with respects to channel numbers and sample rates *)</span><br>
- <span class="keyword">let</span> file_format = <span class="constructor">Sndfile</span>.format <span class="constructor">Sndfile</span>.<span class="constructor">MAJOR_WAV</span> <span class="constructor">Sndfile</span>.<span class="constructor">MINOR_PCM_16</span> <span class="keyword">in</span><br>
- <span class="keyword">let</span> openwr = <span class="keyword">fun</span> file_chemin_string <span class="keywordsign">-></span> <span class="keyword">fun</span> channel <span class="keywordsign">-></span> <span class="keyword">fun</span> rate <span class="keywordsign">-></span> <br>
- <span class="constructor">Sndfile</span>.openfile ~info:(<span class="constructor">Sndfile</span>.<span class="constructor">RDWR</span>, file_format, channel, rate) file_chemin_string <span class="keyword">in</span><br>
- <span class="keyword">let</span> openwr_fun_list = <span class="keyword">fun</span> fl <span class="keywordsign">-></span> <span class="keyword">fun</span> cl <span class="keywordsign">-></span> <span class="keyword">fun</span> rl <span class="keywordsign">-></span> <span class="keyword">fun</span> i <span class="keywordsign">-></span> <br>
- openwr (<span class="constructor">List</span>.nth fl i) (<span class="constructor">List</span>.nth cl i) (<span class="constructor">List</span>.nth rl i) <span class="keyword">in</span><br>
- <span class="keyword">let</span> output_file_list = <span class="constructor">List</span>.map <br>
- (openwr_fun_list file_chemin_string_list channel_int_list rate_int_list) <br>
- (<span class="constructor">Array</span>.to_list (<span class="constructor">Array</span>.init n_output (<span class="keyword">fun</span> n <span class="keywordsign">-></span> n))) <span class="keyword">in</span><br>
-<br>
- <span class="comment">(* write data into files *)</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">List</span>.map2 <span class="constructor">Sndfile</span>.write output_file_list data_float_array_list <span class="keyword">in</span><br>
- <span class="keyword">let</span> _ = <span class="constructor">List</span>.map <span class="constructor">Sndfile</span>.close output_file_list <span class="keyword">in</span><br>
- print_endline(<span class="string">"Success."</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.main</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> main (lexfun : <span class="constructor">Lexing</span>.lexbuf <span class="keywordsign">-></span> token) (lexbuf : <span class="constructor">Lexing</span>.lexbuf) =<br>
- (<span class="constructor">Parsing</span>.yyparse yytables 1 lexfun lexbuf : <span class="constructor">Types</span>.faust_exp)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yyact</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yyact = [|<br>
- (<span class="keyword">fun</span> _ <span class="keywordsign">-></span> failwith <span class="string">"parser"</span>)<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 1 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 16 "parser.mly"<br>
- ( _1 )<br>
-# 167 "parser.ml"<br>
- : <span class="constructor">Types</span>.faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : string) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 17 "parser.mly"<br>
- ( <span class="constructor">Const</span>(<span class="constructor">N</span> (int_of_string _1)) )<br>
-# 174 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 1 : string) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 18 "parser.mly"<br>
- ( <span class="constructor">Const</span>(<span class="constructor">R</span> (float_of_string _1)) )<br>
-# 181 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 2 : string) <span class="keyword">in</span><br>
- <span class="keyword">let</span> _3 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : string) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 19 "parser.mly"<br>
- ( <span class="constructor">Const</span>(<span class="constructor">R</span> (float_of_string (_1 ^ <span class="string">"."</span> ^ _3))) )<br>
-# 189 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : string) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 20 "parser.mly"<br>
- ( <span class="constructor">Ident</span>(symbol_of_string _1) )<br>
-# 196 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _2 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 1 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 21 "parser.mly"<br>
- ( _2 )<br>
-# 203 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 2 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="keyword">let</span> _3 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 22 "parser.mly"<br>
- ( <span class="constructor">Par</span>(_1,_3) )<br>
-# 211 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 2 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="keyword">let</span> _3 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 23 "parser.mly"<br>
- ( <span class="constructor">Split</span>(_1,_3) )<br>
-# 219 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 2 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="keyword">let</span> _3 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 24 "parser.mly"<br>
- ( <span class="constructor">Merge</span>(_1,_3) )<br>
-# 227 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 2 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="keyword">let</span> _3 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 25 "parser.mly"<br>
- ( <span class="constructor">Seq</span>(_1,_3) )<br>
-# 235 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> _1 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 2 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="keyword">let</span> _3 = (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0 : <span class="keywordsign">'</span>faust_exp) <span class="keyword">in</span><br>
- <span class="constructor">Obj</span>.repr(<br>
-# 26 "parser.mly"<br>
- ( <span class="constructor">Rec</span>(_1,_3) )<br>
-# 243 "parser.ml"<br>
- : <span class="keywordsign">'</span>faust_exp))<br>
-<span class="comment">(* Entry main *)</span><br>
-; (<span class="keyword">fun</span> __caml_parser_env <span class="keywordsign">-></span> raise (<span class="constructor">Parsing</span>.<span class="constructor">YYexit</span> (<span class="constructor">Parsing</span>.peek_val __caml_parser_env 0)))<br>
-|]</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yycheck</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yycheck = <span class="string">"\001\000\000\000\005\001\006\001\007\001\008\001\009\001\000\000\005\000\001\001\002\001\003\001\000\000\010\000\011\000\012\000\013\000\014\000\000\000\008\001\009\001\005\001\000\000\000\000\008\001\009\001\000\000\004\001\005\001\006\001\007\001\008\001\009\001\001\001\010\001\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\004\001\005\001\006\001\007\001\008\001\009\001\004\001\005\001\006\001\007\001\008\001\009\001\005\001\006\001\007\001\008\001\009\001\004\001\005\001\006\001\007\001\004\001\004\001\006\001\007\001\004\001"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yydefred</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yydefred = <span class="string">"\000\000\000\000\000\000\000\000\005\000\000\000\012\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\000\004\000\006\000\000\000\000\000\000\000\000\000\011\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yydgoto</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yydgoto = <span class="string">"\002\000\006\000\007\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yygindex</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yygindex = <span class="string">"\000\000\000\000\003\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yylen</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yylen = <span class="string">"\002\000\002\000\001\000\002\000\003\000\001\000\003\000\003\000\003\000\003\000\003\000\003\000\002\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yylhs</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yylhs = <span class="string">"\255\255\001\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\000\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yynames_block</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yynames_block = <span class="string">"CONST\000IDENT\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yynames_const</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yynames_const = <span class="string">"LPAR\000RPAR\000SEQ\000SPLIT\000MERGE\000PAR\000REC\000EOF\000POINT\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yyrindex</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yyrindex = <span class="string">"\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\022\000\023\000\026\000\018\000\000\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yysindex</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yysindex = <span class="string">"\255\255\008\255\000\000\024\255\000\000\008\255\000\000\012\000\032\255\023\255\008\255\008\255\008\255\008\255\008\255\000\000\000\000\000\000\016\255\253\254\253\254\011\255\000\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yytable</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yytable = <span class="string">"\001\000\002\000\010\000\011\000\012\000\013\000\014\000\003\000\009\000\003\000\004\000\005\000\015\000\018\000\019\000\020\000\021\000\022\000\007\000\013\000\014\000\010\000\010\000\008\000\013\000\014\000\009\000\017\000\010\000\011\000\012\000\013\000\014\000\016\000\008\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\002\000\002\000\002\000\002\000\002\000\003\000\003\000\003\000\003\000\003\000\003\000\010\000\011\000\012\000\013\000\014\000\007\000\007\000\007\000\007\000\010\000\008\000\010\000\010\000\009\000"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yytables</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yytables =<br>
- { <span class="constructor">Parsing</span>.actions=yyact;<br>
- <span class="constructor">Parsing</span>.transl_const=yytransl_const;<br>
- <span class="constructor">Parsing</span>.transl_block=yytransl_block;<br>
- <span class="constructor">Parsing</span>.lhs=yylhs;<br>
- <span class="constructor">Parsing</span>.len=yylen;<br>
- <span class="constructor">Parsing</span>.defred=yydefred;<br>
- <span class="constructor">Parsing</span>.dgoto=yydgoto;<br>
- <span class="constructor">Parsing</span>.sindex=yysindex;<br>
- <span class="constructor">Parsing</span>.rindex=yyrindex;<br>
- <span class="constructor">Parsing</span>.gindex=yygindex;<br>
- <span class="constructor">Parsing</span>.tablesize=yytablesize;<br>
- <span class="constructor">Parsing</span>.table=yytable;<br>
- <span class="constructor">Parsing</span>.check=yycheck;<br>
- <span class="constructor">Parsing</span>.error_function=parse_error;<br>
- <span class="constructor">Parsing</span>.names_const=yynames_const;<br>
- <span class="constructor">Parsing</span>.names_block=yynames_block }</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yytablesize</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yytablesize = 286</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yytransl_block</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yytransl_block = [|<br>
- 257 <span class="comment">(* CONST *)</span>;<br>
- 258 <span class="comment">(* IDENT *)</span>;<br>
- 0|]</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser.yytransl_const</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> yytransl_const = [|<br>
- 259 <span class="comment">(* LPAR *)</span>;<br>
- 260 <span class="comment">(* RPAR *)</span>;<br>
- 261 <span class="comment">(* SEQ *)</span>;<br>
- 262 <span class="comment">(* SPLIT *)</span>;<br>
- 263 <span class="comment">(* MERGE *)</span>;<br>
- 264 <span class="comment">(* PAR *)</span>;<br>
- 265 <span class="comment">(* REC *)</span>;<br>
- 0 <span class="comment">(* EOF *)</span>;<br>
- 266 <span class="comment">(* POINT *)</span>;<br>
- 0|]</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Preprocess.preprocess</title>
-</head>
-<body>
-<code class="code"><span class="keyword">external</span> preprocess: string <span class="keywordsign">-></span> string = <span class="string">"preProcess_cpp"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.beam_add_one_memory</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> beam_add_one_memory = <span class="keyword">fun</span> beam <span class="keywordsign">-></span> <br>
- <span class="constructor">List</span>.map signal_add_one_memory beam</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.check_frequency</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> check_frequency = <span class="keyword">fun</span> f1 <span class="keywordsign">-></span> <span class="keyword">fun</span> f2 <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> f1 = f2 <span class="keywordsign">||</span> f2 = 0 <span class="keyword">then</span> f1<br>
- <span class="keyword">else</span> <span class="keyword">if</span> f1 = 0 <span class="keyword">then</span> f2<br>
- <span class="keyword">else</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"frequency not matched."</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.frequency</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> frequency s = fst s</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.prefix</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> prefix = <span class="keyword">fun</span> s0 <span class="keywordsign">-></span> <span class="keyword">fun</span> s1 <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> t = 0 <span class="keyword">then</span> (signal_fun s0) 0<br>
- <span class="keyword">else</span> <span class="keyword">if</span> t > 0 <span class="keyword">then</span> (signal_fun s1) t<br>
- <span class="keyword">else</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"prefix time cannot be < 0."</span>)<br>
- <span class="keyword">in</span><br>
- (frequency s1, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_add</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_add s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> ((signal_fun s1) t) +~ ((signal_fun s2) t) <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_add_one_memory</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_add_one_memory = <span class="keyword">fun</span> s <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> new_signal = factory_add_memory (signal_fun s) 1 <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_append</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_append s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> temp1 = (signal_fun s1) t <span class="keyword">in</span><br>
- <span class="keyword">let</span> temp2 = (signal_fun s2) t <span class="keyword">in</span><br>
- <span class="keyword">match</span> (temp1, temp2) <span class="keyword">with</span><br>
- <span class="keywordsign">|</span>(<span class="constructor">Vec</span> (size1, vec1), <span class="constructor">Vec</span> (size2, vec2)) <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> new_vec = <span class="keyword">fun</span> i <span class="keywordsign">-></span> <span class="keyword">if</span> i < size1 <span class="keyword">then</span> vec1 i <span class="keyword">else</span> vec2 (i - size1) <span class="keyword">in</span><br>
- make_vector (size1 + size2) new_vec<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Append: input signals should be vectors."</span>)<br>
- <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_atan</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_atan s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_atan ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_atantwo</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_atantwo s1 s2 = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_atantwo ((signal_fun s1) t) ((signal_fun s2) t) <span class="keyword">in</span><br>
- (frequency s1, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_check_frequency</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_check_frequency = <span class="keyword">fun</span> s1 <span class="keywordsign">-></span> <span class="keyword">fun</span> s2 <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> f1 = frequency s1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> f2 = frequency s2 <span class="keyword">in</span><br>
- check_frequency f1 f2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_check_frequency3</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_check_frequency3 = <span class="keyword">fun</span> s1 <span class="keywordsign">-></span> <span class="keyword">fun</span> s2 <span class="keywordsign">-></span> <span class="keyword">fun</span> s3 <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> f1 = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> f2 = signal_check_frequency s1 s3 <span class="keyword">in</span><br>
- check_frequency f1 f2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_check_frequency4</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_check_frequency4 = <span class="keyword">fun</span> s1 <span class="keywordsign">-></span> <span class="keyword">fun</span> s2 <span class="keywordsign">-></span> <span class="keyword">fun</span> s3 <span class="keywordsign">-></span> <span class="keyword">fun</span> s4 <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> f1 = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> f2 = signal_check_frequency s3 s4 <span class="keyword">in</span><br>
- check_frequency f1 f2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_cos</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_cos s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_cos ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_delay</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_delay s1 s2 = <br>
- <span class="keyword">let</span> s1_mem = factory_add_memory (signal_fun s1) <br>
- (signal_macro_to_int <span class="constructor">Delay_Memory_Length_int</span>) <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> delay = (signal_fun s2) t <span class="keyword">in</span><br>
- <span class="keyword">match</span> delay <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> <span class="keyword">if</span> i < 0 <span class="keyword">then</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Delay time < 0."</span>) <br>
- <span class="keyword">else</span> <span class="keyword">if</span> (t - i) >= 0 <span class="keyword">then</span> s1_mem (t - i) <br>
- <span class="keyword">else</span> v_zero (s1_mem 0)<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <span class="keyword">let</span> i = int_of_float f <span class="keyword">in</span><br>
- <span class="keyword">if</span> i < 0 <span class="keyword">then</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Delay time < 0."</span>) <br>
- <span class="keyword">else</span> <span class="keyword">if</span> (t - i) >= 0 <span class="keyword">then</span> s1_mem (t - i) <br>
- <span class="keyword">else</span> v_zero (s1_mem 0)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Delay time can not be a vector."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> s1_mem t<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Delay time error."</span>)<br>
- <span class="keyword">in</span><br>
- (frequency s1, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_div</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_div s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> ((signal_fun s1) t) /~ ((signal_fun s2) t) <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_floor</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_floor s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_floor ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_fun</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_fun s = snd s</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_get</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_get s1 s2 = <br>
- <span class="keyword">let</span> f1 = frequency s1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> f2 = frequency s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> temp1 = (signal_fun s1) t <span class="keyword">in</span><br>
- <span class="keyword">let</span> temp2 = (signal_fun s2) t <span class="keyword">in</span><br>
- <span class="keyword">match</span> temp1 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size1, vec1) <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> temp2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> vec1 i<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: second input signal should be int."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: second input signal should be int."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> vec1 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: second input signal should be int."</span>)<br>
- )<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: first input signal should be vector."</span>)<br>
- <span class="keyword">in</span><br>
- <span class="keyword">if</span> f1 = f2 <span class="keywordsign">||</span> f2 = 0 <span class="keyword">then</span> (f1, new_signal)<br>
- <span class="keyword">else</span> <span class="keyword">if</span> f1 = 0 <span class="keyword">then</span> (f2, new_signal)<br>
- <span class="keyword">else</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"frequency not matched in signal_get."</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_inf</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_inf s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_inf ((signal_fun s1) t) ((signal_fun s2) t) <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_int</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_int s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_int ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_macro_to_int</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_macro_to_int m = <span class="keyword">match</span> m <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Delay_Memory_Length_int</span> <span class="keywordsign">-></span> 10000</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_mem</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_mem s = signal_delay s (1, (<span class="keyword">fun</span> t <span class="keywordsign">-></span> <span class="constructor">N</span> 1))</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_mod</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_mod s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_mod ((signal_fun s1) t) ((signal_fun s2) t) <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_mul</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_mul s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> ((signal_fun s1) t) *~ ((signal_fun s2) t) <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_neg</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_neg s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_neg ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_nth</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_nth s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> temp1 = (signal_fun s1) t <span class="keyword">in</span><br>
- <span class="keyword">let</span> temp2 = (signal_fun s2) t <span class="keyword">in</span><br>
- <span class="keyword">match</span> temp1 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size1, vec1) <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> temp2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> vec1 i<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: second input signal should be int."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: second input signal should be int."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> vec1 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: second input signal should be int."</span>)<br>
- )<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Get: first input signal should be vector."</span>)<br>
- <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_prefix</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_prefix = <span class="keyword">fun</span> s0 <span class="keywordsign">-></span> <span class="keyword">fun</span> s1 <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> t = 0 <span class="keyword">then</span> (signal_fun s0) 0<br>
- <span class="keyword">else</span> <span class="keyword">if</span> t > 0 <span class="keyword">then</span> (signal_fun s1) t<br>
- <span class="keyword">else</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"prefix time cannot be < 0."</span>)<br>
- <span class="keyword">in</span><br>
- (frequency s1, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_rdtable</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_rdtable s0 s1 s2 = <br>
- <span class="keyword">let</span> memory_length_int = take_off_N ((signal_fun s0) 0) <span class="keyword">in</span><br>
- <span class="keyword">let</span> s1_mem = factory_add_memory (signal_fun s1) memory_length_int <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> index = (signal_fun s2) t <span class="keyword">in</span><br>
- <span class="keyword">match</span> index <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> s1_mem i<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Rdtable index cannot be float."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Rdtable index cannot be vector."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> s1_mem 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Rdtable index cannot be Error."</span>)<br>
- <span class="keyword">in</span><br>
- (frequency s2, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_select2</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_select2 si s0 s1 = <br>
- <span class="keyword">let</span> f = signal_check_frequency3 si s0 s1 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> (signal_fun si) t = <span class="constructor">N</span> 0 <span class="keyword">then</span> (signal_fun s0) t<br>
- <span class="keyword">else</span> <span class="keyword">if</span> (signal_fun si) t = <span class="constructor">N</span> 1 <span class="keyword">then</span> (signal_fun s1) t<br>
- <span class="keyword">else</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"select2 index should be 0 or 1."</span>)<br>
- <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_select3</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_select3 si s0 s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency4 si s0 s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> (signal_fun si) t = <span class="constructor">N</span> 0 <span class="keyword">then</span> (signal_fun s0) t<br>
- <span class="keyword">else</span> <span class="keyword">if</span> (signal_fun si) t = <span class="constructor">N</span> 1 <span class="keyword">then</span> (signal_fun s1) t<br>
- <span class="keyword">else</span> <span class="keyword">if</span> (signal_fun si) t = <span class="constructor">N</span> 2 <span class="keyword">then</span> (signal_fun s2) t<br>
- <span class="keyword">else</span> raise (<span class="constructor">Signal_operation</span> <span class="string">"select3 index should be 0 or 1 or 2."</span>)<br>
- <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_serialize</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_serialize s = <br>
- <span class="keyword">let</span> temp0 = (signal_fun s) 0 <span class="keyword">in</span><br>
- <span class="keyword">match</span> temp0 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size0, vec0) <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">let</span> temp = (signal_fun s) (t/size0) <span class="keyword">in</span><br>
- <span class="keyword">match</span> temp <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> size = size0 <span class="keyword">then</span> <br>
- vec (t <span class="keyword">mod</span> size)<br>
- <span class="keyword">else</span> <br>
- raise (<span class="constructor">Signal_operation</span> <span class="string">"Serialize: vector length not consistent."</span>)<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Serialize: signal type not consistent."</span>)<br>
- )<br>
- <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_frequency = (frequency s) * size0 <span class="keyword">in</span><br>
- (new_frequency, new_signal)<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Serialize: input signal should be vector."</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_sin</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_sin s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_sin ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_sqrt</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_sqrt s = <br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_sqrt ((signal_fun s) t) <span class="keyword">in</span><br>
- (frequency s, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_sub</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_sub s1 s2 = signal_add s1 (signal_neg s2)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_sup</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_sup s1 s2 = <br>
- <span class="keyword">let</span> f = signal_check_frequency s1 s2 <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> v_sup ((signal_fun s1) t) ((signal_fun s2) t) <span class="keyword">in</span><br>
- (f, new_signal)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal.signal_vectorize</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> signal_vectorize s1 s2 = <br>
- <span class="keyword">let</span> size = (signal_fun s2) 0 <span class="keyword">in</span><br>
- <span class="keyword">match</span> size <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> size_int <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">let</span> new_signal = <span class="keyword">fun</span> t <span class="keywordsign">-></span> <br>
- make_vector size_int (<span class="keyword">fun</span> i <span class="keywordsign">-></span> (signal_fun s1) (size_int * t + i)) <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_frequency = (frequency s1) / size_int <span class="keyword">in</span><br>
- (new_frequency, new_signal)<br>
- )<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Signal_operation</span> <span class="string">"Vectorize: vector size should be int."</span>)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Types.symbol_of_string</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> symbol_of_string = <span class="keyword">fun</span> s <span class="keywordsign">-></span><br>
- <span class="keyword">match</span> s <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="string">"+"</span> <span class="keywordsign">-></span> <span class="constructor">Add</span><br>
- <span class="keywordsign">|</span><span class="string">"-"</span> <span class="keywordsign">-></span> <span class="constructor">Sup</span> <br>
- <span class="keywordsign">|</span><span class="string">"*"</span> <span class="keywordsign">-></span> <span class="constructor">Mul</span><br>
- <span class="keywordsign">|</span><span class="string">"/"</span> <span class="keywordsign">-></span> <span class="constructor">Div</span><br>
- <span class="keywordsign">|</span><span class="string">"_"</span> <span class="keywordsign">-></span> <span class="constructor">Pass</span><br>
- <span class="keywordsign">|</span><span class="string">"!"</span> <span class="keywordsign">-></span> <span class="constructor">Stop</span><br>
- <span class="keywordsign">|</span><span class="string">"mem"</span> <span class="keywordsign">-></span> <span class="constructor">Mem</span><br>
- <span class="keywordsign">|</span><span class="string">"@"</span> <span class="keywordsign">-></span> <span class="constructor">Delay</span><br>
- <span class="keywordsign">|</span><span class="string">"floor"</span> <span class="keywordsign">-></span> <span class="constructor">Floor</span><br>
- <span class="keywordsign">|</span><span class="string">"int"</span> <span class="keywordsign">-></span> <span class="constructor">Int</span><br>
- <span class="keywordsign">|</span><span class="string">"sin"</span> <span class="keywordsign">-></span> <span class="constructor">Sin</span><br>
- <span class="keywordsign">|</span><span class="string">"cos"</span> <span class="keywordsign">-></span> <span class="constructor">Cos</span><br>
- <span class="keywordsign">|</span><span class="string">"atan"</span> <span class="keywordsign">-></span> <span class="constructor">Atan</span><br>
- <span class="keywordsign">|</span><span class="string">"atantwo"</span> <span class="keywordsign">-></span> <span class="constructor">Atantwo</span><br>
- <span class="keywordsign">|</span><span class="string">"sqrt"</span> <span class="keywordsign">-></span> <span class="constructor">Sqrt</span><br>
- <span class="keywordsign">|</span><span class="string">"rdtable"</span> <span class="keywordsign">-></span> <span class="constructor">Rdtable</span><br>
- <span class="keywordsign">|</span><span class="string">"%"</span> <span class="keywordsign">-></span> <span class="constructor">Mod</span><br>
- <span class="keywordsign">|</span><span class="string">"vectorize"</span> <span class="keywordsign">-></span> <span class="constructor">Vectorize</span><br>
- <span class="keywordsign">|</span><span class="string">"#"</span> <span class="keywordsign">-></span> <span class="constructor">Concat</span><br>
- <span class="keywordsign">|</span><span class="string">"[]"</span> <span class="keywordsign">-></span> <span class="constructor">Nth</span><br>
- <span class="keywordsign">|</span><span class="string">"serialize"</span> <span class="keywordsign">-></span> <span class="constructor">Serialize</span><br>
- <span class="keywordsign">|</span><span class="string">">"</span> <span class="keywordsign">-></span> <span class="constructor">Larger</span><br>
- <span class="keywordsign">|</span><span class="string">"<"</span> <span class="keywordsign">-></span> <span class="constructor">Smaller</span><br>
- <span class="keywordsign">|</span><span class="string">"prefix"</span> <span class="keywordsign">-></span> <span class="constructor">Prefix</span><br>
- <span class="keywordsign">|</span><span class="string">"selecttwo"</span> <span class="keywordsign">-></span> <span class="constructor">Selecttwo</span><br>
- <span class="keywordsign">|</span><span class="string">"selectthree"</span> <span class="keywordsign">-></span> <span class="constructor">Selectthree</span><br>
- <span class="keywordsign">|</span> _ <span class="keywordsign">-></span> raise <span class="constructor">Symbol_not_defined</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.( *~ )</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> ( *~ ) v1 v2 = v_mul v1 v2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.(-~)</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> (-~) v1 v2 = v_sub v1 v2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.(+~)</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> (+~) v1 v2 = v_add v1 v2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.(/~)</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> (/~) v1 v2 = v_div v1 v2</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.convert_back_R</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> convert_back_R v = <br>
- <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> [| float_of_int i |]<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> [| f |]<br>
- </code><table><tr><td> </td><td><span class="comment">(** realise the function int -> value into float list.*)</span></td></tr></table><code class="code"><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> result_value_array = <span class="constructor">Array</span>.init size vec <span class="keyword">in</span><br>
- <span class="keyword">let</span> result_float_array = <span class="constructor">Array</span>.map take_off_R result_value_array <span class="keyword">in</span><br>
- result_float_array <br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> [| 0. |]<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> [| 0. |]</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.factory_add_memory</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> factory_add_memory = <span class="keyword">fun</span> f <span class="keywordsign">-></span> <span class="keyword">fun</span> n <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> n > 0 <span class="keyword">then</span><br>
- (<br>
- <span class="keyword">let</span> memory = <span class="constructor">Hashtbl</span>.create n <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_fun = <span class="keyword">fun</span> i <span class="keywordsign">-></span><br>
- <span class="keyword">try</span> <span class="constructor">Hashtbl</span>.find memory i<br>
- <span class="keyword">with</span> <span class="constructor">Not_found</span> <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> result = f i <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.replace memory i result <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = <span class="constructor">Hashtbl</span>.remove memory (i - n) <span class="keyword">in</span><br>
- result<br>
- <span class="keyword">in</span><br>
- new_fun<br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"memory length cannot be < 0."</span> )</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.fail</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> fail = <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.make_vector</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> make_vector = <span class="keyword">fun</span> size <span class="keywordsign">-></span> <span class="keyword">fun</span> vec <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> new_vec = <span class="keyword">fun</span> i <span class="keywordsign">-></span><br>
- <span class="keyword">if</span> i >= 0 <span class="keywordsign">&&</span> i < size <span class="keyword">then</span> vec i<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"vector overflow"</span>)<br>
- <span class="keyword">in</span><br>
- v_memory (return_Vec (size, new_vec))</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.normalize</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> normalize v = <br>
- <span class="keyword">let</span> n = 2. ** float_of_int (value_macro_to_int <span class="constructor">Faust_Bits_int</span>) <span class="keyword">in</span><br>
- <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> i > value_macro_to_int <span class="constructor">Faust_Max_int</span> <span class="keyword">then</span> <br>
- return_N (i - int_of_float (n *. floor (((float_of_int i) +. n/.2.)/.n)))<br>
- <span class="keyword">else</span> <span class="keyword">if</span> i < value_macro_to_int <span class="constructor">Faust_Min_int</span> <span class="keyword">then</span> <br>
- return_N (i + int_of_float (n *. floor ((n/.2. -. (float_of_int i) -. 1.)/.n)))<br>
- <span class="keyword">else</span> return_N i<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> f > float_of_int (value_macro_to_int <span class="constructor">Faust_Max_int</span>) <span class="keyword">then</span> <br>
- return_R (f -. (n *. floor ((f +. n/.2.)/.n)))<br>
- <span class="keyword">else</span> <span class="keyword">if</span> f < float_of_int (value_macro_to_int <span class="constructor">Faust_Min_int</span>) <span class="keyword">then</span> <br>
- return_R (f +. (n *. floor ((n/.2. -. f -. 1.)/.n)))<br>
- <span class="keyword">else</span> return_R f<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> normalize (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <span class="constructor">Zero</span><br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.print_value_list</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> print_value_list value_list = <br>
- <span class="keyword">let</span> s = ref <span class="string">"["</span> <span class="keyword">in</span><br>
- <span class="keyword">let</span> n = <span class="constructor">List</span>.length value_list <span class="keyword">in</span><br>
- <span class="keyword">for</span> i = 0 <span class="keyword">to</span> n - 1 <span class="keyword">do</span><br>
- <span class="keyword">let</span> current = <span class="constructor">List</span>.nth value_list i <span class="keyword">in</span><br>
- s := <span class="keyword">if</span> i + 1 < n <span class="keyword">then</span> !s ^ string_of_value current ^ <span class="string">"; "</span> <br>
- <span class="keyword">else</span> !s ^ string_of_value current ^ <span class="string">"]"</span><br>
- <span class="keyword">done</span>;<br>
- print_endline !s</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.return_N</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> return_N i = <span class="constructor">N</span> i</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.return_R</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> return_R f = <span class="constructor">R</span> f</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.return_Vec</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> return_Vec (size, vec) = <span class="constructor">Vec</span> (size, vec)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.string_of_value</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> string_of_value v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i1 <span class="keywordsign">-></span> <span class="string">"N "</span> ^ (string_of_int i1)<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f1 <span class="keywordsign">-></span> <span class="string">"R "</span> ^ (string_of_float f1)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> <span class="string">"Vec"</span><br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <span class="string">"Zero"</span> <br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="string">"W"</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.take_off_N</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> take_off_N v = <br>
- <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> i<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Convert_Error</span> <span class="string">"float take_off_N int"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Convert_Error</span> <span class="string">"take_off_N can not convert vector."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> 0</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.take_off_R</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> take_off_R v = <br>
- <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> float_of_int i<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> f<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Convert_Error</span> <span class="string">"take_off_R can not convert vector."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> 0.<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> 0.</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_add</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_add v1 v2 = <span class="keyword">match</span> v1 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size1, vec1) <span class="keywordsign">-></span> <br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> size1 = size2 <span class="keyword">then</span> <br>
- make_vector size1 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_add (vec1 i) (vec2 i))<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"vector size not matched."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> v1<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar vec1 +~ sca2"</span>)<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i1 <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> normalize (return_N (i1 + i2))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> normalize (return_R ((float_of_int i1) +. f2))<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar i1 +~ vec2"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> v1<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> fail<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f1 <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> normalize (return_R (f1 +. (float_of_int i2)))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> normalize (return_R (f1 +. f2))<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar f1 +~ vec2"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> v1<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> fail<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> v2<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> fail<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> fail<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar W +~ vec2"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> v1<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> fail<br>
- )</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_atan</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_atan v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> return_R (atan (float_of_int i))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> return_R (atan f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_atan (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_R (atan 0.)<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_atantwo</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_atantwo v1 v2 = <span class="keyword">match</span> (v1, v2) <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> (<span class="constructor">N</span> i1, <span class="constructor">N</span> i2) <span class="keywordsign">-></span> v_atantwo (<span class="constructor">R</span> (float_of_int i1)) (<span class="constructor">R</span> (float_of_int i2))<br>
- <span class="keywordsign">|</span> (<span class="constructor">N</span> i1, <span class="constructor">R</span> f2) <span class="keywordsign">-></span> v_atantwo (<span class="constructor">R</span> (float_of_int i1)) v2<br>
- <span class="keywordsign">|</span> (<span class="constructor">N</span> i1, <span class="constructor">Zero</span>) <span class="keywordsign">-></span> v_atantwo (<span class="constructor">R</span> (float_of_int i1)) (<span class="constructor">R</span> 0.)<br>
- <span class="keywordsign">|</span> (<span class="constructor">N</span> i1, <span class="constructor">Vec</span> (size2, vec2)) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"atan2 sca vec."</span>)<br>
- <span class="keywordsign">|</span> (<span class="constructor">N</span> i1, <span class="constructor">W</span>) <span class="keywordsign">-></span> <span class="constructor">W</span><br>
-<br>
- <span class="keywordsign">|</span> (<span class="constructor">R</span> f1, <span class="constructor">N</span> i2) <span class="keywordsign">-></span> v_atantwo v1 (<span class="constructor">R</span> (float_of_int i2))<br>
- <span class="keywordsign">|</span> (<span class="constructor">R</span> f1, <span class="constructor">R</span> f2) <span class="keywordsign">-></span> <span class="constructor">R</span> (atan2 f1 f2)<br>
- <span class="keywordsign">|</span> (<span class="constructor">R</span> f1, <span class="constructor">Zero</span>) <span class="keywordsign">-></span> v_atantwo v1 (<span class="constructor">R</span> 0.)<br>
- <span class="keywordsign">|</span> (<span class="constructor">R</span> f1, <span class="constructor">Vec</span> (size2, vec2)) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"atan2 sca vec."</span>)<br>
- <span class="keywordsign">|</span> (<span class="constructor">R</span> f1, <span class="constructor">W</span>) <span class="keywordsign">-></span> <span class="constructor">W</span><br>
-<br>
- <span class="keywordsign">|</span> (<span class="constructor">Vec</span> (size1, vec1), <span class="constructor">Vec</span> (size2, vec2)) <span class="keywordsign">-></span> make_vector size1 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_atantwo (vec1 i) (vec2 i))<br>
- <span class="keywordsign">|</span> (<span class="constructor">Vec</span> (size1, vec1), <span class="constructor">Zero</span>) <span class="keywordsign">-></span> make_vector size1 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_atantwo (vec1 i) <span class="constructor">Zero</span>)<br>
- <span class="keywordsign">|</span> (<span class="constructor">Vec</span> (size1, vec1), _) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"atan2 vec sca."</span>)<br>
- <br>
- <span class="keywordsign">|</span> (<span class="constructor">Zero</span>, <span class="constructor">N</span> i2) <span class="keywordsign">-></span> v_atantwo (<span class="constructor">R</span> 0.) (<span class="constructor">R</span> (float_of_int i2))<br>
- <span class="keywordsign">|</span> (<span class="constructor">Zero</span>, <span class="constructor">R</span> f2) <span class="keywordsign">-></span> v_atantwo (<span class="constructor">R</span> 0.) v2<br>
- <span class="keywordsign">|</span> (<span class="constructor">Zero</span>, <span class="constructor">Vec</span> (size2, vec2)) <span class="keywordsign">-></span> make_vector size2 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_atantwo <span class="constructor">Zero</span> (vec2 i))<br>
- <span class="keywordsign">|</span> (<span class="constructor">Zero</span>, <span class="constructor">Zero</span>) <span class="keywordsign">-></span> v_atantwo (<span class="constructor">R</span> 0.) (<span class="constructor">R</span> 0.)<br>
- <span class="keywordsign">|</span> (<span class="constructor">Zero</span>, <span class="constructor">W</span>) <span class="keywordsign">-></span> <span class="constructor">W</span><br>
-<br>
- <span class="keywordsign">|</span> (<span class="constructor">W</span>, <span class="constructor">Vec</span> (size2, vec2)) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"atan2 sca vec."</span>)<br>
- <span class="keywordsign">|</span> (<span class="constructor">W</span>, _) <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_cos</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_cos v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> return_R (cos (float_of_int i))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> return_R (cos f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_cos (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_R (cos 0.)<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_div</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> v_div v1 v2 = v_mul v1 (v_recip v2)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_floor</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_floor v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> return_R (float_of_int i)<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> return_R (floor f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_floor (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_R 0.<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_inf</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> v_inf v1 v2 = v_larger_than_zero (v2 -~ v1)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_int</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_int v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> v<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> return_N (int_of_float f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_int (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_N 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_larger_than_zero</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_larger_than_zero v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> <span class="keyword">if</span> i > 0 <span class="keyword">then</span> return_N 1 <span class="keyword">else</span> return_N 0<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <span class="keyword">if</span> f > 0. <span class="keyword">then</span> return_N 1 <span class="keyword">else</span> return_N 0<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_larger_than_zero (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_N 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_list_memory</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> v_list_memory vl = <span class="constructor">List</span>.map v_memory vl</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_memory</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> v_memory v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span> <span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span><br>
- <span class="keyword">let</span> memory_array = <span class="constructor">Array</span>.create size <span class="constructor">W</span> <span class="keyword">in</span><br>
- <span class="keyword">let</span> index_array = <span class="constructor">Array</span>.create size <span class="keyword">false</span> <span class="keyword">in</span><br>
- <span class="keyword">let</span> new_vec = <span class="keyword">fun</span> i <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> i >= 0 <span class="keywordsign">&&</span> i < size <span class="keyword">then</span> <br>
- (<br>
- <span class="keyword">if</span> index_array.(i) <span class="keyword">then</span> <br>
- memory_array.(i)<br>
- <span class="keyword">else</span> <br>
- <span class="keyword">let</span> result = vec i <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = memory_array.(i) <- result <span class="keyword">in</span><br>
- <span class="keyword">let</span> () = index_array.(i) <- <span class="keyword">true</span> <span class="keyword">in</span><br>
- result <br>
- )<br>
- <span class="keyword">else</span> raise (<span class="constructor">Invalid_argument</span> <span class="string">"vector overflow."</span>)<br>
- <span class="keyword">in</span><br>
- return_Vec (size, new_vec)<br>
- <span class="keywordsign">|</span> _ <span class="keywordsign">-></span> v</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_mod</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_mod v1 v2 = <span class="keyword">match</span> v1 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i1 <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> return_N (i1 <span class="keyword">mod</span> i2)<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> return_N (i1 <span class="keyword">mod</span> (int_of_float f2))<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Scalaire_Vector: int mod vec."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"v1 mod v2: v2 cannot be zero."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span><br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f1 <span class="keywordsign">-></span> <span class="keyword">let</span> i = return_N (int_of_float f1) <span class="keyword">in</span> v_mod i v2<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size1, vec1) <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> size1 = size2 <span class="keyword">then</span> <br>
- make_vector size1 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_mod (vec1 i) (vec2 i))<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"vector size not matched."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"v1 mod v2: v2 cannot be zero."</span>)<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalaire: vec mod int."</span>)<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- <span class="keyword">let</span> v = make_vector size2 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> <span class="constructor">Zero</span>) <span class="keyword">in</span><br>
- v_mod v v2<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> v_mod (<span class="constructor">N</span> 0) v2<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Scalaire_Vector: int mod vec."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"v1 mod v2: v2 cannot be zero."</span>)<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> <span class="constructor">W</span><br>
- )</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_mul</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_mul v1 v2 = <span class="keyword">match</span> v1 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size1, vec1) <span class="keywordsign">-></span> <br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> size1 = size2 <span class="keyword">then</span> <br>
- make_vector size1 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_mul (vec1 i) (vec2 i))<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"vector size not matched."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> make_vector size1 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_mul (vec1 i) <span class="constructor">Zero</span>)<br>
- <span class="keywordsign">|</span>_ <span class="keywordsign">-></span> raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar vec1 *~ sca2"</span>)<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i1 <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> normalize (return_N (i1 * i2))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> normalize (return_R ((float_of_int i1) *. f2))<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar i1 *~ vec2"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_N 0<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="keyword">if</span> i1 = 0 <span class="keyword">then</span> <span class="constructor">N</span> 0 <span class="keyword">else</span> fail<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f1 <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> normalize (return_R (f1 *. (float_of_int i2)))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> normalize (return_R (f1 *. f2))<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar f1 *~ vec2"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_R 0.<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="keyword">if</span> f1 = 0. <span class="keyword">then</span> <span class="constructor">R</span> 0. <span class="keyword">else</span> fail<br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> return_N 0<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> return_R 0.<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> make_vector size2 (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_mul <span class="constructor">Zero</span> (vec2 i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <span class="constructor">Zero</span><br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">Zero</span> <span class="comment">(* Danger! *)</span><br>
- )<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span><br>
- (<br>
- <span class="keyword">match</span> v2 <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i2 <span class="keywordsign">-></span> <span class="keyword">if</span> i2 = 0 <span class="keyword">then</span> <span class="constructor">N</span> 0 <span class="keyword">else</span> fail<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f2 <span class="keywordsign">-></span> <span class="keyword">if</span> f2 = 0. <span class="keyword">then</span> <span class="constructor">R</span> 0. <span class="keyword">else</span> fail<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size2, vec2) <span class="keywordsign">-></span> <br>
- raise (<span class="constructor">Value_operation</span> <span class="string">"Vector_Scalar W +~ vec2"</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <span class="constructor">Zero</span><br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> fail<br>
- )</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_neg</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_neg v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> return_N (-i)<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> return_R (-.f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_neg (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <span class="constructor">Zero</span><br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> fail</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_recip</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_recip v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> v_recip (<span class="constructor">R</span> (float_of_int i))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <span class="keyword">if</span> f = 0. <span class="keyword">then</span> fail <span class="keyword">else</span> return_R (1./.f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_recip (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> fail<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> return_R 0.</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_sin</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_sin v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> return_R (sin (float_of_int i))<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> return_R (sin f)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_sin (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_R (sin 0.)<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_sqrt</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_sqrt v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> i >= 0 <span class="keyword">then</span> return_R (sqrt (float_of_int i))<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"sqrt parameter < 0."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <br>
- <span class="keyword">if</span> f >= 0. <span class="keyword">then</span> return_R (sqrt f)<br>
- <span class="keyword">else</span> raise (<span class="constructor">Value_operation</span> <span class="string">"sqrt parameter < 0."</span>)<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_sqrt (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> return_R (sqrt 0.)<br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">W</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_sub</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> v_sub v1 v2 = v_add v1 (v_neg v2)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_sup</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> v_sup v1 v2 = v_larger_than_zero (v1 -~ v2)</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.v_zero</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> <span class="keyword">rec</span> v_zero v = <span class="keyword">match</span> v <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">N</span> i <span class="keywordsign">-></span> <span class="constructor">N</span> 0<br>
- <span class="keywordsign">|</span><span class="constructor">R</span> f <span class="keywordsign">-></span> <span class="constructor">R</span> 0.<br>
- <span class="keywordsign">|</span><span class="constructor">Vec</span> (size, vec) <span class="keywordsign">-></span> make_vector size (<span class="keyword">fun</span> i <span class="keywordsign">-></span> v_zero (vec i))<br>
- <span class="keywordsign">|</span><span class="constructor">Zero</span> <span class="keywordsign">-></span> <span class="constructor">Zero</span> <span class="comment">(* Danger! *)</span><br>
- <span class="keywordsign">|</span><span class="constructor">W</span> <span class="keywordsign">-></span> <span class="constructor">R</span> 0.</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.value_macro_to_int</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> value_macro_to_int m = <span class="keyword">match</span> m <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Faust_Max_int</span> <span class="keywordsign">-></span> 2147483647<br>
- <span class="keywordsign">|</span><span class="constructor">Faust_Min_int</span> <span class="keywordsign">-></span> -2147483648<br>
- <span class="keywordsign">|</span><span class="constructor">Faust_Bits_int</span> <span class="keywordsign">-></span> 32</code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value.value_macro_to_value</title>
-</head>
-<body>
-<code class="code"><span class="keyword">let</span> value_macro_to_value m = <span class="keyword">match</span> m <span class="keyword">with</span><br>
- <span class="keywordsign">|</span><span class="constructor">Faust_Max_int</span> <span class="keywordsign">-></span> 2147483647<br>
- <span class="keywordsign">|</span><span class="constructor">Faust_Min_int</span> <span class="keywordsign">-></span> -2147483648<br>
- <span class="keywordsign">|</span><span class="constructor">Faust_Bits_int</span> <span class="keywordsign">-></span> 32</code></body></html>
\ No newline at end of file
+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title></title>
-</head>
-<body>
-<center><h1></h1></center>
-<a href="index_types.html">Index of types</a><br>
-<a href="index_exceptions.html">Index of exceptions</a><br>
-<a href="index_values.html">Index of values</a><br>
-<a href="index_modules.html">Index of modules</a><br>
-<br/><br>
-<table class="indextable">
-<tr><td><a href="Types.html">Types</a></td><td><div class="info">
-type symbol, defines valid identifiers in faust expressions.
-</div>
-</td></tr>
-<tr><td><a href="Parser.html">Parser</a></td><td></td></tr>
-<tr><td><a href="Lexer.html">Lexer</a></td><td></td></tr>
-<tr><td><a href="Value.html">Value</a></td><td><div class="info">
-Module: Value
- Description: basic data type in the vectorial faust interpreter.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html">Signal</a></td><td><div class="info">
-Module: Signal
- Description: type signal = rate * (int -> value), operations of signals.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html">Faustexp</a></td><td><div class="info">
-Module: Faustexp
- Description: dimension estimation and delay estimation of faust expressions.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html">Interpreter</a></td><td><div class="info">
-Module: Interpreter
- Description: input beam -> process -> output beam
-</div>
-</td></tr>
-<tr><td><a href="Preprocess.html">Preprocess</a></td><td></td></tr>
-<tr><td><a href="Main.html">Main</a></td><td><div class="info">
-Module: Interpreter
- Description: Input wave -> interpretation -> output wave
-</div>
-</td></tr>
-</table>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of class attributes</title>
-</head>
-<body>
-<center><h1>Index of class attributes</h1></center>
-<table>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of class types</title>
-</head>
-<body>
-<center><h1>Index of class types</h1></center>
-<table>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of classes</title>
-</head>
-<body>
-<center><h1>Index of classes</h1></center>
-<table>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of exceptions</title>
-</head>
-<body>
-<center><h1>Index of exceptions</h1></center>
-<table>
-<tr><td align="left"><br>B</td></tr>
-<tr><td><a href="Faustexp.html#EXCEPTIONBeam_Matching_Error">Beam_Matching_Error</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-Exception raised in beam matching of faust expressions.
-</div>
-</td></tr>
-<tr><td align="left"><br>C</td></tr>
-<tr><td><a href="Value.html#EXCEPTIONConvert_Error">Convert_Error</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-Exception raised in convertions between float/int and type 'Value'.
-</div>
-</td></tr>
-<tr><td align="left"><br>E</td></tr>
-<tr><td><a href="Interpreter.html#EXCEPTIONEvaluation_Error">Evaluation_Error</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-Exception raised during interpretation of faust process.
-</div>
-</td></tr>
-<tr><td align="left"><br>M</td></tr>
-<tr><td><a href="Main.html#EXCEPTIONMissing_Expression">Missing_Expression</a> [<a href="Main.html">Main</a>]</td>
-<td><div class="info">
-Exception raised when no string expression of faust process is typed in console.
-</div>
-</td></tr>
-<tr><td align="left"><br>N</td></tr>
-<tr><td><a href="Faustexp.html#EXCEPTIONNotYetDone">NotYetDone</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-Exception raised in case that the branch under call hasn't yet been programed.
-</div>
-</td></tr>
-<tr><td align="left"><br>S</td></tr>
-<tr><td><a href="Signal.html#EXCEPTIONSignal_operation">Signal_operation</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-Exception raised in operations of signals.
-</div>
-</td></tr>
-<tr><td><a href="Types.html#EXCEPTIONSymbol_not_defined">Symbol_not_defined</a> [<a href="Types.html">Types</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>V</td></tr>
-<tr><td><a href="Value.html#EXCEPTIONValue_operation">Value_operation</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-Exception raised in type 'Value' operations.
-</div>
-</td></tr>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of class methods</title>
-</head>
-<body>
-<center><h1>Index of class methods</h1></center>
-<table>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of module types</title>
-</head>
-<body>
-<center><h1>Index of module types</h1></center>
-<table>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of modules</title>
-</head>
-<body>
-<center><h1>Index of modules</h1></center>
-<table>
-<tr><td align="left"><br>F</td></tr>
-<tr><td><a href="Faustexp.html">Faustexp</a> </td>
-<td><div class="info">
-Module: Faustexp
- Description: dimension estimation and delay estimation of faust expressions.
-</div>
-</td></tr>
-<tr><td align="left"><br>I</td></tr>
-<tr><td><a href="Interpreter.html">Interpreter</a> </td>
-<td><div class="info">
-Module: Interpreter
- Description: input beam -> process -> output beam
-</div>
-</td></tr>
-<tr><td align="left"><br>L</td></tr>
-<tr><td><a href="Lexer.html">Lexer</a> </td>
-<td></td></tr>
-<tr><td align="left"><br>M</td></tr>
-<tr><td><a href="Main.html">Main</a> </td>
-<td><div class="info">
-Module: Interpreter
- Description: Input wave -> interpretation -> output wave
-</div>
-</td></tr>
-<tr><td align="left"><br>P</td></tr>
-<tr><td><a href="Parser.html">Parser</a> </td>
-<td></td></tr>
-<tr><td><a href="Preprocess.html">Preprocess</a> </td>
-<td></td></tr>
-<tr><td align="left"><br>S</td></tr>
-<tr><td><a href="Signal.html">Signal</a> </td>
-<td><div class="info">
-Module: Signal
- Description: type signal = rate * (int -> value), operations of signals.
-</div>
-</td></tr>
-<tr><td align="left"><br>T</td></tr>
-<tr><td><a href="Types.html">Types</a> </td>
-<td><div class="info">
-type symbol, defines valid identifiers in faust expressions.
-</div>
-</td></tr>
-<tr><td align="left"><br>V</td></tr>
-<tr><td><a href="Value.html">Value</a> </td>
-<td><div class="info">
-Module: Value
- Description: basic data type in the vectorial faust interpreter.
-</div>
-</td></tr>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of types</title>
-</head>
-<body>
-<center><h1>Index of types</h1></center>
-<table>
-<tr><td align="left"><br>D</td></tr>
-<tr><td><a href="Types.html#TYPEdimension">dimension</a> [<a href="Types.html">Types</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>F</td></tr>
-<tr><td><a href="Types.html#TYPEfaust_exp">faust_exp</a> [<a href="Types.html">Types</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>I</td></tr>
-<tr><td><a href="Interpreter.html#TYPEinterpreter_macro">interpreter_macro</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-Macro constants of this file.
-</div>
-</td></tr>
-<tr><td><a href="Main.html#TYPEio_macro">io_macro</a> [<a href="Main.html">Main</a>]</td>
-<td><div class="info">
-Macro constants of input/output route.
-</div>
-</td></tr>
-<tr><td align="left"><br>S</td></tr>
-<tr><td><a href="Types.html#TYPEsignal">signal</a> [<a href="Types.html">Types</a>]</td>
-<td></td></tr>
-<tr><td><a href="Signal.html#TYPEsignal_macro">signal_macro</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-Macro constants of the file.
-</div>
-</td></tr>
-<tr><td><a href="Types.html#TYPEsymbol">symbol</a> [<a href="Types.html">Types</a>]</td>
-<td><div class="info">
-type symbol, defines valid identifiers in faust expressions.
-</div>
-</td></tr>
-<tr><td align="left"><br>T</td></tr>
-<tr><td><a href="Parser.html#TYPEtoken">token</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>V</td></tr>
-<tr><td><a href="Types.html#TYPEvalue">value</a> [<a href="Types.html">Types</a>]</td>
-<td></td></tr>
-<tr><td><a href="Value.html#TYPEvalue_macro">value_macro</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-Macro constants of the file.
-</div>
-</td></tr>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-<html>
-<head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Index of values</title>
-</head>
-<body>
-<center><h1>Index of values</h1></center>
-<table>
-<tr><td align="left"><br></td></tr>
-<tr><td><a href="Value.html#VAL( *~ )">( *~ )</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val ( *~ ) : value -> value -> value, operator of v_mul.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VAL(+~)">(+~)</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val (+~) : value -> value -> value, operator of v_add.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VAL(-~)">(-~)</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val (-~) : value -> value -> value, operator of v_sub.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VAL(/~)">(/~)</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val (/~) : value -> value -> value, operator of v_div.
-</div>
-</td></tr>
-<tr><td><a href="Lexer.html#VAL__ocaml_lex_tables">__ocaml_lex_tables</a> [<a href="Lexer.html">Lexer</a>]</td>
-<td></td></tr>
-<tr><td><a href="Lexer.html#VAL__ocaml_lex_token_rec">__ocaml_lex_token_rec</a> [<a href="Lexer.html">Lexer</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>A</td></tr>
-<tr><td><a href="Interpreter.html#VALarrange">arrange</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val arrange : 'a array array array -> int -> 'a array list,
-arranges the output data in "array list" form.
-</div>
-</td></tr>
-<tr><td align="left"><br>B</td></tr>
-<tr><td><a href="Signal.html#VALbeam_add_one_memory">beam_add_one_memory</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val beam_add_one_memory : signal list -> signal list,
-adds memory of one latest sample for each element in signal list.
-</div>
-</td></tr>
-<tr><td align="left"><br>C</td></tr>
-<tr><td><a href="Interpreter.html#VALchannels">channels</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val channels : 'a array array array -> int -> int array,
-returns an array of number of channels.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALcheck_frequency">check_frequency</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val check_frequency : int -> int -> int, returns the correction of frequency.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALcompute">compute</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val compute : (int -> value) list -> (int list) * (float array list).
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALcomputing">computing</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val computing : (int -> value array) -> int -> int -> float array array array,
-applies time sequence "0,1,2,3,...,max" to signal beam,
-returns primitive output data.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALconvert_back_R">convert_back_R</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val convert_back_r : value -> float array,
-return a float array of size 1 if v is N|R|Zero|W, a float array of size n if v is Vec.
-</div>
-</td></tr>
-<tr><td align="left"><br>D</td></tr>
-<tr><td><a href="Faustexp.html#VALd_merge">d_merge</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val d_merge : int * int -> int * int -> int * int, process dimension for constructor "merge(:>)",
-which is (size of input beam of first exp, size of output beam of second exp)
-along with beam matching.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALd_par">d_par</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val d_par : int * int -> int * int -> int * int, process dimension for constructor "par(,)",
-which is the addition of two dimensions.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALd_rec">d_rec</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val d_rec : int * int -> int * int -> int * int, process dimension for constructor "rec(~)",
-which is (size of input beam of first exp - size of output beam of second exp,
-size of output beam of first exp)
-along with beam matching.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALd_seq">d_seq</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val d_seq : int * int -> int * int -> int * int, process dimension for constructor "seq(:)",
-which is (size of input beam of first exp, size of output beam of second exp)
-along with beam matching.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALd_split">d_split</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val d_split : int * int -> int * int -> int * int, process dimension for constructor "split(<:)",
-which is (size of input beam of first exp, size of output beam of second exp)
-along with beam matching.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALdelay">delay</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val delay : faust_exp -> int, returns the number of delays estimated staticly.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALdim">dim</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val dim : faust_exp -> int * int, returns dimension for faust expression,
-along with beam matching.
-</div>
-</td></tr>
-<tr><td align="left"><br>E</td></tr>
-<tr><td><a href="Interpreter.html#VALeval">eval</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val rec eval : faust_exp -> beam -> beam,
-main interpretation work is done here.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALexp_of_string">exp_of_string</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val exp_of_string : string -> faust_exp, faust expression parser.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALextract_rate">extract_rate</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val extract_rate : (int * (int -> value)) list -> int list,
-gets the sample rate list from beam.
-</div>
-</td></tr>
-<tr><td align="left"><br>F</td></tr>
-<tr><td><a href="Value.html#VALfactory_add_memory">factory_add_memory</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val factory_add_memory : (int -> 'b) -> int -> (int -> 'b),
-<code class="code">factory_add_memory f n</code> adds a memory of size n to fun f.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALfail">fail</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val fail, return value W.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALfrequency">frequency</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val frequency : signal -> int, returns the frequency of a signal.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALfun_array_to_fun">fun_array_to_fun</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val func_of_func_array : (int -> value) array -> (int -> value array),
-applies the same int parameter to each element of function array,
-produces a value array.
-</div>
-</td></tr>
-<tr><td align="left"><br>G</td></tr>
-<tr><td><a href="Faustexp.html#VALget_root">get_root</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val get_root : dimension -> int * int, returns the root of dimension tree.
-</div>
-</td></tr>
-<tr><td align="left"><br>I</td></tr>
-<tr><td><a href="Interpreter.html#VALinterpret_const">interpret_const</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val interpret_const : value -> beam -> beam, generates constant signal with frequency 0.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALinterpret_ident">interpret_ident</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val interpret_ident : string -> beam -> beam,
-generates signals according to identified symbols.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALinterpreter">interpreter</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val interpreter : faust_exp -> (int list) * (float array list) ->
-(int list) * (int list) * (float array list)
-input: faust expression, sample rate list * input data list
-output: channel list * sample rate list * output data list.
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALinterpreter_macro_to_value">interpreter_macro_to_value</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val interpreter_macro_to_value : returns the value associated with the macro.
-</div>
-</td></tr>
-<tr><td><a href="Main.html#VALio_macro_to_string">io_macro_to_string</a> [<a href="Main.html">Main</a>]</td>
-<td><div class="info">
-val io_macro_to_string : io_macro -> string.
-</div>
-</td></tr>
-<tr><td align="left"><br>M</td></tr>
-<tr><td><a href="Main.html#VALmain">main</a> [<a href="Main.html">Main</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALmain">main</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Interpreter.html#VALmake_beam">make_beam</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val make_beam : (int list) * (float array list) -> (int * (int -> value)) list,
-input: (sample rate list, data list)
-output: beam = (sample rate, function) list
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALmake_vector">make_vector</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val make_vector : int -> (int -> value) -> value,
-<code class="code">make_vector size vec</code>, return a value Vec of (size, vec).
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALmatrix_transpose">matrix_transpose</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val matrix_transpose : 'a array array -> 'a array array,
-transposes the input matrix.
-</div>
-</td></tr>
-<tr><td align="left"><br>N</td></tr>
-<tr><td><a href="Value.html#VALnormalize">normalize</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val normalize: value -> value, normalize value to bounded <code class="code">-2147483648,2147483647</code>.
-</div>
-</td></tr>
-<tr><td align="left"><br>P</td></tr>
-<tr><td><a href="Preprocess.html#VALpreprocess">preprocess</a> [<a href="Preprocess.html">Preprocess</a>]</td>
-<td></td></tr>
-<tr><td><a href="Faustexp.html#VALprint_exp">print_exp</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val print_exp : faust_exp -> unit, print to console the input faust expression.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALprint_value_list">print_value_list</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val print_value_list: value list -> unit, prints to console the value list.
-</div>
-</td></tr>
-<tr><td align="left"><br>R</td></tr>
-<tr><td><a href="Main.html#VALread_input_wave">read_input_wave</a> [<a href="Main.html">Main</a>]</td>
-<td><div class="info">
-val read_input_wave : string array -> int list * float array list
- <code class="code">read_input_wave argv</code> gets information from command line,
- returns sample rate list and data (in form of float array) list.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALreturn_N">return_N</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val return_N : int -> value, convert from int to value N.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALreturn_R">return_R</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val return_R : float -> value, convert from float to value R.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALreturn_Vec">return_Vec</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val return_Vec : int * (int -> value) -> value, convert (size, vec) to value Vec.
-</div>
-</td></tr>
-<tr><td align="left"><br>S</td></tr>
-<tr><td><a href="Main.html#VALset_GC">set_GC</a> [<a href="Main.html">Main</a>]</td>
-<td><div class="info">
-val set_GC : unit -> unit
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_add">signal_add</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_add : signal -> signal -> signal, output(t) = input1(t) + input2(t),
- frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_add_one_memory">signal_add_one_memory</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_add_one_memory : signal -> signal,
-returns the signal with memory of one latest sample.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_append">signal_append</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_append : signal -> signal -> signal, symbol "#",
- appends vectors of the two input signals at each time, frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_atan">signal_atan</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_atan : signal -> signal, output(t) = v_atan(input(t)), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_atantwo">signal_atantwo</a> [<a href="Signal.html">Signal</a>]</td>
-<td></td></tr>
-<tr><td><a href="Signal.html#VALsignal_check_frequency">signal_check_frequency</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_check_frequency : signal -> signal -> int,
-checks the frequencies of two input signals, and returns common frequency or raise an exception.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_check_frequency3">signal_check_frequency3</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_check_frequency3 : signal -> signal -> signal -> int,
-checks the frequencies of three input signal, and returns common frequency or raise an exception.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_check_frequency4">signal_check_frequency4</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_check_frequency4 : signal -> signal -> signal -> signal -> int,
-checks the frequencies of three input signal, and returns common frequency or raise an exception.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_cos">signal_cos</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_cos : signal -> signal, output(t) = v_cos(input(t)), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_delay">signal_delay</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_delay : signal -> signal -> signal, output(t) = input1(t - input2(t)),
- Attention: delay dynamic, frequency of output signal equals to that of first input signal.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_div">signal_div</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_div : signal -> signal -> signal, output(t) = input1(t) / input2(t),
- frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_floor">signal_floor</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_floor : signal -> signal, output(t) = v_floor(input(t)), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_fun">signal_fun</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_fun : signal -> (int -> value), returns the functional part of a signal.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_inf">signal_inf</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_inf : signal -> signal -> signal,
- output(t) = input1(t) < input2(t), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_int">signal_int</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_int : signal -> signal, output(t) = v_int(input(t)), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_macro_to_int">signal_macro_to_int</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_macro_to_int : signal_macro -> int.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_mem">signal_mem</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_mem : signal -> signal, equivalent to signal_delay with constant delay 1.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_mod">signal_mod</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_mod : signal -> signal -> signal,
- output(t) = input1(t) % input2(t), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_mul">signal_mul</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_mul : signal -> signal -> signal, output(t) = input1(t) * input2(t),
- frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_neg">signal_neg</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_neg : signal -> signal, output(t) = -input(t), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_nth">signal_nth</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_nth : signal -> signal -> signal, symbol "[]", output(t) = input1(t)(input2(t)),
- frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_prefix">signal_prefix</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_prefix : signal -> signal -> signal,
-<code class="code">signal_prefix s0 s1</code> returns s0(0) if t = 0, s1(t-1) if t > 0, frequency same to s1.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_rdtable">signal_rdtable</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_rdtable : signal -> signal -> signal,
- output(t) = input1(input2(t)), frequency equals to that of input2.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_select2">signal_select2</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_select2 : signal -> signal -> signal -> signal,
-<code class="code">signal_select2 si s0 s1</code> selects s0 or s1 by index si, frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_select3">signal_select3</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_select3 : signal -> signal -> signal -> signal -> signal,
-<code class="code">signal_select3 si s0 s1 s2</code> selects s0 or s1 or s2 by index si, frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_serialize">signal_serialize</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_serialize : signal -> signal, output(t) = input(floor(t/n))(t%n),
- with n = size of input(0).
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_sin">signal_sin</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_sin : signal -> signal, output(t) = v_sin(input(t)), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_sqrt">signal_sqrt</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_sqrt : signal -> signal, output(t) = v_sqrt(input(t)), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_sub">signal_sub</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_sub : signal -> signal -> signal, output(t) = input1(t) - input2(t),
- frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_sup">signal_sup</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_sup : signal -> signal -> signal,
- output(t) = input1(t) > input2(t), frequency consistent.
-</div>
-</td></tr>
-<tr><td><a href="Signal.html#VALsignal_vectorize">signal_vectorize</a> [<a href="Signal.html">Signal</a>]</td>
-<td><div class="info">
-val signal_vectorize : signal -> signal -> signal, output(t)(i) = input1(input2(0) * t + i),
-Attention: vector size n static, frequency of output signal is (1/n * frequency of input1)
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALstring_of_value">string_of_value</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val string_of_value : value -> string, converts value to following
-strings "N i" | "R f" | "Vec" | "Zero" | "W".
-</div>
-</td></tr>
-<tr><td><a href="Interpreter.html#VALsublist">sublist</a> [<a href="Interpreter.html">Interpreter</a>]</td>
-<td><div class="info">
-val sublist : 'a list -> int -> int -> 'a list,
-<code class="code">sublist l start length</code>, returns the sublist of list 'l',
-from index 'start', with length 'length'.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALsubtree">subtree</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val subtree : dimention -> int -> dimension, returns a subtree of dimension tree.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALsubtree_left">subtree_left</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val subtree_left : dimension -> dimension, returns the left subtree of dimension tree.
-</div>
-</td></tr>
-<tr><td><a href="Faustexp.html#VALsubtree_right">subtree_right</a> [<a href="Faustexp.html">Faustexp</a>]</td>
-<td><div class="info">
-val subtree_right : dimension -> dimension, returns the right subtree of dimension tree.
-</div>
-</td></tr>
-<tr><td><a href="Types.html#VALsymbol_of_string">symbol_of_string</a> [<a href="Types.html">Types</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>T</td></tr>
-<tr><td><a href="Value.html#VALtake_off_N">take_off_N</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val take_off_N : value -> int, convert from value N to int.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALtake_off_R">take_off_R</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val take_off_R : value -> float, convert from value R to float.
-</div>
-</td></tr>
-<tr><td><a href="Lexer.html#VALtoken">token</a> [<a href="Lexer.html">Lexer</a>]</td>
-<td></td></tr>
-<tr><td align="left"><br>V</td></tr>
-<tr><td><a href="Value.html#VALv_add">v_add</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_add : value -> value -> value, value addition, recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_atan">v_atan</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_atan : value -> value, returns atan(v), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_atantwo">v_atantwo</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_atantwo : value -> value, returns atantwo(v), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_cos">v_cos</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_cos : value -> value, returns cos(v), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_div">v_div</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_div : value -> value -> value, value division, returns (v1/.v2).
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_floor">v_floor</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_floor : value -> value, returns floor of float, converts int to float, Zero to 0.,
- error to error, recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_inf">v_inf</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_inf : value -> value -> value, comparison of two values, returns value.N 1 if (v1 < v2),
-value.N 0 else.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_int">v_int</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_int : value -> value, converts value to value.N, error to error, recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_larger_than_zero">v_larger_than_zero</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_larger_than_zero : value -> value, primitive comparison between value and zero,
-returns value.N 1 if true, value.N 0 if false.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_list_memory">v_list_memory</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_list_memory : value list -> value list, returns value list with memory.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_memory">v_memory</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_memory : value -> value, returns value Vec with memory.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_mod">v_mod</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_mod : value -> value -> value, returns (v1 % v2), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_mul">v_mul</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_mul : value -> value -> value, returns (v1 * v2), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_neg">v_neg</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_neg : value -> value, v_neg v = -v.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_recip">v_recip</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_recip : value -> value, v_recip v = 1./.v.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_sin">v_sin</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_sin : value -> value, returns sin(v), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_sqrt">v_sqrt</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_sqrt : value -> value, returns sqrt(v), recursive for value.Vec.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_sub">v_sub</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_sub : value -> value -> value, returns (v1 - v2).
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_sup">v_sup</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_sup : value -> value -> value, comparison of two values, returns value.N 1 if (v1 > v2),
-value.N 0 else.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALv_zero">v_zero</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val v_zero : value -> value, Attention: N i -> N 0 | R f -> R 0.
-</div>
-</td></tr>
-<tr><td><a href="Value.html#VALvalue_macro_to_int">value_macro_to_int</a> [<a href="Value.html">Value</a>]</td>
-<td><div class="info">
-val value_macro_to_value : value_macro -> int.
-</div>
-</td></tr>
-<tr><td align="left"><br>W</td></tr>
-<tr><td><a href="Main.html#VALwrite_output_txt">write_output_txt</a> [<a href="Main.html">Main</a>]</td>
-<td></td></tr>
-<tr><td><a href="Main.html#VALwrite_output_wave">write_output_wave</a> [<a href="Main.html">Main</a>]</td>
-<td><div class="info">
-val write_output_wave : int list -> int list -> float_array_list -> unit.
-</div>
-</td></tr>
-<tr><td align="left"><br>Y</td></tr>
-<tr><td><a href="Parser.html#VALyyact">yyact</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyycheck">yycheck</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyydefred">yydefred</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyydgoto">yydgoto</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyygindex">yygindex</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyylen">yylen</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyylhs">yylhs</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyynames_block">yynames_block</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyynames_const">yynames_const</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyyrindex">yyrindex</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyysindex">yysindex</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyytable">yytable</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyytables">yytables</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyytablesize">yytablesize</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyytransl_block">yytransl_block</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-<tr><td><a href="Parser.html#VALyytransl_const">yytransl_const</a> [<a href="Parser.html">Parser</a>]</td>
-<td></td></tr>
-</table><br>
-</body>
-</html>
\ No newline at end of file
+++ /dev/null
-a:visited {color : #416DFF; text-decoration : none; }
-a:link {color : #416DFF; text-decoration : none;}
-a:hover {color : Red; text-decoration : none; background-color: #5FFF88}
-a:active {color : Red; text-decoration : underline; }
-.keyword { font-weight : bold ; color : Red }
-.keywordsign { color : #C04600 }
-.superscript { font-size : 4 }
-.subscript { font-size : 4 }
-.comment { color : Green }
-.constructor { color : Blue }
-.type { color : #5C6585 }
-.string { color : Maroon }
-.warning { color : Red ; font-weight : bold }
-.info { margin-left : 3em; margin-right : 3em }
-.param_info { margin-top: 4px; margin-left : 3em; margin-right : 3em }
-.code { color : #465F91 ; }
-h1 { font-size : 20pt ; text-align: center; }
-h2 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90BDFF ;padding: 2px; }
-h3 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90DDFF ;padding: 2px; }
-h4 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90EDFF ;padding: 2px; }
-h5 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #90FDFF ;padding: 2px; }
-h6 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #C0FFFF ; padding: 2px; }
-div.h7 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #E0FFFF ; padding: 2px; }
-div.h8 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #F0FFFF ; padding: 2px; }
-div.h9 { font-size : 20pt ; border: 1px solid #000000; margin-top: 5px; margin-bottom: 2px;text-align: center; background-color: #FFFFFF ; padding: 2px; }
-.typetable { border-style : hidden }
-.indextable { border-style : hidden }
-.paramstable { border-style : hidden ; padding: 5pt 5pt}
-body { background-color : White }
-tr { background-color : White }
-td.typefieldcomment { background-color : #FFFFFF ; font-size: smaller ;}
-pre { margin-bottom: 4px }
-div.sig_block {margin-left: 2em}
-*:target { background: yellow; }
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Faustexp</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Interpreter</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Lexer</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Main</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Parser</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Preprocess</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Signal</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Types</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file
+++ /dev/null
-<html><head>
-<link rel="stylesheet" href="style.css" type="text/css">
-<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
-<link rel="Start" href="index.html">
-<link title="Index of types" rel=Appendix href="index_types.html">
-<link title="Index of exceptions" rel=Appendix href="index_exceptions.html">
-<link title="Index of values" rel=Appendix href="index_values.html">
-<link title="Index of modules" rel=Appendix href="index_modules.html">
-<link title="Types" rel="Chapter" href="Types.html">
-<link title="Parser" rel="Chapter" href="Parser.html">
-<link title="Lexer" rel="Chapter" href="Lexer.html">
-<link title="Value" rel="Chapter" href="Value.html">
-<link title="Signal" rel="Chapter" href="Signal.html">
-<link title="Faustexp" rel="Chapter" href="Faustexp.html">
-<link title="Interpreter" rel="Chapter" href="Interpreter.html">
-<link title="Preprocess" rel="Chapter" href="Preprocess.html">
-<link title="Main" rel="Chapter" href="Main.html"><title>Value</title>
-</head>
-<body>
-<code class="code"><span class="keyword">sig</span> <span class="keyword">end</span></code></body></html>
\ No newline at end of file