Commit ab24b3e2 by François Bobot

### why3session copy : add option --convert-unknown

parent 4ca47a73
 ... @@ -64,6 +64,7 @@ module type S = ... @@ -64,6 +64,7 @@ module type S = val set_disjoint : 'a t -> 'b t -> bool val set_disjoint : 'a t -> 'b t -> bool val find_default : key -> 'a -> 'a t -> 'a val find_default : key -> 'a -> 'a t -> 'a val find_option : key -> 'a t -> 'a option val find_option : key -> 'a t -> 'a option val find_exn : exn -> key -> 'a t -> 'a val map_filter: ('a -> 'b option) -> 'a t -> 'b t val map_filter: ('a -> 'b option) -> 'a t -> 'b t val mapi_filter: (key -> 'a -> 'b option) -> 'a t -> 'b t val mapi_filter: (key -> 'a -> 'b option) -> 'a t -> 'b t val mapi_fold: val mapi_fold: ... @@ -517,6 +518,13 @@ module Make(Ord: OrderedType) = struct ... @@ -517,6 +518,13 @@ module Make(Ord: OrderedType) = struct if c = 0 then Some d if c = 0 then Some d else find_option x (if c < 0 then l else r) else find_option x (if c < 0 then l else r) let rec find_exn exn x = function Empty -> raise exn | Node(l, v, d, r, _) -> let c = Ord.compare x v in if c = 0 then d else find_exn exn x (if c < 0 then l else r) let rec map_filter f = function let rec map_filter f = function Empty -> Empty Empty -> Empty | Node(l, v, d, r, _h) -> | Node(l, v, d, r, _h) -> ... ...
 ... @@ -232,6 +232,10 @@ module type S = ... @@ -232,6 +232,10 @@ module type S = (** [find_default x d m] returns the [Some] of the current binding (** [find_default x d m] returns the [Some] of the current binding of [x] in [m], or return [None] if no such binding exists. *) of [x] in [m], or return [None] if no such binding exists. *) val find_exn : exn -> key -> 'a t -> 'a (** [find_exn exn x d m] returns the current binding of [x] in [m], or raise [exn] if no such binding exists. *) val map_filter: ('a -> 'b option) -> 'a t -> 'b t val map_filter: ('a -> 'b option) -> 'a t -> 'b t (** Same as {!Map.S.map}, but may remove bindings. *) (** Same as {!Map.S.map}, but may remove bindings. *) ... ...