2 <link rel=
"stylesheet" href=
"style.css" type=
"text/css">
3 <meta content=
"text/html; charset=iso-8859-1" http-equiv=
"Content-Type">
4 <link rel=
"Start" href=
"index.html">
5 <link title=
"Index of types" rel=Appendix
href=
"index_types.html">
6 <link title=
"Index of exceptions" rel=Appendix
href=
"index_exceptions.html">
7 <link title=
"Index of values" rel=Appendix
href=
"index_values.html">
8 <link title=
"Index of modules" rel=Appendix
href=
"index_modules.html">
9 <link title=
"Types" rel=
"Chapter" href=
"Types.html">
10 <link title=
"Parser" rel=
"Chapter" href=
"Parser.html">
11 <link title=
"Lexer" rel=
"Chapter" href=
"Lexer.html">
12 <link title=
"Value" rel=
"Chapter" href=
"Value.html">
13 <link title=
"Signal" rel=
"Chapter" href=
"Signal.html">
14 <link title=
"Faustexp" rel=
"Chapter" href=
"Faustexp.html">
15 <link title=
"Interpreter" rel=
"Chapter" href=
"Interpreter.html">
16 <link title=
"Preprocess" rel=
"Chapter" href=
"Preprocess.html">
17 <link title=
"Main" rel=
"Chapter" href=
"Main.html"><title>Parser.yyact
</title>
20 <code class=
"code"><span class=
"keyword">let
</span> yyact
=
[|
<br>
21 (
<span class=
"keyword">fun
</span> _
<span class=
"keywordsign">-
></span> failwith
<span class=
"string">"parser"</span>)
<br>
22 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
23 <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>
24 <span class=
"constructor">Obj
</span>.repr(
<br>
25 #
16 "parser.mly"<br>
26 (
_1
)
<br>
27 #
167 "parser.ml"<br>
28 :
<span class=
"constructor">Types
</span>.faust_exp))
<br>
29 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
30 <span class=
"keyword">let
</span> _1
=
(
<span class=
"constructor">Parsing
</span>.peek_val
__caml_parser_env
0 :
string)
<span class=
"keyword">in
</span><br>
31 <span class=
"constructor">Obj
</span>.repr(
<br>
32 #
17 "parser.mly"<br>
33 (
<span class=
"constructor">Const
</span>(
<span class=
"constructor">N
</span> (int_of_string
_1))
)
<br>
34 #
174 "parser.ml"<br>
35 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
36 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
37 <span class=
"keyword">let
</span> _1
=
(
<span class=
"constructor">Parsing
</span>.peek_val
__caml_parser_env
1 :
string)
<span class=
"keyword">in
</span><br>
38 <span class=
"constructor">Obj
</span>.repr(
<br>
39 #
18 "parser.mly"<br>
40 (
<span class=
"constructor">Const
</span>(
<span class=
"constructor">R
</span> (float_of_string
_1))
)
<br>
41 #
181 "parser.ml"<br>
42 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
43 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
44 <span class=
"keyword">let
</span> _1
=
(
<span class=
"constructor">Parsing
</span>.peek_val
__caml_parser_env
2 :
string)
<span class=
"keyword">in
</span><br>
45 <span class=
"keyword">let
</span> _3
=
(
<span class=
"constructor">Parsing
</span>.peek_val
__caml_parser_env
0 :
string)
<span class=
"keyword">in
</span><br>
46 <span class=
"constructor">Obj
</span>.repr(
<br>
47 #
19 "parser.mly"<br>
48 (
<span class=
"constructor">Const
</span>(
<span class=
"constructor">R
</span> (float_of_string
(_1
^
<span class=
"string">"."</span> ^
_3)))
)
<br>
49 #
189 "parser.ml"<br>
50 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
51 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
52 <span class=
"keyword">let
</span> _1
=
(
<span class=
"constructor">Parsing
</span>.peek_val
__caml_parser_env
0 :
string)
<span class=
"keyword">in
</span><br>
53 <span class=
"constructor">Obj
</span>.repr(
<br>
54 #
20 "parser.mly"<br>
55 (
<span class=
"constructor">Ident
</span>(symbol_of_string
_1)
)
<br>
56 #
196 "parser.ml"<br>
57 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
58 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
59 <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>
60 <span class=
"constructor">Obj
</span>.repr(
<br>
61 #
21 "parser.mly"<br>
62 (
_2
)
<br>
63 #
203 "parser.ml"<br>
64 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
65 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
66 <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>
67 <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>
68 <span class=
"constructor">Obj
</span>.repr(
<br>
69 #
22 "parser.mly"<br>
70 (
<span class=
"constructor">Par
</span>(_1,_3)
)
<br>
71 #
211 "parser.ml"<br>
72 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
73 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
74 <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>
75 <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>
76 <span class=
"constructor">Obj
</span>.repr(
<br>
77 #
23 "parser.mly"<br>
78 (
<span class=
"constructor">Split
</span>(_1,_3)
)
<br>
79 #
219 "parser.ml"<br>
80 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
81 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
82 <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>
83 <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>
84 <span class=
"constructor">Obj
</span>.repr(
<br>
85 #
24 "parser.mly"<br>
86 (
<span class=
"constructor">Merge
</span>(_1,_3)
)
<br>
87 #
227 "parser.ml"<br>
88 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
89 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
90 <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>
91 <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>
92 <span class=
"constructor">Obj
</span>.repr(
<br>
93 #
25 "parser.mly"<br>
94 (
<span class=
"constructor">Seq
</span>(_1,_3)
)
<br>
95 #
235 "parser.ml"<br>
96 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
97 ;
(
<span class=
"keyword">fun
</span> __caml_parser_env
<span class=
"keywordsign">-
></span><br>
98 <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>
99 <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>
100 <span class=
"constructor">Obj
</span>.repr(
<br>
101 #
26 "parser.mly"<br>
102 (
<span class=
"constructor">Rec
</span>(_1,_3)
)
<br>
103 #
243 "parser.ml"<br>
104 :
<span class=
"keywordsign">'
</span>faust_exp))
<br>
105 <span class=
"comment">(*
Entry
main
*)
</span><br>
106 ;
(
<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>
107 |]
</code></body></html>