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