Shadow unsafe functions and operators from Pervasives

_oasis

@@ -42,7 +42,7 @@ Library "containers"
                     CCFun, CCHash, CCInt, CCBool, CCFloat, CCArray, CCRef, CCSet,
                     CCOrd, CCRandom, CCString, CCHashtbl, CCMap, CCFormat, CCIO,
                     CCInt64, CCChar, CCResult, CCParse, CCArray_slice,
-                    CCListLabels, CCArrayLabels, CCEqual,
+                    CCListLabels, CCArrayLabels, CCEqual, CCPervasives,
                     Containers
   BuildDepends:     bytes, result
   # BuildDepends:     bytes, bisect_ppx

_tags

@@ -161,3 +161,4 @@ true: annot, bin_annot
 <src/**/*.ml> and not <src/misc/*.ml>: warn(+a-4-44-58-60@8)
 true: no_alias_deps, safe_string, short_paths
 <src/**/*Labels.cm*>: nolabels
+not <src/core/CCPervasives.*>: open(CCPervasives)

src/core/CCPervasives.ml

@@ -0,0 +1,4 @@
+
+(* This file is free software, part of containers. See file "license" for more details. *)
+
+include Pervasives

src/core/CCPervasives.mli

@@ -0,0 +1,16 @@
+
+(* This file is free software, part of containers. See file "license" for more details. *)
+
+(** {1 Shadow unsafe functions and operators from Pervasives} *)
+(** @since NEXT_RELEASE *)
+
+val (=) : int -> int -> bool
+val (<>) : int -> int -> bool
+val (<) : int -> int -> bool
+val (>) : int -> int -> bool
+val (<=) : int -> int -> bool
+val (>=) : int -> int -> bool
+
+val compare : int -> int -> int
+val min : int -> int -> int
+val max : int -> int -> int

src/core/containers.ml

@@ -57,3 +57,5 @@ module Set = struct
 end
 module String = CCString
 module Vector = CCVector
+
+include CCPervasives