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