--- parser3/src/www/htdocs/Attic/index.html 2001/09/21 09:03:10 1.327 +++ parser3/src/www/htdocs/Attic/index.html 2001/09/26 15:43:59 1.333 @@ -1,10 +1,15 @@ @main[] -$response:content-type[$.value[text/html] $.charset[windows-1251]] +#^fori[] +#^connect[mysql://hren]{^void:sql{nothing}} +#$response:content-type[$.value[text/html] $.charset[utf-8]] ^xslt[] OK +@fori[][i] +^for[i](1;3){... =$i= ...} + @xslt[] -$dom[^dom::set{ +$xdoc[^xdoc::set{ @@ -16,69 +21,69 @@ $dom[^dom::set{ }] -^show-dom2[$dom]
-#^show-dnode1[$dom]
-$people[^dom.select[*/man]] +^show-xdoc2[$xdoc]
+#^show-xnode1[$xdoc]
+$people[^xdoc.select[*/man]] #^show1[] -^show-dnodes1[$people]
+^show-xnodes1[$people]
#^people.0.owner.hren[] -^show-dnode1[^dom.select-single[*/man[2]/name];0;1]
+^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]
@show1[] ^for[i](0;^people._count[]-1){ - $node[$people.$i] - $node.first-child.value: - $pattributes[$node.parent.attributes] + $x[$people.$i] + $x.firstChild.nodeValue: + $pattributes[$x.parentNode.attributes] ^if(^pattributes._count[]){ - $pattributes.id.name=$pattributes.id.value + $pattributes.id.name=$pattributes.id.nodeValue }
}
-@show-dnodes1[array][i] +@show-xnodes1[array][i] ^for[i](0;^array._count[]-1){ - ^show-dnode1[$array.$i;0;1] + ^show-xnode1[$array.$i;0;1] } -@show-dnode1[dnode;level;single][l] -^if(def $dnode){ +@show-xnode1[x;level;single][l] +^if(def $x){ ^for[l](0;$level-1){ ^; ^; ^; ^;} - ^if($dnode.type eq element){ - <^;$dnode.name - $pairs[$dnode.attributes] + ^if($x.nodeType == $xnode:ELEMENT_NODE){ + <^;$x.nodeName + $pairs[$x.attributes] ^if(def $pairs){ $names[^pairs._keys[]] - ^names.menu{$names.key=$pairs.[$names.key].value } + ^names.menu{$names.key=$pairs.[$names.key].nodeValue } } >^; }{ - $dnode.name + [$x.nodeType] } - ^if(def $dnode.value){$dnode.value}
- ^show-dnode1[$dnode.first-child]($level+1) + ^if(def $x.nodeValue){$x.nodeValue}
+ ^show-xnode1[$x.firstChild]($level+1) ^if(!$single){ - ^show-dnode1[$dnode.next-sibling]($level) + ^show-xnode1[$x.nextSibling]($level) } - ^if($dnode.type eq element){ - ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$dnode.name>^;
+ ^if($x.nodeType == $xnode:ELEMENT_NODE){ + ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;
} } -@show-dom2[dom] -^dom.save[save.xml; +@show-xdoc2[xdoc] +^xdoc.save[save.xml; # $.encoding[windows-1251] $.method[xml] ] -$file[^dom.file[ +$file[^xdoc.file[ # $.encoding[windows-1251] $.method[html] ]] ^file.save[text;save_file.html] -^taint[^dom.string[ +^taint[^xdoc.string[]] # $.encoding[windows-1251] - $.method[xml] -]] \ No newline at end of file +# $.method[xml] +#]]