Commit 3f81050c authored by Pietro Abate's avatar Pietro Abate
Browse files

[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
parent bca76059
......@@ -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
(*
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment