Annotation of parser3/src/www/htdocs/index.html, revision 1.321
1.312 parser 1: @main[]
2: ^xslt[]
1.314 parser 3: OK
1.307 parser 4:
1.312 parser 5: @xslt[]
6: $dom[^dom::set{<?xml version="1.0" encoding="windows-1251"?>
7:
8: <people>
9: <man id="1">
10: <name>PAF</name>
11: </man>
12: <man id="2">
13: <name>دبش</name>
14: </man>
15: </people>
16: }]
17:
1.320 parser 18: ^show-dom2[$dom]<hr>
1.318 parser 19: #^show-dnode1[$dom]<hr>
1.319 parser 20: $people[^dom.select[*/man]]
21: #^show1[]
22: ^show-dnodes1[$people]<hr>
1.316 parser 23: #^people.0.owner.hren[]
1.312 parser 24:
1.320 parser 25: ^show-dnode1[^dom.select-single[*/man[2]/name];0;1]<hr>
1.318 parser 26:
1.314 parser 27: @show1[]
1.312 parser 28: ^for[i](0;^people._count[]-1){
1.314 parser 29: $node[$people.$i]
30: $node.first-child.value:
31: $pattributes[$node.parent.attributes]
32: ^if(^pattributes._count[]){
33: $pattributes.id.name=$pattributes.id.value
34: }
35: <br>
1.312 parser 36: }
1.318 parser 37: <hr>
38:
39: @show-dnodes1[array][i]
1.315 parser 40: ^for[i](0;^array._count[]-1){
1.319 parser 41: ^show-dnode1[$array.$i;0;1]
1.314 parser 42: }
43:
1.318 parser 44: @show-dnode1[dnode;level;single][l]
45: ^if(def $dnode){
46: ^for[l](0;$level-1){ ^; ^; ^; ^;}
47: ^if($dnode.type eq element){
48: <^;$dnode.name
49: $pairs[$dnode.attributes]
50: ^if(def $pairs){
51: $names[^pairs._keys[]]
52: ^names.menu{$names.key=$pairs.[$names.key].value }
53: }
54: >^;
55: }{
1.319 parser 56: $dnode.name
1.318 parser 57: }
58:
59: ^if(def $dnode.value){$dnode.value}<br>
1.319 parser 60: ^show-dnode1[$dnode.first-child]($level+1)
1.318 parser 61: ^if(!$single){
62: ^show-dnode1[$dnode.next-sibling]($level)
63: }
64:
65: ^if($dnode.type eq element){
66: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$dnode.name>^;<br>
67: }
1.315 parser 68: }
1.320 parser 69:
70: @show-dom2[dom]
71: ^dom.save[save.xml;
72: $.encoding[windows-1251]
73: $.method[html]
74: ]
1.321 ! parser 75: ^dom.save[save3.xml;
! 76: $.encoding[windows-1251]
! 77: $.method[xml]
! 78: ]
! 79: $file[^dom.file[
! 80: $.encoding[windows-1251]
! 81: $.method[html]
! 82: ]]
1.320 parser 83: ^file.save[text;save2.xml]
84: ^taint[^dom.string[
85: $.encoding[windows-1251]
86: $.method[html]
87: ]]
E-mail: