[r2003-11-21 12:48:41 by szach] added mk_latin1

Original author: szach
Date: 2003-11-21 12:48:41+00:00

misc/ns.ml

@@ -19,6 +19,7 @@ module P = Pool.Make(U)
 include P
 let empty = mk empty_str
 let xml_ns = mk (U.mk "http://www.w3.org/XML/1998/namespace")
+let mk_latin1 s = mk (U.mk s)
 
 module Table = Map.Make(U)
 

misc/ns.mli

@@ -6,6 +6,7 @@ exception UnknownPrefix of Utf8.t
 
 include Custom.T with type t = int  (* Namespaces (URIs) *)
 val mk: Utf8.t -> t
+val mk_latin1: string -> t
 val value: t -> Utf8.t
 val empty : t