--- parser3/src/www/htdocs/Attic/index.html 2001/09/13 12:40:03 1.311 +++ parser3/src/www/htdocs/Attic/index.html 2001/09/27 07:54:58 1.335 @@ -1,3 +1,98 @@ - +@main[] +#^exec[] +#^fori[] +#^connect[mysql://hren]{^void:sql{nothing}} +#$response:content-type[$.value[text/html] $.charset[utf-8]] +^xslt[] +OK -testing ïðîâåðêà ÏÐÎÂÅÐÊÀ. ^$form:a='$form:a' +@exec[] +$a[^file::exec[fc.exe;a;b]] +$a.status|$a.stderr
+ +@fori[][i] +^for[i](1;3){... =$i= ...} + +@xslt[] +$xdoc[^xdoc::set{ + + + + + PAF + + + ÏÈÔ + + +}] + +^show-xdoc2[$xdoc]
+#^show-xnode1[$xdoc]
+$people[^xdoc.select[*/man]] +#^show1[] +^show-xnodes1[$people]
+#^people.0.owner.hren[] + +^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]
+ +by id: +^show-xnode1[^xdoc.getElementById[1];0;1] +
+ +@show1[array] +^for[i](0;^array._count[]-1){ + $x[$array.$i] + $x.firstChild.nodeValue: + $pattributes[$x.parentNode.attributes] + ^if(^pattributes._count[]){ + $pattributes.id.name=$pattributes.id.nodeValue + } +
+} + +@show-xnodes1[array][i] +^for[i](0;^array._count[]-1){ + ^show-xnode1[$array.$i;0;1] +} + +@show-xnode1[x;level;single][l] +^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>^;
+ } +} + +@show-xdoc2[xdoc] +^xdoc.save[save.xml; +# $.encoding[windows-1251] + $.method[xml] +] +$file[^xdoc.file[ +# $.encoding[windows-1251] + $.method[html] +]] +^file.save[text;save_file.html] +^taint[^xdoc.string[]] +# $.encoding[windows-1251] +# $.method[xml] +#]]