<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.DugGenerator</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span> (<span class="constructor">DS</span> : <span class="constructor">DugADT</span>.<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">A</span> : <span class="constructor">Types</span>.<span class="constructor">Mono</span>.<span class="constructor">ArbitraryComparable</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">val</span> generate :<br> <span class="constructor">DugProfile</span>.<span class="constructor">Make</span>(<span class="constructor">DS</span>).t <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span><br> ((<span class="constructor">A</span>.t, <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t) <span class="constructor">DS</span>.generator, (<span class="constructor">A</span>.t, <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t) <span class="constructor">DS</span>.mutator,<br> (<span class="constructor">A</span>.t, <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t) <span class="constructor">DS</span>.observer)<br> <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>