[r2003-11-26 16:18:26 by szach] - added equal function on values

- exported previously hidden is_seq function

Original author: szach
Date: 2003-11-26 16:18:26+00:00

runtime/value.ml

@@ -480,6 +480,7 @@ let ( |>| ) x y = compare x y > 0
 let ( |<=| ) x y = let c = compare x y in c < 0 || c = 0
 let ( |>=| ) x y = let c = compare x y in c > 0 || c = 0
 let ( |=| ) x y = compare x y = 0
+let equal = ( |=| )
 let ( |<>| ) x y = compare x y <> 0
 
 (*

runtime/value.mli

@@ -63,6 +63,7 @@ val flatten : t -> t
 val get_string_latin1 : t -> string
 val get_string_utf8 : t -> U.t * t
 val is_str : t -> bool
+val is_seq : t -> bool
 
 val get_int : t -> int
 
@@ -70,6 +71,7 @@ val get_int : t -> int
 val get_fields : t -> (Ns.qname * t) list
 
 val compare : t -> t -> int
+val equal : t -> t -> bool
 val ( |<| ): t -> t -> bool
 val ( |>| ): t -> t -> bool
 val ( |<=| ): t -> t -> bool