X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Futils%2FqName.mli;h=978ba3c664d918ffe9983246213650e02caa8255;hp=3d6c8993b501ed7f1c81dcc628f8d75d9d8480a5;hb=53a0fd29a20e7f4550e0eb5fa5b0d5af6191c36d;hpb=7c1d3641c4c5d7bde075df20863ab4242df3b763 diff --git a/src/utils/qName.mli b/src/utils/qName.mli index 3d6c899..978ba3c 100644 --- a/src/utils/qName.mli +++ b/src/utils/qName.mli @@ -14,7 +14,7 @@ (***********************************************************************) (* - Time-stamp: + Time-stamp: *) (** Implementation of qualified names as hashconsed strings *) @@ -44,40 +44,27 @@ val text : 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. +*)