|
|
| version 1.317, 2001/09/18 16:05:43 | version 1.321, 2001/09/20 10:28:54 |
|---|---|
| Line 15 $dom[^dom::set{<?xml version="1.0" encod | Line 15 $dom[^dom::set{<?xml version="1.0" encod |
| </people> | </people> |
| }] | }] |
| ^show-dnode[$dom]<hr> | ^show-dom2[$dom]<hr> |
| $people[^dom.xpath[*/man[@id=1]]] | #^show-dnode1[$dom]<hr> |
| $people[^dom.select[*/man]] | |
| #^show1[] | #^show1[] |
| #^show-dnodes[$people]<hr> | ^show-dnodes1[$people]<hr> |
| ^show-dnodes2[$people]<hr> | |
| #^people.0.owner.hren[] | #^people.0.owner.hren[] |
| ^show-dnode1[^dom.select-single[*/man[2]/name];0;1]<hr> | |
| @show1[] | @show1[] |
| ^for[i](0;^people._count[]-1){ | ^for[i](0;^people._count[]-1){ |
| $node[$people.$i] | $node[$people.$i] |
| Line 32 $people[^dom.xpath[*/man[@id=1]]] | Line 34 $people[^dom.xpath[*/man[@id=1]]] |
| } | } |
| <br> | <br> |
| } | } |
| <hr> | |
| @show-dnodes[array][i] | |
| @show-dnodes1[array][i] | |
| ^for[i](0;^array._count[]-1){ | ^for[i](0;^array._count[]-1){ |
| ^show-dnode[$array.$i] | ^show-dnode1[$array.$i;0;1] |
| } | |
| @show-dnode[dnode;level][l] | |
| ^for[l](0;$level-1){ ^; ^; ^; ^;} | |
| ^if($dnode.type eq element){ | |
| <^;$dnode.name | |
| $pairs[$dnode.attributes] | |
| ^if(def $pairs){ | |
| $names[^pairs._keys[]] | |
| ^names.menu{$names.key=$pairs.[$names.key].value } | |
| } | } |
| >^; | |
| }{[$dnode.type]} | |
| ^if(def $dnode.value){'$dnode.value'}<br> | |
| ^if(def ${dnode.first-child}){^show-dnode[$dnode.first-child]($level+1)} | |
| ^if(def ${dnode.next-sibling}){^show-dnode[$dnode.next-sibling]($level)} | |
| ^if($dnode.type eq element){ | @show-dnode1[dnode;level;single][l] |
| ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$dnode.name>^;<br> | ^if(def $dnode){ |
| ^for[l](0;$level-1){ ^; ^; ^; ^;} | |
| ^if($dnode.type eq element){ | |
| <^;$dnode.name | |
| $pairs[$dnode.attributes] | |
| ^if(def $pairs){ | |
| $names[^pairs._keys[]] | |
| ^names.menu{$names.key=$pairs.[$names.key].value } | |
| } | |
| >^; | |
| }{ | |
| $dnode.name | |
| } | |
| ^if(def $dnode.value){$dnode.value}<br> | |
| ^show-dnode1[$dnode.first-child]($level+1) | |
| ^if(!$single){ | |
| ^show-dnode1[$dnode.next-sibling]($level) | |
| } | |
| ^if($dnode.type eq element){ | |
| ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$dnode.name>^;<br> | |
| } | |
| } | } |
| @show-dnodes2[people] | @show-dom2[dom] |
| ^people.string[] | ^dom.save[save.xml; |
| $.encoding[windows-1251] | |
| $.method[html] | |
| ] | |
| ^dom.save[save3.xml; | |
| $.encoding[windows-1251] | |
| $.method[xml] | |
| ] | |
| $file[^dom.file[ | |
| $.encoding[windows-1251] | |
| $.method[html] | |
| ]] | |
| ^file.save[text;save2.xml] | |
| ^taint[^dom.string[ | |
| $.encoding[windows-1251] | |
| $.method[html] | |
| ]] | |