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