Annotation of parser3/www/htdocs/index.html, revision 1.180
1.104 paf 1: @USE
1.105 paf 2: /derived.p
1.145 paf 3: /operators.p
1.15 paf 4:
1.72 paf 5: @auto[filespec]
6: $selffilespec[$filespec]
1.63 paf 7: #$form:here
1.131 paf 8: #$request:charset[UTF-8]
1.177 paf 9: $request:charset[windows-1251]
10: $response:charset[windows-1251]
1.112 paf 11: #$response:charset[UTF-8]
1.131 paf 12: #$response:charset[empty]
1.84 paf 13: #$response:content-type[$.value[text/html]$.charset[$response:charset]]
1.15 paf 14:
1.171 paf 15: @postprocess[body]
1.60 paf 16: #<b>$body</b>
17: #$result[123]
1.171 paf 18: $body
19: <hr>
20: OK
1.37 paf 21:
1.15 paf 22: @main[]
1.72 paf 23: #$a(123)
24: #^a.format[%.10u]
1.71 paf 25: #$result[111]
1.70 paf 26: #^f[a]
1.133 paf 27: #^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
1.88 paf 28: # ^int:sql{select news_id from news where news_id=-1}[
1.143 paf 29: # $.default{2}
1.88 paf 30: # ]<br>
1.115 paf 31: # ^hash::sql{bad}
1.88 paf 32: # ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
1.109 paf 33: # ^file::load[text;^string:sql{select 'from sql server' }]
1.95 paf 34: # ^string:sql{select '^^hello[]' }] $ORIGINS(1)
1.96 paf 35: # ^process{ ^^h[]}
1.97 paf 36: # ^process{^string:sql{select '1
37: # ^^hello[]' }] }
1.131 paf 38: # ^double:sql{select '2*' ^; }
1.133 paf 39: #$card_sequence_expect_no(^double:sql{select 20020909131047 #card_sequence_expect_no from card_sequence})
40: #^card_sequence_expect_no.format[%15.f]
41: #}
1.49 paf 42: #^eval(2)
1.48 paf 43: #^tcrashlocaljunctionsv2[]
1.49 paf 44: #^tcrashlocaljunctions[]
1.50 paf 45: #^tjunctions[]
1.47 paf 46: #^replacetest[]
1.48 paf 47: #^matchoptionpp[]
1.46 paf 48: #^txdocxnodechild[]
1.44 paf 49: #^tclasses[]
1.43 paf 50: #$math:PI
51: #^b:method[]
1.42 paf 52: #^main[]
1.41 paf 53: #^errort[]
1.44 paf 54: #^tselectNumber[]
1.39 paf 55: #$result[hello]
1.36 paf 56: #^invaliddate2[]
57: #^process2[]
58: #^casehashtext[]
1.35 paf 59: #^subjvaltest[]
60: #^tableselect0[]
1.34 paf 61: #^memnotest1[]
1.32 paf 62: #^voidparams[]
1.31 paf 63: #^rolls2[]
1.30 paf 64: #^cacheexpireschanging[]
1.29 paf 65: #^cacheexpiresfixed[]
66: #^dateoffsets[]
67: #^exceptionTypes[]
1.28 paf 68: #^roll2[]
1.27 paf 69: #^rolls[]
1.25 paf 70: #^exceptions1[]
1.22 paf 71: #^locate_by_expr[]
1.18 paf 72: #^method_junction_params{...}
1.17 paf 73: #^verifyCookie[paf]
1.37 paf 74: #^execlangs[]
1.16 paf 75: #$t[^tobjeresult[]]$t.a
76: #^xmlprobs[]
1.15 paf 77: #^doubleprobs[]
78: #^math:random(-10)
79: #^divnamestop[]
80: #^arrayclone[]
81: #^operator_tricks[]
82: #^xoutputrusattr[]
83: #^xdocset1[]
84: #^regexp3[]
85: #^exec2[]
86: #^tlock[]
87: #^xmloutattrwithoutvalue[]
88: #^precisionProblem[]
89: #^xpath[]
90: #^ttablesetlang[]
91: #^ttime[]
92: #^tupper[]
93: #^treplace[]
94: #^xslt2[]
95: #^tcache2[]
96: #$ORIGINS(1)
97: #$t[^table::set{a b} ^table::set{c d}]
98: #^ttaintuntaint[]
99: #^tappend2[]
100: #^badvsnprintf[]
101: #^badoracequoting[]
102: #^badconstructors[]
103: #^xloadwrongtable[]
104: #^xsetwrongtable[]
105: #^if($form:test){y}{n}
106: #^tablecolumnerror[]
107: #^roll[]
108: #^tableset[]
109: #^math:PI.format{%.30f}
110: #^xchildren[]
111: #^thashforeach3[]
112: #^thashforeach2[]
113: #^thashforeach[]
114: #^thashdelete[]
115: #^connect[mysql://user:pass@cd.rinet.ru/db]{^void:sql{z} }
116: #^tappend[]
117: #^sappend[]
118: #^eval(10\3)<br>
119: #^tform[]
120: #^formattest[]
121: #^filelist[]
122: #^connect[mysql://user:pass@host]{ }
123: #^безнадёжна_попытка_поправить_непоправимое[]
124: #^tcache[]
125: #^thashfileexp[]
126: #^tcounter[]
127: #^tablehash[]
128: #j^hashfile[]
129: #^formclass[]
130: #^hren[]
131: #^domedit[]
132: #^domxslt[]
133: #^lsplit2[]
134: #^faceesize[]
135: #^imageresize[]
136: #^ifassignhash[]
137: #^tintdefault[]
138: #$response:status[404]
139: #^ifpasshash[]
140: #^movedir[]
141: #^replace[]
142: #^set[]
143: #^hash[]<hr>
144: #$t[^methresult[]] ->$t
145: #^terror[]
146: #^ssave[]
147: #^thash[]
148: #^tdef[]
149: #^ford[]
150: #^tif[]
1.84 paf 151: #^image[]
1.15 paf 152: #^response[]
153: #^regexp2[]
154: #^ttablerem[]
155: #^pcre[]
156: #^regexp[]<hr>
157: #^mail[]
158: #^fori[]
159: #^tconnect[]
160: #^xslt[]
161: #^header[]
1.53 paf 162: #^tablehasht[]
1.54 paf 163: #^datecreatestring[]
1.56 paf 164: #^mssqltypes1[]
165: #^badthrows[]
1.57 paf 166: #^xmlspace[]
167: #^counter[main.counter]
168: #^xpath2[]
169: #^callindirect[]
170: #^junctionprob[]
1.59 paf 171: #^datecreatestring2[]
172: #^tstoredproc[]
173: #^tstoredproc2[]
174: #^forkeys[]
1.60 paf 175: #^pngsize[]
1.61 paf 176: #^checkList[]
1.63 paf 177: #^datetest[]
1.65 paf 178: #^tserge[]
1.69 paf 179: #^envt[]
1.67 paf 180: #^selectt[]
181: #^select2[]
182: #^selectSingle2[]
183: #^selectString2[]
184: #^selectNumber2[]
185: #^selectBool2[]
186: #^xdoccreate[]
187: #^xdoccreatetag[]
1.70 paf 188: #^xdocload[]
1.67 paf 189: #^xdocstring[]
190: #^xdocsave[]
1.68 paf 191: #^div[]
192: #^datecreatestring3[]
1.73 paf 193: #^tfilespec[]
1.77 paf 194: #^tcrypt[]
1.74 paf 195: #^cryptdocsample[]
1.78 paf 196: #^tnormalize[]
1.83 paf 197: #^xmltransformbyxdoc[]
1.81 paf 198: #^sergestrandef[]
1.83 paf 199: #^tstdin[]
200: #^tfind[]
1.86 paf 201: #^mimet[]
1.92 paf 202: #^joinlimit[]
1.89 paf 203: #^tableclonelimit[]
1.91 paf 204: #^transparams[]
205: #^sendtests[]
1.93 paf 206: #^wwrapperpass[]
1.95 paf 207: #^badpos[]
1.98 paf 208: #^processtest[]
209: #^mail3[]
1.100 paf 210: #^datesaving[]
1.101 paf 211: #^badconstructor[]
1.103 paf 212: #^calendar[]
1.104 paf 213: #^monthdays(8)
214: #^xdoctypetest[]
1.105 paf 215: #^xtabletest[]
1.117 paf 216: #^staticstest[]
1.108 paf 217: #^staticstest2[]
1.115 paf 218: #^rbodytest[]
219: #^cookie[]
1.116 paf 220: #^cookieexpirestest[]
1.119 paf 221: #^postest[]
1.120 paf 222: #^voidpostest[]
1.122 paf 223: #^badcolumntest[]
1.124 paf 224: #^delimiters[]
1.125 paf 225: #^новый-split[]
1.127 paf 226: #^грязные-cookie[]
227: #^html-почта[]
228: #^badswitchtest[]
1.128 paf 229: #^okswitchtest[]
1.131 paf 230: #^cgit[]
1.132 paf 231: #^ttransformsep[]
1.133 paf 232: #^calltest[]
1.134 paf 233: #^xpath3[]
1.139 paf 234: #^doubleliterals[]
235: #^newxor[]
1.135 paf 236: #^mail2[]
1.139 paf 237: #^exec[]
1.140 paf 238: #^passpost[]
1.141 paf 239: #^fordelim[]
1.143 paf 240: #^duplicatetable2hashkey[]
1.142 paf 241: #^duplicatehashsqlkey[]
1.145 paf 242: #^longlreplace[]
243: #^table2hash_onecolumn[]
1.146 paf 244: #^crossopvars[]
1.148 paf 245: #^three[]
1.149 paf 246: #^badLangAfterCatch[]
1.150 paf 247: #^zeroinstdin[]
1.151 paf 248: #^shifts[]
249: #^jspace[]
1.152 paf 250: #^hashselfmodification[]
251: #^emptyTransformResult[]
252: #^badxdoccreate[]
1.154 paf 253: #^if(-d "CVS"){y}{n}
1.155 paf 254: #^badjunctioncall[]
1.156 paf 255: #^russianindex[]
256: #^virtualtest[]
257: #^xml[]
258: #^mail4[]
1.157 paf 259: #^voidconstructorpass[]
1.160 paf 260: #^$form:CLASS.a=$form:CLASS.a<br>
261: #^cookie2[]
262: #^menudelim[]
1.158 paf 263: #^touchittest[]
1.162 paf 264: #^touchittest2[]
1.160 paf 265: #^opauto[]
1.161 paf 266: #^trycontextt[]
267: #^tfor[]
1.162 paf 268: #^user-foreach-test[]
269: #^includet[]
1.163 paf 270: #^derived:includet[]
1.164 paf 271: #^fortestsep[]
1.165 paf 272: #^derived:inclass_process_test[]
273: #$derived[^derived::create[]]^derived.inclass_process_test[]
1.166 paf 274: #^domorigint[]
1.167 paf 275: #^junctiontest2[]
1.169 paf 276: #^junctionselftest[]
1.170 paf 277: #^bad-compiletosystem[]
278: #^steppedfor[i](1;10;2){$i }
1.171 paf 279: #^file:fullpath[a.gif]<br>
280: #^file:fullpath[/abs/a.gif]<br>
281: #$form:a/$form:image-map=
282: #^foreachform[]
283: #^selectSingleoct[]
284: #^compilebug[]
285: #^badhashcreate[]
1.172 paf 286: #^badsendmail[]
287: #^keygenedhash[]<br>
288: #<hr>[$env:HTTP_REFERER]
289: #$response:Content-TypE[bad]
1.174 paf 290: #^emailhead2[]
1.175 paf 291: #^includet2overridedynamic[]
1.176 paf 292: #^includet2overridestatic[]
1.177 paf 293: #^virtualtest2[]
294: #^message-id-test[]
1.179 paf 295: #^test_exif[jpg]
1.180 ! paf 296: ^http_prefix[]
1.179 paf 297: #^http_prefix_table[]
1.180 ! paf 298: #^http_prefix_xml[]
1.179 paf 299:
300: @http_prefix_xml[]
1.180 ! paf 301: $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002;
! 302: # $.method[HEAD]
! 303: $.headers[
! 304: $.user-agent[1]
! 305: ]
! 306: ]]
1.179 paf 307: <pre>^taint[^xdoc.string[]]</pre>
308:
309: @http_prefix_table[]
310: $table[^table::load[nameless;http://www.artlebedev.ru;$.USER-AGENT[paf]]]
311: ^table.count[]
312: <hr>
313: <pre>$table.0</pre>
314:
315: @http_prefix[]
316: #$file[^file::load[text;http://www.artlebedev.ru]]
317: #$file[^file::load[text;http://www.artlebedev.ru;alt]]
1.180 ! paf 318: $file[^file::load[text;http://parser3/none;
! 319: $.headers[
! 320: $.USER-AGENT[paf]
! 321: ]
1.179 paf 322: ]]
323: $file.status
324: <hr>
325: <pre>$file.text</pre>
1.177 paf 326:
1.178 paf 327: @test_exif[dir]
328: $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]
329: <table border=1>
1.177 paf 330: ^file.menu{
1.178 paf 331: <tr valign=top>
1.177 paf 332: $image[^image::measure[$dir/$file.name]]
1.178 paf 333: <td>^image.html[$.width(100)$.height(100)]</td>
334: <td>
335: $file.name<hr>
336: $exif[$image.exif]
337: ^if($exif){
338: $keys[^exif._keys[]] ^keys.sort{$keys.key}
339: ^keys.menu{
340: $key[$keys.key]
341: $value[$exif.$key]
342:
343: ${key}: <b>^show_exif_value[$value]</b><br>
344: }
345: }{
346: no EXIF info<br>
347: }
348: </td>
349: </tr>
350: }
351: </table>
352:
353: @show_exif_value[value][i]
354: ^if($value is hash){
355: ^for[i](0;$value-1){$value.$i}[,]
356: }{
357: $value
1.177 paf 358: }
1.178 paf 359:
1.177 paf 360:
361: @message-id-test[]
362: ^mail:send[
363: $.from[paf@mail]
364: $.to[paf@mail]
365: $.subject[test]
366: # $.message-id[<1@parser.ru>]
367: $.Message-id[<2@parser.ru>]
368: $.subject[проверка]
369: $.text[мычит!]
370: ]
1.176 paf 371:
372: @virtualtest2[]
373: $derived[^derived::create[]]
374: ^derived.first[]
375:
1.174 paf 376:
1.175 paf 377: @includet2overridedynamic[]
1.176 paf 378: includet2overridedynamic:<br>
379: shold say 'hello in some.p'<br>
380: <hr>
1.174 paf 381: $derived[^derived::create[]]
382: ^derived.includet2override[]
1.175 paf 383:
384: @includet2overridestatic[]
1.176 paf 385: includet2overridestatic:<br>
386: shold say 'hello in derived.p'<br>
387: because in static classes there's no way to determine derived class (no virtual mech becase of no virtual table)<br>
388: <hr>
1.175 paf 389: ^derived:includet2override[]
1.172 paf 390:
391: @emailhead2[]
392: ^mail:send[
393: $.charset[koi8-r]
394: $.from[paf@design.ru]
395: $.to[paf@mail]
1.174 paf 396: # $.reply-to[^taint[agat] <^taint[ag_7k@mail.ru]>]
397: $user[^taint[agat]]
398: $email[^taint[ag_7k@mail.ru]]
399: $.reply-to[$user $email]
400: $.subject[test2]
1.172 paf 401: ]
402:
403: @keygenedhash[]
404: $table[^table::create{key value
405: 1 a
406: 2 b
407: }]
408: $hash[^table.hash($table.key*2)]
409: '$hash.4.value' must be 'b'
1.171 paf 410:
411: @badsendmail[]
412: ^mail:send[
413: $.from[hren < paf@design.ru
414: >]
415: $.to[paf@design.ru]
416: $.subject[test]
417: ]
418:
419: @badhashcreate[]
420: $hash[
421: $.ok[1]
422: ]
423: $.bad[1]
424:
425: @compilebug[]
426: ^a[]^#31=
427:
428: @selectSingleoct[]
429: $d[^xdoc::create[doc]]
430: $element[^d.selectSingle[$nothing]]
431:
432:
433: @foreachform[]
434: <a href=index.cgihtml?one&a=1&two&b=2&three?1,2>one</a><br>
435: <a href=index.cgihtml?one&a=1&two&b=2&three?shit>two</a><br>
436:
437: ^form:fields.foreach[key;value]{
438: $key -- $value
439: }[<br>]
440: <hr>
441: $nameless[$form:tables.nameless]
442: ^if(def $nameless){
443: nameless table -- ^nameless.menu{$nameless.field}[,]
444: }
445: ^if(def $form:imap){
446: <hr>
447: IMAP $form:imap.x : $form:imap.y
448: }
1.170 paf 449:
450: @steppedfor[name;from;to;step;code]
451: $caller.$name($from)
452: ^while($caller.$name<=$to){
453: $code
454: ^caller.$name.inc($step)
455: }
1.169 paf 456:
457: @bad-compiletosystem[]
458: ^process[$string:CLASS]{@a[]
459: }
1.168 paf 460:
461: @junctionselftest[]
462: $derived[^derived::create[]]^derived.explodejunction{$tomain[tomainOK]}
463: ^$tomain=$tomain
1.166 paf 464:
465: @junctiontest2[]
466: ^if($if is junction){is junction;not junction}<br>
467: ^if(def $if){defined;not defined}<br>
1.165 paf 468:
469: @domorigint[]
470: $xdoc[^xdoc::create[вася]]
471: ^xdoc.firstChild.setAttribute[name;значение]
472: $var[$xdoc.firstChild.nodeName]
473: ^throw[paf;$var]
474:
1.163 paf 475:
476: @fortestsep[][i]
477: ^for[i](1;3){$i}[,]
1.162 paf 478:
479: @includet[]
480: ^include[some.p]
481: ^included_method[2]
482:
483: @user-foreach-test[][key;value]
484: ^user-foreach[key;value]{$key=$value<br>}
485:
486: @user-foreach[key;value;code]
487: ^for[i](1;10){
488: $caller.$key($i)
489: $caller.$value($i*2)
490: $code
491: }
492:
1.161 paf 493:
494: @tfor[][i]
495: ^for[i](1;10){
496: $i
497: }
1.160 paf 498:
499: @trycontextt[]
500: ^try{
501: ^trycontexttsub[]
502: }{
503: $exception.handled(0)
504: }
505:
506:
507: @trycontexttsub[]
508: ^bad[]
509:
510:
511: @opauto[]
512: ^reada[]
1.159 paf 513:
514:
1.157 paf 515: @rusage2[]
1.77 paf 516: <hr>
1.74 paf 517: OK
1.157 paf 518:
519: @rusage2[]
520: $s[$status:rusage]
521:
522: ^s.tv_sec.format[%.0f].^s.tv_usec.format[%06.0f]
523:
1.150 paf 524:
1.156 paf 525: @voidconstructorpass[]
526: $a[$form:a]
527: =^form:a.int(1)=
528: =^a.int(1)=
529:
530:
1.155 paf 531: @russianindex[]
532: #dir with files with russian-lang names
533: $where[dir]
534:
535: $dir[^file:list[$where;\.txt^$]]
536: ^dir.menu{
537: <a href=$where/^untaint[uri]{$dir.name}>$dir.name</a><br>
538: }
539:
1.154 paf 540: @badjunctioncall[]
541: ^badjunctioncallinside{code}
542:
543: @badjunctioncallinside[code]
1.155 paf 544: xx^code[]
1.152 paf 545:
546: @badxdoccreate[]
547: $xdoc[^xdoc::create[вася]]
548: #$xdoc[^xdoc::create{<?xml version="1.0" encoding="$request:charset"?><doc>вася</doc>}]
549:
550: ^xdoc.firstChild.setAttribute[name;значение]
551: ^xdoc.string[]
552:
553:
554: @emptyTransformResult[]
555: $input[^xdoc::create[docBad]]
556: $sheet[^xdoc::create{<?xml version="1.0"?>
557: <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
558: <xsl:template match="doc">
559: output
560: </xsl:template>
561: </xsl:stylesheet>
562: }]
563: $output[^input.transform[$sheet]]
564: $response:body[^output.file[]]
565:
566: @hashselfmodification[]
567: $hash[
568: $.a[1]
569: $.b[2]
570: ]
571: ^hash.foreach[key;value]{
572: # $hash.c[1]
573: $hash.a[1]
574: }
575:
576: @touchittest[][i]
1.160 paf 577: $i[before]
578: ^touchit[]
579: $i
580:
581: @touchittest2[]
1.158 paf 582: $i[before]
1.152 paf 583: ^touchit[]
584: $i
585:
1.151 paf 586:
587: @jspace[]
588: $a(1)
589: ^jspace_call{^eval($a*2)}
590: #$a(2)
591: #$junction
592:
593: @jspace_call[param][a]
594: $a[unrelcfgdfgated]
595: $junction<br>
596: $junction.a(2)
597: $junction<br>
598:
1.150 paf 599: @shifts[]
600: ^eval(1<<3)<br>
601: ^eval(8>>2)<br>
1.151 paf 602: #^if(1=1){y;n}<br>
1.150 paf 603:
1.149 paf 604:
605: @zeroinstdin[]
606: #$f[^file::exec[a.pl;$.stdin[$.shit[]]]]
607: $f[^file::exec[a.pl;$.stdin[^file::load[binary;1z2.txt]]]]
608: =$f.text=
609: ^f.save[binary;1z2.out]
1.148 paf 610:
611: @badLangAfterCatch[]
612: ^try{
613: $a[
614: тут язык сменился на pass_appended
615: ^throw[user;test]
616: и улетело с не тем языком
617: ]
618: }{
619: $exception.handled(1)
620: }
621: 1 2
1.145 paf 622:
623: @crossopvars[]
624: #^one[]<hr>
625: ^two[]<hr>
626:
627: @table2hash_onecolumn[]
628: $t[^table::create{a
629: 1
630: 1
631: }]
632: #^t.hash[a]
633: #^t.hash[a;b]
634: $h[^t.hash[a][$.distinct(1)]]
635: $h.1.a
1.143 paf 636:
637: @longlreplace[]
1.144 paf 638: $str1[ мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла ]
1.143 paf 639: $str2[ела]
640: $str[Мама $str1 раму]
641:
1.144 paf 642: ^str.replace[^table::create[nameless]{мыла $str2}]
1.141 paf 643:
644: @duplicatehashsqlkey[]
645: ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
646: $t[^table::sql{select * from news}]
647: $c[^t.columns[]]
648: ^c.menu{$c.column}[,]
649:
1.142 paf 650: $h[^hash::sql{select news_type_id, name from news}[$.distinct(1)]]
1.141 paf 651: }
652:
653: @duplicatetable2hashkey[]
654: $t[^table::create{a b
655: 1 2
656: 1 3
657: }]
1.142 paf 658: #^t.hash[a]
659: #^t.hash[a;b]
660: ^t.hash[a][$.distinct[1]]
1.140 paf 661:
662: @menudelim[]
663: $t[^table::create{a
664: 1
665: 2
666: 3
667: 4
668: 5
669: }]
670:
671: ^t.menu{^if($t.a<3){}{$t.a}}[,]
672:
673: @fordelim[]
674: ^for[a](0;6){^if($a<3){}{$a}}[,]
675:
1.135 paf 676:
1.139 paf 677: @passpost[]
678: <form method=post name="test" id="test">
679: <textarea name="text" cols=20 rows =6>^taint[html][1
680: 2
681:
682: 3]</textarea><br>
683: <input type=submit>
684: </form>
685:
686: ^if(def $form:text){
687: $a[^file::cgi[a.pl]]
688: $a.text|$a.status|$a.stderr<hr>
689: }
690:
691: @exec[]
692: #$a[^file::exec[a.cmd]]
693: $a[^file::cgi[a.cmd]]
694: $a.text|$a.status|$a.stderr<hr>
695:
696:
1.137 paf 697: @newxor[]
1.138 paf 698: ^eval(1!|2 #примечание()zzz
699: |0x100)<br>
1.137 paf 700: #^eval(1!||2)<br>
701: ^if(1!|1){y}{n}
702:
703: #@method[$bad]
1.136 paf 704:
1.135 paf 705: @doubleliterals[]
706: #^eval(1e-10)
707: ^eval("1e-20")
1.133 paf 708:
709: @xpath3[]
710: $constr[^xdoc::create{<?xml version="1.0" encoding="$request:charset" standalone="no"?> <constructor-data><object object_type_id="1" template_id="1" data_process_id="1" is_published="1">проверка</object> <block-list> <block name="date" type="0" label="Дата" is_hide_pub="1" data_type="1"/> <block name="content" type="0" label="Текст" is_hide_pub="1" data_type=""/> </block-list></constructor-data>}]
711: $objectData[^constr.selectSingle[/constructor-data/object]]
712: $objectData.nodeType<br>
713: $objectData.firstChild.nodeValue
714:
715: @calltest[]
716: ^calltest2[string]
717:
718: @calltest2[s]
719: $s
1.131 paf 720:
721: @ttransformsep[]
722: $input[^xdoc::load[20020909131046.xml]]
723: $output[^input.transform[generated.xsl]]
724: ^output.string[]
1.127 paf 725:
726: @okswitchtest[]
727: $local[local value]
728: ^switch[1]{
729: ^case[1]{1code $local}
730: }
731:
732: @badswitchtest[]
733: ^switch[1]{
734: ^badswitchtestcase[]
735: }
736: @badswitchtestcase[][local]
737: $local[local value]
738: ^case[1]{1code $local}
739:
740: @badjunction[]
741: ^badj1[]
742: ^badj2[]
743:
744: @html-почта[]
745: $переменная[значение]
746: ^mail:send[
747: $.from[paf@mail]
748: $.to[paf@mail]
749: $.subject[htmltest1]
750: $.html{тест$переменная= !}
751: ]
752:
1.124 paf 753:
754: @грязные-cookie[]
1.126 paf 755: $cookie:a[&]
1.125 paf 756: $cookie:a
1.124 paf 757:
758: @новый-split[]
759: $abc[a.b.c]
760: #$table[^abc.split[.]]
761: #$table[^abc.split[.;l]]
762: #$table[^abc.split[.;v]]
763: $table[^abc.split[.;lv]]
764: ^table.menu{$table.piece}[,]
765: <hr>
766: #$table[^abc.split[.;h]]
767: $table[^abc.split[.;hr]]
768: $table.0,$table.1,$table.2<br>
1.123 paf 769:
770: @delimiters[]
771: $a#1[1]<br>
772: $a#1=<br>
773:
1.121 paf 774:
775: @badcolumntest[]
776: $table[^table::load[ext.cfg]]
777: $table.b
778:
1.120 paf 779:
780: @virtualtest[]
781: $derived[^derived::create[derived create actual param]]
782: ^derived.test[]
783:
1.119 paf 784:
785: @voidpostest[]
786: $s[]
787: ^s.pos[$nothing]
1.118 paf 788:
789: @postest[]
790: $s[$nothing]
791: ^s.pos[$nothing]
1.113 paf 792:
1.115 paf 793: @cookieexpirestest[]
794: #$cookie:exptest[1]
795: #$cookie:exptest[$.value[2] $.expires(+1)]
796: $response:xxxx[^date::now(+10)]
797: $response:yyy[$.value[^date::now(+20)]]
798: $response:yyy[$.value[vvv] $.aaaa[^date::now(+20)]]
799:
1.113 paf 800: @rbodytest[]
801: $request:body=
802: <form method=post>
803: <input type=submit name=paf value=123>
804: </form>
1.107 paf 805:
806: @staticstest2[]
807: ^$derived:derived_var=$derived:derived_var<br>
808: ^$derived:a=$derived:a<br>
1.108 paf 809: $derived:a[changed] ^$derived:a=$derived:a<br>
1.107 paf 810: $derived:derived_var[changed]
811: ^$derived:derived_var=$derived:derived_var<br>
812:
1.105 paf 813: @staticstest[]
814: $derived[^derived::create[]]
815: ^derived.test[]
1.110 paf 816: <hr>
1.106 paf 817: ^$derived.a=$derived.a<br>
818: ^$derived.x=$derived.x<br>
1.110 paf 819: <hr>
820: ^if($derived is derived){derived is derived}{error: derived is not derived}<br>
821: ^if($derived is table){derived is table}{error:derived is not table}<br>
1.111 paf 822: <hr>
823: ^^eval(^$derived)=^eval($derived)<br>
824: ^^if(^$derived)=^if($derived){y}{n}<br>
1.106 paf 825:
1.105 paf 826:
1.104 paf 827: @xdoctypetest[]
828: $xdoc[^xdoc::create[x]]
829: ^if($xdoc is xdoc){y}{n}
830:
831: @xtabletest[]
832: $xtableo[^xtable::create[]]
833: ^if($xtableo is table){y}{n}
1.105 paf 834: #^xtableo.columns[]
1.100 paf 835:
1.103 paf 836: @monthdays[month]
837: $from[^date::create(2000;$month;1)]
838: $to[^date::create($from)] ^to.roll[month](+1)
839: $result($to-$from)
840:
1.100 paf 841: @badconstructor[]
842: ^date::now[]
1.99 paf 843:
844: @datesaving[]
845: $now[^date::now[]]
846: $now.daylightsaving<br>
847: $now.yearday<br>
848: #
849: $date[^date::create(2002;1;3)]
850: $date.daylightsaving<br>
851: $date.yearday
1.97 paf 852:
1.98 paf 853: @mail4[]
854: ^mail:send[
855: $.from[paf@mail.design.ru]
856: $.to[paf@mail.design.ru]
1.156 paf 857: $.subject[^taint[uri][москва=E0_+ ]=2]
1.98 paf 858: $.text[^taint[uri][москва]=]
859: $.html{<a href=http://there.ru/?city=^taint[uri][Москва]>link</a>}
860: ]
1.97 paf 861: @processtest[]
862: $f[^file::load[text;piece.p]] ^process{$f.text}
863: $ORIGINS(1)
1.93 paf 864:
865:
866: @badpos[]
867: $s[123]
1.94 paf 868: ^s.mid(0;2)
1.92 paf 869:
870: @wwrapperpass[]
871: $h[^hash::create[]]
872: $h.a(1)
873: ^my_method[^if(1){$h}]
874: работает. так и должно быть?
875:
876: @my_method[p]
877: ^p._count[]
878:
1.88 paf 879:
880: @tableclonelimit[]
881: $source[^table::create{a
882: aa
883: bb
884: cc}]
885: ^source.offset(1)
886: #$dest[^table::create[$source]]
887: $dest[^table::create[$source;$.offset(2)]]
888: $dest[^table::create[$source;$.limit(2)]]
889: $dest[^table::create[$source;$.offset(1)$.limit(1)]]
890: $dest[^table::create[$source;$.offset(1)$.limit(2)]]
891: $dest[^table::create[$source;$.offset[cur]$.limit(2)]]
892:
893: ^dest.menu{$dest.a}[,]<br>
894:
895: @joinlimit[]
896: $source[^table::create{a
897: aa
898: bb
899: cc}]
900: ^source.offset(2)
901: $dest[^table::create{a
902: xx
903: }]
904: #^dest.join[$source]
905: #^dest.join[$source;$.offset(2)]
906: #^dest.join[$source;$.limit(2)]
907: #^dest.join[$source;$.offset(1)$.limit(1)]
908: #^dest.join[$source;$.offset(1)$.limit(2)]
1.91 paf 909: #^dest.join[$source;$.offset[cur]$.limit(1)]
910: ^dest.join[$source;$.limit(0)]
1.88 paf 911:
912: ^dest.menu{$dest.a}[,]<br>
1.86 paf 913:
914: @cgit[]
915: $f[^file::cgi[showenv.cmd]]
916: $f.HELLO=<br>
917: $f.CONTENT-TYPE=<br>
918: $f.content-type=<br>
919:
1.83 paf 920:
1.84 paf 921: @mimet[]
1.85 paf 922: $f[^file::stat[a.GIF]]
923: $f.content-type
1.84 paf 924:
925:
1.83 paf 926: @tfind[]
927: ^file:find[index.html]
928:
929: @tstdin[]
930: $f[^file::exec[test.pl;$.stdin[проверка stdin потока]]]
931: <pre>$f.text</pre>
1.80 paf 932:
933: @sergestrandef[]
934: $sQuantity[ ]
935: ^sQuantity.int(10)
1.78 paf 936:
937: @xmltransformbyxdoc[]
938: $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
939: <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
940: <people>
941: <man id="1" имя="word слово">
942: <name>1 2</name>
943: </man>
944: </people>
945: }}]
946: $sheet[^xdoc::create{<?xml version="1.0"?>
1.79 paf 947: <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
948:
949: >
1.78 paf 950: <!--<xsl:output doctype-public ="-//W3C//DTD XHTML" indent="yes"/>-->
951:
1.79 paf 952: <!--<xsl:import href="http://localhost/html.xsl"/>-->
953: <xsl:import href="html.xsl"/>
954:
1.78 paf 955: <xsl:param name="param1">defparam1</xsl:param>
956: <xsl:param name="param2">defparam2</xsl:param>
1.79 paf 957:
1.78 paf 958:
959: <xsl:template match="doc">
960: param1=<xsl:value-of select="^$param1"/><br/>
961: param2=<xsl:value-of select="^$param2"/><br/>
962:
963: test return <something background=""/>
964: </xsl:template>
965:
966: <xsl:template name="test">
1.81 paf 967: test return3
1.78 paf 968: </xsl:template>
969:
970: <xsl:template match="people">
971: <html>
1.155 paf 972: <head>
973: <link type='text/xml' rel='alternate' href='/Default.vsdisco'/>
974: z</head>
1.78 paf 975: para1=<xsl:copy-of select="^$param1"/>
976: <xsl:apply-templates/>
977: <hr/>
978: <xsl:call-template name="test"/>
979: </html>
980: </xsl:template>
981:
982: <xsl:template match="name">
983: <b><xsl:value-of select="."/></b>
984: </xsl:template>
985: </xsl:stylesheet>
986: }]
987:
988:
989: $xdoc[^xdoc.transform[$sheet]]
990: $string[^xdoc.string[$.method[html]]]
991: ^string.save[a]
992: ^untaint[html]{$string}
993:
994:
1.77 paf 995:
996: @tnormalize[]
997: #s состоит из 1000 фрагментов
998: $s[^for[i](0;999){фрагмент }]
999: #это займет много ресурсов
1000: ^s.match[фраг][g]{перга}
1001: #это займет меньше ресурсов
1002: #$normalized[^s.normalize[]]
1003: #^normalized.match[фраг][g]{перга}
1.74 paf 1004:
1005: @sendtests[]
1.89 paf 1006: ^text[]
1.74 paf 1007: #^html[]
1008: #^text-n-html[]
1009: #^file[]
1010: #^text-n-file[]
1.89 paf 1011: #^text-n-html-n-file[]
1.74 paf 1012: #^backwardcomp[]
1013:
1014: @backwardcomp[]
1015: ^mail:send[
1016: $.from[paf]
1017: $.to[paf]
1018: $.body[this is text value]
1019: ]
1020:
1021: @text[]
1022: ^mail:send[
1023: $.from[paf]
1.90 paf 1024: $.to[paf]
1.74 paf 1025: $.text[
1026: $.value[this is text value]
1027: ]
1028: ]
1029:
1030: @html[]
1031: ^mail:send[
1032: $.from[paf]
1033: $.to[paf]
1034: $.html{this is <b>html</b> value ^taint[<] 10}
1035: ]
1036:
1037: @text-n-html[]
1038: ^mail:send[
1039: $.from[paf]
1040: $.to[paf]
1041: $.text[
1042: $.value[this is text value]
1043: ]
1044: $.html[
1045: $.value{this is <b>html</b> value ^taint[<] 10}
1046: ]
1047: ]
1048:
1049: @file[]
1050: ^mail:send[
1051: $.from[paf]
1052: $.to[paf]
1053: $.file[^file::load[binary;image.jpg]]
1054: ]
1055:
1056: @text-n-file[]
1057: ^mail:send[
1058: $.from[paf]
1059: $.to[paf]
1060: $.text[
1061: $.value[this is text value]
1062: ]
1063: $.file[^file::load[binary;image.jpg]]
1064: ]
1065:
1066: @text-n-html-n-file[]
1067: ^mail:send[
1068: $.from[paf]
1069: $.to[paf]
1070: $.text[
1071: $.value[this is text value]
1072: ]
1073: $.html[
1074: $.COntent-type[$.value[text/html]$.charset[windows-1251xx]]
1075: $.value{this is <b>html</b> value ^taint[<] 10}
1076: ]
1077: $.file[^file::load[binary;image.jpg]]
1078: ]
1079:
1080:
1081:
1082: @md5salt[]
1083: 1234
1084:
1085: @cryptdocsample[]
1086: $users[^table::create{name password
1087: alice ***
1088: bob ***
1089: }]
1090:
1091: $htpasswd[^table::create[nameless]{}]
1092: ^users.menu{
1093: ^htpasswd.append{$users.name:^math:crypt[$users.password;^$apr1^$^md5salt[]]}
1094: }
1095:
1096: ^htpasswd.save[nameless;.htpasswd-parser-test]
1097:
1.73 paf 1098:
1099: @tcrypt[]
1.76 paf 1100: #^math:crypt[123;^$apr1^$1234567890abcdef]<br>
1101: ^math:crypt[123;^$apr1^$]<br>
1.72 paf 1102:
1103: @tfilespec[]
1104: src=$selffilespec<br>
1105: dirname=^file:dirname[$selffilespec]<br>
1106: basename=^file:basename[$selffilespec]<br>
1107: justname=^file:justname[$selffilespec]<br>
1108: justext=^file:justext[$selffilespec]<br>
1.68 paf 1109:
1110: @datecreatestring3[]
1111: $new_after[^date::now(-3)]
1112: $articles[^table::create{id title last_update
1113: 1 привет 2002-07-03}]
1114: ^articles.menu{
1115: $last_update[^date::create[$articles.last_update]]
1116: <a href=${articles.id}.html>$articles.title</a>
1117: ^if($last_update > $new_after){новая}
1118: <br>
1119: }
1.67 paf 1120:
1121: @div[]
1122: $var(5)
1123: ^var.inc(7)
1124: ^var.dec(3)
1125: ^var.div(4)
1126: ^var.mul(2)
1127: $var
1128:
1129:
1130: @xdocsave[]
1131: $document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
1132: <document>
1133: строка1<br/>
1134: строка2<br/>
1135: </document>}]
1136: ^document.save[test.xml]
1137:
1138: @xdocstring[]
1139: $document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
1140: <document>
1141: строка1<br/>
1142: строка2<br/>
1143: </document>}]
1144: ^document.string[
1145: $.method[html]
1146: ]
1147:
1148:
1149: @xdocload[]
1150: $document[^xdoc::load[article.xml]]
1151: $response:body[^document.file[$.media-type[text/xml]]]
1152:
1153:
1154: @xdoccreatetag[]
1155: $document[^xdoc::create[document]]
1156: $paraNode[^document.createElement[para]]
1157: $dummy[^document.documentElement.appendChild[$paraNode]]
1158: $response:body[^document.file[$.media-type[text/xml]]]
1159:
1160:
1161: @xdoccreate[]
1162: $document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
1163: <document>
1164: текст
1165: </document>}]
1166: $response:body[^document.file[$.media-type[text/xml]]]
1167:
1168: @selectBool2[]
1169: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
1170: <t attr="привет" n="123"/>}]
1171: ^if(^d.selectBool[/t/@n > 10]){
1172: /t/@n больше 10
1173: }{
1174: не больше
1175: }
1176:
1177:
1178: @selectNumber2[]
1179: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
1180: <t attr="привет" n="123"/>}]
1181: ^d.selectNumber[number(/t/@n)+1]<br>
1182: ^d.selectNumber[2*2]<br>
1183:
1184:
1185: @selectString2[]
1186: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
1187: <t attr="привет" n="123"/>}]
1188: # результат=привет
1189: ^d.selectString[string(t/@attr)]
1190:
1191:
1192: @selectSingle2[]
1193: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
1194: <t attr="привет" n="123"/>}]
1195: # результат=один элемент "t"
1196: $element[^d.selectSingle[t]]
1197: # результат=2 (количество атрибутов <t>)
1198: Количество атрибутов: ^element.attributes._count[]<br>
1199: # результат=не существует (нет <x>)
1200: ^if(^d.select[x]){
1201: x существует
1202: }{
1203: x не существует
1204: }
1205:
1206: @select2[]
1207: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><t attr="привет" n="123"/>}]
1208: # результат: список из одного элемента "t"
1209: $list[^d.select[t]]
1210: # результат: 2 = количество атрибутов <t>
1211: ^list.0.attributes._count[]<br>
1212: ^for[i](0;$list-1){
1213: $attr[$list.$i]
1214: $attr.nodeName = $attr.nodeType<br>
1215: }
1216:
1217:
1218: @selectt[]
1219: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><t attr="привет" n="123"/>}]
1220: $list[^d.select[t]]
1221: ^list.0.attributes._count[]
1.65 paf 1222:
1223: @envt[]
1.66 paf 1224: $f[^file::exec[showenv.cmd;
1225: $.bad[value]
1226: $.CGI_good[value]
1227: ]]
1.65 paf 1228: $f.status<br>
1229: $f.stderr<br>
1230: <pre>$f.text</pre>
1231:
1.63 paf 1232:
1233: @tserge[]
1.64 paf 1234: ^if(" 09 "){y}
1.61 paf 1235:
1236: @datetest[]
1237: $f[^file::stat[some.zip]]
1238: Размер в байтах: $f.size<br>
1239: Год создания: $f.cdate.year<br>
1240: $now[^date::now[]]
1241: $DAYS_CONSIDERED_NEW(3)
1242: Статус: ^if($f.mdate >= $now-$DAYS_CONSIDERED_NEW){новый;старый}
1243:
1.60 paf 1244:
1245: @checkList[]
1246: ...^oneOf[a;a,b,c]...<br>
1247: #...^oneOf[a;ax,b,c]...<br>
1248: ...^oneWord[word]...<br>
1249: #...^oneWord[wo rd]...<br>
1250:
1251:
1252: @oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
1253: $t[^list.lsplit[,]]
1254: ^if(!^t.locate[piece;$s]){^throw[user;$s;unknown]}
1255: $result[$s]
1256:
1257: @oneWord[s]
1258: ^if(^s.match[\W]){^throw[user.data;$s;not word]}{$s}
1.59 paf 1259:
1260: @pngsize[]
1261: $i[^image::measure[test.png]]
1262: ^i.html[]
1263:
1264:
1265: @forkeys[]
1266: $text[^form:fields.foreach[key;val]{$key=$val
1267: }]
1268: ^text.save[ttt.txt]
1269: =$text=
1270:
1271:
1272: @tstoredproc2[]
1273: ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
1274: ^void:sql{exec pafvoid}
1275: }
1276:
1277: @tstoredproc[]
1278: ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
1279: $t[^table::sql{exec pafproc}]
1280: # $t[^table::sql{{call pafproc}}]
1281: $c[^t.columns[]]
1282: ^c.menu{$c.column}[<br>]
1283: }
1.57 paf 1284:
1285: @datecreatestring2[]
1.58 paf 1286: <table border=1>
1287: ^datecreatestring2show[2000]
1288: ^datecreatestring2show[2000-02]
1.59 paf 1289: ^datecreatestring2show[2000-2-03]
1.58 paf 1290: ^datecreatestring2show[2000-02-03 15]
1291: ^datecreatestring2show[2000-02-03 15:30]
1292: ^datecreatestring2show[2000-02-03 15:30:04]
1293: ^datecreatestring2show[2000-02-03 15:30:04 hren]
1294: ^datecreatestring2show[15:30]
1295: ^datecreatestring2show[15:30:05]
1296: ^datecreatestring2show[15:30:05 hren]
1297: </table>
1298:
1299: @datecreatestring2show[s]
1300: $date[^date::create[$s]]
1301: <tr>
1302: <td>$s</td><td align=right>^date.sql-string[]</td>
1303: </tr>
1304:
1.57 paf 1305:
1306: @junctionprob[][l]
1307: $l[123]
1308: $a{$l}
1309: ^junctionprobnested[$a]
1310: @junctionprobnested[p]
1311: $p
1312:
1313:
1314: @callindirecttarget[]
1315: callindirecttarget called
1316: @callindirect[]
1317: $f[$callindirecttarget]
1318: ^f[]
1319:
1320: @xpath2[]
1321: $xdoc[^xdoc::create{<?xml version="1.0" encoding="windows-1251"?>
1322: <doc>
1323: <field-list>
1324: <field name="aa"/>
1325: <field name="bb"/>
1326: </field-list>
1327: </doc>
1328: }]
1329:
1330: #^xdoc.string[]
1331:
1332: $fieldList[^xdoc.selectSingle[/doc/field-list]]
1333: #^fieldList.childNodes._count[]
1334: $fields[^fieldList.select[field]]
1335: #^fields._count[]
1336: ^fields.foreach[k;node]{
1337: $node.nodeName<br>
1338: }
1339: @counter[filespec][f;s]
1340: ^file:lock[$filespec]{
1341: $f[^file::load[text;$filespec]]
1342: $s[^eval($f.text+1)]
1343: ^s.save[$filespec]
1344: }
1345: $s
1.56 paf 1346:
1347: @xmlspace[]
1348: $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
1349: <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
1350: <people>
1351: <man id="1" имя="word слово">
1352: <name>1 2</name>
1353: </man>
1354: </people>
1355: }}]
1356: $xdoc[^xdoc.transform[global.xsl]]
1357: $string[^xdoc.string[$.method[html]]]
1358: ^string.save[a]
1359: ^untaint[html]{$string}
1360:
1361: @badthrows[]
1362: #^throw[a;b;]
1363: ^throw[a;]
1.54 paf 1364:
1365: @mssqltypes1[]
1366: ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
1.55 paf 1367: # ^string:sql{select { ts '1998-05-02 01:23:56.123' }}
1368: # ^string:sql{select CAST({ ts '1998-05-02 01:23:56.123' }AS smalldatetime)}
1369: # ^string:sql{select CAST({ts '2002-04-28 00:00:00.000'} AS smalldatetime)}
1370: $t[^table::sql{select a from paf}]
1371: ^t.count[]
1.54 paf 1372: }
1.51 paf 1373:
1.53 paf 1374: @datecreatestring[]
1.54 paf 1375: $d[^date::create[2002-04-33 01:03:04]]
1.53 paf 1376: ^d.sql-string[]
1.52 paf 1377:
1378: @method[hash]
1379: $hash.key
1380: @mainZ[]
1381: ^method[
1382: $.key{code}
1383: ]
1384:
1.51 paf 1385: @tablehasht[]
1386: $t[^table::create{p
1387: 1
1388: 3
1389: 2
1390: 4}]
1391:
1392: $h[^t.hash[p]]
1393:
1394: =^h._count[]=
1395:
1396:
1397: @sqldefaults[]
1398: ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
1399: ^int:sql{select news_id from news where news_id=-1}[$.default{2}]<br>
1400: ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
1401: }
1.60 paf 1402: =======
1403: <hr>
1404: OK
1405: >>>>>>> 1.50
1.48 paf 1406:
1407: @tcrashlocaljunctionsv2[]
1408: $a[
1409: $b{ $c[1] }
1410: ]
1411: $b
1412: $c
1413:
1414: @tcrashlocaljunctions[]
1415: $var[aaa]
1416: ^if(1){
1417: ^tcrashlocaljunctions1[]
1418: }
1419:
1420: $j
1421:
1.49 paf 1422: @tcrashlocaljunctions1[][var]
1423: $var[varvalue]
1.48 paf 1424: $j{
1425: $var
1426: }
1.49 paf 1427: $j
1.48 paf 1428:
1429: @tjunctions[][tl]
1430: $t[^t::create[]]
1431: ^tjunctionsi[]
1432:
1433: @tjunctionsi[][tl]
1434: $tl[12345]
1435: ^t.tjunctionsm[
1436: $.key{
1437: $tl
1438: }
1439: ]
1.46 paf 1440:
1.47 paf 1441: @replacetest[]
1442: $b[b]
1443: $s[
1444: aaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1445: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1446: ]
1447: ^s.replace[^table::create{from to
1448: ba !_}]
1449:
1450:
1.46 paf 1451: @matchoptionpp[]
1.47 paf 1452: #$ORIGINS(1)
1.46 paf 1453: $s[
1454: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1.47 paf 1455: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1456: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1457: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1458: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1459: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1460: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1461: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1462: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1463: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1.46 paf 1464: ]
1465: ^s.match[b;g']{($match.prematch|$match.match|$match.postmatch)}
1466:
1.44 paf 1467:
1468: @txdocxnodechild[]
1469: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?><d/>}]
1470: $xdoc.nodeName
1471: ^xdoc.selectNumber[2*2]
1.45 paf 1472: $xdoc:ELEMENT_NODE
1.44 paf 1473:
1474:
1475: @tclasses[]
1476: $t[^t::create[]]
1477: ^t.method[]
1478: <hr>
1479: ^t.base_method[]
1480:
1.40 paf 1481:
1482: @errort[]
1.42 paf 1483: ^xdoc::create[a]
1.40 paf 1484: #^throw[user;here;this]
1485:
1486: @tselectNumber[]
1487: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет" n="123"/>}]
1488: ^d.selectString[string(d/@attr)]<br>
1489: ^d.selectNumber[2*2]<br>
1490: ^d.selectNumber[number(/d/@n)+1]<br>
1491:
1.34 paf 1492:
1.36 paf 1493: @invaliddate2[]
1494: $d[^date::create(1018946575/60/60)] ^d.sql-string[]
1495:
1496: @process2[]
1497: ^^process{
1498: ^process{
1499: ^$a[^^if(0){^$.k[y]}{^$.k[^^hren[]n]}] ^$a.k
1500: }
1501: }
1502:
1.35 paf 1503: @casehashtext[]
1504: $tt[1]
1505: $tmp[
1506: ^switch[$tt]{
1507: ^case[1]{
1508: $.aaa[123]
1509: }
1510: ^case[DEFAULT]{
1511: $.bbb[456]
1512: }
1513: }
1.36 paf 1514: shit!
1.35 paf 1515: ]
1.36 paf 1516: #$tmp
1.35 paf 1517: $tmp.aaa
1518:
1519: @subjvaltest[]
1520: $a12[val]
1521: $b[12]
1522: $a$b
1523:
1.34 paf 1524: @tableselect0[]
1525: $person[^table::create{name height
1526: paf 1.77
1527: шохин 2.07
1528: moko 1.77
1529: }]
1530: $nottoohigh[^person.select($person.height<2)]
1531: ^nottoohigh.menu{$nottoohigh.name<br>}
1.32 paf 1532:
1533: @transparams[]
1534: $idoc[^xdoc::create{<?xml version="1.0" ?><doc/>}]
1535: $odoc[^idoc.transform[global.xsl;
1536: $.param1['1']
1537: $.param2['2']
1538: ]]
1539: <pre>^taint[^odoc.string[$.method[html]]]
1540:
1541: @memnotest1[]
1542: ^for[i](0;4000){
1543:
1544: $xxxx[$i]
1545: $xxxx
1546:
1547: }
1548:
1549: @memnotest1notes[]
1550: одна итерация цикла:
1551: [Mon Apr 8 20:12:02 2002] execution-------------------------|
1.35 paf 1552: '469641+=28 wcodeframe -> 0 !optimize[3]''469669+=49 string от {} -> 0 optimize[3]'
1.32 paf 1553: [Mon Apr 8 20:12:02 2002] 12:STRING__WRITE
1554: [Mon Apr 8 20:12:02 2002] "|| "
1555: [Mon Apr 8 20:12:02 2002] 12:WITH_ROOT
1556: [Mon Apr 8 20:12:02 2002] 13:VALUE
1557: [Mon Apr 8 20:12:02 2002] "xxxx" string
1.35 paf 1558: [Mon Apr 8 20:12:02 2002] 14:CREATE_EWPOOL'469377+=24 wcodeframe -> 0 !optimize[1]''469401+=49 string -> 41 !optimize[7]'
1.32 paf 1559: [Mon Apr 8 20:12:02 2002] 16:WITH_READ
1560: [Mon Apr 8 20:12:02 2002] 17:VALUE
1561: [Mon Apr 8 20:12:02 2002] "i" string
1562: [Mon Apr 8 20:12:02 2002] 18:GET_ELEMENT
1.35 paf 1563: [Mon Apr 8 20:12:02 2002] 17:WRITE_VALUE'469452+=40 MAX_NUMBER -> !~2 actual digits''469492+=49 -> 41 !'
1564: [Mon Apr 8 20:12:02 2002] 16:REDUCE_EWPOOL'469541+=24 VString -> 0 optimize[5]'
1.32 paf 1565: [Mon Apr 8 20:12:02 2002] 15:CONSTRUCT_VALUE
1566: [Mon Apr 8 20:12:02 2002] 12:STRING__WRITE
1567: [Mon Apr 8 20:12:02 2002] "| "
1568: [Mon Apr 8 20:12:02 2002] 12:WITH_READ
1569: [Mon Apr 8 20:12:02 2002] 13:VALUE
1570: [Mon Apr 8 20:12:02 2002] "xxxx" string
1571: [Mon Apr 8 20:12:02 2002] 14:GET_ELEMENT
1572: [Mon Apr 8 20:12:02 2002] 13:WRITE_VALUE'469573+=41 string expand nothing for now'
1573: [Mon Apr 8 20:12:02 2002] 12:STRING__WRITE
1.35 paf 1574: [Mon Apr 8 20:12:02 2002] "||"'469617+=24 VString -> 0 !optimize[6]'
1.32 paf 1575: [Mon Apr 8 20:12:02 2002] <-ja returned
1576: [Mon Apr 8 20:12:02 2002] ja->
1577:
1578: 201/328=0.612804878049 %%optimized
1579:
1580: 1.
1581: CREATE_*POOL
1582: сделать
1583: *POOL_POOLED+CODE
1584: где
1585: wwrapper
1586: и(возможно) wcodeframe
1587: +string
1588: стековая переменная
1589:
1590: 2.
1591: избавиться от обёртки при возврате результата process [см. тело _for]
1592:
1593: 3.
1594: сделать callback для process, чтобы вынести invariants из _for & co.
1595:
1596: 4.
1597: @todo склеить get_element и write_value (при вставлении? write_value)
1598:
1599: 5.
1600: reduce_*pool -> вариант получить именно string, без VString обёртки [часто
1601: обёртка сразу выбрасывается = не нужна]
1602:
1603: 6.
1604: process вариант получить именно string, без VString обёртки [часто обёртка
1605: сразу выбрасывается = не нужна]
1606:
1607: 7.
1608: string head, убить 8 байт неправильной link
1.31 paf 1609:
1610: @voidparams[]
1611: ^voidparamsm[$form:field]
1612:
1613: @voidparamsm[p]
1614: ^p.int(123)
1.29 paf 1615:
1.30 paf 1616: @rolls2[]
1617: $now[^date::now[]]
1618: $d[^date::create($now.year;$now.month)] ^d.sql-string[]<br>
1619: ^for[i](1;12){
1620: ^d.roll[month](-1) ^d.sql-string[]<br>
1621: }
1622:
1.29 paf 1623: @cacheexpireschanging[]
1624: ^cache[$DB_HOME/keyключ][^date::now(+1)]{ ^rem{1 day}
1625: ^cache[^date::now(+4/24/60/60)]
1626: # ^cache(2)
1.30 paf 1627: # ^cache(0)
1.29 paf 1628: ^math:random(100)
1629: }
1630:
1631:
1632:
1633: @cacheexpiresfixed[]
1634: ^cache[$DB_HOME/keyключ][^date::now(+2/24/60/60)]{
1635: ^math:random(100)
1636: }
1637:
1638: @dateoffsets[]
1639: $d[^date::create(^date::now[]+1/24/60)]
1640: #$d[^date::now(+1/24/60)]
1641: ^d.sql-string[]
1642: #$d
1.26 paf 1643:
1.28 paf 1644: @exceptionTypes[]
1645: # parser.compile ^test[} компиляция (непарная скобка, ...)
1646: # parser.runtime ^if(0). параметры (больше/меньше, чем нужно, не тех типов, ...)
1647: # number.zerodivision ^eval(1/0) ^eval(1%0)
1648: # number.format ^eval(abc*5)
1649: # file.missing ^file:delete[delme] not found
1650: # file.access ^table::load[.] no rights
1651: # image.format ^image::measure[index.html] not gif/jpg
1652: # sql.connect ^connect[mysql://baduser:pass@host/db]{} not found/timeout
1653: # sql.execute ^connect[mysql://okuser:pass@host/db]{^void:sql{select bad}} syntax error
1654: # xml ^xdoc::create{<forgot?>} any error in xml/xslt libs
1655: # smtp.connect not found/timeout
1656: # smtp.execute communication error
1657:
1.26 paf 1658: @roll2[]
1659: $d[^date::create(2002;4;2;2;2;3)] ^d.sql-string[]<br>
1.27 paf 1660: ^d.roll[day](+365*3+1) ^d.sql-string[]<br>
1.26 paf 1661:
1.25 paf 1662:
1663: @rolls[]
1664: $d[^date::create(2002;4;4)]
1665: ^d.sql-string[]<br>
1666: ^for[i](1;7){
1667: ^d.roll[day](-1)
1668: ^d.sql-string[]<br>
1669: }
1670: <hr>
1671: $d[^date::create(2002;3;28)]
1672: ^d.sql-string[]<br>
1673: ^for[i](1;7){
1674: ^d.roll[day](+1)
1675: ^d.sql-string[]<br>
1676: }
1677: <hr>
1678: $d[^date::create(2002;12;3)]
1679: ^d.sql-string[]<br>
1680: ^for[i](1;14){
1681: ^d.roll[day](-1)
1682: ^d.sql-string[]<br>
1683: }
1684: <hr>
1685: $d[^date::create(2002;10;19)]
1686: ^d.sql-string[]<br>
1687: ^for[i](1;14){
1688: ^d.roll[day](+1)
1689: ^d.sql-string[]<br>
1690: }
1691:
1692:
1693:
1694:
1695:
1.22 paf 1696:
1697: @exceptions1[]
1698: ^try{
1699: aaa
1.24 paf 1700: ^throw[custom1;paf;is stupid]
1.22 paf 1701: }{
1.24 paf 1702: ^if($exception.type eq custom1){
1.28 paf 1703: # $exception.handled(1)
1704: ^throw[$exception]
1.24 paf 1705: type=$exception.type<br>
1706: source=$exception.source<br>
1707: file=$exception.file<br>
1708: lineno=$exception.lineno<br>
1709: comment=$exception.comment<br>
1710: }
1.22 paf 1711: }
1.21 paf 1712:
1713: @locate_by_expr[]
1714: $t[^table::create{a b
1715: 1 nok
1716: 2 ok
1717: 3 nok
1718: }]
1719: ^if(^t.locate($t.a==2)){$t.b}{n}
1.17 paf 1720:
1721: @method_junction_params[param]
1722: ^if($param is junction){junction}{ne junction}
1723:
1724: @verifyCookie[value]
1725: ^if($cookie:dummyvote eq $value){
1726: $result(1)
1727: }{
1728: $cookie:dummyvote[$value]
1729: $result(0)
1730: }
1.16 paf 1731:
1732: @execlangs[]
1.20 paf 1733: $f[^file::exec[test.pl]]
1.36 paf 1734: err:$f.stderr<br>
1.16 paf 1735: ^process{$f.text}
1736: #$c[^t.columns[]]
1737: #^c.menu{
1738: #* $c.column<br>
1739: #}
1.36 paf 1740: c:$t.c<br>
1.16 paf 1741:
1742: @tobjeresult[]
1743: ^table::create{a
1744: 12}
1.15 paf 1745:
1746: @xmlprobs[]
1747: $xmlDataType[^xdoc::load[program.xml]]
1748: #<pre>^taint[^xmlDataType.string[]]
1749: $xmlDataTypes[^xmlDataType.select[programs/program[@id=4]/data]]
1750: #=^xmlDataTypes._count[]=
1751: =^xmlDataTypes.0.getAttribute[type-id]=
1752:
1753: @doubleprobs[]
1754: $1(^math:radians(180))
1755: $2($math:PI)
1756: ^if(^1.format[%.10f]==^2.format[%.10f]){y;n}
1757: ^if($1==$2){y;n}
1758: ^if(^math:radians(180)==$math:PI){y;n}
1759:
1760:
1761: @divnamestop[]
1762: $a(10)
1763: ^eval($a\3)
1764:
1765: @arrayclone[]
1766: $t[^table::create{a b
1767: 1 11
1768: 2 22
1769: }]
1770: $c[^table::create[$t]]
1771: ^c.append{2 33}
1772: ^t.count[]
1773: ^c.count[]
1774:
1775: @operator_tricks[]
1776: ^if(1){$a[^t[]]}
1777: $a!
1778: $a($b)
1779: ^if(1){y}{n}
1780: $MAIN:a(^t[] eq OK)
1781: #$MAIN:a(1)
1782: ^if($a){y}{n}
1783: #^if(1){y}{n}
1784: $form:if
1785: $a[$.n[1]]
1786: $a.if
1787:
1788: @xoutputrusattr[]
1789: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет"/>}]
1790: ^show_xdoc2[$d]
1791:
1792: @xdocset1[]
1793: $d[^xdoc::set{<?xml version="1.0"?><d>=^taint[&]=</d>}]
1794: ^show_xdoc2[$d]
1795:
1796: @regexp3[]
1797: $s[abcАБВ]
1798: ^if(^s.match[][i]){y}{n}
1799:
1800:
1801: @exec2[]
1802: $a[^file::exec[bin/t.cmd]]
1803: <pre>^taint[$a.text]</pre>|$a.status|$a.stderr<hr>
1804:
1805:
1806: @tlock[]
1807: ^file:lock[lockfile]{
1808: code
1809: }
1810:
1811: @xmloutattrwithoutvalue[]
1812: #$ORIGINS(1)
1813: $doc[^xdoc::set{<?xml version="1.0"?><doc background="">zz</doc>}]
1814: $doc[^doc.transform[global.xsl]]
1815: =^taint[html][^doc.string[$.method[html]]]=
1816:
1817:
1818:
1819: @precisionProblem[]
1820: $a[123456789012345678901234567890]
1821: $b(^a.double[])
1822: ^b.format{%.20E}
1823: <hr>
1824: ^eval(2*2)
1825:
1826: @xpath[]
1827: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?>
1828: <document><block><p>привет</p></block></document>
1829: }]
1830: #^show_xdoc2[$xdoc]
1831: $node[^xdoc.selectSingle[/document/block/p]]
1832: ^if(def $node){
1833: ^if($node is string){
1834: $node
1835: }{
1836: ^if($node is hash){
1837: ^node._count[]
1838: }{
1839: $node.nodeType
1840: }
1841: }
1842: #$node.firstChild.nodeValue
1843: }{
1844: node not found
1845: }
1846:
1847:
1848: @ttablesetlang[]
1849: $a-tab-b[a b
1850: 1 2]
1851:
1852: $t[^table::set{$a-tab-b}]
1853: =$t.a=
1854: <hr>
1855:
1856: $t[^table::set[nameless]{^taint[$a-tab-b]}]
1857: =$t.0=
1858: <hr>
1859:
1860: $t[^table::set{^untaint{^taint[$a-tab-b]}}]
1861: =$t.a=
1862:
1863: #^t.append{1 2}
1864:
1865: @mail3[]
1866: ^mail:send[
1.98 paf 1867: $.from[Александр Петросян <paf@mail.design.ru>]
1868: $.to[Александр Петросян <paf@mail.design.ru>]
1869: $.subject[проверка2]
1.15 paf 1870: $.body[
1871: $.text[
1872: $.content-type[$.value[text/plain] $.charset[windows-1251]]
1.98 paf 1873: $.body[проверка^taint[uri][москва]=]
1.15 paf 1874: ]
1875: $.attachment[
1876: $.value[^file::load[text;index.html]]
1877: $.file-name[привет всем.html]
1878: ]
1879: ]
1880: ]
1881:
1882:
1883: @ttime[]
1884: $now[^date::now[]]
1885: $now.hour:$now.minute
1886:
1887: @tupper[]
1888: $t[abcABCабвАБВ]
1889: $t<br>
1890: ^t.upper[]
1891:
1892: @treplace[]
1893: $copy-paste-clean[^table::set{a b
1894: . _
1895: , _
1896: + _
1897: & _
1898: ? _
1899: = _}]
1900:
1901: $cache_key[^taint[в.а,с+я]&был?тут=недавно.cache]
1902: # почему-то этот replace роняет апач в 500 ошибку :(
1903: #^cache_key.replace[$copy-paste-clean]
1904: $test[abc]
1905: ^test.save[$cache_key]saved<br>
1906: $cache[^file:list[.;\.cache^$]]
1907: ^file:delete[$cache_key]deleted($cache.name)<br>
1908:
1909:
1910:
1911: @xslt2[]
1912: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?>
1913: <document><block><p>привет</p></block></document>
1914: }]
1915: ^show_xdoc2[$xdoc]
1916: ^show_xdoc2[^xdoc.transform[templates/_document.xslt]]
1917: <hr>
1918:
1919:
1920: @tcache2[]
1921: ^cache[$DB_HOME/keyключ](2){
1922: ^math:random(100)
1923: }
1924:
1925: @ttaintuntaint[]
1926: <!-- некий панковский заголовок с буковкой C в круглых скобках -->^taint[html][
1927:
1928: ]zz
1929: <hr>
1930: ^untaint[html]{1^taint[ ]2 3}
1931:
1932:
1933: @tappend2[]
1934: $t[^table::set{a b}]^t.append{1 2}$t.a
1935:
1936: @badvsnprintf[]
1937: ^connect[zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]{
1938: }
1939:
1940:
1941: @badoracequoting[]
1942: $SQL.connect-string[oracle://webspb:webpwd@mts?NLS_LANG=RUSSIAN_AMERICA.CL8MSWIN1251&NLS_DATE_FORMAT=YYYY-MM-DD HH24:MI:SS]
1943: ^connect[$SQL.connect-string]{
1944: ^void:sql{delete from paf}
1945: ^void:sql{insert into paf values (1, '$form:text')}
1946: $paf[^table::sql{select * from paf}]
1947: ^paf.menu{
1948: $paf.id: ^untaint{$paf.block}<hr>
1949:
1950: }
1951: <hr>
1952:
1953:
1954: ^rem{
1955: $news[^table::sql{select description from news}[$.limit(3)]]
1956: ^news.menu{
1957: ^untaint{$news.description}<hr>
1958:
1959: }
1960: <hr>
1961: }
1962:
1963: $tables[^table::sql{select table_name from user_tables}]
1964: ^tables.menu{
1965: $tables.table_name<br>
1966: }
1967:
1968: }
1969: <hr>
1970: $env:PATH
1971:
1972: @badconstructors[]
1973: $bred[^string::length[]]
1974: $bred[^response::clear[]]
1975: $bred[^int::int[]]
1976:
1977:
1978: @xloadwrongtable[]
1979: $constr[^xdoc::load[wrongtable.xml]]
1980: ^show_xdoc2[$constr]
1981:
1982: @xsetwrongtable[]
1983: $constr[^xdoc::set{<?xml version="1.0" encoding="windows-1251z" ?>
1984: <block-list>^untaint[as-is]{$constructor}</block-list>}]
1985:
1986:
1987: @tablecolumnerror[]
1988: $t[^table::set{a}]
1989: $t.$a
1990:
1991: @roll[]
1992: #$date[^date::set(1970;1;2)]
1993: #^date.roll[month](-1)
1994: $date[^date::set(2038;1;1)]
1995: ^date.roll[month](+1)
1996: $date.year $date.month $date.day
1997:
1998: @cookie2[]
1999: #=$cookie:clientType[$.value[test]]=<br>
1.159 paf 2000: =$cookie:CLASS.clientType=<br>
1.15 paf 2001:
2002:
2003: @tableset[]
2004: $a[^table::set{a
2005: 1
2006: 2}]
2007: ^eval(100\$a)
2008:
2009:
2010:
2011: @zzz[]
2012:
2013:
2014: $constructor[
2015: <block1 name="main_srvr" type="0" label="Основное тело" />
2016: <block2 name="main_srvr2" type="0" label="Основное тело" />
2017: ]
2018:
2019: $constr[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?>
2020: <block-list>^untaint[as-is]{$constructor}</block-list>}]
2021:
2022: $children[$constr.documentElement.childNodes]
2023: ^if($children){
2024: ^for[i](1;^children._count[]){
2025: $node[$children.$i]
2026: $node.nodeName<br>
2027: }
2028: }
2029:
2030:
2031: @thashforeach3[]
2032: $h[
2033: $.a[1]
2034: $.b[2]
2035: ]
2036: $c[^table::set{a
2037: ^h.foreach[key;value]{$value
2038: }}]
2039: $c.a
2040:
2041: @thashforeach2[]
2042: $h[
2043: $.a[1]
2044: $.b[2]
2045: ]
2046: $c[
2047: ^h.foreach[key;value]{
2048: $.$key[$value]
2049: }
2050: ]
2051: $c.b
2052:
2053: @thashforeach[]
2054: $h[
2055: $.a[1]
2056: $.b[2]
2057: ]
2058: ^h.foreach[key;value]{
2059: $key=$value<br>
2060: }
2061:
2062: @thashdelete[]
2063: $h[$.a[1] $.b[2]]
2064: was:<br>
2065: count=^h._count[] <br>
2066: b='$h.b' <br>
2067:
2068: ^h.delete[b]
2069:
2070: now:<br>
2071: count=^h._count[] <br>
2072: b='$h.b'
2073:
2074: @sappend[]
2075: $test[123]
2076: ^test.save[test]
2077: ^test.save[append;test]
2078:
2079: @tappend[]
2080: $test[^table::set{a b
2081: a1 b1}]
2082: ^test.save[test]
2083: $test[^table::set{a b
2084: a2 b2}]
2085: ^test.save[append;test]
2086:
2087:
2088: @tform[]
2089: ^if(def $form:new_file){y}{n}
2090: <form method="post" enctype="multipart/form-data">
2091: <input type="file" name="new_file" />
2092: <input type=submit>
2093: </input>
2094:
2095: @formattest[]
2096: $size(15.124)
2097:
2098: ^size.format{%.2f}
2099:
2100: @filelist[]
2101: $html[^file:list[.;\.html^$]]
2102: ^html.menu{
2103: $html.name<br>
2104: }
2105: <hr>
2106:
2107: @безнадёжна_попытка_поправить_непоправимое[]
2108: $dom_from_disk[^xdoc::load[input.xml]]
2109: $dom_created_in_air[^xdoc::create[doc]]
2110: ^dom_created_in_air.documentElement.appendChild[^dom_from_disk.documentElement.cloneNode(1)]
2111: ^show_xdoc2[$dom_created_in_air]
2112:
2113:
2114: @tcache[]
2115: #^hashfile:clear[cache]
2116: $code[^hashfile::open[$DB_HOME;cache]]
2117: ^code.cache[key](2){
2118: ^math:random(100)
2119: # ^code.delete[]
2120: }
2121:
2122: @thashfileexp[]
2123: $hf[^hashfile::open[$DB_HOME;hashfile]]
2124: $hf.paf[$.value[крут] $.expires(3)]
2125: paf=$hf.paf
2126: <hr>
2127: ^hf.foreach[key;value]{
2128: $key=$value<br>
2129: }
2130: <hr>
2131: $hash[^hf.hash[]]
2132: =$hash.paf=
2133: <hr>
2134:
2135: @tcounter[]
2136: ^tcounterone[$DB_HOME]
2137: other root:
2138: ^tcounterone[${DB_HOME}2]
2139: again, first:
2140: ^tcounterone[$DB_HOME]
2141:
2142: @tcounterone[DB_HOME]
2143: $counter[^hashfile::open[$DB_HOME;counter]]
2144: #^counter.clear[]
2145: ^counter.transaction{
2146: # $counter.value(10)
2147: $counter.value($counter.value+1)
2148: # ^counter.delete[value]
2149: $counter.value
2150: }
2151: <hr>
2152: ^rem{
2153: $hash[^counter.hash[]]
2154: =$hash.value=
2155: <hr>
2156: }
2157:
2158: @tablehash[]
2159: $productList[^table::set{id name
2160: 1 носки
2161: 2 валенки
2162: 3 ушанка
2163: }]
2164:
2165: #скажем, у первого дилера
2166: $firstPriceList[^table::set{id price
2167: 1 0.3
2168: 3 1000
2169: }]
2170:
2171: $firstPriceHash[^firstPriceList.hash[id]]
2172:
2173: ^productList.menu{
2174: продукт "$productList.name" | цена у first: $firstPriceHash.[$productList.id].price<br>
2175: }
2176:
2177:
2178: @hashfile[]
2179: $hf[^hashfile::assign[hashfile]]
2180: #$hf.paf[крут5]
2181: paf=$hf.paf
2182:
2183: @formclass[]
2184: ^$form:CLASS.a=$form:CLASS.a
2185:
2186: @domdata[]
2187: ^if(1){
2188: # $a{^hren[]}
2189: }
2190: $a
2191: $xdoc[^xdoc::create[doc]]
2192: $doc[$xdoc.documentElement]
2193: $name[^doc.appendChild[^xdoc.createElement[name]]]
2194: $text[^name.appendChild[^xdoc.createTextNode[петросян&coz]]]
2195: ^untaint[as-is]{=$text.nodeValue=}
2196:
2197: @domedit[]
2198: ^domdata[]
2199: #$paf.nodeName<br>
2200: #$doc.documentElement.nodeName<br>
2201:
2202: ^show_xnode1[$xdoc.documentElement;0;1]
2203: <hr>
2204: ^show_xdoc2[$xdoc]
2205: <hr>
2206:
2207: @domxslt[]
2208: ^domdata[]
2209: ^show_xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]]
2210: <hr>
2211:
2212: @lsplit2[]
2213: $path[/optics/]
2214: $pathTable[^path.lsplit[/]]
2215: ^pathTable.menu{
2216: ^if(def $pathTable.piece){
2217: =$pathTable.piece=
2218: }
2219: }
2220:
2221:
2222: @faceesize[]
2223: $k(2)
2224: $pict[^image::load[paf.gif]]
2225: $small[^image::create($pict.width/$k;$pict.height/$k)]
2226: ^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;250)
2227: $response:body[^small.gif[]]
2228:
2229: @imageresize[]
2230: $k(2)
2231: $pict[^image::create(400*$k;200*$k)]
2232: $pict.line-width(2)
2233: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
2234: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-20;$pict.height-20;0+20;360-20;0xff0000)
2235: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
2236: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-20;0x0000ff)
2237: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+20;360-20;0xff0000)
2238: $response:body[^pict.gif[]]
2239:
2240: #$small[^image::create($pict.width/$k;$pict.height/$k)]
2241: #^small.copy[$pict](0;0;$pict.width;$pict.height;0;0)
2242: #^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;0)
2243:
2244: #$response:body[^small.gif[]]
2245:
2246:
2247: @tintdefault[]
2248: #$abc[abc]
2249: $abc[33]
2250: ^abc.int[z]
2251: #^abc.int(123)
2252:
2253: @ifassignhash[]
2254: $h[^if(1){$.a(1);$.a(2)}]
2255: $h.a
2256:
2257: @ifpasshash[]
2258: $a[$.e[a]]
2259: $b[$.e[b]]
2260: ^ifpasshashdest[^if(1){$a;$b}]
2261: #$x[^if(1){$a}{$b}]
2262: #^ifpasshashdest[$x]
2263:
2264: @ifpasshashdest[p]
2265: $p.e
2266:
2267: @movedir[]
2268: ^file:move[a;deeper/a]
2269:
2270: @replace[]
2271: $a[12^;3]
2272: ^a.replace[^table::set{from to
2273: 2^; !
2274: }]
2275:
2276:
2277: @set[]
2278: ^setdata[]
2279: ^a.add[$b]
2280: add:$a.3<br>
2281:
2282: ^setdata[]
2283: ^a.sub[$b]
2284: sub2:$a.2<br>
2285: sub1:$a.1<br>
2286:
2287: ^setdata[]
2288: $c[^a.union[$b]]
2289: union3:$c.3<br>
2290: union2:$c.2<br>
2291:
2292: ^setdata[]
2293: $c[^a.intersection[$b]]
2294: intersection3:$c.3<br>
2295: intersection2:$c.2<br>
2296:
2297: ^setdata[]
2298: intersects:^if(^a.intersects[$b]){y;n}<br>
2299: intersects2:^if(^a.intersects[ ]){y;n}<br>
2300:
2301:
2302: <hr>
2303:
2304: @setdata[]
2305: $a[$.1[a1] $.2[a2]]
2306: $b[ $.2[b2] $.3[b3]]
2307:
2308:
2309: @hash[]
2310: $h[^hash::create[$._default[123]]]
2311: $h.paf[not kretin]
2312: $h.paf<br>
2313: =$h.that=<br>
2314:
2315: @methresult[]
2316: $result[^table::set{1}]
2317:
2318: @terror[]
2319: ^error[method z must be called with z]
2320:
2321: @syntax1[]
2322: #^a[^b]
2323:
2324: @syntax2[]
2325: #^a[
2326:
2327: @ssave[]
2328: $abc[abc]
2329: ^abc.save[abc]
2330:
2331: @calendar[]
1.103 paf 2332: $year(2002)
2333: $month(12)
1.84 paf 2334: ${year}-${month}:<br>
2335: $week_days[^date:calendar[rus]($year;$month)]
1.15 paf 2336: <pre>
1.101 paf 2337: ^week_days.menu{^for[wday](0;6){^if($week_days.$wday){$week_days.$wday; ^; ^;} }=$week_days.week,$week_days.year=<br>}
1.15 paf 2338: </pre>
2339:
2340: @thash[]
2341: $table[^table::set{id name age
2342: 1 paf 278
2343: 2 пиф 234
2344: }]
2345: $hash[^table.hash[id;^table::set[nameless]{id
2346: name}]]
2347: $hash.2.id $hash.2.name $hash.2.age
2348:
2349: @tdef[]
2350: $s[0]
2351: if 0=^if($s){}{n}<br>
2352: if def 0=^if(def $s){y}{}<br>
2353: <hr>
2354:
2355: @ford[]
2356: ^for[i](0;5){$i}{($i)}
2357:
2358: @tif[]
2359: ^if[def]{y;n}
2360:
2361: @image[]
2362: $pict[^image::create(400;200)]
2363: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
2364: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000)
2365: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
2366: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff)
2367: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000)
2368: $response:body[^pict.gif[]]
2369:
2370:
2371:
2372: @mail2[]
2373: ^mail:send[
1.139 paf 2374: $.message-id[<6615%1@parser.ru>]
1.15 paf 2375: $.content-type[$.value[text/plain] $.charset[windows-1251]]
2376: $.from[Александр Петросян <paf@design.ru>]
2377: $.to[Александр Петросян <paf@design.ru>]
1.134 paf 2378: $.subject[проверка проверка]
2379: $.text[проверка]
1.15 paf 2380: ]
2381:
2382: @cookie[]
1.115 paf 2383: #$env:HTTP_COOKIE<br>
1.15 paf 2384:
2385: #$cookie:переменная[test тест ТЕСТ2]
2386: =$cookie:переменная=<br>
2387: #$cookie:переменная2[test тест ТЕСТ3]
2388: =$cookie:переменная2=<br>
2389: =$cookie:CLASS.переменная2=<br>
2390:
2391: @response[]
2392: #^if($form:reload){
2393: $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
2394: #}
2395:
2396: @xslt[]
2397: ^xdata[]
2398: $transformed[^xdoc.transform[global.xsl;$.param1[123/]]]
2399: ^show_xdoc2[$transformed]
2400:
2401: @regexp2[]
2402: $s[ select]
2403: $s[^s.match[^^\s*][]{!}]
2404: $s
2405:
2406: @header[]
2407: $response:refresh[
2408: $.value[0]
2409: $.url[http://design.ru?a=^taint[123]]
2410: ]
2411:
2412: @ttablerem[]
2413: $table[^table::load[a.cfg]]
2414: ^table.menu{$table.a}
2415:
2416: @tconnect[]
2417: ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
2418: $tables[^table::sql{show tables}]
2419: #$cols[^tables.columns[]]
2420: #$cols.column
2421: ^tables.menu{
2422: $tables.[Tables_in_test]<br>
2423: }
2424: }
2425:
2426: @pcre[]
2427: $s[1 2]
2428: ^s.match[\s;ig]{!}
2429: #^s.match[\d;ig]{!}
2430:
2431:
2432: @regexp[]
2433: $s[abcАБВ]
2434: ^if(^s.match[б][i]){y}{n}
2435:
2436: @mail[]
2437: #$ORIGINS(1)
2438: ^mail:send[
2439: $.from[paf@design.ru]
2440: $.to[paf@design.ru]
2441: $.body[1
2442:
2443: 2
2444:
2445:
2446: 3]
2447: ]
2448:
2449: @fori[][i]
2450: ^for[i](1;3){... =$i= ...}
2451:
2452: @xdata0[]
2453: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
2454: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
2455: <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
2456: <people>
2457: <man id="1" имя="word слово">
2458: <name>P«^;AF B</name>
2459: </man>
2460: <man id="2">
2461: <name>ПИФ^taint[&]</name>
2462: </man>
2463: </people>
2464: }]
2465:
2466: @xdata[]
2467: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
1.156 paf 2468: $xdoc[^xdoc::create{<?xml version="1.0" encoding="windows-1251"?>
1.15 paf 2469: <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
2470: <people>
2471: <man id="1" имя="word слово">
2472: <name>P«^;AF B</name>
2473: </man>
2474: <man id="2">
2475: <name>ПИФ^taint[&]</name>
2476: </man>
2477: </people>
1.156 paf 2478: }]
1.15 paf 2479:
2480: @xml[]
2481: ^xdata[]
2482:
2483: ^show_xdoc2[$xdoc]<hr>
2484: #^show_xnode1[$xdoc]<hr>
2485: $people[^xdoc.select[*/man]]
2486: #^show1[]
2487: ^show_xnodes1[$people]<hr>
2488: #^people.0.owner.hren[]
2489:
2490: ^show_xnode1[^xdoc.selectSingle[*/man[2]/name];0;1]<hr>
2491:
2492: by id:
2493: ^show_xnode1[^xdoc.getElementById[1];0;1]
2494: <hr>
2495:
2496: @show1[array]
2497: ^for[i](0;^array._count[]-1){
2498: $x[$array.$i]
2499: $x.firstChild.nodeValue:
2500: $pattributes[$x.parentNode.attributes]
2501: ^if(^pattributes._count[]){
2502: $pattributes.id.name=$pattributes.id.nodeValue
2503: }
2504: <br>
2505: }
2506:
2507: @show_xnodes1[array][i]
2508: ^for[i](0;^array._count[]-1){
2509: ^show_xnode1[$array.$i;0;1]
2510: }
2511:
2512: @show_xnode1[x;level;single][l]
2513: ^if(def $x){
2514: ^for[l](0;$level-1){ ^; ^; ^; ^;}
2515: ^if($x.nodeType == $xnode:ELEMENT_NODE){
2516: <^;$x.nodeName
2517: $pairs[$x.attributes]
2518: ^if(def $pairs){
2519: $names[^pairs._keys[]]
2520: ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
2521: }
2522: >^;
2523: }{
2524: [$x.nodeType]
2525: }
2526:
2527: ^if(def $x.nodeValue){$x.nodeValue}<br>
2528: ^show_xnode1[$x.firstChild]($level+1)
2529: ^if(!$single){
2530: ^show_xnode1[$x.nextSibling]($level)
2531: }
2532:
2533: ^if($x.nodeType == $xnode:ELEMENT_NODE){
2534: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;<br>
2535: }
2536: }
2537:
2538: @show_xdoc2[xdoc]
2539: ^xdoc.save[out/save.xml;
2540: # $.encoding[utf-8]
2541: $.method[xml]
2542: ]
2543: $file[^xdoc.file[
2544: $.encoding[utf-8]
2545: $.method[html]
2546: ]]
2547: ^file.save[text;out/save_file.html]
2548: #$response:body[^xdoc.file[ $.media-type[text/paf] ]]
2549: <pre>^taint[html][^xdoc.string[
2550: $.method[html]
2551: # $.encoding[utF-8]
2552: # $.omit-xml-declaration[yes]
2553: # $.standalone[no]
2554: # -$.doctype-public[-//W3C//DTD XHTML]
2555: # -$.doctype-system[/a/b/c/]
2556: # $.indent[yes]
2557: # $.media-type[text/paf]
2558: ]]
2559: </pre>
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to index.html CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / www / htdocs