projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle compiling the java test program from ocamlbuild too
[tatoo.git]
/
src
/
utils
/
qName.ml
diff --git
a/src/utils/qName.ml
b/src/utils/qName.ml
index
ca4a5a3
..
d3f0a43
100644
(file)
--- a/
src/utils/qName.ml
+++ b/
src/utils/qName.ml
@@
-14,7
+14,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-0
1-30 19:07:38
CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-0
2-14 16:14:44
CET by Kim Nguyen>
*)
include Hcons.Make (struct
*)
include Hcons.Make (struct
@@
-35,3
+35,10
@@
let comment = of_string "#comment"
let document_fragment = of_string "#document-fragment"
let attribute_map = of_string "#attribute-map"
let nil = of_string "#"
let document_fragment = of_string "#document-fragment"
let attribute_map = of_string "#attribute-map"
let nil = of_string "#"
+let attribute_prefix = of_string "@"
+let has_attribute_prefix s =
+ let s = node s in
+ String.length s > 0 && s.[0] = '@'
+
+let add_attribute_prefix s =
+ of_string ("@" ^ (node s))