<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 class methods" rel=Appendix href="index_methods.html"> <link title="Index of classes" rel=Appendix href="index_classes.html"> <link title="Index of class types" rel=Appendix href="index_class_types.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="CamomileLibrary" rel="Chapter" href="CamomileLibrary.html"> <link title="CamomileLibraryDefault" rel="Chapter" href="CamomileLibraryDefault.html"> <link title="CamomileLibraryDyn" rel="Chapter" href="CamomileLibraryDyn.html"><title>CamomileLibrary.Type.ULine</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> separator = [ <span class="keywordsign">`</span><span class="constructor">CR</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CRLF</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LF</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LS</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NEL</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PS</span> ]<br> <span class="keyword">class</span> input :<br> <span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">ULine</span>.separator <span class="keywordsign">-></span><br> <span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">UChar</span>.t<br> <span class="keywordsign">#</span><span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">OOChannel</span>.obj_input_channel <span class="keywordsign">-></span><br> [<span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">UChar</span>.t] <span class="constructor">OOChannel</span>.obj_input_channel<br> <span class="keyword">class</span> output :<br> <span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">ULine</span>.separator <span class="keywordsign">-></span><br> <span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">UChar</span>.t<br> <span class="keywordsign">#</span><span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">OOChannel</span>.obj_output_channel <span class="keywordsign">-></span><br> [<span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">UChar</span>.t] <span class="constructor">OOChannel</span>.obj_output_channel<br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">Type</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> text<br> <span class="keyword">class</span> input_line :<br> <span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">UChar</span>.t<br> <span class="keywordsign">#</span><span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">OOChannel</span>.obj_input_channel <span class="keywordsign">-></span><br> [<span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">ULine</span>.<span class="constructor">Type</span>.text] <span class="constructor">OOChannel</span>.obj_input_channel<br> <span class="keyword">class</span> output_line :<br> ?sp:<span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">ULine</span>.separator <span class="keywordsign">-></span><br> <span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">UChar</span>.t<br> <span class="keywordsign">#</span><span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">OOChannel</span>.obj_output_channel <span class="keywordsign">-></span><br> [<span class="constructor">CamomileLibrary</span>.<span class="constructor">Type</span>.<span class="constructor">ULine</span>.<span class="constructor">Type</span>.text] <span class="constructor">OOChannel</span>.obj_output_channel<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Text</span> : <span class="constructor">UnicodeString</span>.<span class="constructor">Type</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> text = <span class="constructor">Text</span>.t<br> <span class="keyword">class</span> input_line :<br> <span class="constructor">UChar</span>.t <span class="keywordsign">#</span><span class="constructor">OOChannel</span>.obj_input_channel <span class="keywordsign">-></span><br> [text] <span class="constructor">OOChannel</span>.obj_input_channel<br> <span class="keyword">class</span> output_line :<br> ?sp:separator <span class="keywordsign">-></span><br> <span class="constructor">UChar</span>.t <span class="keywordsign">#</span><span class="constructor">OOChannel</span>.obj_output_channel <span class="keywordsign">-></span><br> [text] <span class="constructor">OOChannel</span>.obj_output_channel<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>