projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Various fixes to the old grammar interface
[SXSI/xpathcomp.git]
/
src
/
tag.mli
diff --git
a/src/tag.mli
b/src/tag.mli
index
6dc51ee
..
04254e0
100644
(file)
--- a/
src/tag.mli
+++ b/
src/tag.mli
@@
-1,6
+1,11
@@
type t = int
type t = int
-type pool
-val tag : string -> t
+
+type operations = {
+ tag : string -> t;
+ to_string : t -> string;
+ translate : t -> t
+}
+
val document_node : t
val attribute : t
val document_node : t
val attribute : t
@@
-10,14
+15,14
@@
val document_node_close : t
val attribute_close : t
val pcdata_close : t
val attribute_data_close : t
val attribute_close : t
val pcdata_close : t
val attribute_data_close : t
+val nullt : t
+val dummy : t
-val init : pool -> unit
-val to_string : t -> string
val compare : t -> t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val equal : t -> t -> bool
-val nullt : t
-val dummy : t
+
+
val dump : Format.formatter -> t -> unit
val check : t -> unit (* Check internal invariants *)
val dump : Format.formatter -> t -> unit
val check : t -> unit (* Check internal invariants *)
@@
-25,4
+30,10
@@
val check : t -> unit (* Check internal invariants *)
val hash : t -> int
val print : Format.formatter -> t -> unit
val hash : t -> int
val print : Format.formatter -> t -> unit
-val dump_tags : unit -> unit
+val init : operations -> unit
+
+val tag : string -> t
+val to_string : t -> string
+val translate : t -> t
+
+