Annotation of parser3/src/www/htdocs/index.html, revision 1.337
1.312 parser 1: @main[]
1.334 parser 2: #^exec[]
1.333 parser 3: #^fori[]
1.329 parser 4: #^connect[mysql://hren]{^void:sql{nothing}}
1.337 ! parser 5: $response:content-type[$.value[text/html] $.charset[windows-125odin]]
1.333 parser 6: ^xslt[]
1.314 parser 7: OK
1.332 parser 8:
1.334 parser 9: @exec[]
10: $a[^file::exec[fc.exe;a;b]]
11: $a.status|$a.stderr<hr>
12:
1.332 parser 13: @fori[][i]
14: ^for[i](1;3){... =$i= ...}
1.307 parser 15:
1.312 parser 16: @xslt[]
1.331 parser 17: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
1.335 parser 18: <!DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd">
1.312 parser 19:
20: <people>
1.333 parser 21: <man id="1">
1.336 parser 22: <name>P«^;AF</name>
1.312 parser 23: </man>
24: <man id="2">
25: <name>دبش</name>
26: </man>
27: </people>
28: }]
29:
1.331 parser 30: ^show-xdoc2[$xdoc]<hr>
31: #^show-xnode1[$xdoc]<hr>
32: $people[^xdoc.select[*/man]]
1.319 parser 33: #^show1[]
1.331 parser 34: ^show-xnodes1[$people]<hr>
1.316 parser 35: #^people.0.owner.hren[]
1.312 parser 36:
1.331 parser 37: ^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]<hr>
1.318 parser 38:
1.334 parser 39: by id:
1.335 parser 40: ^show-xnode1[^xdoc.getElementById[1];0;1]
1.334 parser 41: <hr>
42:
43: @show1[array]
44: ^for[i](0;^array._count[]-1){
45: $x[$array.$i]
1.333 parser 46: $x.firstChild.nodeValue:
47: $pattributes[$x.parentNode.attributes]
1.314 parser 48: ^if(^pattributes._count[]){
1.333 parser 49: $pattributes.id.name=$pattributes.id.nodeValue
1.314 parser 50: }
51: <br>
1.312 parser 52: }
1.318 parser 53:
1.331 parser 54: @show-xnodes1[array][i]
1.315 parser 55: ^for[i](0;^array._count[]-1){
1.331 parser 56: ^show-xnode1[$array.$i;0;1]
1.314 parser 57: }
58:
1.333 parser 59: @show-xnode1[x;level;single][l]
60: ^if(def $x){
1.318 parser 61: ^for[l](0;$level-1){ ^; ^; ^; ^;}
1.333 parser 62: ^if($x.nodeType == $xnode:ELEMENT_NODE){
63: <^;$x.nodeName
64: $pairs[$x.attributes]
1.318 parser 65: ^if(def $pairs){
66: $names[^pairs._keys[]]
1.333 parser 67: ^names.menu{$names.key=$pairs.[$names.key].nodeValue }
1.318 parser 68: }
69: >^;
70: }{
1.333 parser 71: [$x.nodeType]
1.318 parser 72: }
73:
1.333 parser 74: ^if(def $x.nodeValue){$x.nodeValue}<br>
75: ^show-xnode1[$x.firstChild]($level+1)
1.318 parser 76: ^if(!$single){
1.333 parser 77: ^show-xnode1[$x.nextSibling]($level)
1.318 parser 78: }
79:
1.333 parser 80: ^if($x.nodeType == $xnode:ELEMENT_NODE){
81: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;<br>
1.318 parser 82: }
1.315 parser 83: }
1.320 parser 84:
1.331 parser 85: @show-xdoc2[xdoc]
86: ^xdoc.save[save.xml;
1.326 parser 87: # $.encoding[windows-1251]
1.321 parser 88: $.method[xml]
89: ]
1.331 parser 90: $file[^xdoc.file[
1.326 parser 91: # $.encoding[windows-1251]
1.321 parser 92: $.method[html]
93: ]]
1.322 parser 94: ^file.save[text;save_file.html]
1.337 ! parser 95: taint[^xdoc.string[]]
1.326 parser 96: # $.encoding[windows-1251]
1.328 parser 97: # $.method[xml]
1.337 ! parser 98: ]]
E-mail: