Frama-C API - `Extlib`

Useful operations. This module does not depend of any of frama-c module.

val nop : 'a -> unit

Do nothing.

val adapt_filename : string -> string

Ensure that the given filename has the extension "cmo" in bytecode and "cmxs" in native

val max_cpt : int -> int -> int

max_cpt t1 t2 returns the maximum of t1 and t2 wrt the total ordering induced by tags creation. This ordering is defined as follows: forall tags t1 t2, t1 <= t2 iff t1 is before t2 in the finite sequence 0; 1; ..; max_int; min_int; min_int-1; -1

val number_to_color : int -> int

Function builders

exception Unregistered_function of string

Never catch it yourself: let the kernel do the job.

since Oxygen-20120901

val mk_labeled_fun : string -> 'a

To be used to initialized a reference over a labeled function.

since Oxygen-20120901

raises Unregistered_function
when not properly initialized

val mk_fun : string -> ('a -> 'b) Stdlib.ref

Build a reference to an uninitialized function

raises Unregistered_function
when not properly initialized

Function combinators

val ($) : ('b -> 'c) -> ('a -> 'b) -> 'a -> 'c

Composition.

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

val iter_uncurry2 : (('a -> 'b -> unit) -> 'c -> unit) -> (('a * 'b) -> unit) -> 'c -> unit

Tuples

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

Nest the first argument with the first element of the pair given as second argument.

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

Flatten the pairs into a triplet.

Lists

val as_singleton : 'a list -> 'a

returns the unique element of a singleton list.

raises Invalid_argument
on a non singleton list.

val last : 'a list -> 'a

returns the last element of a list.

raises Invalid_argument
on an empty list

since Nitrogen-20111001

val replace : ('a -> 'a -> bool) -> 'a -> 'a list -> 'a list

replace cmp x l replaces the first element y of l such that cmp x y is true by x. If no such element exists, x is added at the tail of l.

since Neon-20140301

val product_fold : ('a -> 'b -> 'c -> 'a) -> 'a -> 'b list -> 'c list -> 'a

product f acc l1 l2 is similar to fold_left f acc l12 with l12 the list of all pairs of an elt of l1 and an elt of l2

val product : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list

product f l1 l2 applies f to all the pairs of an elt of l1 and an element of l2.

val find_index : ('a -> bool) -> 'a list -> int

returns the index (starting at 0) of the first element verifying the condition

raises Not_found
if no element in the list matches the condition

val list_compare : ('a -> 'a -> int) -> 'a list -> 'a list -> int

Generic list comparison function, where the elements are compared with the specified function

since Boron-20100401

val opt_of_list : 'a list -> 'a option

converts a list with 0 or 1 element into an option.

raises Invalid_argument
on lists with more than one argument

since Oxygen-20120901

val subsets : int -> 'a list -> 'a list list

subsets k l computes the combinations of k elements from list l. E.g. subsets 2 1;2;3;4 = [1;2];[1;3];[1;4];[2;3];[2;4];[3;4]. This function preserves the order of the elements in l when computing the sublists. l should not contain duplicates.

since Aluminium-20160501

val list_first_n : int -> 'a list -> 'a list

list_first_n n l returns the first n elements of the list. Tail recursive. It returns an empty list if n is nonpositive and the whole list if n is greater than List.length l. It is equivalent to list_slice ~last:n l.

val list_slice : ?first:int -> ?last:int -> 'a list -> 'a list

list_slice ?first ?last l is equivalent to Python's slice operator (lfirst:last): returns the range of the list between first (inclusive) and last (exclusive), starting from 0. If omitted, first defaults to 0 and last to List.length l. Negative indices are allowed, and count from the end of the list. list_slice never raises exceptions: out-of-bounds arguments are clipped, and inverted ranges result in empty lists.

since 18.0-Argon

val map_no_copy : ('a -> 'a) -> 'a list -> 'a list

Like map but try not to make a copy of the list

since 30.0-Zinc

val map_no_copy_list : ('a -> 'a list) -> 'a list -> 'a list

Like map but each call can return a list. Try not to make a copy of the list

since 30.0-Zinc

Options

val merge_opt : ('a -> 'b -> 'b -> 'b) -> 'a -> 'b option -> 'b option -> 'b option

merge f k a b returns

None if both a and b are None
Some a' (resp. b' if b (resp a) is None and a (resp. b) is Some
f k a' b' if both a and b are Some

It is mainly intended to be used with Map.merge

since Oxygen-20120901

val opt_filter : ('a -> bool) -> 'a option -> 'a option

val the : exn:exn -> 'a option -> 'a

raises Exn
if the value is None and exn is specified.

raises Invalid_argument
if the value is None and exn is not specified.

returns
v if the value is Some v.

before 23.0-Vanadium
exn was an optional argument.

val opt_hash : ('a -> int) -> 'a option -> int

since Sodium-20150201

val opt_map2 : ('a -> 'b -> 'c) -> 'a option -> 'b option -> 'c option

returns
f a b if arguments are Some a and Some b, orelse return None.

since 24.0-Chromium

val opt_map_no_copy : ('a -> 'a) -> 'a option -> 'a option

same as map_no_copy for options.

since 30.0-Zinc

Strings

val string_del_prefix : ?strict:bool -> string -> string -> string option

string_del_prefix ~strict p s returns None if p is not a prefix of s and Some s1 iff s=p^s1.

since Oxygen-20120901

val string_del_suffix : ?strict:bool -> string -> string -> string option

string_del_suffix ~strict suf s returns Some s1 when s = s1 ^ suf and None of suf is not a suffix of s.

since Aluminium-20160501

val make_unique_name : (string -> bool) -> ?sep:string -> ?start:int -> string -> int * string

make_unique_name mem s returns (0, s) when (mem s)=false otherwise returns (n,new_string) such that new_string is derived from (s,sep,start) and (mem new_string)=false and n<>0

since Oxygen-20120901

val strip_underscore : string -> string

remove underscores at the beginning and end of a string. If a string is composed solely of underscores, return the empty string

since 18.0-Argon

val html_escape : string -> string

val format_string_of_stag : Stdlib.Format.stag -> string

format_string_of_stag stag returns the string corresponding to stag, or raises an exception if the tag extension is unsupported.

since 22.0-Titanium

Performance

val address_of_value : 'a -> int

System commands

val safe_at_exit : (unit -> unit) -> unit

Register function to call with Stdlib.at_exit, but only for non-child process (fork). The order of execution is preserved wrt ordinary calls to Stdlib.at_exit.

val cleanup_at_exit : string -> unit

deprecated Use Temp_files.cleanup_at_exit instead

val temp_file_cleanup_at_exit : ?debug:bool -> string -> string -> string

deprecated Use Temp_files.file instead

val temp_dir_cleanup_at_exit : ?debug:bool -> string -> 'filepath

deprecated Use Temp_files.dir instead

val mkdir : ?parents:bool -> 'f -> Unix.file_perm -> bool

deprecated Use Filesystem.make_dir instead

val safe_remove : string -> unit

deprecated Use Filesystem.remove_file instead

val safe_remove_dir : string -> unit

deprecated Use Filesystem.remove_dir instead

Comparison functions

val compare_basic : 'a -> 'a -> int

Use this function instead of Stdlib.compare, as this makes it easier to find incorrect uses of the latter

val compare_ignore_case : string -> string -> int

Case-insensitive string comparison. Only ISO-8859-1 accents are handled.

since Silicon-20161101

Frama-C API - Extlib