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