+++ /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