|
|
| version 1.109, 2002/08/14 09:20:54 | version 1.152, 2002/09/20 13:09:49 |
|---|---|
| Line 1 | Line 1 |
| @USE | @USE |
| /derived.p | /derived.p |
| /operators.p | |
| @auto[filespec] | @auto[filespec] |
| $selffilespec[$filespec] | $selffilespec[$filespec] |
| #$form:here | #$form:here |
| #$request:charset[UTF-8] | #$request:charset[UTF-8] |
| #$response:charset[windows-1251] | $request:charset[windows-1251] |
| $response:charset[windows-1251] | |
| #$response:charset[UTF-8] | |
| #$response:charset[empty] | |
| #$response:content-type[$.value[text/html]$.charset[$response:charset]] | #$response:content-type[$.value[text/html]$.charset[$response:charset]] |
| #@postprocess[body] | #@postprocess[body] |
| Line 19 $selffilespec[$filespec] | Line 23 $selffilespec[$filespec] |
| #^f[a] | #^f[a] |
| #^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{ | #^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{ |
| # ^int:sql{select news_id from news where news_id=-1}[ | # ^int:sql{select news_id from news where news_id=-1}[ |
| ## $.default{2} | # $.default{2} |
| # ]<br> | # ]<br> |
| # ^hash::sql{bad} | |
| # ^string:sql{select news_id from news where news_id=-1}[$.default{2}] | # ^string:sql{select news_id from news where news_id=-1}[$.default{2}] |
| # ^file::load[text;^string:sql{select 'from sql server' }] | # ^file::load[text;^string:sql{select 'from sql server' }] |
| # ^string:sql{select '^^hello[]' }] $ORIGINS(1) | # ^string:sql{select '^^hello[]' }] $ORIGINS(1) |
| # ^process{ ^^h[]} | # ^process{ ^^h[]} |
| # ^process{^string:sql{select '1 | # ^process{^string:sql{select '1 |
| # ^^hello[]' }] } | # ^^hello[]' }] } |
| # ^double:sql{select '2*' ^; } | |
| #$card_sequence_expect_no(^double:sql{select 20020909131047 #card_sequence_expect_no from card_sequence}) | |
| #^card_sequence_expect_no.format[%15.f] | |
| #} | #} |
| #^eval(2) | #^eval(2) |
| #^tcrashlocaljunctionsv2[] | #^tcrashlocaljunctionsv2[] |
| Line 139 $selffilespec[$filespec] | Line 147 $selffilespec[$filespec] |
| #^ford[] | #^ford[] |
| #^tif[] | #^tif[] |
| #^image[] | #^image[] |
| #^mail2[] | |
| #^cookie[] | |
| #^response[] | #^response[] |
| #^regexp2[] | #^regexp2[] |
| #^ttablerem[] | #^ttablerem[] |
| #^pcre[] | #^pcre[] |
| #^regexp[]<hr> | #^regexp[]<hr> |
| #^mail[] | #^mail[] |
| #^exec[] | |
| #^fori[] | #^fori[] |
| #^tconnect[] | #^tconnect[] |
| #^xslt[] | #^xslt[] |
| Line 193 $selffilespec[$filespec] | Line 198 $selffilespec[$filespec] |
| #^tstdin[] | #^tstdin[] |
| #^tfind[] | #^tfind[] |
| #^mimet[] | #^mimet[] |
| #^cgit[] | |
| #^joinlimit[] | #^joinlimit[] |
| #^tableclonelimit[] | #^tableclonelimit[] |
| #^transparams[] | #^transparams[] |
| Line 209 $selffilespec[$filespec] | Line 213 $selffilespec[$filespec] |
| #^monthdays(8) | #^monthdays(8) |
| #^xdoctypetest[] | #^xdoctypetest[] |
| #^xtabletest[] | #^xtabletest[] |
| ^staticstest[] | #^staticstest[] |
| #^staticstest2[] | #^staticstest2[] |
| #^rbodytest[] | |
| #^cookie[] | |
| #^cookieexpirestest[] | |
| #^postest[] | |
| #^voidpostest[] | |
| #^virtualtest[] | |
| #^badcolumntest[] | |
| #^delimiters[] | |
| #^новый-split[] | |
| #^грязные-cookie[] | |
| #^html-почта[] | |
| #^badswitchtest[] | |
| #^okswitchtest[] | |
| #^cgit[] | |
| #^ttransformsep[] | |
| #^calltest[] | |
| #^xpath3[] | |
| #^doubleliterals[] | |
| #^newxor[] | |
| #^mail2[] | |
| #^exec[] | |
| #^passpost[] | |
| #^menudelim[] | |
| #^fordelim[] | |
| #^duplicatetable2hashkey[] | |
| #^duplicatehashsqlkey[] | |
| #^longlreplace[] | |
| #^table2hash_onecolumn[] | |
| #^crossopvars[] | |
| #^three[] | |
| #^badLangAfterCatch[] | |
| #^zeroinstdin[] | |
| #^shifts[] | |
| #^jspace[] | |
| #^user-foreach-test[] | |
| #^touchittest[] | |
| #^hashselfmodification[] | |
| #^emptyTransformResult[] | |
| #^badxdoccreate[] | |
| ^if(-d "/"){y}{n} | |
| <hr> | <hr> |
| OK | OK |
| @badxdoccreate[] | |
| $xdoc[^xdoc::create[вася]] | |
| #$xdoc[^xdoc::create{<?xml version="1.0" encoding="$request:charset"?><doc>вася</doc>}] | |
| ^xdoc.firstChild.setAttribute[name;значение] | |
| ^xdoc.string[] | |
| @emptyTransformResult[] | |
| $input[^xdoc::create[docBad]] | |
| $sheet[^xdoc::create{<?xml version="1.0"?> | |
| <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> | |
| <xsl:template match="doc"> | |
| output | |
| </xsl:template> | |
| </xsl:stylesheet> | |
| }] | |
| $output[^input.transform[$sheet]] | |
| $response:body[^output.file[]] | |
| @hashselfmodification[] | |
| $hash[ | |
| $.a[1] | |
| $.b[2] | |
| ] | |
| ^hash.foreach[key;value]{ | |
| # $hash.c[1] | |
| $hash.a[1] | |
| } | |
| @touchittest[][i] | |
| ^touchit[] | |
| $i | |
| @user-foreach-test[][key;value] | |
| ^user-foreach[key;value]{$key=$value<br>} | |
| @user-foreach[key;value;code] | |
| ^for[i](1;10){ | |
| $code.$key($i) | |
| $code.$value($i*2) | |
| $code | |
| } | |
| @jspace[] | |
| $a(1) | |
| ^jspace_call{^eval($a*2)} | |
| #$a(2) | |
| #$junction | |
| @jspace_call[param][a] | |
| $a[unrelcfgdfgated] | |
| $junction<br> | |
| $junction.a(2) | |
| $junction<br> | |
| @shifts[] | |
| ^eval(1<<3)<br> | |
| ^eval(8>>2)<br> | |
| #^if(1=1){y;n}<br> | |
| @zeroinstdin[] | |
| #$f[^file::exec[a.pl;$.stdin[$.shit[]]]] | |
| $f[^file::exec[a.pl;$.stdin[^file::load[binary;1z2.txt]]]] | |
| =$f.text= | |
| ^f.save[binary;1z2.out] | |
| @badLangAfterCatch[] | |
| ^try{ | |
| $a[ | |
| тут язык сменился на pass_appended | |
| ^throw[user;test] | |
| и улетело с не тем языком | |
| ] | |
| }{ | |
| $exception.handled(1) | |
| } | |
| 1 2 | |
| @crossopvars[] | |
| #^one[]<hr> | |
| ^two[]<hr> | |
| @table2hash_onecolumn[] | |
| $t[^table::create{a | |
| 1 | |
| 1 | |
| }] | |
| #^t.hash[a] | |
| #^t.hash[a;b] | |
| $h[^t.hash[a][$.distinct(1)]] | |
| $h.1.a | |
| @longlreplace[] | |
| $str1[ мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла ] | |
| $str2[ела] | |
| $str[Мама $str1 раму] | |
| ^str.replace[^table::create[nameless]{мыла $str2}] | |
| @duplicatehashsqlkey[] | |
| ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{ | |
| $t[^table::sql{select * from news}] | |
| $c[^t.columns[]] | |
| ^c.menu{$c.column}[,] | |
| $h[^hash::sql{select news_type_id, name from news}[$.distinct(1)]] | |
| } | |
| @duplicatetable2hashkey[] | |
| $t[^table::create{a b | |
| 1 2 | |
| 1 3 | |
| }] | |
| #^t.hash[a] | |
| #^t.hash[a;b] | |
| ^t.hash[a][$.distinct[1]] | |
| @menudelim[] | |
| $t[^table::create{a | |
| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| }] | |
| ^t.menu{^if($t.a<3){}{$t.a}}[,] | |
| @fordelim[] | |
| ^for[a](0;6){^if($a<3){}{$a}}[,] | |
| @passpost[] | |
| <form method=post name="test" id="test"> | |
| <textarea name="text" cols=20 rows =6>^taint[html][1 | |
| 2 | |
| 3]</textarea><br> | |
| <input type=submit> | |
| </form> | |
| ^if(def $form:text){ | |
| $a[^file::cgi[a.pl]] | |
| $a.text|$a.status|$a.stderr<hr> | |
| } | |
| @exec[] | |
| #$a[^file::exec[a.cmd]] | |
| $a[^file::cgi[a.cmd]] | |
| $a.text|$a.status|$a.stderr<hr> | |
| @newxor[] | |
| ^eval(1!|2 #примечание()zzz | |
| |0x100)<br> | |
| #^eval(1!||2)<br> | |
| ^if(1!|1){y}{n} | |
| #@method[$bad] | |
| @doubleliterals[] | |
| #^eval(1e-10) | |
| ^eval("1e-20") | |
| @xpath3[] | |
| $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>}] | |
| $objectData[^constr.selectSingle[/constructor-data/object]] | |
| $objectData.nodeType<br> | |
| $objectData.firstChild.nodeValue | |
| @calltest[] | |
| ^calltest2[string] | |
| @calltest2[s] | |
| $s | |
| @ttransformsep[] | |
| $input[^xdoc::load[20020909131046.xml]] | |
| $output[^input.transform[generated.xsl]] | |
| ^output.string[] | |
| @okswitchtest[] | |
| $local[local value] | |
| ^switch[1]{ | |
| ^case[1]{1code $local} | |
| } | |
| @badswitchtest[] | |
| ^switch[1]{ | |
| ^badswitchtestcase[] | |
| } | |
| @badswitchtestcase[][local] | |
| $local[local value] | |
| ^case[1]{1code $local} | |
| @badjunction[] | |
| ^badj1[] | |
| ^badj2[] | |
| @html-почта[] | |
| $переменная[значение] | |
| ^mail:send[ | |
| $.from[paf@mail] | |
| $.to[paf@mail] | |
| $.subject[htmltest1] | |
| $.html{тест$переменная= !} | |
| ] | |
| @грязные-cookie[] | |
| $cookie:a[&] | |
| $cookie:a | |
| @новый-split[] | |
| $abc[a.b.c] | |
| #$table[^abc.split[.]] | |
| #$table[^abc.split[.;l]] | |
| #$table[^abc.split[.;v]] | |
| $table[^abc.split[.;lv]] | |
| ^table.menu{$table.piece}[,] | |
| <hr> | |
| #$table[^abc.split[.;h]] | |
| $table[^abc.split[.;hr]] | |
| $table.0,$table.1,$table.2<br> | |
| @delimiters[] | |
| $a#1[1]<br> | |
| $a#1=<br> | |
| @badcolumntest[] | |
| $table[^table::load[ext.cfg]] | |
| $table.b | |
| @virtualtest[] | |
| $derived[^derived::create[derived create actual param]] | |
| ^derived.test[] | |
| @voidpostest[] | |
| $s[] | |
| ^s.pos[$nothing] | |
| @postest[] | |
| $s[$nothing] | |
| ^s.pos[$nothing] | |
| @cookieexpirestest[] | |
| #$cookie:exptest[1] | |
| #$cookie:exptest[$.value[2] $.expires(+1)] | |
| $response:xxxx[^date::now(+10)] | |
| $response:yyy[$.value[^date::now(+20)]] | |
| $response:yyy[$.value[vvv] $.aaaa[^date::now(+20)]] | |
| @rbodytest[] | |
| $request:body= | |
| <form method=post> | |
| <input type=submit name=paf value=123> | |
| </form> | |
| @staticstest2[] | @staticstest2[] |
| ^$derived:derived_var=$derived:derived_var<br> | ^$derived:derived_var=$derived:derived_var<br> |
| ^$derived:a=$derived:a<br> | ^$derived:a=$derived:a<br> |
| Line 221 $derived:a[changed] ^$derived:a=$derived | Line 530 $derived:a[changed] ^$derived:a=$derived |
| $derived:derived_var[changed] | $derived:derived_var[changed] |
| ^$derived:derived_var=$derived:derived_var<br> | ^$derived:derived_var=$derived:derived_var<br> |
| @staticstest[] | @staticstest[] |
| $derived[^derived::create[]] | $derived[^derived::create[]] |
| ^derived.test[] | ^derived.test[] |
| <hr> | |
| ^$derived.a=$derived.a<br> | ^$derived.a=$derived.a<br> |
| ^$derived.x=$derived.x<br> | ^$derived.x=$derived.x<br> |
| <hr> | |
| ^if($derived is derived){derived is derived}{error: derived is not derived}<br> | |
| ^if($derived is table){derived is table}{error:derived is not table}<br> | |
| <hr> | |
| ^^eval(^$derived)=^eval($derived)<br> | |
| ^^if(^$derived)=^if($derived){y}{n}<br> | |
| @xdoctypetest[] | @xdoctypetest[] |
| Line 1774 $response:body[^pict.gif[]] | Line 2089 $response:body[^pict.gif[]] |
| @mail2[] | @mail2[] |
| ^mail:send[ | ^mail:send[ |
| $.message-id[<6615%1@parser.ru>] | |
| $.content-type[$.value[text/plain] $.charset[windows-1251]] | $.content-type[$.value[text/plain] $.charset[windows-1251]] |
| $.from[Александр Петросян <paf@design.ru>] | $.from[Александр Петросян <paf@design.ru>] |
| $.to[Александр Петросян <paf@design.ru>] | $.to[Александр Петросян <paf@design.ru>] |
| $.subject[проверка] | $.subject[проверка проверка] |
| $.body[проверка] | $.text[проверка] |
| ] | ] |
| @cookie[] | @cookie[] |
| $env:HTTP_COOKIE<br> | #$env:HTTP_COOKIE<br> |
| #$cookie:переменная[test тест ТЕСТ2] | #$cookie:переменная[test тест ТЕСТ2] |
| =$cookie:переменная=<br> | =$cookie:переменная=<br> |
| Line 1848 $s[abcАБВ] | Line 2164 $s[abcАБВ] |
| 3] | 3] |
| ] | ] |
| @exec[] | |
| $a[^file::exec[fc.exe;;a;b]] | |
| $a.status|$a.stderr<hr> | |
| @fori[][i] | @fori[][i] |
| ^for[i](1;3){... =$i= ...} | ^for[i](1;3){... =$i= ...} |