Annotation of parser3/src/www/htdocs/index.html, revision 1.417
1.399 parser 1: @main[]
1.417 ! parser 2: #^formclass[]
1.415 parser 3: #^hren[]
1.416 parser 4: ^domedit[]
5: ^domxslt[]
1.402 parser 6: #^lsplit2[]
1.401 parser 7: #^faceesize[]
1.400 parser 8: #^imageresize[]
1.399 parser 9: #^ifassignhash[]
10: #^tintdefault[]
11: #$response:status[404]
1.390 parser 12: #^ifpasshash[]
1.387 parser 13: #^movedir[]
14: #^replace[]
1.416 parser 15: #^set[]
1.385 parser 16: #^hash[]<hr>
1.384 parser 17: #$t[^methresult[]] ->$t
1.382 parser 18: #^terror[]
1.378 parser 19: #^ssave[]
1.377 parser 20: #^calendar[]
1.376 parser 21: #^thash[]
1.373 parser 22: #^tdef[]
1.375 parser 23: #^ford[]
1.371 parser 24: #^tif[]
1.383 parser 25: #^image[]
1.369 parser 26: #^mail2[]
1.413 parser 27: #^cookie[]
1.365 parser 28: #^response[]
1.364 parser 29: #^regexp2[]
30: #^ttablerem[]
31: #^pcre[]
32: #^regexp[]<hr>
33: #^mail[]
34: #^exec[]
35: #^fori[]
36: #^tconnect[]
1.406 parser 37: #^xslt[]
1.395 parser 38: #^xml[]
1.364 parser 39: #^header[]
40: OK
1.402 parser 41:
1.417 ! parser 42: @formclass[]
! 43: ^$form:CLASS.a=$form:CLASS.a
! 44:
1.406 parser 45: @domdata[]
1.417 ! parser 46: ^hren[]
1.408 parser 47: $xdoc[^xdoc::create[doc]]
48: $doc[$xdoc.documentElement]
49: $name[^doc.appendChild[^xdoc.createElement[name]]]
1.405 parser 50: $text[^name.appendChild[^xdoc.createTextNode[петросян petrosian]]]
1.406 parser 51:
52: @domedit[]
53: ^domdata[]
1.404 parser 54: #$paf.nodeName<br>
55: #$doc.documentElement.nodeName<br>
56:
1.406 parser 57: ^show-xnode1[$xdoc.documentElement;0;1]
58: <hr>
59: ^show-xdoc2[$xdoc]
1.411 parser 60: <hr>
1.406 parser 61:
62: @domxslt[]
63: ^domdata[]
1.405 parser 64: ^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]]
1.411 parser 65: <hr>
1.401 parser 66:
67: @lsplit2[]
68: $path[/optics/]
69: $pathTable[^path.lsplit[/]]
70: ^pathTable.menu{
71: ^if(def $pathTable.piece){
72: =$pathTable.piece=
73: }
74: }
75:
1.395 parser 76:
1.397 parser 77: @faceesize[]
78: $k(2)
79: $pict[^image::load[paf.gif]]
80: $small[^image::create($pict.width/$k;$pict.height/$k)]
1.398 parser 81: ^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;250)
1.397 parser 82: $response:body[^small.gif[]]
83:
1.395 parser 84: @imageresize[]
85: $k(2)
86: $pict[^image::create(400*$k;200*$k)]
87: $pict.line-width(2)
88: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
1.397 parser 89: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-20;$pict.height-20;0+20;360-20;0xff0000)
1.395 parser 90: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
1.397 parser 91: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-20;0x0000ff)
92: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+20;360-20;0xff0000)
1.395 parser 93: #$response:body[^pict.gif[]]
94:
95: $small[^image::create($pict.width/$k;$pict.height/$k)]
1.396 parser 96: #^small.copy[$pict](0;0;$pict.width;$pict.height;0;0)
1.398 parser 97: ^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;0)
1.395 parser 98:
99: $response:body[^small.gif[]]
100:
1.388 parser 101:
102: @tintdefault[]
103: #$abc[abc]
104: $abc[33]
105: ^abc.int[z]
106: #^abc.int(123)
1.390 parser 107:
108: @ifassignhash[]
109: $h[^if(1){$.a(1);$.a(2)}]
110: $h.a
1.387 parser 111:
112: @ifpasshash[]
113: $a[$.e[a]]
114: $b[$.e[b]]
1.389 parser 115: ^ifpasshashdest[^if(1){$a;$b}]
1.387 parser 116: #$x[^if(1){$a}{$b}]
117: #^ifpasshashdest[$x]
118:
119: @ifpasshashdest[p]
120: $p.e
121:
122: @movedir[]
123: ^file:move[a;deeper/a]
1.386 parser 124:
125: @replace[]
126: $a[12^;3]
127: ^a.replace[^table::set{from to
128: 2^; !
129: }]
130:
1.385 parser 131:
132: @set[]
133: ^setdata[]
134: ^a.add[$b]
135: add:$a.3<br>
136:
137: ^setdata[]
138: ^a.sub[$b]
139: sub2:$a.2<br>
140: sub1:$a.1<br>
141:
142: ^setdata[]
143: $c[^a.union[$b]]
144: union3:$c.3<br>
145: union2:$c.2<br>
146:
147: ^setdata[]
148: $c[^a.intersection[$b]]
149: intersection3:$c.3<br>
150: intersection2:$c.2<br>
151:
152: ^setdata[]
153: intersects:^if(^a.intersects[$b]){y;n}<br>
154: intersects2:^if(^a.intersects[ ]){y;n}<br>
155:
156:
157: <hr>
158:
159: @setdata[]
160: $a[$.1[a1] $.2[a2]]
161: $b[ $.2[b2] $.3[b3]]
162:
1.383 parser 163:
1.384 parser 164: @hash[]
165: $h[^hash::create[$._default[123]]]
166: $h.paf[not kretin]
167: $h.paf<br>
168: =$h.that=<br>
169:
170: @methresult[]
171: $result[^table::set{1}]
1.377 parser 172:
1.381 parser 173: @terror[]
174: ^error[method z must be called with z]
175:
1.380 parser 176: @syntax1[]
177: #^a[^b]
178:
179: @syntax2[]
1.381 parser 180: #^a[
1.379 parser 181:
1.377 parser 182: @ssave[]
183: $abc[abc]
184: ^abc.save[abc]
1.376 parser 185:
186: @calendar[]
187: 2001;11:<br>
188: $week_days[^date:calendar[rus](2001;11)]
189: <pre>
190: ^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday; ^; ^;} }<br>}
191: </pre>
1.372 parser 192:
1.375 parser 193: @thash[]
194: $table[^table::set{id name age
195: 1 paf 278
196: 2 пиф 234
197: }]
198: $hash[^table.hash[id;^table::set[nameless]{id
199: name}]]
200: $hash.2.id $hash.2.name $hash.2.age
201:
1.372 parser 202: @tdef[]
203: $s[0]
204: if 0=^if($s){}{n}<br>
205: if def 0=^if(def $s){y}{}<br>
206: <hr>
1.371 parser 207:
208: @ford[]
1.374 parser 209: ^for[i](0;5){$i}{($i)}
1.368 parser 210:
1.370 parser 211: @tif[]
212: ^if[def]{y;n}
213:
1.368 parser 214: @image[]
215: $pict[^image::create(400;200)]
1.379 parser 216: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
217: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000)
218: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
219: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff)
220: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000)
1.368 parser 221: $response:body[^pict.gif[]]
222:
223:
1.366 parser 224:
1.369 parser 225: @mail2[]
1.367 parser 226: ^mail:send[
1.369 parser 227: $.content-type[$.value[text/plain] $.charset[windows-1251]]
228: $.from[Александр Петросян <paf@design.ru>]
1.367 parser 229: $.to[Александр Петросян <paf@design.ru>]
1.369 parser 230: $.subject[проверка]
231: $.body[проверка]
1.367 parser 232: ]
233:
1.366 parser 234: @cookie[]
1.367 parser 235: $env:HTTP_COOKIE<br>
236:
237: #$cookie:переменная[test тест ТЕСТ2]
238: =$cookie:переменная=<br>
239: #$cookie:переменная2[test тест ТЕСТ3]
240: =$cookie:переменная2=<br>
1.412 parser 241: =$cookie:CLASS.переменная2=<br>
1.365 parser 242:
243: @response[]
244: #^if($form:reload){
245: $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
246: #}
1.364 parser 247:
248: @xslt[]
249: ^xdata[]
1.407 parser 250: $transformed[^xdoc.transform[global.xsl;$.param1[123/]]]
251: ^show-xdoc2[$transformed]
1.364 parser 252:
253: @regexp2[]
254: $s[ select]
255: $s[^s.match[^^\s*][]{!}]
256: $s
257:
258: @header[]
259: $response:refresh[
260: $.value[0]
261: $.url[http://design.ru?a=^taint[123]]
262: ]
263:
264: @ttablerem[]
265: $table[^table::load[a.cfg]]
266: ^table.menu{$table.a}
267:
268: @tconnect[]
269: ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
270: $tables[^table::sql{show tables}]
271: #$cols[^tables.columns[]]
272: #$cols.column
273: ^tables.menu{
274: $tables.[Tables_in_test]<br>
275: }
276: }
277:
278: @pcre[]
279: $s[1 2]
280: ^s.match[\s;ig]{!}
281: #^s.match[\d;ig]{!}
282:
283:
284: @regexp[]
285: $s[abcАБВ]
286: ^if(^s.match[б][i]){y}{n}
287:
288: @mail[]
289: #$ORIGINS(1)
290: ^mail:send[
291: $.from[paf@design.ru]
292: $.to[paf@design.ru]
293: $.body[1
294:
295: 2
296:
297:
298: 3]
299: ]
300:
301: @exec[]
1.370 parser 302: $a[^file::exec[fc.exe;;a;b]]
1.364 parser 303: $a.status|$a.stderr<hr>
304:
305: @fori[][i]
306: ^for[i](1;3){... =$i= ...}
307:
308: @xdata[]
309: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
310: $xdoc[^xdoc::load[input.xml]]
311:
312: @xml[]
313: ^xdata[]
314:
315: ^show-xdoc2[$xdoc]<hr>
316: #^show-xnode1[$xdoc]<hr>
317: $people[^xdoc.select[*/man]]
318: #^show1[]
319: ^show-xnodes1[$people]<hr>
320: #^people.0.owner.hren[]
321:
1.393 parser 322: ^show-xnode1[^xdoc.selectSingle[*/man[2]/name];0;1]<hr>
1.364 parser 323:
324: by id:
325: ^show-xnode1[^xdoc.getElementById[1];0;1]
326: <hr>
327:
328: @show1[array]
329: ^for[i](0;^array._count[]-1){
330: $x[$array.$i]
331: $x.firstChild.nodeValue:
332: $pattributes[$x.parentNode.attributes]
333: ^if(^pattributes._count[]){
334: $pattributes.id.name=$pattributes.id.nodeValue
335: }
336: <br>
337: }
338:
339: @show-xnodes1[array][i]
340: ^for[i](0;^array._count[]-1){
341: ^show-xnode1[$array.$i;0;1]
342: }
343:
344: @show-xnode1[x;level;single][l]
345: ^if(def $x){
346: ^for[l](0;$level-1){ ^; ^; ^; ^;}
347: ^if($x.nodeType == $xnode:ELEMENT_NODE){
348: <^;$x.nodeName
349: $pairs[$x.attributes]
350: ^if(def $pairs){
351: $names[^pairs._keys[]]
352: ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
353: }
354: >^;
355: }{
356: [$x.nodeType]
357: }
358:
359: ^if(def $x.nodeValue){$x.nodeValue}<br>
360: ^show-xnode1[$x.firstChild]($level+1)
361: ^if(!$single){
362: ^show-xnode1[$x.nextSibling]($level)
363: }
364:
365: ^if($x.nodeType == $xnode:ELEMENT_NODE){
366: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;<br>
367: }
368: }
369:
370: @show-xdoc2[xdoc]
371: ^xdoc.save[save.xml;
372: # $.encoding[windows-1251]
373: $.method[xml]
374: ]
375: $file[^xdoc.file[
376: # $.encoding[windows-1251]
377: $.method[html]
378: ]]
379: ^file.save[text;save_file.html]
1.413 parser 380: <pre>^taint[^xdoc.string[]]
1.364 parser 381: # $.encoding[windows-1251]
1.413 parser 382: # $.method[html]
1.364 parser 383: #]]
1.413 parser 384: </pre>
1.417 ! parser 385:
! 386: @exception[origin;source;comment;type;code;stack]
! 387: <title>CGIBIN_ERROR</title>
! 388: <body zbgcolor=white>
! 389: <font color=black>
! 390: ^if(def $source){$origin<br>
! 391: <pre>$source</pre>
! 392: }
! 393: ${comment}.
! 394: ^if(def $type){type=$type}
! 395: ^if(def $code){code=$code}
! 396: ^if($stack){
! 397: <hr>
! 398: stack backtrace:<br>
! 399: ^stack.menu{
! 400: $stack.origin: $stack.name<br>
! 401: }
! 402: }
E-mail: