1 (***********************************************************************)
5 (* Kim Nguyen, LRI UMR8623 *)
6 (* Université Paris-Sud & CNRS *)
8 (* Copyright 2010-2012 Université Paris-Sud and Centre National de la *)
9 (* Recherche Scientifique. All rights reserved. This file is *)
10 (* distributed under the terms of the GNU Lesser General Public *)
11 (* License, with the special exception on linking described in file *)
14 (***********************************************************************)
17 Time-stamp: <Last modified on 2013-03-11 00:11:53 CET by Kim Nguyen>
23 Document | Element | Text | Comment | Attribute | ProcessingInstruction
28 Document -> "document"
29 | Element -> "element"
30 | Attribute -> "attribute"
32 | Comment -> "comment"
33 | ProcessingInstruction -> "processing-instruction"
35 let print ppf k = Format.fprintf ppf "%s" (to_string k)
39 k1 == Node || k2 == Node || k1 == k2