|
|
| version 1.310, 2001/09/11 09:26:44 | version 1.321, 2001/09/20 10:28:54 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^testdom4[] | ^xslt[] |
| #^testdom3[] | |
| #^testdom2[] | |
| #^testdom1[] | |
| #^testdom0[] | |
| OK | OK |
| @testdom4[] | @xslt[] |
| $dom[^dom::set{<?xml version="1.0" encoding="windows-1251"?> | $dom[^dom::set{<?xml version="1.0" encoding="windows-1251"?> |
| <doc>testing ïðîâåðêà ÏÐÎÂÅÐÊÀ. ^$form:a='$form:a'</doc> | <people> |
| <man id="1"> | |
| <name>PAF</name> | |
| </man> | |
| <man id="2"> | |
| <name>ÏÈÔ</name> | |
| </man> | |
| </people> | |
| }] | }] |
| $response:body[^dom.file[$.encoding[windows-1251]]] | |
| @testdom3[] | |
| $dom[^dom::load[test.xml]] | |
| $dom[^dom.xslt[test.xsl;$.param1(48)]] | |
| $dom[^dom.xslt[test.xsl;$.param1(48)]] | |
| @testdom2[] | |
| $dom[^dom::load[test.xml]] | |
| #^dom.save[$.encoding[windows-1251];write.xml] | |
| #^dom.save[;write.xml] | |
| ^dom.save[$.encoding[windows-1251] $.method[xml];write.xml] | |
| ^dom.save[$.encoding[windows-1251] $.method[html];write.html] | |
| ^dom.save[$.encoding[windows-1251] $.method[text];write.txt] | |
| @testdom1[] | |
| $dom[^dom::load[test.xml]] | |
| $dom[^dom.xslt[test.xsl;$.param1(48)]] | |
| $response:body[^dom.file[$.encoding[windows-1251]]] | |
| @testdom0[] | |
| $dom[^dom::load[test.xml]] | |
| ^dom.save[$.encoding[windows-1251];write.xml] | |
| ^dom.string[$.encoding[windows-1251]] | |
| $ôàéë[^dom.file[$.encoding[windows-1251]]] | |
| ^ôàéë.save[binary;writefile.xml] | |
| $response:body[$ôàéë] | |
| OK | |
| ^show-dom2[$dom]<hr> | |
| #^show-dnode1[$dom]<hr> | |
| $people[^dom.select[*/man]] | |
| #^show1[] | |
| ^show-dnodes1[$people]<hr> | |
| #^people.0.owner.hren[] | |
| ^show-dnode1[^dom.select-single[*/man[2]/name];0;1]<hr> | |
| @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 | |
| } | |
| <br> | |
| } | |
| <hr> | |
| @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}<br> | |
| ^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>^;<br> | |
| } | |
| } | |
| @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] | |
| ]] | |