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