|
|
| version 1.316, 2001/09/18 15:31:09 | version 1.318, 2001/09/20 07:31:51 |
|---|---|
| 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-dnode1[$dom]<hr> |
| $people[^dom.xpath[*/man[@id=1]]] | #^show-dnode2[$dom]<hr> |
| #^show1[] | $people[^dom.select[*/man/name]] |
| ^show-dnodes[$people]<hr> | ^show1[] |
| #^show-dnodes2[$people]<hr> | |
| #^people.0.owner.hren[] | #^people.0.owner.hren[] |
| $man[^dom.select-single[*/man]] | |
| ^show-dnode1[$man;0;1] | |
| <hr> | |
| @show1[] | @show1[] |
| ^for[i](0;^people._count[]-1){ | ^for[i](0;^people._count[]-1){ |
| $node[$people.$i] | $node[$people.$i] |
| Line 31 $people[^dom.xpath[*/man[@id=1]]] | Line 36 $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] |
| } | |
| @show-dnode1[dnode;level;single][l] | |
| ^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.type] | |
| } | |
| ^if(def $dnode.value){$dnode.value}<br> | |
| ^if(!$single){ | |
| ^show-dnode1[$dnode.first-child]($level+1) | |
| ^show-dnode1[$dnode.next-sibling]($level) | |
| } | |
| ^if($dnode.type eq element){ | |
| ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$dnode.name>^;<br> | |
| } | |
| } | } |
| @show-dnode[dnode;level] | @show-dnodes2[array][i] |
| $level | ^for[i](0;^array._count[]-1){ |
| ^if($dnode.type eq element){ | ^show-dnode2[$array.$i] |
| <^;$dnode.name | |
| $pairs[$dnode.attributes] | |
| ^if(def $pairs){ | |
| $names[^pairs._keys[]] | |
| ^names.menu{$names.key=$pairs.[$names.key].value } | |
| } | } |
| >^; | <hr> |
| }{[$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-dnode2[dnode] |
| $level<^;/$dnode.name>^;<br> | ^if(def $dnode){ |
| ^taint[^dnode.string[ | |
| $.method[html] | |
| $.encoding[windows-1251] | |
| ]] | |
| ; | |
| no dnode here | |
| } | } |
| <hr> |