Annotation of parser3/www/htdocs/index.html, revision 1.49

1.42      paf         1: @USE
                      2: t.p
1.15      paf         3: 
                      4: @autoz[]
                      5: $request:charset[windows-1251]
                      6: $response:charset[windows-1251]
                      7: $response:content-type[$.value[text/html]$.charset[$response:charset]]
                      8: 
1.38      paf         9: #@postprocess[body]
                     10: #<b>$body</b>
                     11: #$result[123]
1.37      paf        12: 
1.15      paf        13: @main[]
1.49    ! paf        14: #^eval(2)
1.48      paf        15: #^tcrashlocaljunctionsv2[]
1.49    ! paf        16: #^tcrashlocaljunctions[]
        !            17: ^tjunctions[]
1.47      paf        18: #^replacetest[]
1.48      paf        19: #^matchoptionpp[]
1.46      paf        20: #^txdocxnodechild[]
1.44      paf        21: #^tclasses[]
1.43      paf        22: #$math:PI
                     23: #^b:method[]
1.42      paf        24: #^main[]
1.41      paf        25: #^errort[]
1.44      paf        26: #^tselectNumber[]
1.39      paf        27: #$result[hello]
1.36      paf        28: #^invaliddate2[]
                     29: #^process2[]
                     30: #^casehashtext[]
1.35      paf        31: #^subjvaltest[]
                     32: #^tableselect0[]
1.34      paf        33: #^memnotest1[]
1.33      paf        34: #^transparams[]
1.32      paf        35: #^voidparams[]
1.31      paf        36: #^rolls2[]
1.30      paf        37: #^cacheexpireschanging[]
1.29      paf        38: #^cacheexpiresfixed[]
                     39: #^dateoffsets[]
                     40: #^exceptionTypes[]
1.28      paf        41: #^roll2[]
1.27      paf        42: #^rolls[]
1.25      paf        43: #^exceptions1[]
1.22      paf        44: #^locate_by_expr[]
1.18      paf        45: #^method_junction_params{...}
1.17      paf        46: #^verifyCookie[paf]
1.37      paf        47: #^execlangs[]
1.16      paf        48: #$t[^tobjeresult[]]$t.a
                     49: #^xmlprobs[]
1.15      paf        50: #^doubleprobs[]
                     51: #^math:random(-10)
                     52: #^divnamestop[]
                     53: #^arrayclone[]
                     54: #^operator_tricks[]
                     55: #^xoutputrusattr[]
                     56: #^xdocset1[]
                     57: #^regexp3[]
                     58: #^exec2[]
                     59: #^tlock[]
                     60: #^xmloutattrwithoutvalue[]
                     61: #^precisionProblem[]
                     62: #^xpath[]
                     63: #^ttablesetlang[]
                     64: #^mail3[]
                     65: #^ttime[]
                     66: #^tupper[]
                     67: #^treplace[]
                     68: #^xslt2[]
                     69: #^tcache2[]
                     70: #$ORIGINS(1)
                     71: #$t[^table::set{a b} ^table::set{c d}]
                     72: #^ttaintuntaint[]
                     73: #^tappend2[]
                     74: #^badvsnprintf[]
                     75: #^badoracequoting[]
                     76: #^badconstructors[]
                     77: #^xloadwrongtable[]
                     78: #^xsetwrongtable[]
                     79: #^if($form:test){y}{n}
                     80: #^tablecolumnerror[]
                     81: #^roll[]
                     82: #^cookie2[]
                     83: #^tableset[]
                     84: #^math:PI.format{%.30f}
                     85: #^xchildren[]
                     86: #^thashforeach3[]
                     87: #^thashforeach2[]
                     88: #^thashforeach[]
                     89: #^thashdelete[]
                     90: #^connect[mysql://user:pass@cd.rinet.ru/db]{^void:sql{z} }
                     91: #^tappend[]
                     92: #^sappend[]
                     93: #^eval(10\3)<br>
                     94: #^tform[]
                     95: #^formattest[]
                     96: #^filelist[]
                     97: #^connect[mysql://user:pass@host]{ }
                     98: #^безнадёжна_попытка_поправить_непоправимое[]
                     99: #^tcache[]
                    100: #^thashfileexp[]
                    101: #^tcounter[]
                    102: #^tablehash[]
                    103: #j^hashfile[]
                    104: #^formclass[]
                    105: #^hren[]
                    106: #^domedit[]
                    107: #^domxslt[]
                    108: #^lsplit2[]
                    109: #^faceesize[]
                    110: #^imageresize[]
                    111: #^ifassignhash[]
                    112: #^tintdefault[]
                    113: #$response:status[404]
                    114: #^ifpasshash[]
                    115: #^movedir[]
                    116: #^replace[]
                    117: #^set[]
                    118: #^hash[]<hr>
                    119: #$t[^methresult[]] ->$t
                    120: #^terror[]
                    121: #^ssave[]
                    122: #^calendar[]
                    123: #^thash[]
                    124: #^tdef[]
                    125: #^ford[]
                    126: #^tif[]
                    127: #^image[]
                    128: #^mail2[]
                    129: #^cookie[]
                    130: #^response[]
                    131: #^regexp2[]
                    132: #^ttablerem[]
                    133: #^pcre[]
                    134: #^regexp[]<hr>
                    135: #^mail[]
                    136: #^exec[]
                    137: #^fori[]
                    138: #^tconnect[]
                    139: #^xslt[]
                    140: #^xml[]
                    141: #^header[]
                    142: <hr>
                    143: OK
1.48      paf       144: 
                    145: @tcrashlocaljunctionsv2[]
                    146: $a[
                    147:        $b{  $c[1] }
                    148: ]
                    149: $b
                    150: $c
                    151: 
                    152: @tcrashlocaljunctions[]
                    153: $var[aaa]
                    154: ^if(1){
                    155: ^tcrashlocaljunctions1[]
                    156: }
                    157: 
                    158: $j
                    159: 
1.49    ! paf       160: @tcrashlocaljunctions1[][var]
        !           161: $var[varvalue]
