lbvs_consent 2.2.0 (latest)

module L = BatList

module Log = Dolog.Log

type filename = string

val tap : ('a -> 'b) -> 'a -> 'a

val fst3 : ('a * 'b * 'c) -> 'a

val create_tmp_filename : unit -> string

val mkfifo : filename -> unit

val enforce : bool -> string -> unit

val with_out_file : filename -> (out_channel -> 'a) -> 'a

val with_temp_out_file : (filename -> 'a) -> 'a

val with_in_file : filename -> (in_channel -> 'a) -> 'a

val with_in_out_file : 
  filename ->
  filename ->
  (in_channel -> out_channel -> 'a) ->
  'a

val with_gzip_in_file : string -> (Gzip.in_channel -> 'a) -> 'a

val with_gzip_out_file : int -> string -> (Gzip.out_channel -> 'a) -> 'a

val gzip_output_string : Gzip.out_channel -> string -> unit

val list_parmap : int -> ('a -> 'b) -> 'a list -> 'b list

val list_pariter : int -> ('a -> unit) -> 'a 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) -> 'a list

val map_on_lines_of_file : filename -> (string -> 'a) -> 'a list

val skip_blocks : int -> ('a -> 'b) -> 'a -> unit

val parmap_on_file : 
  int ->
  filename ->
  ('a -> 'b) ->
  (in_channel -> 'a) ->
  'b 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) -> 'a option -> unit

val lock_file_for_writing : filename -> bool

val all_pairs : 'a list -> ('a * 'a) list

val n_times : int -> (unit -> 'a) -> 'a list

val bitv_to_floats : Bitv.t -> float array

val round : float -> float

val push : 'a -> 'a list ref -> unit

val id : 'a -> 'a

package lbvs_consent