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