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