[r2003-11-21 12:49:32 by szach] export schema namespaces as Ns.t values

Original author: szach
Date: 2003-11-21 12:49:32+00:00

schema/schema_xml.ml

@@ -206,3 +206,8 @@ module Pxp_helpers =
 
   end
 
+  (** export Ns.t version of defined namespaces *)
+
+let xsd_namespace = Ns.mk_latin1 xsd_namespace
+let xsi_namespace = Ns.mk_latin1 xsi_namespace
+

schema/schema_xml.mli

@@ -51,8 +51,8 @@ module Pxp_helpers:
 
 val has_xsd_prefix : string -> bool
 val schema_ns_prefixes: (string * string) list
-val xsd_namespace : string
-val xsi_namespace : string
+val xsd_namespace : Ns.t
+val xsi_namespace : Ns.t
 val xsd_prefix : string
 val xsi_prefix : string
 val namespace_split : string -> string * string