<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_rpc</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Menu</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> add : <span class="keywordsign">'</span>s <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list <span class="keywordsign">-></span> <span class="keywordsign">'</span>s <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> request :<br> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Menu</span>.t <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> supported_rpcs :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Menu</span>.t <span class="keywordsign">-></span> <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.<span class="constructor">Description</span>.t list<br> <span class="keyword">val</span> supported_versions :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Menu</span>.t <span class="keywordsign">-></span> rpc_name:string <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Connection_with_menu</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> create :<br> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Connection_with_menu</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.<span class="constructor">Or_error</span>.t<br> <span class="keyword">val</span> connection :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t<br> <span class="keyword">val</span> menu : <span class="constructor">Versioned_rpc</span>.<span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Menu</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Caller_converts</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Rpc</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">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">val</span> deprecated_dispatch_multi :<br> version:int <span class="keywordsign">-></span><br> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">S</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">S</span>.response<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> dispatch_multi :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">S</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">S</span>.response<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Model</span> : <span class="keyword">sig</span> <span class="keyword">val</span> name : string <span class="keyword">type</span> query <span class="keyword">type</span> response <span class="keyword">end</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Register</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Version_i</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> version : int<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">val</span> query_of_model :<br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<br> <span class="keyword">val</span> model_of_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.response<br> <span class="keyword">val</span> bin_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query)<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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">val</span> bin_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response)<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">val</span> rpc :<br> (<span class="constructor">Version_i</span>.query, <span class="constructor">Version_i</span>.response) <span class="constructor">Rpc</span>.<span class="constructor">Rpc</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">val</span> deprecated_dispatch_multi :<br> version:int <span class="keywordsign">-></span><br> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.response <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> dispatch_multi :<br> <span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.response <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Pipe_rpc</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">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">type</span> error<br> <span class="keyword">val</span> deprecated_dispatch_multi :<br> version:int <span class="keywordsign">-></span><br> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.query <span class="keywordsign">-></span><br> (<span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.response<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Pipe</span>.<span class="constructor">Reader</span>.t * <span class="constructor">Rpc</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Id</span>.t,<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.error)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> dispatch_multi :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.query <span class="keywordsign">-></span><br> (<span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.response<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Pipe</span>.<span class="constructor">Reader</span>.t * <span class="constructor">Rpc</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Id</span>.t,<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.error)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Model</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> name : string<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">type</span> error<br> <span class="keyword">end</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Register</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Version_i</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> version : int<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">type</span> error<br> <span class="keyword">val</span> query_of_model :<br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<br> <span class="keyword">val</span> model_of_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.response<br> <span class="keyword">val</span> model_of_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.error<br> <span class="keyword">val</span> bin_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query)<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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">val</span> bin_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response)<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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">val</span> bin_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error)<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Caller_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">val</span> rpc :<br> (<span class="constructor">Version_i</span>.query, <span class="constructor">Version_i</span>.response,<br> <span class="constructor">Version_i</span>.error)<br> <span class="constructor">Rpc</span>.<span class="constructor">Pipe_rpc</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">val</span> deprecated_dispatch_multi :<br> version:int <span class="keywordsign">-></span><br> <span class="constructor">Rpc</span>.<span class="constructor">Connection</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> (<span class="constructor">Model</span>.response <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Pipe</span>.<span class="constructor">Reader</span>.t *<br> <span class="constructor">Rpc</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Id</span>.t, <span class="constructor">Model</span>.error)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> dispatch_multi :<br> <span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> (<span class="constructor">Model</span>.response <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Pipe</span>.<span class="constructor">Reader</span>.t *<br> <span class="constructor">Rpc</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Id</span>.t, <span class="constructor">Model</span>.error)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Callee_converts</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Rpc</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">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">val</span> implement_multi :<br> ?log_not_previously_seen_version:(name:string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>state <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">S</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">S</span>.response<br> <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>state <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Model</span> : <span class="keyword">sig</span> <span class="keyword">val</span> name : string <span class="keyword">type</span> query <span class="keyword">type</span> response <span class="keyword">end</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Register</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Version_i</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> version : int<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">val</span> model_of_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query<br> <span class="keyword">val</span> response_of_model :<br> <span class="constructor">Model</span>.response <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<br> <span class="keyword">val</span> bin_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query)<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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">val</span> bin_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response)<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">val</span> rpc :<br> (<span class="constructor">Version_i</span>.query, <span class="constructor">Version_i</span>.response) <span class="constructor">Rpc</span>.<span class="constructor">Rpc</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">val</span> implement_multi :<br> ?log_not_previously_seen_version:(name:string <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>state <span class="keywordsign">-></span> <span class="constructor">Model</span>.query <span class="keywordsign">-></span> <span class="constructor">Model</span>.response <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>state <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Pipe_rpc</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">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">type</span> error<br> <span class="keyword">val</span> implement_multi :<br> ?log_not_previously_seen_version:(name:string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>state <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.query <span class="keywordsign">-></span><br> aborted:unit <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t <span class="keywordsign">-></span><br> (<span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.response<br> <span class="constructor">Import</span>.<span class="constructor">Pipe</span>.<span class="constructor">Reader</span>.t,<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">S</span>.error)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>state <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Model</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> name : string<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">type</span> error<br> <span class="keyword">end</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Register</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Version_i</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> version : int<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">type</span> error<br> <span class="keyword">val</span> model_of_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query<br> <span class="keyword">val</span> response_of_model :<br> <span class="constructor">Model</span>.response <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<br> <span class="keyword">val</span> error_of_model :<br> <span class="constructor">Model</span>.error <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<br> <span class="keyword">val</span> bin_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query)<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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">val</span> bin_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response)<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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">val</span> bin_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error)<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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_error :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Callee_converts</span>.<span class="constructor">Pipe_rpc</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.error<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>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">val</span> rpc :<br> (<span class="constructor">Version_i</span>.query, <span class="constructor">Version_i</span>.response,<br> <span class="constructor">Version_i</span>.error)<br> <span class="constructor">Rpc</span>.<span class="constructor">Pipe_rpc</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">val</span> implement_multi :<br> ?log_not_previously_seen_version:(name:string <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>state <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.query <span class="keywordsign">-></span><br> aborted:unit <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t <span class="keywordsign">-></span><br> (<span class="constructor">Model</span>.response <span class="constructor">Import</span>.<span class="constructor">Pipe</span>.<span class="constructor">Reader</span>.t, <span class="constructor">Model</span>.error)<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Result</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>state <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Both_convert</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Plain</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">type</span> caller_query<br> <span class="keyword">type</span> caller_response<br> <span class="keyword">type</span> callee_query<br> <span class="keyword">type</span> callee_response<br> <span class="keyword">val</span> dispatch_multi :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">S</span>.caller_query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">S</span>.caller_response<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> implement_multi :<br> ?log_not_previously_seen_version:(name:string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>state <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">S</span>.callee_query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">S</span>.callee_response<br> <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>state <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Model</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> name : string<br> <span class="keyword">module</span> <span class="constructor">Caller</span> : <span class="keyword">sig</span> <span class="keyword">type</span> query <span class="keyword">type</span> response <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Callee</span> : <span class="keyword">sig</span> <span class="keyword">type</span> query <span class="keyword">type</span> response <span class="keyword">end</span><br> <span class="keyword">end</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Register</span> :<br> <span class="keyword">functor</span><br> (<span class="constructor">Version</span> : <span class="keyword">sig</span><br> <span class="keyword">val</span> version : int<br> <span class="keyword">type</span> query<br> <span class="keyword">type</span> response<br> <span class="keyword">val</span> query_of_caller_model :<br> <span class="constructor">Model</span>.<span class="constructor">Caller</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<br> <span class="keyword">val</span> callee_model_of_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.<span class="constructor">Callee</span>.query<br> <span class="keyword">val</span> response_of_callee_model :<br> <span class="constructor">Model</span>.<span class="constructor">Callee</span>.response <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<br> <span class="keyword">val</span> caller_model_of_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.<span class="constructor">Caller</span>.response<br> <span class="keyword">val</span> bin_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query)<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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_query :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.query<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">val</span> bin_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response__ :<br> (int <span class="keywordsign">-></span><br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response)<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response_ :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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_response :<br> <span class="constructor">Versioned_rpc</span>.<span class="constructor">Both_convert</span>.<span class="constructor">Plain</span>.<span class="constructor">Make</span>.<span class="constructor">Register</span>.response<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>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span> <span class="keyword">end</span><br> <span class="keyword">val</span> dispatch_multi :<br> <span class="constructor">Connection_with_menu</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.<span class="constructor">Caller</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.<span class="constructor">Caller</span>.response <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Or_error</span>.t <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t<br> <span class="keyword">val</span> implement_multi :<br> ?log_not_previously_seen_version:(name:string <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>state <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.<span class="constructor">Callee</span>.query <span class="keywordsign">-></span><br> <span class="constructor">Model</span>.<span class="constructor">Callee</span>.response <span class="constructor">Import</span>.<span class="constructor">Deferred</span>.t) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>state <span class="constructor">Rpc</span>.<span class="constructor">Implementation</span>.t list<br> <span class="keyword">val</span> versions : unit <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Int</span>.<span class="constructor">Set</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>
