<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="Reins" rel="Chapter" href="Reins.html"><title>Reins.DugADT</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">S</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) generator<br> <span class="keyword">type</span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) mutator<br> <span class="keyword">type</span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) observer<br> <span class="keyword">type</span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) op<br> <span class="keyword">val</span> op_to_string : (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> coerce_gen :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.generator <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op<br> <span class="keyword">val</span> coerce_mut :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.mutator <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op<br> <span class="keyword">val</span> coerce_obs :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.observer <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op<br> <span class="keyword">val</span> classify :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op <span class="keywordsign">-></span><br> ((<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.generator, (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.mutator,<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.observer)<br> <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.kind<br> <span class="keyword">val</span> strip :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op <span class="keywordsign">-></span> (unit, unit) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op<br> <span class="keyword">val</span> op_dependencies : (<span class="keywordsign">'</span>a, <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op <span class="keywordsign">-></span> <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t list<br> <span class="keyword">val</span> create_op :<br> (unit, unit) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op <span class="keywordsign">-></span><br> <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t <span class="keywordsign">-></span><br> (unit <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> (int <span class="keywordsign">-></span> <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a, <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t) <span class="constructor">Reins</span>.<span class="constructor">DugADT</span>.<span class="constructor">S</span>.op<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>
