<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="Command" rel="Chapter" href="Command.html"> <link title="File_tail" rel="Chapter" href="File_tail.html"> <link title="File_writer" rel="Chapter" href="File_writer.html"> <link title="Import" rel="Chapter" href="Import.html"> <link title="Lock_file" rel="Chapter" href="Lock_file.html"> <link title="Log" rel="Chapter" href="Log.html"> <link title="Persistent_singleton" rel="Chapter" href="Persistent_singleton.html"> <link title="Rpc" rel="Chapter" href="Rpc.html"> <link title="Rpc_intf" rel="Chapter" href="Rpc_intf.html"> <link title="Std" rel="Chapter" href="Std.html"> <link title="Tcp" rel="Chapter" href="Tcp.html"> <link title="Tcp_file" rel="Chapter" href="Tcp_file.html"> <link title="Typed_tcp" rel="Chapter" href="Typed_tcp.html"> <link title="Typed_tcp_intf" rel="Chapter" href="Typed_tcp_intf.html"> <link title="Unpack_sequence" rel="Chapter" href="Unpack_sequence.html"> <link title="User_and_group" rel="Chapter" href="User_and_group.html"> <link title="Versioned_rpc" rel="Chapter" href="Versioned_rpc.html"> <link title="Versioned_typed_tcp" rel="Chapter" href="Versioned_typed_tcp.html"> <link title="Weak_hashtbl" rel="Chapter" href="Weak_hashtbl.html"><title>Versioned_typed_tcp.Datumable_of_binable</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">T</span> = <span class="keyword">sig</span> <span class="keyword">type</span> t <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">T_bin</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> bin_t :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Type_class</span>.t<br> <span class="keyword">val</span> bin_read_t :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Read_ml</span>.reader<br> <span class="keyword">val</span> bin_read_t_ :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Unsafe_read_c</span>.reader<br> <span class="keyword">val</span> bin_read_t__ :<br> (int <span class="keywordsign">-></span> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Unsafe_read_c</span>.reader<br> <span class="keyword">val</span> bin_reader_t :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Type_class</span>.reader<br> <span class="keyword">val</span> bin_size_t :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Size</span>.sizer<br> <span class="keyword">val</span> bin_write_t :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Write_ml</span>.writer<br> <span class="keyword">val</span> bin_write_t_ :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Unsafe_write_c</span>.writer<br> <span class="keyword">val</span> bin_writer_t :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T_bin</span>.t<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Bin_prot</span>.<span class="constructor">Type_class</span>.writer<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">V</span> :<br> <span class="keyword">functor</span> (<span class="constructor">V</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <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">val</span> of_v :<br> <span class="constructor">V</span>.t <span class="keywordsign">-></span> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T</span>.t option<br> <span class="keyword">val</span> to_v :<br> <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Datumable_of_binable</span>.<span class="constructor">T</span>.t <span class="keywordsign">-></span> <span class="constructor">V</span>.t option<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make_datumable5</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Versions</span> : <span class="constructor">Versions</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V4</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V5</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V1</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V2</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V3</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V4_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V4</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V5_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V5</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> datum = <span class="constructor">T</span>.t<br> <span class="keyword">val</span> low_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> test_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> lookup_marshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum marshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">val</span> lookup_unmarshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum unmarshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">Pre_versions</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> low_version : <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Versioned_typed_tcp</span>.<span class="constructor">Version</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Five_versions</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Versions</span> : <span class="constructor">Pre_versions</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V4</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V5</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V1</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V2</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V3</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V4_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V4</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V5_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V5</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> datum = <span class="constructor">T</span>.t<br> <span class="keyword">val</span> low_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> test_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> lookup_marshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum marshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">val</span> lookup_unmarshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum unmarshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Four_versions</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Versions</span> : <span class="constructor">Pre_versions</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V4</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V1</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V2</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V3</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V4_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V4</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> datum = <span class="constructor">T</span>.t<br> <span class="keyword">val</span> low_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> test_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> lookup_marshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum marshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">val</span> lookup_unmarshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum unmarshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Three_versions</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Versions</span> : <span class="constructor">Pre_versions</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V1</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V2</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V3_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V3</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> datum = <span class="constructor">T</span>.t<br> <span class="keyword">val</span> low_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> test_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> lookup_marshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum marshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">val</span> lookup_unmarshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span><br> (datum unmarshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Two_versions</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Versions</span> : <span class="constructor">Pre_versions</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V1</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V2_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V2</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> datum = <span class="constructor">T</span>.t<br> <span class="keyword">val</span> low_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> test_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> lookup_marshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span> (datum marshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">val</span> lookup_unmarshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span> (datum unmarshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">One_version</span> :<br> <span class="keyword">functor</span> (<span class="constructor">Versions</span> : <span class="constructor">Pre_versions</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">T</span> : <span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1</span> : <span class="constructor">T_bin</span>) <span class="keywordsign">-></span><br> <span class="keyword">functor</span> (<span class="constructor">V1_cvt</span> : <span class="constructor">V</span>(<span class="constructor">V1</span>)(<span class="constructor">T</span>).<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> datum = <span class="constructor">T</span>.t<br> <span class="keyword">val</span> low_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> prod_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> test_version : <span class="constructor">Version</span>.t<br> <span class="keyword">val</span> lookup_marshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span> (datum marshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">val</span> lookup_unmarshal_fun :<br> <span class="constructor">Version</span>.t <span class="keywordsign">-></span> (datum unmarshal_fun, exn) <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>