Commit 85fce38a authored by gerd's avatar gerd

Fix: [namespaces_as_nodes] returns nodes with a

position and a parent.


git-svn-id: https://godirepo.camlcity.org/svn/lib-pxp/trunk@704 dbe99aee-44db-0310-b2b3-d33182c8eb97
parent 4d4cea30
......@@ -2885,13 +2885,19 @@ class [ 'ext ] namespace_element_impl an_ext =
let m = self#namespace_manager in
let s = self#namespace_scope in
let l1 = s#effective_declaration in (* pairs (dsp_prefix, uri) *)
let pos = ref 0 in
let l2 =
List.map
(fun (dsp_prefix, uri) ->
let norm_prefix =
try m#get_normprefix uri
with Not_found -> "<unknown>" (* CHECK *) in
new namespace_impl dsp_prefix norm_prefix dtd
let n =
new namespace_impl dsp_prefix norm_prefix dtd in
n # internal_adopt
(Some (self : 'ext #node :> 'ext node)) !pos;
incr pos;
n
)
l1 in
nsnodes <- Some l2;
......
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