This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.
This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.
<!DOCTYPE html>
<htmlxmlns="http://www.w3.org/1999/xhtml"><head><title>InferBase__Utils (InferBase.InferBase__Utils)</title><linkrel="stylesheet"href="../../odoc.css"/><metacharset="utf-8"/><metaname="generator"content="odoc %%VERSION%%"/><metaname="viewport"content="width=device-width,initial-scale=1.0"/><scriptsrc="../../highlight.pack.js"></script><script>hljs.initHighlightingOnLoad();</script></head><body><divclass="content"><header><nav><ahref="../index.html">Up</a>–<ahref="../index.html">InferBase</a>» InferBase__Utils</nav><h1>Module <code>InferBase__Utils</code></h1></header><dl><dtclass="spec value"id="val-initial_times"><ahref="#val-initial_times"class="anchor"></a><code><spanclass="keyword">val</span> initial_times : <ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Unix.process_times</code></dt><dd><p>initial process times</p></dd></dl><dl><dtclass="spec value"id="val-find_files"><ahref="#val-find_files"class="anchor"></a><code><spanclass="keyword">val</span> find_files : <span>path:string</span><span>-></span><span>extension:string</span><span>-></span><span>string list</span></code></dt><dd><p>recursively traverse a path for files ending with a given extension</p></dd></dl><dl><dtclass="spec value"id="val-string_crc_hex32"><ahref="#val-string_crc_hex32"class="anchor"></a><code><spanclass="keyword">val</span> string_crc_hex32 : string <span>-></span> string</code></dt><dd><p>Compute a 32-character hexadecimal crc using the Digest module</p></dd></dl><dl><dtclass="spec value"id="val-read_file"><ahref="#val-read_file"class="anchor"></a><code><spanclass="keyword">val</span> read_file : string <span>-></span><span><span>(<span>string list</span>,string)</span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Result.t</span></code></dt><dd><p>read a source file and return a list of lines</p></dd></dl><dl><dtclass="spec value"id="val-filename_to_absolute"><ahref="#val-filename_to_absolute"class="anchor"></a><code><spanclass="keyword">val</span> filename_to_absolute : <span>root:string</span><span>-></span> string <span>-></span> string</code></dt><dd><p>Convert a filename to an absolute one if it is relative, and normalize "." and ".."</p></dd></dl><dl><dtclass="spec value"id="val-filename_to_relative"><ahref="#val-filename_to_relative"class="anchor"></a><code><spanclass="keyword">val</span> filename_to_relative : <span>?⁠force_full_backtrack:bool</span><span>-></span><span>?⁠backtrack:int</span><span>-></span><span>root:string</span><span>-></span> string <span>-></span><span>string option</span></code></dt><dd><p>Convert an absolute filename to one relative to a root directory. Returns <code>None</code> if filename is not under root. The backtrack level sets the maximum level of steps in the parent directories to search for a common prefix</p></dd></dl><dl><dtclass="spec type"id="type-outfile"><ahref="#type-outfile"class="anchor"></a><code><spanclass="keyword">type</span> outfile</code><code> = </code><code>{</code><tableclass="record"><trid="type-outfile.fname"class="anchored"><tdclass="def field"><ahref="#type-outfile.fname"class="anchor"></a><code>fname : string;</code></td><tdclass="doc"><p>name of the file</p></td></tr><trid="type-outfile.out_c"class="anchored"><tdclass="def field"><ahref="#type-outfile.out_c"class="anchor"></a><code>out_c : <ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Out_channel.t;</code></td><tdclass="doc"><p>output channel</p></td></tr><trid="type-outfile.fmt"class="anchored"><tdclass="def field"><ahref="#type-outfile.fmt"class="anchor"></a><code>fmt : Stdlib.Format.formatter;</code></td><tdclass="doc"><p>formatter for printing</p></td></tr></table><code>}</code></dt><dd><p>type for files used for printing</p></dd></dl><dl><dtclass="spec value"id="val-create_outfile"><ahref="#val-create_outfile"class="anchor"></a><code><spanclass="keyword">val</span> create_outfile : string <span>-></span><span><ahref="index.html#type-outfile">outfile</a> option</span></code></dt><dd><p>create an outfile for the command line, the boolean indicates whether to do demangling when closing the file</p></dd></dl><dl><dtclass="spec value"id="val-close_outf"><ahref="#val-close_outf"class="anchor"></a><code><spanclass="keyword">val</span> close_outf : <ahref="index.html#type-outfile">outfile</a><span>-></span> unit</code></dt><dd><p>close an outfile</p></dd></dl><dl><dtclass="spec value"id="val-directory_fold"><ahref="#val-directory_fold"class="anchor"></a><code><spanclass="keyword">val</span> directory_fold : <span>(<spanclass="type-var">'a</span><span>-></span> string <span>-></span><spanclass="type-var">'a</span>)</span><span>-></span><spanclass="type-var">'a</span><span>-></span> string <span>-></span><spanclass="type-var">'a</span></code></dt><dd><p>Functional fold function over all the file of a directory</p></dd></dl><dl><dtclass="spec value"id="val-directory_iter"><ahref="#val-directory_iter"class="anchor"></a><code><spanclass="keyword">val</span> directory_iter : <span>(string <span>-></span> unit)</span><span>-></span> string <span>-></span> unit</code></dt><dd><p>Functional iter function over all the file of a directory</p></dd></dl><dl><dtclass="spec value"id="val-directory_is_empty"><ahref="#val-directory_is_empty"class="anchor"></a><code><spanclass="keyword">val</span> directory_is_empty : string <span>-></span> bool</code></dt><dd><p>Returns true if a given directory is empty. The directory is assumed to exist.</p></dd></dl><dl><dtclass="spec value"id="val-read_json_file"><ahref="#val-read_json_file"class="anchor"></a><code><spanclass="keyword">val</span> read_json_file : string <span>-></span><span><span>(Yojson.Basic.t,string)</span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Result.t</span></code></dt><dtclass="spec value"id="val-with_file_in"><ahref="#val-with_file_in"class="anchor"></a><code><spanclass="keyword">val</span> with_file_in : string <span>-></span><span>f:<span>(<ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.In_channel.t <span>-></span><spanclass="type-var">'a</span>)</span></span><span>-></span><spanclass="type-var">'a</span></code></dt><dtclass="spec value"id="val-with_file_out"><ahref="#val-with_file_out"class="anchor"></a><code><spanclass="keyword">val</span> with_file_out : string <span>-></span><span>f:<span>(<ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Out_channel.t <span>-></span><spanclass="type-var">'a</span>)</span></span><span>-></span><spanclass="type-var">'a</span></code></dt><dtclass="spec value"id="val-with_intermediate_temp_file_out"><ahref="#val-with_intermediate_temp_file_out"class="anchor"></a><code><spanclass="keyword">val</span> with_intermediate_temp_file_out : string <span>-></span><span>f:<span>(<ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Out_channel.t <span>-></span><spanclass="type-var">'a</span>)</span></span><span>-></span><spanclass="type-var">'a</span></code></dt><dd><p>like <code>with_file_out</code> but uses a fresh intermediate temporary file and rename to avoid write-write races</p></dd></dl><dl><dtclass="spec value"id="val-write_json_to_file"><ahref="#val-write_json_to_file"class="anchor"></a><code><spanclass="keyword">val</span> write_json_to_file : string <span>-></span> Yojson.Basic.t <span>-></span> unit</code></dt><dtclass="spec value"id="val-consume_in"><ahref="#val-consume_in"class="anchor"></a><code><spanclass="keyword">val</span> consume_in : <ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.In_channel.t <span>-></span> unit</code></dt><dd><p>consume and ignore all the lines from the channel until End_of_file is reached</p></dd></dl><dl><dtclass="spec value"id="val-echo_in"><ahref="#val-echo_in"class="anchor"></a><code><spanclass="keyword">val</span> echo_in : <ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.In_channel.t <span>-></span> unit</code></dt><dd><p>echo the lines we get to stdout until End_of_file is reached</p></dd></dl><dl><dtclass="spec value"id="val-with_channel_in"><ahref="#val-with_channel_in"class="anchor"></a><code><spanclass="keyword">val</span> with_channel_in : <span>f:<span>(string <span>-></span> unit)</span></span><span>-></span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.In_channel.t <span>-></span> unit</code></dt><dtclass="spec value"id="val-with_process_in"><ahref="#val-with_process_in"class="anchor"></a><code><spanclass="keyword">val</span> with_process_in : string <span>-></span><span>(<ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.In_channel.t <span>-></span><spanclass="type-var">'a</span>)</span><span>-></span><spanclass="type-var">'a</span> * <ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Unix.Exit_or_signal.t</code></dt><dtclass="spec value"id="val-with_process_lines"><ahref="#val-with_process_lines"class="anchor"></a><code><spanclass="keyword">val</span> with_process_lines : <span>debug:<span>(<span><span>(string <span>-></span> unit,Stdlib.Format.formatter,unit)</span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.format</span><span>-></span> string <span>-></span> unit)</span></span><span>-></span><span>cmd:<span>string list</span></span><span>-></span><span>tmp_prefix:string</span><span>-></span><span>f:<span>(<span>string list</span><span>-></span><spanclass="type-var">'res</span>)</span></span><span>-></span><spanclass="type-var">'res</span></code></dt><dd><p>Runs the command <code>cmd</code> and calls <code>f</code> on the output lines. Uses <code>debug</code> to print debug information, and <code>tmp_prefix</code> as a prefix for temporary files.</p></dd></dl><dl><dtclass="spec value"id="val-create_dir"><ahref="#val-create_dir"class="anchor"></a><code><spanclass="keyword">val</span> create_dir : string <span>-></span> unit</code></dt><dd><p>create a directory if it does not exist already</p></dd></dl><dl><dtclass="spec value"id="val-realpath"><ahref="#val-realpath"class="anchor"></a><code><spanclass="keyword">val</span> realpath : <span>?⁠warn_on_error:bool</span><span>-></span> string <span>-></span> string</code></dt><dd><p><code>realpath warn_on_error path</code> returns path with all symbolic links resolved. It caches results of previous calls to avoid expensive system calls. WARNING: If warn_on_error is false, no warning will be shown whenever an error occurs for the given path (e.g. if it does not exist).</p></dd></dl><dl><dtclass="spec value"id="val-suppress_stderr2"><ahref="#val-suppress_stderr2"class="anchor"></a><code><spanclass="keyword">val</span> suppress_stderr2 : <span>(<spanclass="type-var">'a</span><span>-></span><spanclass="type-var">'b</span><span>-></span><spanclass="type-var">'c</span>)</span><span>-></span><spanclass="type-var">'a</span><span>-></span><spanclass="type-var">'b</span><span>-></span><spanclass="type-var">'c</span></code></dt><dd><p>wraps a function expecting 2 arguments in another that temporarily redirects stderr to /dev/null for the duration of the function call</p></dd></dl><dl><dtclass="spec value"id="val-compare_versions"><ahref="#val-compare_versions"class="anchor"></a><code><spanclass="keyword">val</span> compare_versions : string <span>-></span> string <span>-></span> int</code></dt><dd><p><code>compare_versions v1 v2</code> returns 1 if v1 is newer than v2, -1 if v1 is older than v2 and 0 if they are the same version. The versions are strings of the shape "n.m.t", the order is lexicographic.</p></dd></dl><dl><dtclass="spec value"id="val-rmtree"><ahref="#val-rmtree"class="anchor"></a><code><spanclass="keyword">val</span> rmtree : string <span>-></span> unit</code></dt><dd><p><code>rmtree path</code> removes <code>path</code> and, if <code>path</code> is a directory, recursively removes its contents</p></dd></dl><dl><dtclass="spec value"id="val-try_finally_swallow_timeout"><ahref="#val-try_finally_swallow_timeout"class="anchor"></a><code><spanclass="keyword">val</span> try_finally_swallow_timeout : <span>f:<span>(unit <span>-></span><spanclass="type-var">'a</span>)</span></span><span>-></span><span>finally:<span>(unit <span>-></span> unit)</span></span><span>-></span><spanclass="type-var">'a</span></code></dt><dd><p>Calls <code>f</code> then <code>finally</code> even if <code>f</code> raised an exception. The original exception is reraised afterwards. Where possible use <code>SymOp.try_finally</code> to avoid swallowing timeouts.</p></dd></dl><dl><dtclass="spec value"id="val-better_hash"><ahref="#val-better_hash"class="anchor"></a><code><spanclass="keyword">val</span> better_hash : <spanclass="type-var">'a</span><span>-></span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.Caml.Digest.t</code></dt><dd><p>Hashtbl.hash only hashes the first 10 meaningful values, <code>better_hash</code> uses everything.</p></dd></dl><dl><dtclass="spec value"id="val-unlink_file_on_exit"><ahref="#val-unlink_file_on_exit"class="anchor"></a><code><spanclass="keyword">val</span> unlink_file_on_exit : string <span>-></span> unit</code></dt><dd><p>delete <code>temporary</code> file on exit</p></dd></dl><dl><dtclass="spec value"id="val-strip_balanced_once"><ahref="#val-strip_balanced_once"class="anchor"></a><code><spanclass="keyword">val</span> strip_balanced_once : <span>drop:<span>(char <span>-></span> bool)</span></span><span>-></span> string <span>-></span> string</code></dt><dd><p>drop at most one layer of well-balanced first and last characters satisfying <code>drop</code> from the string; for instance, <code>strip_balanced ~drop:(function | 'a' | 'x' -> true | _ -> false) "xaabax"</code> returns "aaba"</p></dd></dl><dl><dtclass="spec value"id="val-assoc_of_yojson"><ahref="#val-assoc_of_yojson"class="anchor"></a><code><spanclass="keyword">val</span> assoc_of_yojson : Yojson.Basic.t <span>-></span><span>src:string</span><span>-></span><span><span>(string,Yojson.Basic.t)</span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.List.Assoc.t</span></code></dt><dd><p>Verify we have a json object (or empty list) and return the corresponding assoc list. Otherwise die with a message including src.</p></dd></dl><dl><dtclass="spec value"id="val-string_of_yojson"><ahref="#val-string_of_yojson"class="anchor"></a><code><spanclass="keyword">val</span> string_of_yojson : Yojson.Basic.t <span>-></span><span>src:string</span><span>-></span> string</code></dt><dd><p>Verify we have a json string and return the corresponding ocaml string. Otherwise die with a message including src.</p></dd></dl><dl><dtclass="spec value"id="val-string_list_of_yojson"><ahref="#val-string_list_of_yojson"class="anchor"></a><code><spanclass="keyword">val</span> string_list_of_yojson : Yojson.Basic.t <span>-></span><span>src:string</span><span>-></span><span>string list</span></code></dt><dd><p>Verify we have a json list of strings and return the corresponding ocaml string list. Otherwise die with a message including src.</p></dd></dl><dl><dtclass="spec value"id="val-yojson_lookup"><ahref="#val-yojson_lookup"class="anchor"></a><code><spanclass="keyword">val</span> yojson_lookup : <span><span>(string,Yojson.Basic.t)</span><ahref="../../InferStdlib/InferStdlib/index.html#module-IStd">InferStdlib.IStd</a>.List.Assoc.t</span><span>-></span> string <span>-></span><span>src:string</span><span>-></span><span>f:<span>(Yojson.Basic.t <span>-></span><span>src:string</span><span>-></span><spanclass="type-var">'a</span>)</span></span><span>-></span><span>default:<spanclass="type-var">'a</span></span><span>-></span><spanclass="type-var">'a</span></code></dt><dd><p>Lookup a json value on an assoc list. If not present, returns default. Otherwise returns (f json_value ~src) where src has element name appended. f is typically one of the above _of_yojson functions.</p></dd></dl><dl><dtclass="spec value"id="val-timeit"><ahref="#val-timeit"class="anchor"></a><code><spanclass="keyword">val</span> timeit : <span>f:<span>(unit <span>-></span><spanclass="type-var">'a</span>)</span></span><span>-></span><spanclass="type-var">'a</span> * int</code></dt><dd><p>Returns the execution time of <code>f</code> in milliseconds together with its result</p></dd></dl></div></body></html>