1.48      paf       162:        $j{
                    163:                $var
                    164:        }
1.49    ! paf       165: $j
1.48      paf       166: 
                    167: @tjunctions[][tl]
                    168: $t[^t::create[]]
                    169: ^tjunctionsi[]
                    170: 
                    171: @tjunctionsi[][tl]
                    172: $tl[12345]
                    173: ^t.tjunctionsm[
                    174:        $.key{
                    175:                $tl
                    176:        }
                    177: ]
1.46      paf       178: 
1.47      paf       179: @replacetest[]
                    180: $b[b]
                    181: $s[
                    182: aaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    183: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    184: ]
                    185: ^s.replace[^table::create{from to
                    186: ba     !_}]
                    187: 
                    188: 
1.46      paf       189: @matchoptionpp[]
1.47      paf       190: #$ORIGINS(1)
1.46      paf       191: $s[
                    192: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1.47      paf       193: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    194: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    195: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    196: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    197: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    198: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    199: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    200: aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
                    201: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
1.46      paf       202: ]
                    203: ^s.match[b;g']{($match.prematch|$match.match|$match.postmatch)}
                    204: 
1.44      paf       205: 
                    206: @txdocxnodechild[]
                    207: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?><d/>}]
                    208: $xdoc.nodeName
                    209: ^xdoc.selectNumber[2*2]
1.45      paf       210: $xdoc:ELEMENT_NODE
1.44      paf       211: 
                    212: 
                    213: @tclasses[]
                    214: $t[^t::create[]]
                    215: ^t.method[]
                    216: <hr>
                    217: ^t.base_method[]
                    218: 
1.40      paf       219: 
                    220: @errort[]
1.42      paf       221: ^xdoc::create[a]
1.40      paf       222: #^throw[user;here;this]
                    223: 
                    224: @tselectNumber[]
                    225: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет" n="123"/>}]
                    226: ^d.selectString[string(d/@attr)]<br>
                    227: ^d.selectNumber[2*2]<br>
                    228: ^d.selectNumber[number(/d/@n)+1]<br>
                    229: 
1.34      paf       230: 
1.36      paf       231: @invaliddate2[]
                    232: $d[^date::create(1018946575/60/60)] ^d.sql-string[]
                    233: 
                    234: @process2[]
                    235: ^^process{
                    236:        ^process{
                    237:                ^$a[^^if(0){^$.k[y]}{^$.k[^^hren[]n]}] ^$a.k
                    238:        }
                    239: }
                    240: 
1.35      paf       241: @casehashtext[]
                    242: $tt[1]
                    243: $tmp[
                    244:         ^switch[$tt]{
                    245:                 ^case[1]{
                    246:                         $.aaa[123]
                    247:                 }
                    248:                 ^case[DEFAULT]{
                    249:                         $.bbb[456]
                    250:                 }
                    251:         }
1.36      paf       252:         shit!
1.35      paf       253: ]
1.36      paf       254: #$tmp
1.35      paf       255: $tmp.aaa
                    256: 
                    257: @subjvaltest[]
                    258: $a12[val]
                    259: $b[12]
                    260: $a$b
                    261: 
1.34      paf       262: @tableselect0[]
                    263: $person[^table::create{name    height
                    264: paf    1.77
                    265: шохин  2.07
                    266: moko   1.77
                    267: }]
                    268: $nottoohigh[^person.select($person.height<2)]
                    269: ^nottoohigh.menu{$nottoohigh.name<br>}
1.32      paf       270: 
                    271: @transparams[]
                    272: $idoc[^xdoc::create{<?xml version="1.0" ?><doc/>}]
                    273: $odoc[^idoc.transform[global.xsl;
                    274:        $.param1['1']
                    275:        $.param2['2']
                    276: ]]
                    277: <pre>^taint[^odoc.string[$.method[html]]]
                    278: 
                    279: @memnotest1[]
                    280: ^for[i](0;4000){
                    281: 
                    282:  $xxxx[$i]
                    283:  $xxxx
                    284: 
                    285: }
                    286: 
                    287: @memnotest1notes[]
                    288: одна итерация цикла:
                    289: [Mon Apr  8 20:12:02 2002] execution-------------------------|
