<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 values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Json_parser" rel="Chapter" href="Json_parser.html"><title>Json_parser</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> token =<br> <span class="constructor">STRING</span> <span class="keyword">of</span> (<span class="constructor">Json_type</span>.loc * string)<br> <span class="keywordsign">|</span> <span class="constructor">INT</span> <span class="keyword">of</span> (<span class="constructor">Json_type</span>.loc * int)<br> <span class="keywordsign">|</span> <span class="constructor">FLOAT</span> <span class="keyword">of</span> (<span class="constructor">Json_type</span>.loc * float)<br> <span class="keywordsign">|</span> <span class="constructor">BOOL</span> <span class="keyword">of</span> (<span class="constructor">Json_type</span>.loc * bool)<br> <span class="keywordsign">|</span> <span class="constructor">OBJSTART</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">OBJEND</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">ARSTART</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">AREND</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">NULL</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">COMMA</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">COLON</span> <span class="keyword">of</span> <span class="constructor">Json_type</span>.loc<br> <span class="keywordsign">|</span> <span class="constructor">EOF</span><br> <span class="keyword">val</span> main :<br> (<span class="constructor">Lexing</span>.lexbuf <span class="keywordsign">-></span> <span class="constructor">Json_parser</span>.token) <span class="keywordsign">-></span> <span class="constructor">Lexing</span>.lexbuf <span class="keywordsign">-></span> <span class="constructor">Json_type</span>.t<br> <span class="keyword">end</span></code></body></html>