<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 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="Nopres_impl" rel="Chapter" href="Nopres_impl.html"> <link title="Nopres_intf" rel="Chapter" href="Nopres_intf.html"> <link title="Pres_impl" rel="Chapter" href="Pres_impl.html"> <link title="Pres_intf" rel="Chapter" href="Pres_intf.html"> <link title="Res" rel="Chapter" href="Res.html"> <link title="Strat" rel="Chapter" href="Strat.html"> <link title="Weak_impl" rel="Chapter" href="Weak_impl.html"> <link title="Weak_intf" rel="Chapter" href="Weak_intf.html"><title>Weak_impl.Make</title> </head> <body> <code class="code"><span class="keyword">functor</span> (<span class="constructor">S</span> : <span class="constructor">Strat</span>.<span class="constructor">T</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">module</span> <span class="constructor">Strategy</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t = <span class="constructor">S</span>.t<br> <span class="keyword">val</span> default : t<br> <span class="keyword">val</span> grow : t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> shrink : t <span class="keywordsign">-></span> real_len:int <span class="keywordsign">-></span> new_len:int <span class="keywordsign">-></span> int<br> <span class="keyword">end</span><br> <span class="keyword">type</span> strategy = <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.<span class="constructor">Strategy</span>.t<br> <span class="keyword">type</span> <span class="keywordsign">'</span>a t = {<br> <span class="keyword">mutable</span> ar : <span class="keywordsign">'</span>a <span class="constructor">Weak</span>.t;<br> <span class="keyword">mutable</span> vlix : int;<br> <span class="keyword">mutable</span> strategy : <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy;<br> }<br> <span class="keyword">val</span> name : string<br> <span class="keyword">val</span> invalid_arg : string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a<br> <span class="keyword">val</span> failwith : string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a<br> <span class="keyword">val</span> length : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> lix : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> real_length : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> real_lix : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> unsafe_get : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option<br> <span class="keyword">val</span> unsafe_set : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> check : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> get : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option<br> <span class="keyword">val</span> get_copy : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option<br> <span class="keyword">val</span> set : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> creator : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak</span>.t<br> <span class="keyword">val</span> screate_fresh : <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> create_fresh : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> create_from : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>b <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> sempty : <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> empty : unit <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> smake :<br> <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> make : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> create : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> screate : <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> sinit :<br> <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span> (int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> init : int <span class="keywordsign">-></span> (int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> get_strategy : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy<br> <span class="keyword">val</span> resizer : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> enforce_strategy : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_strategy : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> put_strategy : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> copy : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> unsafe_blit_on_other :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> append :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> concat_aux :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> concat : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> unsafe_sub : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> sub : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> guarantee_ix : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> maybe_grow_ix : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> add_one : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_remove_one : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> remove_one : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_remove_n : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> remove_n : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_remove_range : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> remove_range : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> clear : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_swap : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> swap : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_swap_in_last : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> swap_in_last : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_fill : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> fill : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unsafe_blit :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> blit :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> to_std : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak</span>.t<br> <span class="keyword">val</span> sof_std : <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.strategy <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> of_std : <span class="keywordsign">'</span>a <span class="constructor">Weak</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> to_list_aux :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option list<br> <span class="keyword">val</span> to_list : <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option list<br> <span class="keyword">val</span> of_list_aux :<br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> of_list : <span class="keywordsign">'</span>a option list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> iter : (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> iteri : (int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> fold_left :<br> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a<br> <span class="keyword">val</span> fold_right :<br> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="keywordsign">'</span>b<br> <span class="keyword">val</span> for_all_aux :<br> int <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> for_all : (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> exists_aux :<br> int <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> exists : (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> mem_aux : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> mem : <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> memq_aux : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> memq : <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> pos_aux : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int option<br> <span class="keyword">val</span> pos : <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int option<br> <span class="keyword">val</span> posq_aux : int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int option<br> <span class="keyword">val</span> posq : <span class="keywordsign">'</span>a option <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int option<br> <span class="keyword">val</span> find_aux :<br> int <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option<br> <span class="keyword">val</span> find : (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option<br> <span class="keyword">val</span> find_index_aux :<br> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> find_index : (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> filter :<br> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> find_all :<br> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">val</span> filter_in_place : (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> partition :<br> (<span class="keywordsign">'</span>a option <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t * <span class="keywordsign">'</span>a <span class="constructor">Weak_impl</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">end</span></code></body></html>