Annotation of parser3/src/www/htdocs/index.html, revision 1.386
1.364 parser 1: @main[]
1.386 ! parser 2: ^replace[]
! 3: #^set[]
1.385 parser 4: #^hash[]<hr>
1.384 parser 5: #$t[^methresult[]] ->$t
1.382 parser 6: #^terror[]
1.378 parser 7: #^ssave[]
1.377 parser 8: #^calendar[]
1.376 parser 9: #^thash[]
1.373 parser 10: #^tdef[]
1.375 parser 11: #^ford[]
1.371 parser 12: #^tif[]
1.383 parser 13: #^image[]
1.369 parser 14: #^mail2[]
1.367 parser 15: #^cookie[]
1.365 parser 16: #^response[]
1.364 parser 17: #^regexp2[]
18: #^ttablerem[]
19: #^pcre[]
20: #^regexp[]<hr>
21: #^mail[]
22: #^exec[]
23: #^fori[]
24: #^tconnect[]
1.383 parser 25: #^xslt[]
1.366 parser 26: #^xml[]
1.364 parser 27: #^header[]
28: OK
1.386 ! parser 29:
! 30: @replace[]
! 31: $a[12^;3]
! 32: ^a.replace[^table::set{from to
! 33: 2^; !
! 34: }]
! 35:
1.385 parser 36:
37: @set[]
38: ^setdata[]
39: ^a.add[$b]
40: add:$a.3<br>
41:
42: ^setdata[]
43: ^a.sub[$b]
44: sub2:$a.2<br>
45: sub1:$a.1<br>
46:
47: ^setdata[]
48: $c[^a.union[$b]]
49: union3:$c.3<br>
50: union2:$c.2<br>
51:
52: ^setdata[]
53: $c[^a.intersection[$b]]
54: intersection3:$c.3<br>
55: intersection2:$c.2<br>
56:
57: ^setdata[]
58: intersects:^if(^a.intersects[$b]){y;n}<br>
59: intersects2:^if(^a.intersects[ ]){y;n}<br>
60:
61:
62: <hr>
63:
64: @setdata[]
65: $a[$.1[a1] $.2[a2]]
66: $b[ $.2[b2] $.3[b3]]
67:
1.383 parser 68:
1.384 parser 69: @hash[]
70: $h[^hash::create[$._default[123]]]
71: $h.paf[not kretin]
72: $h.paf<br>
73: =$h.that=<br>
74:
75: @methresult[]
76: $result[^table::set{1}]
1.377 parser 77:
1.381 parser 78: @terror[]
79: ^error[method z must be called with z]
80:
1.380 parser 81: @syntax1[]
82: #^a[^b]
83:
84: @syntax2[]
1.381 parser 85: #^a[
1.379 parser 86:
1.377 parser 87: @ssave[]
88: $abc[abc]
89: ^abc.save[abc]
1.376 parser 90:
91: @calendar[]
92: 2001;11:<br>
93: $week_days[^date:calendar[rus](2001;11)]
94: <pre>
95: ^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday; ^; ^;} }<br>}
96: </pre>
1.372 parser 97:
1.375 parser 98: @thash[]
99: $table[^table::set{id name age
100: 1 paf 278
101: 2 пиф 234
102: }]
103: $hash[^table.hash[id;^table::set[nameless]{id
104: name}]]
105: $hash.2.id $hash.2.name $hash.2.age
106:
1.372 parser 107: @tdef[]
108: $s[0]
109: if 0=^if($s){}{n}<br>
110: if def 0=^if(def $s){y}{}<br>
111: <hr>
1.371 parser 112:
113: @ford[]
1.374 parser 114: ^for[i](0;5){$i}{($i)}
1.368 parser 115:
1.370 parser 116: @tif[]
117: ^if[def]{y;n}
118:
1.368 parser 119: @image[]
120: $pict[^image::create(400;200)]
1.379 parser 121: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
122: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000)
123: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
124: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff)
125: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000)
1.368 parser 126: $response:body[^pict.gif[]]
127:
128:
1.366 parser 129:
1.369 parser 130: @mail2[]
1.367 parser 131: ^mail:send[
1.369 parser 132: $.content-type[$.value[text/plain] $.charset[windows-1251]]
133: $.from[Александр Петросян <paf@design.ru>]
1.367 parser 134: $.to[Александр Петросян <paf@design.ru>]
1.369 parser 135: $.subject[проверка]
136: $.body[проверка]
1.367 parser 137: ]
138:
1.366 parser 139: @cookie[]
1.367 parser 140: $env:HTTP_COOKIE<br>
141:
142: #$cookie:переменная[test тест ТЕСТ2]
143: =$cookie:переменная=<br>
144: #$cookie:переменная2[test тест ТЕСТ3]
145: =$cookie:переменная2=<br>
1.365 parser 146:
147: @response[]
148: #^if($form:reload){
149: $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
150: #}
1.364 parser 151:
152: @xslt[]
153: ^xdata[]
1.375 parser 154: ^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]]
1.364 parser 155:
156: @regexp2[]
157: $s[ select]
158: $s[^s.match[^^\s*][]{!}]
159: $s
160:
161: @header[]
162: $response:refresh[
163: $.value[0]
164: $.url[http://design.ru?a=^taint[123]]
165: ]
166:
167: @ttablerem[]
168: $table[^table::load[a.cfg]]
169: ^table.menu{$table.a}
170:
171: @tconnect[]
172: ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
173: $tables[^table::sql{show tables}]
174: #$cols[^tables.columns[]]
175: #$cols.column
176: ^tables.menu{
177: $tables.[Tables_in_test]<br>
178: }
179: }
180:
181: @pcre[]
182: $s[1 2]
183: ^s.match[\s;ig]{!}
184: #^s.match[\d;ig]{!}
185:
186:
187: @regexp[]
188: $s[abcАБВ]
189: ^if(^s.match[б][i]){y}{n}
190:
191: @mail[]
192: #$ORIGINS(1)
193: ^mail:send[
194: $.from[paf@design.ru]
195: $.to[paf@design.ru]
196: $.body[1
197:
198: 2
199:
200:
201: 3]
202: ]
203:
204: @exec[]
1.370 parser 205: $a[^file::exec[fc.exe;;a;b]]
1.364 parser 206: $a.status|$a.stderr<hr>
207:
208: @fori[][i]
209: ^for[i](1;3){... =$i= ...}
210:
211: @xdata[]
212: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
213: $xdoc[^xdoc::load[input.xml]]
214:
215: @xml[]
216: ^xdata[]
217:
218: ^show-xdoc2[$xdoc]<hr>
219: #^show-xnode1[$xdoc]<hr>
220: $people[^xdoc.select[*/man]]
221: #^show1[]
222: ^show-xnodes1[$people]<hr>
223: #^people.0.owner.hren[]
224:
225: ^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]<hr>
226:
227: by id:
228: ^show-xnode1[^xdoc.getElementById[1];0;1]
229: <hr>
230:
231: @show1[array]
232: ^for[i](0;^array._count[]-1){
233: $x[$array.$i]
234: $x.firstChild.nodeValue:
235: $pattributes[$x.parentNode.attributes]
236: ^if(^pattributes._count[]){
237: $pattributes.id.name=$pattributes.id.nodeValue
238: }
239: <br>
240: }
241:
242: @show-xnodes1[array][i]
243: ^for[i](0;^array._count[]-1){
244: ^show-xnode1[$array.$i;0;1]
245: }
246:
247: @show-xnode1[x;level;single][l]
248: ^if(def $x){
249: ^for[l](0;$level-1){ ^; ^; ^; ^;}
250: ^if($x.nodeType == $xnode:ELEMENT_NODE){
251: <^;$x.nodeName
252: $pairs[$x.attributes]
253: ^if(def $pairs){
254: $names[^pairs._keys[]]
255: ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
256: }
257: >^;
258: }{
259: [$x.nodeType]
260: }
261:
262: ^if(def $x.nodeValue){$x.nodeValue}<br>
263: ^show-xnode1[$x.firstChild]($level+1)
264: ^if(!$single){
265: ^show-xnode1[$x.nextSibling]($level)
266: }
267:
268: ^if($x.nodeType == $xnode:ELEMENT_NODE){
269: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;<br>
270: }
271: }
272:
273: @show-xdoc2[xdoc]
274: ^xdoc.save[save.xml;
275: # $.encoding[windows-1251]
276: $.method[xml]
277: ]
278: $file[^xdoc.file[
279: # $.encoding[windows-1251]
280: $.method[html]
281: ]]
282: ^file.save[text;save_file.html]
283: <pre>^taint[^xdoc.string[]]</pre>
284: # $.encoding[windows-1251]
285: # $.method[xml]
286: #]]
E-mail: