Annotation of parser3/src/www/htdocs/index.html, revision 1.375
1.364 parser 1: @main[]
1.375 ! parser 2: ^thash[]
1.373 parser 3: #^tdef[]
1.375 ! parser 4: #^ford[]
1.371 parser 5: #^tif[]
1.370 parser 6: #^image[]
1.369 parser 7: #^mail2[]
1.367 parser 8: #^cookie[]
1.365 parser 9: #^response[]
1.364 parser 10: #^regexp2[]
11: #^ttablerem[]
12: #^pcre[]
13: #^regexp[]<hr>
14: #^mail[]
15: #^exec[]
16: #^fori[]
17: #^tconnect[]
1.374 parser 18: #^xslt[]
1.366 parser 19: #^xml[]
1.364 parser 20: #^header[]
21: OK
1.372 parser 22:
1.375 ! parser 23: @thash[]
! 24: $table[^table::set{id name age
! 25: 1 paf 278
! 26: 2 пиф 234
! 27: }]
! 28: $hash[^table.hash[id;^table::set[nameless]{id
! 29: name}]]
! 30: $hash.2.id $hash.2.name $hash.2.age
! 31:
1.372 parser 32: @tdef[]
33: $s[0]
34: if 0=^if($s){}{n}<br>
35: if def 0=^if(def $s){y}{}<br>
36: <hr>
1.371 parser 37:
38: @ford[]
1.374 parser 39: ^for[i](0;5){$i}{($i)}
1.368 parser 40:
1.370 parser 41: @tif[]
42: ^if[def]{y;n}
43:
1.368 parser 44: @image[]
45: $pict[^image::create(400;200)]
46: ^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0x000000)
47: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-5;0x000000)
48: $response:body[^pict.gif[]]
49:
50:
1.366 parser 51:
1.369 parser 52: @mail2[]
1.367 parser 53: ^mail:send[
1.369 parser 54: $.content-type[$.value[text/plain] $.charset[windows-1251]]
55: $.from[Александр Петросян <paf@design.ru>]
1.367 parser 56: $.to[Александр Петросян <paf@design.ru>]
1.369 parser 57: $.subject[проверка]
58: $.body[проверка]
1.367 parser 59: ]
60:
1.366 parser 61: @cookie[]
1.367 parser 62: $env:HTTP_COOKIE<br>
63:
64: #$cookie:переменная[test тест ТЕСТ2]
65: =$cookie:переменная=<br>
66: #$cookie:переменная2[test тест ТЕСТ3]
67: =$cookie:переменная2=<br>
1.365 parser 68:
69: @response[]
70: #^if($form:reload){
71: $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
72: #}
1.364 parser 73:
74: @xslt[]
75: ^xdata[]
1.375 ! parser 76: ^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]]
1.364 parser 77:
78: @regexp2[]
79: $s[ select]
80: $s[^s.match[^^\s*][]{!}]
81: $s
82:
83: @header[]
84: $response:refresh[
85: $.value[0]
86: $.url[http://design.ru?a=^taint[123]]
87: ]
88:
89: @ttablerem[]
90: $table[^table::load[a.cfg]]
91: ^table.menu{$table.a}
92:
93: @tconnect[]
94: ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
95: $tables[^table::sql{show tables}]
96: #$cols[^tables.columns[]]
97: #$cols.column
98: ^tables.menu{
99: $tables.[Tables_in_test]<br>
100: }
101: }
102:
103: @pcre[]
104: $s[1 2]
105: ^s.match[\s;ig]{!}
106: #^s.match[\d;ig]{!}
107:
108:
109: @regexp[]
110: $s[abcАБВ]
111: ^if(^s.match[б][i]){y}{n}
112:
113: @mail[]
114: #$ORIGINS(1)
115: ^mail:send[
116: $.from[paf@design.ru]
117: $.to[paf@design.ru]
118: $.body[1
119:
120: 2
121:
122:
123: 3]
124: ]
125:
126: @exec[]
1.370 parser 127: $a[^file::exec[fc.exe;;a;b]]
1.364 parser 128: $a.status|$a.stderr<hr>
129:
130: @fori[][i]
131: ^for[i](1;3){... =$i= ...}
132:
133: @xdata[]
134: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
135: $xdoc[^xdoc::load[input.xml]]
136:
137: @xml[]
138: ^xdata[]
139:
140: ^show-xdoc2[$xdoc]<hr>
141: #^show-xnode1[$xdoc]<hr>
142: $people[^xdoc.select[*/man]]
143: #^show1[]
144: ^show-xnodes1[$people]<hr>
145: #^people.0.owner.hren[]
146:
147: ^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]<hr>
148:
149: by id:
150: ^show-xnode1[^xdoc.getElementById[1];0;1]
151: <hr>
152:
153: @show1[array]
154: ^for[i](0;^array._count[]-1){
155: $x[$array.$i]
156: $x.firstChild.nodeValue:
157: $pattributes[$x.parentNode.attributes]
158: ^if(^pattributes._count[]){
159: $pattributes.id.name=$pattributes.id.nodeValue
160: }
161: <br>
162: }
163:
164: @show-xnodes1[array][i]
165: ^for[i](0;^array._count[]-1){
166: ^show-xnode1[$array.$i;0;1]
167: }
168:
169: @show-xnode1[x;level;single][l]
170: ^if(def $x){
171: ^for[l](0;$level-1){ ^; ^; ^; ^;}
172: ^if($x.nodeType == $xnode:ELEMENT_NODE){
173: <^;$x.nodeName
174: $pairs[$x.attributes]
175: ^if(def $pairs){
176: $names[^pairs._keys[]]
177: ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
178: }
179: >^;
180: }{
181: [$x.nodeType]
182: }
183:
184: ^if(def $x.nodeValue){$x.nodeValue}<br>
185: ^show-xnode1[$x.firstChild]($level+1)
186: ^if(!$single){
187: ^show-xnode1[$x.nextSibling]($level)
188: }
189:
190: ^if($x.nodeType == $xnode:ELEMENT_NODE){
191: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;<br>
192: }
193: }
194:
195: @show-xdoc2[xdoc]
196: ^xdoc.save[save.xml;
197: # $.encoding[windows-1251]
198: $.method[xml]
199: ]
200: $file[^xdoc.file[
201: # $.encoding[windows-1251]
202: $.method[html]
203: ]]
204: ^file.save[text;save_file.html]
205: <pre>^taint[^xdoc.string[]]</pre>
206: # $.encoding[windows-1251]
207: # $.method[xml]
208: #]]
E-mail: