P«^;AF B
secret
@@ -57,19 +57,15 @@ $man1[^xdoc.selectSingle[/people/man[@id
$name2[^xdoc.selectSingle[/people/man[@id=1]/name]]
/people/man[@id=1]/name ^if(^name2.hasAttributes[]){has;hasn't} attributes
-
-
@dump[sTitle;xdoc]
^if(def $sTitle){$sTitle
}
^show_xdoc2[$xdoc]
^show_xnode1[$xdoc]
-
-
@show1[array][i;x;pattributes]
^for[i](0;$array-1){
- $x[$array.$i]
+ $x[$array.$i]
$x.firstChild.nodeValue:
$pattributes[$x.parentNode.attributes]
^if(^pattributes._count[]){
@@ -78,43 +74,37 @@ $name2[^xdoc.selectSingle[/people/man[@i
}
-
-
@show_xnodes1[array][i]
^for[i](0;^array._count[]-1){
^show_xnode1[$array.$i;0;1]
}
-
-
@show_xnode1[x;level;single][l;pairs;names]
^if(def $x){
- ^for[l](0;$level-1){ ^; ^; ^; ^;}
- ^if($x.nodeType == $xnode:ELEMENT_NODE){
- <^;$x.nodeName
- $pairs[$x.attributes]
- ^if(def $pairs){
- $names[^pairs._keys[]]
- ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
- }
- >^;
- }{
- [$x.nodeType]
- }
-
- ^if(def $x.nodeValue){$x.nodeValue}
- ^show_xnode1[$x.firstChild]($level+1)
- ^if(!$single){
- ^show_xnode1[$x.nextSibling]($level)
- }
-
- ^if($x.nodeType == $xnode:ELEMENT_NODE){
- ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;
- }
+ ^for[l](0;$level-1){ ^; ^; ^; ^;}
+ ^if($x.nodeType == $xnode:ELEMENT_NODE){
+ <^;$x.nodeName
+ $pairs[$x.attributes]
+ ^if(def $pairs){
+ $names[^pairs._keys[]]
+ ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
+ }
+ >^;
+ }{
+ [$x.nodeType]
+ }
+
+ ^if(def $x.nodeValue){$x.nodeValue}
+ ^show_xnode1[$x.firstChild]($level+1)
+ ^if(!$single){
+ ^show_xnode1[$x.nextSibling]($level)
+ }
+
+ ^if($x.nodeType == $xnode:ELEMENT_NODE){
+ ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;
+ }
}
-
-
@show_xdoc2[xdoc]
#$response:body[^xdoc.file[ $.media-type[text/paf] ]]
^taint[html][^xdoc.string[