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