*)
let document_of_xml (domImplementation : Gdome.domImplementation) strm =
-prerr_endline "LUCA: entro nella document_of_xml" ;
let module G = Gdome in
let module X = Xml in
let rec update_namespaces ((defaultns,bindings) as namespaces) =
| X.NEmpty(p,n,l,c) -> p,n,l,c
| _ -> assert false
in
-prerr_endline "LUCA: entro nella document_of_xml interna" ;
let namespaces = update_namespaces (None,[]) root_attributes in
let namespaceURI = namespace_of_prefix namespaces root_prefix in
let document =
~qualifiedName:(get_qualified_name p n)
~value:(Gdome.domString v)
) root_attributes ;
-prerr_endline "LUCA: prima di aux" ;
aux namespaces (root : Gdome.element :> Gdome.node) root_content ;
-prerr_endline "LUCA: dopo di aux" ;
document
;;