Module Archetype.Tools

exception No_value
exception Unsupported_yet
exception Anomaly
val id : 'a -> 'a
val (|@) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
val proj3_1 : ('a * 'b * 'c) -> 'a
val proj3_2 : ('a * 'b * 'c) -> 'b
val proj3_3 : ('a * 'b * 'c) -> 'c
val proj4_1 : ('a * 'b * 'c * 'd) -> 'a
val proj4_2 : ('a * 'b * 'c * 'd) -> 'b
val proj4_3 : ('a * 'b * 'c * 'd) -> 'c
val proj4_4 : ('a * 'b * 'c * 'd) -> 'd
val fst_map : ('a -> 'b) -> ('a * 'c) -> 'b * 'c
val snd_map : ('a -> 'b) -> ('c * 'a) -> 'c * 'b
val pair_map : ('a -> 'b) -> ('c -> 'd) -> ('a * 'c) -> 'b * 'd
val pair_sigle_map : ('a -> 'b) -> ('a * 'a) -> 'b * 'b
val swap : ('a * 'b) -> 'b * 'a
val pair : 'a -> 'b -> 'a * 'b
val (%>) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
val foldi : ('a -> 'a) -> 'a -> int -> 'a
module Bool : sig ... end
module String : sig ... end
module Option : sig ... end
val (|?>) : 'a option -> ('a -> 'b) -> 'b option
val (|?) : 'a option -> ('a -> 'b) -> unit
module List : sig ... end
module Map : sig ... end
module Set = Stdlib.Set
module Mint : sig ... end
module Sstr : sig ... end
module Mstr : sig ... end
val norm_hex_string : string -> string
val location_to_position : Location.t -> Position.t