projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simplify the automaton encoding a bit (remove redundant predicates in formulae).
[tatoo.git]
/
src
/
qName.mli
diff --git
a/src/qName.mli
b/src/qName.mli
index
fa448bc
..
7a892e9
100644
(file)
--- a/
src/qName.mli
+++ b/
src/qName.mli
@@
-15,8
+15,8
@@
(** Implementation of qualified names as hashconsed strings *)
(** 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
val of_string : string -> t
@@
-40,28
+40,28
@@
val text : t
[of_string "#text"]
*)
[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
val comment : t
(** Represents the QName of a comment node. Equivalent to
- [of_string "#c
data-section
"]
+ [of_string "#c
omment
"]
*)
*)
-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 : t -> t
+(** Adds a prefix character (@) to distinguish the name
+ from an element name
*)
*)
-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 processing_instruction : 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 remove_prefix : t -> t
+(** Removes the prefix of the qname given as argument. Does not
+ do anything if there is no prefix.
+*)
*)
*)