--- parser3/src/www/htdocs/Attic/index.html 2001/07/25 10:12:13 1.237 +++ parser3/src/www/htdocs/Attic/index.html 2001/09/20 10:28:54 1.321 @@ -1,18 +1,87 @@ @main[] -$n[] -=^n.match[sdf][]{123}= -
+^xslt[] +OK -=$3= -
+@xslt[] +$dom[^dom::set{ -$строка[123] -^строка.match[(.);g]{($match.1)} -
-$a{ - $b[1] + + + PAF + + + ╧╚╘ + + +}] + +^show-dom2[$dom]
+#^show-dnode1[$dom]
+$people[^dom.select[*/man]] +#^show1[] +^show-dnodes1[$people]
+#^people.0.owner.hren[] + +^show-dnode1[^dom.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] + ^if(^pattributes._count[]){ + $pattributes.id.name=$pattributes.id.value + } +
} -^$b=$b
-^$a!$a
-^$b=$b

+ +@show-dnodes1[array][i] +^for[i](0;^array._count[]-1){ + ^show-dnode1[$array.$i;0;1] +} + +@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.name + } + + ^if(def $dnode.value){$dnode.value}
+ ^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>^;
+ } +} + +@show-dom2[dom] +^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] +]] \ No newline at end of file