Commit 7ecc59d7 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-05-22 14:32:04 by cvscast] print 'false' XML elements

Original author: cvscast
Date: 2003-05-22 14:32:04+00:00
parent a5443ed9
......@@ -141,12 +141,18 @@ and print_seq ppf = function
| _ -> ()
and print_xml ppf = function
| (Atom tag, Pair (Record attr,content)) ->
| (tag, Pair (attr,content)) ->
Format.fprintf ppf "@[<hv2><%a%a>[@ %a@]]"
Utf8.print (Atoms.value tag)
print_record (LabelMap.get attr)
print_tag tag
print_attr attr
print_seq content
| _ -> assert false
and print_tag ppf = function
| Atom tag -> Utf8.print ppf (Atoms.value tag)
| tag -> Format.fprintf ppf "(%a)" print tag
and print_attr ppf = function
| Record attr -> print_record ppf (LabelMap.get attr)
| attr -> Format.fprintf ppf "(%a)" print attr
and print_record ppf = function
| [] -> ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment