X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Futils%2FqName.mli;h=978ba3c664d918ffe9983246213650e02caa8255;hp=081c24d5975e43c7ca009dca7be59ce830d0f15a;hb=03b6a364e7240ca827585e7baff225a0aaa33bc6;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349 diff --git a/src/utils/qName.mli b/src/utils/qName.mli index 081c24d..978ba3c 100644 --- a/src/utils/qName.mli +++ b/src/utils/qName.mli @@ -14,13 +14,13 @@ (***********************************************************************) (* - Time-stamp: + Time-stamp: *) (** 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 @@ -44,28 +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 "#cdata-section"] + [of_string "#comment"] *) -val document_fragment : t -(** Represents the QName of a document fragment. Equivalent to - [of_string "#document-fragment"] +val nil : t +(** Represents the QName of a nil node. Equivalent to + [of_string "#"] *) -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 attribute : t -> t +(** Adds a prefix character (@) to distinguish the name + from an element name *) -val nil : t -(** Represents the QName of a nil node. Equivalent to - [of_string "#"] +val processing_instruction : t -> t +(** Adds a prefix character (?) to distinguish the name + from an element name +*) + +val remove_prefix : t -> t +(** Removes the prefix of the qname given as argument. Does not + do anything if there is no prefix. *)