(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-02-14 16:15:23 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-10 23:02:12 CET by Kim Nguyen>
*)
(** Implementation of qualified names as hashconsed strings *)
-include Sigs.HCONS.S with type data = string
-include Sigs.AUX.Printable with type t := t
+include Hcons.S with type data = string
+include Common_sig.Printable with type t := t
val of_string : string -> t
[of_string "#text"]
*)
-val cdata_section : t
-(** Represents the QName of a document node. Equivalent to
- [of_string "#cdata-section"]
-*)
-
val comment : t
(** Represents the QName of a comment node. Equivalent to
[of_string "#comment"]
*)
-val document_fragment : t
-(** Represents the QName of a document fragment. Equivalent to
- [of_string "#document-fragment"]
-*)
-
-val attribute_map : t
-(** Represents the QName of a dummy document node holding the
- attributes of the current element. Equivalent to
- [of_string "#attribute-map"]
-*)
-
val nil : t
(** Represents the QName of a nil node. Equivalent to
[of_string "#"]
*)
-val attribute_prefix : t
-(** Represents a prefix that may be prepended to attribute name
- to distinguish them from element names
+val attribute : t -> t
+(** Adds a prefix character (@) to distinguish the name
+ from an element name
*)
-val has_attribute_prefix : t -> bool
-(** Tests whether the given QName starts with the attribute prefix
+val processing_instruction : t -> t
+(** Adds a prefix character (?) to distinguish the name
+ from an element name
*)
-val add_attribute_prefix : t -> t
-(** Prepends the attribute_prefix to the given QName *)
+val remove_prefix : t -> t
+(** Removes the prefix of the qname given as argument. Does not
+ do anything if there is no prefix.
+*)