-
-let to_string t =
- if t == pcdata then "<$>"
- else if t == attribute_data then "<@$>"
- else if t == attribute then "<@>"
- else if t == nullt then "<!NIL!>"
- else tag_name (get_pool()) t
-
-
-let xml_operations = {
- tag = (fun _ x -> tag x);
- to_string = (fun _ x -> to_string x);
- nullt = (fun _ -> nullt);
- translate = (fun _ x -> x);
-}
-
-
-
-