package lbvs_consent

  1. Overview
  2. Docs
module L = BatList
module Log = Dolog.Log
type filename = string
val tap : ('a -> 'b) -> 'c -> 'd
val fst3 : ('a * 'b * 'c) -> 'd
val create_tmp_filename : unit -> string
val mkfifo : filename -> unit
val enforce : bool -> string -> unit
val with_out_file : filename -> (out_channel -> 'a) -> 'a0
val with_temp_out_file : (filename -> 'a) -> 'a0
val with_in_file : filename -> (in_channel -> 'a) -> 'a0
val with_in_out_file : filename -> filename -> (in_channel -> out_channel -> 'a) -> 'a0
val with_gzip_in_file : string -> (Gzip.in_channel -> 'a) -> 'a0
val with_gzip_out_file : int -> string -> (Gzip.out_channel -> 'a) -> 'a0
val gzip_output_string : Gzip.out_channel -> string -> unit
val list_parmap : int -> ('a -> 'b) -> 'a0 list -> 'b0 list
val list_pariter : int -> ('a -> unit) -> 'a0 list -> unit
val lines_of_file : filename -> string list
val iter_on_lines_of_file : string -> (string -> 'a) -> unit
val map_on_file : filename -> (in_channel -> 'a) -> 'a0 list
val map_on_lines_of_file : filename -> (string -> 'a) -> 'a0 list
val skip_blocks : int -> ('a -> 'b) -> 'c -> unit
val parmap_on_file : int -> filename -> ('a -> 'b) -> (in_channel -> 'a0) -> 'b0 list
val read_lines : filename -> string list
val write_lines : string list -> filename -> unit
val filter_lines_of_file : filename -> (string -> bool) -> string list
val get_command_output : string -> string
val fork_out_cmd : string -> int
val command_exists : string -> string option
val run_command : string -> unit
val get_env : string -> string option
val find_command : string -> string -> string option
val filename_is_absolute : string -> bool
val relative_to_absolute : string -> string
val remove_string_prefix : string -> string -> string
val string_contains_non_binary_digit : Str.regexp
val string_contains_only_zeros_or_ones : string -> bool
val string_contains_non_digits_non_sep : Str.regexp
val string_is_a_list_of_integers : string -> bool
val may_apply : ('a -> unit) -> 'b option -> unit
val lock_file_for_writing : filename -> bool
val all_pairs : 'a list -> ('a0 * 'a0) list
val n_times : int -> (unit -> 'a) -> 'b list
val bitv_to_floats : Bitv.t -> float array
val round : float -> float
val push : 'a -> 'a0 list ref -> unit
val id : 'a -> 'b