projects
/
SXSI
/
xpathcomp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6bc104a
)
Add function to cast tags to integers.
author
Kim Nguyễn
<kn@lri.fr>
Wed, 22 Feb 2012 11:03:07 +0000
(12:03 +0100)
committer
Kim Nguyễn
<kn@lri.fr>
Wed, 22 Feb 2012 11:03:07 +0000
(12:03 +0100)
src/tag.ml
patch
|
blob
|
history
src/tag.mli
patch
|
blob
|
history
diff --git
a/src/tag.ml
b/src/tag.ml
index
2cc1663
..
effe9c3
100644
(file)
--- a/
src/tag.ml
+++ b/
src/tag.ml
@@
-8,7
+8,7
@@
type t = int
type t = int
-
+external to_int : t -> int = "%identity"
type operations = {
tag : string -> t;
to_string : t ->string;
type operations = {
tag : string -> t;
to_string : t ->string;
diff --git
a/src/tag.mli
b/src/tag.mli
index
04254e0
..
7e742c1
100644
(file)
--- a/
src/tag.mli
+++ b/
src/tag.mli
@@
-6,7
+6,7
@@
type operations = {
translate : t -> t
}
translate : t -> t
}
-
+external to_int : t -> int = "%identity"
val document_node : t
val attribute : t
val pcdata : t
val document_node : t
val attribute : t
val pcdata : t