1.35      paf       290: '469641+=28 wcodeframe -> 0 !optimize[3]''469669+=49 string от {} -> 0 optimize[3]'
1.32      paf       291: [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
                    292: [Mon Apr  8 20:12:02 2002]  "|| "
                    293: [Mon Apr  8 20:12:02 2002] 12:WITH_ROOT
                    294: [Mon Apr  8 20:12:02 2002] 13:VALUE
                    295: [Mon Apr  8 20:12:02 2002]  "xxxx" string
1.35      paf       296: [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       297: [Mon Apr  8 20:12:02 2002] 16:WITH_READ
                    298: [Mon Apr  8 20:12:02 2002] 17:VALUE
                    299: [Mon Apr  8 20:12:02 2002]  "i" string
                    300: [Mon Apr  8 20:12:02 2002] 18:GET_ELEMENT
1.35      paf       301: [Mon Apr  8 20:12:02 2002] 17:WRITE_VALUE'469452+=40 MAX_NUMBER -> !~2 actual digits''469492+=49 -> 41 !'
                    302: [Mon Apr  8 20:12:02 2002] 16:REDUCE_EWPOOL'469541+=24 VString -> 0 optimize[5]'
1.32      paf       303: [Mon Apr  8 20:12:02 2002] 15:CONSTRUCT_VALUE
                    304: [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
                    305: [Mon Apr  8 20:12:02 2002]  "| "
                    306: [Mon Apr  8 20:12:02 2002] 12:WITH_READ
                    307: [Mon Apr  8 20:12:02 2002] 13:VALUE
                    308: [Mon Apr  8 20:12:02 2002]  "xxxx" string
                    309: [Mon Apr  8 20:12:02 2002] 14:GET_ELEMENT
                    310: [Mon Apr  8 20:12:02 2002] 13:WRITE_VALUE'469573+=41 string expand nothing for now'
                    311: [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
1.35      paf       312: [Mon Apr  8 20:12:02 2002]  "||"'469617+=24 VString -> 0 !optimize[6]'
1.32      paf       313: [Mon Apr  8 20:12:02 2002] <-ja returned
                    314: [Mon Apr  8 20:12:02 2002] ja->
                    315: 
                    316: 201/328=0.612804878049 %%optimized
                    317: 
                    318: 1.
                    319: CREATE_*POOL
                    320:     сделать
                    321: *POOL_POOLED+CODE
                    322:     где
                    323:         wwrapper
                    324:         и(возможно) wcodeframe
                    325:         +string
                    326:         стековая переменная
                    327: 
                    328: 2.
                    329: избавиться от обёртки при возврате результата process [см. тело _for]
                    330: 
                    331: 3.
                    332: сделать callback для process, чтобы вынести invariants из _for & co.
                    333: 
                    334: 4.
                    335:  @todo склеить get_element и write_value (при вставлении? write_value)
                    336: 
                    337: 5.
                    338: reduce_*pool -> вариант получить именно string, без VString обёртки [часто
                    339: обёртка сразу выбрасывается = не нужна]
                    340: 
                    341: 6.
                    342: process вариант получить именно string, без VString обёртки [часто обёртка
                    343: сразу выбрасывается = не нужна]
                    344: 
                    345: 7.
                    346: string head, убить 8 байт неправильной link
1.31      paf       347: 
                    348: @voidparams[]
                    349: ^voidparamsm[$form:field]
                    350: 
                    351: @voidparamsm[p]
                    352: ^p.int(123)
1.29      paf       353: 
1.30      paf       354: @rolls2[]
                    355: $now[^date::now[]]
                    356: $d[^date::create($now.year;$now.month)] ^d.sql-string[]<br>
                    357: ^for[i](1;12){
                    358:        ^d.roll[month](-1) ^d.sql-string[]<br>
                    359: }
                    360: 
1.29      paf       361: @cacheexpireschanging[]
                    362: ^cache[$DB_HOME/keyключ][^date::now(+1)]{ ^rem{1 day}
                    363:     ^cache[^date::now(+4/24/60/60)]
                    364: #    ^cache(2)
1.30      paf       365: #    ^cache(0)
1.29      paf       366:        ^math:random(100)
                    367: }
                    368: 
                    369: 
                    370: 
                    371: @cacheexpiresfixed[]
                    372: ^cache[$DB_HOME/keyключ][^date::now(+2/24/60/60)]{
                    373:        ^math:random(100)
                    374: }
                    375: 
                    376: @dateoffsets[]
                    377: $d[^date::create(^date::now[]+1/24/60)]
                    378: #$d[^date::now(+1/24/60)]
                    379: ^d.sql-string[]
                    380: #$d
1.26      paf       381: 
1.28      paf       382: @exceptionTypes[]
                    383: #    parser.compile       ^test[}                компиляция (непарная скобка, ...)
                    384: #    parser.runtime       ^if(0).                параметры (больше/меньше, чем нужно, не тех типов, ...)
                    385: #    number.zerodivision  ^eval(1/0) ^eval(1%0)
                    386: #    number.format        ^eval(abc*5)
                    387: #    file.missing         ^file:delete[delme]                       not found
                    388: #    file.access          ^table::load[.]                       no rights
                    389: #    image.format         ^image::measure[index.html]                        not gif/jpg
                    390: #    sql.connect          ^connect[mysql://baduser:pass@host/db]{}                       not found/timeout
                    391: #    sql.execute          ^connect[mysql://okuser:pass@host/db]{^void:sql{select bad}}                       syntax error
                    392: #    xml                  ^xdoc::create{<forgot?>}                       any error in xml/xslt libs
                    393: #    smtp.connect                                not found/timeout
                    394: #    smtp.execute                                communication error
                    395: 
1.26      paf       396: @roll2[]
                    397: $d[^date::create(2002;4;2;2;2;3)] ^d.sql-string[]<br>
1.27      paf       398: ^d.roll[day](+365*3+1) ^d.sql-string[]<br>
1.26      paf       399: 
1.25      paf       400: 
                    401: @rolls[]
                    402: $d[^date::create(2002;4;4)]
                    403: ^d.sql-string[]<br>
                    404: ^for[i](1;7){
                    405: ^d.roll[day](-1)
                    406: ^d.sql-string[]<br>
                    407: }
                    408: <hr>
                    409: $d[^date::create(2002;3;28)]
                    410: ^d.sql-string[]<br>
                    411: ^for[i](1;7){
                    412: ^d.roll[day](+1)
                    413: ^d.sql-string[]<br>
                    414: }
                    415: <hr>
                    416: $d[^date::create(2002;12;3)]
                    417: ^d.sql-string[]<br>
                    418: ^for[i](1;14){
                    419: ^d.roll[day](-1)
                    420: ^d.sql-string[]<br>
                    421: }
                    422: <hr>
                    423: $d[^date::create(2002;10;19)]
                    424: ^d.sql-string[]<br>
                    425: ^for[i](1;14){
                    426: ^d.roll[day](+1)
                    427: ^d.sql-string[]<br>
                    428: }
                    429: 
                    430: 
                    431: 
                    432: 
                    433: 
1.22      paf       434: 
                    435: @exceptions1[]
                    436: ^try{
                    437:        aaa
1.24      paf       438:        ^throw[custom1;paf;is stupid]
1.22      paf       439: }{
1.24      paf       440:        ^if($exception.type eq custom1){
1.28      paf       441: #              $exception.handled(1)
                    442:        ^throw[$exception]
1.24      paf       443:                type=$exception.type<br>
                    444:            source=$exception.source<br>
                    445:            file=$exception.file<br>
                    446:            lineno=$exception.lineno<br>
                    447:        comment=$exception.comment<br>
                    448:        }
1.22      paf       449: }
1.21      paf       450: 
                    451: @locate_by_expr[]
                    452: $t[^table::create{a    b
                    453: 1      nok
                    454: 2      ok
                    455: 3      nok
                    456: }]
                    457: ^if(^t.locate($t.a==2)){$t.b}{n}
1.17      paf       458: 
                    459: @method_junction_params[param]
                    460: ^if($param is junction){junction}{ne junction}
                    461: 
                    462: @verifyCookie[value] 
                    463: ^if($cookie:dummyvote eq $value){ 
                    464:        $result(1) 
                    465: }{ 
                    466:        $cookie:dummyvote[$value] 
                    467:        $result(0) 
                    468: }
1.16      paf       469: 
                    470: @execlangs[]
1.20      paf       471: $f[^file::exec[test.pl]]
1.36      paf       472: err:$f.stderr<br>
1.16      paf       473: ^process{$f.text}
                    474: #$c[^t.columns[]]
                    475: #^c.menu{
                    476: #* $c.column<br>
                    477: #}
1.36      paf       478: c:$t.c<br>
1.16      paf       479: 
                    480: @tobjeresult[]
                    481: ^table::create{a
                    482: 12}
1.15      paf       483: 
                    484: @xmlprobs[]
                    485: $xmlDataType[^xdoc::load[program.xml]]
                    486: #<pre>^taint[^xmlDataType.string[]]
                    487: $xmlDataTypes[^xmlDataType.select[programs/program[@id=4]/data]]
                    488: #=^xmlDataTypes._count[]=
                    489: =^xmlDataTypes.0.getAttribute[type-id]=
                    490: 
                    491: @doubleprobs[]
                    492: $1(^math:radians(180))
                    493: $2($math:PI)
                    494: ^if(^1.format[%.10f]==^2.format[%.10f]){y;n}
                    495: ^if($1==$2){y;n}
                    496: ^if(^math:radians(180)==$math:PI){y;n}
                    497: 
                    498: 
                    499: @divnamestop[]
                    500: $a(10)
                    501: ^eval($a\3)
                    502: 
                    503: @arrayclone[]
                    504: $t[^table::create{a    b
                    505: 1      11
                    506: 2      22
                    507: }]
                    508: $c[^table::create[$t]]
                    509: ^c.append{2    33}
                    510: ^t.count[]
                    511: ^c.count[]
                    512: 
                    513: @operator_tricks[]
                    514: ^if(1){$a[^t[]]}
                    515: $a!
                    516: $a($b)
                    517: ^if(1){y}{n}
                    518: $MAIN:a(^t[] eq OK)
                    519: #$MAIN:a(1)
                    520: ^if($a){y}{n}
                    521: #^if(1){y}{n}
                    522: $form:if
                    523: $a[$.n[1]]
                    524: $a.if
                    525: 
                    526: @xoutputrusattr[]
                    527: $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет"/>}]
                    528: ^show_xdoc2[$d]
                    529: 
                    530: @xdocset1[]
                    531: $d[^xdoc::set{<?xml version="1.0"?><d>=^taint[&]=</d>}]
                    532: ^show_xdoc2[$d]
                    533: 
                    534: @regexp3[]
                    535: $s[abcАБВ]
                    536: ^if(^s.match[][i]){y}{n}
                    537: 
                    538: 
                    539: @exec2[]
                    540: $a[^file::exec[bin/t.cmd]]
                    541: <pre>^taint[$a.text]</pre>|$a.status|$a.stderr<hr>
                    542: 
                    543: 
                    544: @tlock[]
                    545: ^file:lock[lockfile]{
                    546:        code
                    547: }
                    548: 
                    549: @xmloutattrwithoutvalue[]
                    550: #$ORIGINS(1)
                    551: $doc[^xdoc::set{<?xml version="1.0"?><doc background="">zz</doc>}]
                    552: $doc[^doc.transform[global.xsl]]
                    553: =^taint[html][^doc.string[$.method[html]]]=
                    554: 
                    555: 
                    556: 
                    557: @precisionProblem[]
                    558: $a[123456789012345678901234567890]
                    559: $b(^a.double[])
                    560: ^b.format{%.20E}
                    561: <hr>
                    562: ^eval(2*2)
                    563: 
                    564: @xpath[]
                    565: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?>
                    566: <document><block><p>привет</p></block></document>
                    567: }]
                    568: #^show_xdoc2[$xdoc]
                    569: $node[^xdoc.selectSingle[/document/block/p]]
                    570: ^if(def $node){
                    571:        ^if($node is string){
                    572:                $node
                    573:        }{
                    574:        ^if($node is hash){
                    575:                ^node._count[]
                    576:        }{
                    577:                $node.nodeType
                    578:        }
                    579:        }
                    580: #$node.firstChild.nodeValue
                    581: }{
                    582:        node not found
                    583: }
                    584: 
                    585: 
                    586: @ttablesetlang[]
                    587: $a-tab-b[a     b
                    588: 1      2]
                    589: 
                    590: $t[^table::set{$a-tab-b}]
                    591: =$t.a=
                    592: <hr>
                    593: 
                    594: $t[^table::set[nameless]{^taint[$a-tab-b]}]
                    595: =$t.0=
                    596: <hr>
                    597: 
                    598: $t[^table::set{^untaint{^taint[$a-tab-b]}}]
                    599: =$t.a=
                    600: 
                    601: #^t.append{1   2}
                    602: 
                    603: @mail3[]
                    604: ^mail:send[
                    605:        $.from[Александр Петросян <paf@design.ru>]
                    606:        $.to[Александр Петросян <paf@design.ru>]
                    607:        $.subject[проверка4]
                    608:        $.body[
                    609:                $.text[
                    610:                        $.content-type[$.value[text/plain] $.charset[windows-1251]]
                    611:                        $.body[проверка]
                    612:                ]
                    613:                $.attachment[
                    614:                        $.value[^file::load[text;index.html]]
                    615:                        $.file-name[привет всем.html]                   
                    616:                ]
                    617:        ]
                    618: ]
                    619: 
                    620: 
                    621: @ttime[]
                    622: $now[^date::now[]]
                    623: $now.hour:$now.minute
                    624: 
                    625: @tupper[]
                    626: $t[abcABCабвАБВ]
                    627: $t<br>
                    628: ^t.upper[]
                    629: 
                    630: @treplace[]
                    631: $copy-paste-clean[^table::set{a b
                    632: .      _
                    633: ,      _
                    634: +      _
                    635: &      _
                    636: ?      _
                    637: =      _}]
                    638: 
                    639: $cache_key[^taint[в.а,с+я]&был?тут=недавно.cache]
                    640: # почему-то этот replace роняет апач в 500 ошибку :(
                    641: #^cache_key.replace[$copy-paste-clean]
                    642: $test[abc]
                    643: ^test.save[$cache_key]saved<br>
                    644: $cache[^file:list[.;\.cache^$]]
                    645: ^file:delete[$cache_key]deleted($cache.name)<br>
                    646: 
                    647: 
                    648: 
                    649: @xslt2[]
                    650: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?>
                    651: <document><block><p>привет</p></block></document>
                    652: }]
                    653: ^show_xdoc2[$xdoc]
                    654: ^show_xdoc2[^xdoc.transform[templates/_document.xslt]]
                    655: <hr>
                    656: 
                    657: 
                    658: @tcache2[]
                    659: ^cache[$DB_HOME/keyключ](2){
                    660:        ^math:random(100)
                    661: }
                    662: 
                    663: @ttaintuntaint[]
                    664: <!-- некий панковский заголовок с буковкой C в круглых скобках -->^taint[html][
                    665: 
                    666: ]zz
                    667: <hr>
                    668: ^untaint[html]{1^taint[  ]2  3}
                    669: 
                    670: 
                    671: @tappend2[]
                    672: $t[^table::set{a       b}]^t.append{1  2}$t.a
                    673: 
                    674: @badvsnprintf[]
                    675: ^connect[zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]{
                    676: }
                    677: 
                    678: 
                    679: @badoracequoting[]
                    680: $SQL.connect-string[oracle://webspb:webpwd@mts?NLS_LANG=RUSSIAN_AMERICA.CL8MSWIN1251&NLS_DATE_FORMAT=YYYY-MM-DD HH24:MI:SS]
                    681: ^connect[$SQL.connect-string]{
                    682: ^void:sql{delete from paf}
                    683: ^void:sql{insert into paf values (1, '$form:text')}
                    684: $paf[^table::sql{select * from paf}]
                    685: ^paf.menu{
                    686:        $paf.id: ^untaint{$paf.block}<hr>
                    687: 
                    688: }
                    689: <hr>
                    690: 
                    691: 
                    692: ^rem{
                    693: $news[^table::sql{select description from news}[$.limit(3)]]
                    694: ^news.menu{
                    695:        ^untaint{$news.description}<hr>
                    696: 
                    697: }
                    698: <hr>
                    699: }
                    700: 
                    701: $tables[^table::sql{select table_name from user_tables}]
                    702: ^tables.menu{
                    703: $tables.table_name<br>
                    704: }
                    705: 
                    706: }
                    707: <hr>
                    708: $env:PATH
                    709: 
                    710: @badconstructors[]
                    711: $bred[^string::length[]]
                    712: $bred[^response::clear[]]
                    713: $bred[^int::int[]]
                    714: 
                    715: 
                    716: @xloadwrongtable[]
                    717: $constr[^xdoc::load[wrongtable.xml]]
                    718: ^show_xdoc2[$constr]
                    719: 
                    720: @xsetwrongtable[]
                    721: $constr[^xdoc::set{<?xml version="1.0" encoding="windows-1251z" ?>
                    722: <block-list>^untaint[as-is]{$constructor}</block-list>}]
                    723: 
                    724: 
                    725: @tablecolumnerror[]
                    726: $t[^table::set{a}]
                    727: $t.$a
                    728: 
                    729: @roll[]
                    730: #$date[^date::set(1970;1;2)]
                    731: #^date.roll[month](-1)
                    732: $date[^date::set(2038;1;1)]
                    733: ^date.roll[month](+1)
                    734: $date.year  $date.month  $date.day
                    735: 
                    736: @cookie2[]
                    737: #=$cookie:clientType[$.value[test]]=<br>
                    738: =$cookie:clientType=<br>
                    739: 
                    740: 
                    741: @tableset[]
                    742: $a[^table::set{a
                    743: 1
                    744: 2}]
                    745: ^eval(100\$a)
                    746: 
                    747: 
                    748: 
                    749: @zzz[]
                    750: 
                    751: 
                    752: $constructor[
                    753: <block1 name="main_srvr" type="0" label="Основное тело" />
                    754: <block2 name="main_srvr2" type="0" label="Основное тело" />
                    755: ]
                    756: 
                    757: $constr[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?>
                    758: <block-list>^untaint[as-is]{$constructor}</block-list>}]
                    759: 
                    760: $children[$constr.documentElement.childNodes]
                    761: ^if($children){
                    762: ^for[i](1;^children._count[]){
                    763:        $node[$children.$i]
                    764:        $node.nodeName<br>
                    765: }
                    766: }
                    767:    
                    768: 
                    769: @thashforeach3[]
                    770: $h[
                    771:        $.a[1] 
                    772:        $.b[2]
                    773: ]
                    774: $c[^table::set{a
                    775: ^h.foreach[key;value]{$value
                    776: }}]
                    777: $c.a
                    778: 
                    779: @thashforeach2[]
                    780: $h[
                    781:        $.a[1] 
                    782:        $.b[2]
                    783: ]
                    784: $c[
                    785: ^h.foreach[key;value]{
                    786:        $.$key[$value]
                    787: }
                    788: ]
                    789: $c.b
                    790: 
                    791: @thashforeach[]
                    792: $h[
                    793:        $.a[1] 
                    794:        $.b[2]
                    795: ]
                    796: ^h.foreach[key;value]{
                    797:        $key=$value<br>
                    798: }
                    799: 
                    800: @thashdelete[]
                    801: $h[$.a[1] $.b[2]]
                    802: was:<br>
                    803: count=^h._count[] <br>
                    804: b='$h.b' <br>
                    805: 
                    806: ^h.delete[b] 
                    807: 
                    808: now:<br>
                    809: count=^h._count[] <br>
                    810: b='$h.b' 
                    811: 
                    812: @sappend[]
                    813: $test[123]
                    814: ^test.save[test]
                    815: ^test.save[append;test]
                    816: 
                    817: @tappend[]
                    818: $test[^table::set{a    b
                    819: a1     b1}]
                    820: ^test.save[test]
                    821: $test[^table::set{a    b
                    822: a2     b2}]
                    823: ^test.save[append;test]
                    824: 
                    825: 
                    826: @tform[]
                    827: ^if(def $form:new_file){y}{n}
                    828: <form method="post" enctype="multipart/form-data">
                    829: <input type="file" name="new_file" />
                    830: <input type=submit>
                    831: </input>
                    832: 
                    833: @formattest[]
                    834: $size(15.124)
                    835: 
                    836: ^size.format{%.2f}
                    837: 
                    838: @filelist[]
                    839: $html[^file:list[.;\.html^$]]
                    840: ^html.menu{
                    841:        $html.name<br>
                    842: }
                    843: <hr>
                    844: 
                    845: @безнадёжна_попытка_поправить_непоправимое[]
                    846: $dom_from_disk[^xdoc::load[input.xml]]
                    847: $dom_created_in_air[^xdoc::create[doc]]
                    848: ^dom_created_in_air.documentElement.appendChild[^dom_from_disk.documentElement.cloneNode(1)]
                    849: ^show_xdoc2[$dom_created_in_air]
                    850: 
                    851: 
                    852: @tcache[]
                    853: #^hashfile:clear[cache]
                    854: $code[^hashfile::open[$DB_HOME;cache]]
                    855: ^code.cache[key](2){
                    856:        ^math:random(100)
                    857: #      ^code.delete[]
                    858: }
                    859: 
                    860: @thashfileexp[]
                    861: $hf[^hashfile::open[$DB_HOME;hashfile]]
                    862: $hf.paf[$.value[крут] $.expires(3)]
                    863: paf=$hf.paf
                    864: <hr>
                    865: ^hf.foreach[key;value]{
                    866:        $key=$value<br>
                    867: }
                    868: <hr>
                    869: $hash[^hf.hash[]]
                    870: =$hash.paf=
                    871: <hr>
                    872: 
                    873: @tcounter[]
                    874: ^tcounterone[$DB_HOME]
                    875: other root:
                    876: ^tcounterone[${DB_HOME}2]
                    877: again, first:
                    878: ^tcounterone[$DB_HOME]
                    879: 
                    880: @tcounterone[DB_HOME]
                    881: $counter[^hashfile::open[$DB_HOME;counter]]
                    882: #^counter.clear[]
                    883: ^counter.transaction{
                    884: #      $counter.value(10)
                    885:        $counter.value($counter.value+1)
                    886: #      ^counter.delete[value]
                    887:        $counter.value
                    888: }
                    889: <hr>
                    890: ^rem{
                    891: $hash[^counter.hash[]]
                    892: =$hash.value=
                    893: <hr>
                    894: }
                    895: 
                    896: @tablehash[]
                    897: $productList[^table::set{id    name
                    898: 1      носки
                    899: 2      валенки
                    900: 3      ушанка
                    901: }]
                    902: 
                    903: #скажем, у первого дилера
                    904: $firstPriceList[^table::set{id price
                    905: 1      0.3
                    906: 3      1000
                    907: }]
                    908: 
                    909: $firstPriceHash[^firstPriceList.hash[id]]
                    910: 
                    911: ^productList.menu{
                    912:     продукт "$productList.name" | цена у first: $firstPriceHash.[$productList.id].price<br>
                    913: }
                    914: 
                    915: 
                    916: @hashfile[]
                    917: $hf[^hashfile::assign[hashfile]]
                    918: #$hf.paf[крут5]
                    919: paf=$hf.paf
                    920: 
                    921: @formclass[]
                    922: ^$form:CLASS.a=$form:CLASS.a
                    923: 
                    924: @domdata[]
                    925: ^if(1){
                    926: #      $a{^hren[]}
                    927: }
                    928: $a
                    929: $xdoc[^xdoc::create[doc]]
                    930: $doc[$xdoc.documentElement]
                    931: $name[^doc.appendChild[^xdoc.createElement[name]]]
                    932: $text[^name.appendChild[^xdoc.createTextNode[петросян&coz]]]
                    933: ^untaint[as-is]{=$text.nodeValue=}
                    934: 
                    935: @domedit[]
                    936: ^domdata[]
                    937: #$paf.nodeName<br>
                    938: #$doc.documentElement.nodeName<br>
                    939: 
                    940: ^show_xnode1[$xdoc.documentElement;0;1]
                    941: <hr>
                    942: ^show_xdoc2[$xdoc]
                    943: <hr>
                    944: 
                    945: @domxslt[]
                    946: ^domdata[]
                    947: ^show_xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]]
                    948: <hr>
                    949: 
                    950: @lsplit2[]
                    951: $path[/optics/]
                    952: $pathTable[^path.lsplit[/]]
                    953: ^pathTable.menu{
                    954:        ^if(def $pathTable.piece){
                    955:                =$pathTable.piece=
                    956:        }
                    957: }
                    958: 
                    959: 
                    960: @faceesize[]
                    961: $k(2)
                    962: $pict[^image::load[paf.gif]]
                    963: $small[^image::create($pict.width/$k;$pict.height/$k)]
                    964: ^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;250)
                    965: $response:body[^small.gif[]]
                    966: 
                    967: @imageresize[]
                    968: $k(2)
                    969: $pict[^image::create(400*$k;200*$k)]
                    970: $pict.line-width(2)
                    971: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
                    972: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-20;$pict.height-20;0+20;360-20;0xff0000)
                    973: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
                    974: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-20;0x0000ff)
                    975: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+20;360-20;0xff0000)
                    976: $response:body[^pict.gif[]]
                    977: 
                    978: #$small[^image::create($pict.width/$k;$pict.height/$k)]
                    979: #^small.copy[$pict](0;0;$pict.width;$pict.height;0;0)
                    980: #^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;0)
                    981: 
                    982: #$response:body[^small.gif[]]
                    983: 
                    984: 
                    985: @tintdefault[]
                    986: #$abc[abc]
                    987: $abc[33]
                    988: ^abc.int[z]
                    989: #^abc.int(123)
                    990: 
                    991: @ifassignhash[]
                    992: $h[^if(1){$.a(1);$.a(2)}]
                    993: $h.a
                    994: 
                    995: @ifpasshash[]
                    996: $a[$.e[a]]
                    997: $b[$.e[b]]
                    998: ^ifpasshashdest[^if(1){$a;$b}]
                    999: #$x[^if(1){$a}{$b}]
                   1000: #^ifpasshashdest[$x]
                   1001: 
                   1002: @ifpasshashdest[p]
                   1003: $p.e
                   1004: 
                   1005: @movedir[]
                   1006: ^file:move[a;deeper/a]
                   1007: 
                   1008: @replace[]
                   1009: $a[12^;3]
                   1010: ^a.replace[^table::set{from    to
                   1011: 2^;    !
                   1012: }]
                   1013: 
                   1014: 
                   1015: @set[]
                   1016: ^setdata[]
                   1017: ^a.add[$b]
                   1018: add:$a.3<br>
                   1019: 
                   1020: ^setdata[]
                   1021: ^a.sub[$b]
                   1022: sub2:$a.2<br>
                   1023: sub1:$a.1<br>
                   1024: 
                   1025: ^setdata[]
                   1026: $c[^a.union[$b]]
                   1027: union3:$c.3<br>
                   1028: union2:$c.2<br>
                   1029: 
                   1030: ^setdata[]
                   1031: $c[^a.intersection[$b]]
                   1032: intersection3:$c.3<br>
                   1033: intersection2:$c.2<br>
                   1034: 
                   1035: ^setdata[]
                   1036: intersects:^if(^a.intersects[$b]){y;n}<br>
                   1037: intersects2:^if(^a.intersects[ ]){y;n}<br>
                   1038: 
                   1039: 
                   1040: <hr>
                   1041: 
                   1042: @setdata[]
                   1043: $a[$.1[a1] $.2[a2]]
                   1044: $b[        $.2[b2] $.3[b3]]
                   1045: 
                   1046: 
                   1047: @hash[]
                   1048: $h[^hash::create[$._default[123]]]
                   1049: $h.paf[not kretin]
                   1050: $h.paf<br>
                   1051: =$h.that=<br>
                   1052: 
                   1053: @methresult[]
                   1054: $result[^table::set{1}]
                   1055: 
                   1056: @terror[]
                   1057: ^error[method z must be called with z]
                   1058: 
                   1059: @syntax1[]
                   1060: #^a[^b]
                   1061: 
                   1062: @syntax2[]
                   1063: #^a[
                   1064: 
                   1065: @ssave[]
                   1066: $abc[abc]
                   1067: ^abc.save[abc]
                   1068: 
                   1069: @calendar[]
                   1070: 2001;11:<br>
                   1071: $week_days[^date:calendar[rus](2001;11)]
                   1072: <pre>
                   1073: ^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday;&nbsp^;&nbsp^;} }<br>}
                   1074: </pre>
                   1075: 
                   1076: @thash[]
                   1077: $table[^table::set{id  name    age
                   1078: 1      paf     278
                   1079: 2      пиф     234
                   1080: }]
                   1081: $hash[^table.hash[id;^table::set[nameless]{id
                   1082: name}]]
                   1083: $hash.2.id $hash.2.name $hash.2.age
                   1084: 
                   1085: @tdef[]
                   1086: $s[0]
                   1087: if 0=^if($s){}{n}<br>
                   1088: if def 0=^if(def $s){y}{}<br>
                   1089: <hr>
                   1090: 
                   1091: @ford[]
                   1092: ^for[i](0;5){$i}{($i)}
                   1093: 
                   1094: @tif[]
                   1095: ^if[def]{y;n}
                   1096: 
                   1097: @image[]
                   1098: $pict[^image::create(400;200)]
                   1099: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
                   1100: ^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000)
                   1101: #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
                   1102: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff)
                   1103: ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000)
                   1104: $response:body[^pict.gif[]]
                   1105: 
                   1106: 
                   1107: 
                   1108: @mail2[]
                   1109: ^mail:send[
                   1110:        $.content-type[$.value[text/plain] $.charset[windows-1251]]
                   1111:        $.from[Александр Петросян <paf@design.ru>]
                   1112:        $.to[Александр Петросян <paf@design.ru>]
                   1113:        $.subject[проверка]
                   1114:        $.body[проверка]
                   1115: ]
                   1116: 
                   1117: @cookie[]
                   1118: $env:HTTP_COOKIE<br>
                   1119: 
                   1120: #$cookie:переменная[test тест ТЕСТ2]
                   1121: =$cookie:переменная=<br>
                   1122: #$cookie:переменная2[test тест ТЕСТ3]
                   1123: =$cookie:переменная2=<br>
                   1124: =$cookie:CLASS.переменная2=<br>
                   1125: 
                   1126: @response[]
                   1127: #^if($form:reload){
                   1128:        $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
                   1129: #}
                   1130: 
                   1131: @xslt[]
                   1132: ^xdata[]
                   1133: $transformed[^xdoc.transform[global.xsl;$.param1[123/]]]
                   1134: ^show_xdoc2[$transformed]
                   1135: 
                   1136: @regexp2[]
                   1137: $s[  select]
                   1138: $s[^s.match[^^\s*][]{!}]
                   1139: $s
                   1140: 
                   1141: @header[]
                   1142: $response:refresh[
                   1143:        $.value[0]
                   1144:        $.url[http://design.ru?a=^taint[123]]
                   1145: ]
                   1146: 
                   1147: @ttablerem[]
                   1148: $table[^table::load[a.cfg]]
                   1149: ^table.menu{$table.a}
                   1150: 
                   1151: @tconnect[]
                   1152: ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
                   1153: $tables[^table::sql{show tables}]
                   1154: #$cols[^tables.columns[]]
                   1155: #$cols.column
                   1156: ^tables.menu{
                   1157:        $tables.[Tables_in_test]<br>
                   1158: }
                   1159: }
                   1160: 
                   1161: @pcre[]
                   1162: $s[1 2]
                   1163: ^s.match[\s;ig]{!}
                   1164: #^s.match[\d;ig]{!}
                   1165: 
                   1166: 
                   1167: @regexp[]
                   1168: $s[abcАБВ]
                   1169: ^if(^s.match[б][i]){y}{n}
                   1170: 
                   1171: @mail[]
                   1172: #$ORIGINS(1)
                   1173: ^mail:send[
                   1174:        $.from[paf@design.ru]
                   1175:        $.to[paf@design.ru]
                   1176:        $.body[1
                   1177:        
                   1178:        2
                   1179:        
                   1180:        
                   1181:                3]
                   1182: ]
                   1183: 
                   1184: @exec[]
                   1185: $a[^file::exec[fc.exe;;a;b]]
                   1186: $a.status|$a.stderr<hr>
                   1187: 
                   1188: @fori[][i]
                   1189: ^for[i](1;3){... =$i= ...}
                   1190: 
                   1191: @xdata0[]
                   1192: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
                   1193: $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
                   1194: <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
                   1195: <people>
                   1196:        <man id="1" имя="word слово">
                   1197:                <name>P&#171^;AF        B</name>
                   1198:        </man>
                   1199:                <man id="2">
                   1200:                        <name>ПИФ^taint[&]</name>
                   1201:                </man>
                   1202: </people>
                   1203: }]
                   1204: 
                   1205: @xdata[]
                   1206: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
                   1207: $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
                   1208: <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
                   1209: <people>
                   1210:        <man id="1" имя="word слово">
                   1211:                <name>P&#171^;AF        B</name>
                   1212:        </man>
                   1213:                <man id="2">
                   1214:             <name>ПИФ^taint[&]</name>
                   1215:                </man>
                   1216: </people>
                   1217: }}]
                   1218: 
                   1219: @xml[]
                   1220: ^xdata[]
                   1221: 
                   1222: ^show_xdoc2[$xdoc]<hr>
                   1223: #^show_xnode1[$xdoc]<hr>
                   1224: $people[^xdoc.select[*/man]]
                   1225: #^show1[]
                   1226: ^show_xnodes1[$people]<hr>
                   1227: #^people.0.owner.hren[]
                   1228: 
                   1229: ^show_xnode1[^xdoc.selectSingle[*/man[2]/name];0;1]<hr>
                   1230: 
                   1231: by id:
                   1232: ^show_xnode1[^xdoc.getElementById[1];0;1]
                   1233: <hr>
                   1234: 
                   1235: @show1[array]
                   1236: ^for[i](0;^array._count[]-1){
                   1237:     $x[$array.$i]
                   1238:        $x.firstChild.nodeValue: 
                   1239:                $pattributes[$x.parentNode.attributes]
                   1240:                ^if(^pattributes._count[]){
                   1241:                        $pattributes.id.name=$pattributes.id.nodeValue
                   1242:                }
                   1243:        <br>
                   1244: }
                   1245:        
                   1246: @show_xnodes1[array][i]
                   1247: ^for[i](0;^array._count[]-1){
                   1248:        ^show_xnode1[$array.$i;0;1]
                   1249: }
                   1250: 
                   1251: @show_xnode1[x;level;single][l]
                   1252: ^if(def $x){
                   1253:     ^for[l](0;$level-1){&nbsp^;&nbsp^;&nbsp^;&nbsp^;}
                   1254:     ^if($x.nodeType == $xnode:ELEMENT_NODE){
                   1255:        &lt^;$x.nodeName
                   1256:            $pairs[$x.attributes]
                   1257:            ^if(def $pairs){
                   1258:                $names[^pairs._keys[]]
                   1259:                ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
                   1260:            }
                   1261:            &gt^;
                   1262:     }{
                   1263:        [$x.nodeType]
                   1264:     }
                   1265:     
                   1266:     ^if(def $x.nodeValue){$x.nodeValue}<br>
                   1267:     ^show_xnode1[$x.firstChild]($level+1)
                   1268:     ^if(!$single){
                   1269:            ^show_xnode1[$x.nextSibling]($level)
                   1270:     }
                   1271: 
                   1272:     ^if($x.nodeType == $xnode:ELEMENT_NODE){
                   1273:     ^for[l](0;$level-1){&nbsp^;&nbsp^;&nbsp^;&nbsp^;}&lt^;/$x.nodeName&gt^;<br>
                   1274:     }
                   1275: }
                   1276: 
                   1277: @show_xdoc2[xdoc]
                   1278: ^xdoc.save[out/save.xml;
                   1279: #      $.encoding[utf-8]
                   1280:        $.method[xml]
                   1281: ]
                   1282: $file[^xdoc.file[
                   1283:        $.encoding[utf-8]
                   1284:        $.method[html]
                   1285: ]]
                   1286: ^file.save[text;out/save_file.html]
                   1287: #$response:body[^xdoc.file[    $.media-type[text/paf]  ]]
                   1288: <pre>^taint[html][^xdoc.string[
                   1289:        $.method[html]
                   1290: #      $.encoding[utF-8]
                   1291: #      $.omit-xml-declaration[yes]
                   1292: #      $.standalone[no]
                   1293: #      -$.doctype-public[-//W3C//DTD XHTML]
                   1294: #      -$.doctype-system[/a/b/c/]
                   1295: #      $.indent[yes]
                   1296: #      $.media-type[text/paf]
                   1297: ]]
                   1298: </pre>

E-mail: