1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
|
<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="Index of module types" rel=Appendix href="index_module_types.html">
<link title="Xmlm" rel="Chapter" href="Xmlm.html"><title>Xmlm.S</title>
</head>
<body>
<code class="code"><span class="keyword">sig</span><br>
<span class="keyword">type</span> string<br>
<span class="keyword">type</span> encoding =<br>
[ <span class="keywordsign">`</span><span class="constructor">ISO_8859_1</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">US_ASCII</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UTF_16</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UTF_16BE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UTF_16LE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UTF_8</span> ]<br>
<span class="keyword">type</span> dtd = <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string option<br>
<span class="keyword">type</span> name = <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string * <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keyword">type</span> attribute = <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.name * <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keyword">type</span> tag = <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.name * <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.attribute list<br>
<span class="keyword">type</span> signal =<br>
[ <span class="keywordsign">`</span><span class="constructor">Data</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Dtd</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.dtd<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">El_end</span><br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">El_start</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.tag ]<br>
<span class="keyword">val</span> ns_xml : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keyword">val</span> ns_xmlns : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keyword">type</span> pos = int * int<br>
<span class="keyword">type</span> error =<br>
[ <span class="keywordsign">`</span><span class="constructor">Expected_char_seqs</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string list * <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Expected_root_element</span><br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Illegal_char_ref</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Illegal_char_seq</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Malformed_char_stream</span><br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Max_buffer_size</span><br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Unexpected_eoi</span><br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Unknown_encoding</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Unknown_entity_ref</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Unknown_ns_prefix</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string ]<br>
<span class="keyword">exception</span> <span class="constructor">Error</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.pos * <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.error<br>
<span class="keyword">val</span> error_message : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.error <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string<br>
<span class="keyword">type</span> source =<br>
[ <span class="keywordsign">`</span><span class="constructor">Channel</span> <span class="keyword">of</span> <span class="constructor">Pervasives</span>.in_channel<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Fun</span> <span class="keyword">of</span> unit <span class="keywordsign">-></span> int<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">String</span> <span class="keyword">of</span> int * <span class="constructor">Xmlm</span>.std_string ]<br>
<span class="keyword">type</span> input<br>
<span class="keyword">val</span> make_input :<br>
?enc:<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.encoding option <span class="keywordsign">-></span><br>
?strip:bool <span class="keywordsign">-></span><br>
?ns:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string option) <span class="keywordsign">-></span><br>
?entity:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string option) <span class="keywordsign">-></span><br>
<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.source <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input<br>
<span class="keyword">val</span> input : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.signal<br>
<span class="keyword">val</span> input_tree :<br>
el:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.tag <span class="keywordsign">-></span> <span class="keywordsign">'</span>a list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br>
data:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input <span class="keywordsign">-></span> <span class="keywordsign">'</span>a<br>
<span class="keyword">val</span> input_doc_tree :<br>
el:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.tag <span class="keywordsign">-></span> <span class="keywordsign">'</span>a list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br>
data:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.dtd * <span class="keywordsign">'</span>a<br>
<span class="keyword">val</span> peek : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.signal<br>
<span class="keyword">val</span> eoi : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input <span class="keywordsign">-></span> bool<br>
<span class="keyword">val</span> pos : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.input <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.pos<br>
<span class="keyword">type</span> <span class="keywordsign">'</span>a frag = [ <span class="keywordsign">`</span><span class="constructor">Data</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">El</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.tag * <span class="keywordsign">'</span>a list ]<br>
<span class="keyword">type</span> dest =<br>
[ <span class="keywordsign">`</span><span class="constructor">Buffer</span> <span class="keyword">of</span> <span class="constructor">Xmlm</span>.std_buffer<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Channel</span> <span class="keyword">of</span> <span class="constructor">Pervasives</span>.out_channel<br>
<span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Fun</span> <span class="keyword">of</span> int <span class="keywordsign">-></span> unit ]<br>
<span class="keyword">type</span> output<br>
<span class="keyword">val</span> make_output :<br>
?nl:bool <span class="keywordsign">-></span><br>
?indent:int option <span class="keywordsign">-></span><br>
?ns_prefix:(<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.string option) <span class="keywordsign">-></span><br>
<span class="constructor">Xmlm</span>.<span class="constructor">S</span>.dest <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.output<br>
<span class="keyword">val</span> output : <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.output <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.signal <span class="keywordsign">-></span> unit<br>
<span class="keyword">val</span> output_tree : (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.frag) <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.output <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> unit<br>
<span class="keyword">val</span> output_doc_tree :<br>
(<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.frag) <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.output <span class="keywordsign">-></span> <span class="constructor">Xmlm</span>.<span class="constructor">S</span>.dtd * <span class="keywordsign">'</span>a <span class="keywordsign">-></span> unit<br>
<span class="keyword">end</span></code></body></html>
|