|
|
| version 1.141, 2002/09/17 09:30:07 | version 1.174.2.1, 2002/10/31 12:22:16 |
|---|---|
| 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] |
| $request:charset[windows-1251] | ##$request:charset[windows-1251] |
| $response:charset[windows-1251] | ##$response:charset[windows-1251] |
| #$response:charset[UTF-8] | #$response:charset[UTF-8] |
| #$response:charset[empty] | #$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] |
| #<b>$body</b> | #<b>$body</b> |
| #$result[123] | #$result[123] |
| $body | |
| <hr> | |
| OK | |
| @main[] | @main[] |
| #$a(123) | #$a(123) |
| Line 22 $response:charset[windows-1251] | Line 26 $response:charset[windows-1251] |
| #^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} | # ^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}] |
| Line 101 $response:charset[windows-1251] | Line 105 $response:charset[windows-1251] |
| #^if($form:test){y}{n} | #^if($form:test){y}{n} |
| #^tablecolumnerror[] | #^tablecolumnerror[] |
| #^roll[] | #^roll[] |
| #^cookie2[] | |
| #^tableset[] | #^tableset[] |
| #^math:PI.format{%.30f} | #^math:PI.format{%.30f} |
| #^xchildren[] | #^xchildren[] |
| Line 155 $response:charset[windows-1251] | Line 158 $response:charset[windows-1251] |
| #^fori[] | #^fori[] |
| #^tconnect[] | #^tconnect[] |
| #^xslt[] | #^xslt[] |
| #^xml[] | |
| #^header[] | #^header[] |
| #^tablehasht[] | #^tablehasht[] |
| #^datecreatestring[] | #^datecreatestring[] |
| Line 205 $response:charset[windows-1251] | Line 207 $response:charset[windows-1251] |
| #^badpos[] | #^badpos[] |
| #^processtest[] | #^processtest[] |
| #^mail3[] | #^mail3[] |
| #^mail4[] | |
| #^datesaving[] | #^datesaving[] |
| #^badconstructor[] | #^badconstructor[] |
| #^calendar[] | #^calendar[] |
| Line 219 $response:charset[windows-1251] | Line 220 $response:charset[windows-1251] |
| #^cookieexpirestest[] | #^cookieexpirestest[] |
| #^postest[] | #^postest[] |
| #^voidpostest[] | #^voidpostest[] |
| #^virtualtest[] | |
| #^badcolumntest[] | #^badcolumntest[] |
| #^delimiters[] | #^delimiters[] |
| #^новый-split[] | #^новый-split[] |
| Line 236 $response:charset[windows-1251] | Line 236 $response:charset[windows-1251] |
| #^mail2[] | #^mail2[] |
| #^exec[] | #^exec[] |
| #^passpost[] | #^passpost[] |
| #^menudelim[] | |
| #^fordelim[] | #^fordelim[] |
| #^duplicatetable2hashkey[] | #^duplicatetable2hashkey[] |
| ^duplicatehashsqlkey[] | #^duplicatehashsqlkey[] |
| #^longlreplace[] | |
| #^table2hash_onecolumn[] | |
| #^crossopvars[] | |
| #^three[] | |
| #^badLangAfterCatch[] | |
| #^zeroinstdin[] | |
| #^shifts[] | |
| #^jspace[] | |
| #^hashselfmodification[] | |
| #^emptyTransformResult[] | |
| #^badxdoccreate[] | |
| #^if(-d "CVS"){y}{n} | |
| #^badjunctioncall[] | |
| #^russianindex[] | |
| #^virtualtest[] | |
| #^xml[] | |
| #^mail4[] | |
| #^voidconstructorpass[] | |
| #^$form:CLASS.a=$form:CLASS.a<br> | |
| #^cookie2[] | |
| #^menudelim[] | |
| #^touchittest[] | |
| #^touchittest2[] | |
| #^opauto[] | |
| #^trycontextt[] | |
| #^tfor[] | |
| #^user-foreach-test[] | |
| #^includet[] | |
| #^derived:includet[] | |
| #^fortestsep[] | |
| #^derived:inclass_process_test[] | |
| #$derived[^derived::create[]]^derived.inclass_process_test[] | |
| #^domorigint[] | |
| #^junctiontest2[] | |
| #^junctionselftest[] | |
| #^bad-compiletosystem[] | |
| #^steppedfor[i](1;10;2){$i } | |
| #^file:fullpath[a.gif]<br> | |
| #^file:fullpath[/abs/a.gif]<br> | |
| #$form:a/$form:image-map= | |
| #^foreachform[] | |
| #^selectSingleoct[] | |
| #^compilebug[] | |
| #^badhashcreate[] | |
| #^badsendmail[] | |
| #^keygenedhash[]<br> | |
| #<hr>[$env:HTTP_REFERER] | |
| #$response:Content-TypE[bad] | |
| #^emailhead2[] | |
| #^includet2overridedynamic[] | |
| ^includet2overridestatic[] | |
| @includet2overridedynamic[] | |
| $derived[^derived::create[]] | |
| ^derived.includet2override[] | |
| @includet2overridestatic[] | |
| ^derived:includet2override[] | |
| @emailhead2[] | |
| ^mail:send[ | |
| $.charset[koi8-r] | |
| $.from[paf@design.ru] | |
| $.to[paf@mail] | |
| # $.reply-to[^taint[agat] <^taint[ag_7k@mail.ru]>] | |
| $user[^taint[agat]] | |
| $email[^taint[ag_7k@mail.ru]] | |
| $.reply-to[$user $email] | |
| $.subject[test2] | |
| ] | |
| @keygenedhash[] | |
| $table[^table::create{key value | |
| 1 a | |
| 2 b | |
| }] | |
| $hash[^table.hash($table.key*2)] | |
| '$hash.4.value' must be 'b' | |
| @badsendmail[] | |
| ^mail:send[ | |
| $.from[hren < paf@design.ru | |
| >] | |
| $.to[paf@design.ru] | |
| $.subject[test] | |
| ] | |
| @badhashcreate[] | |
| $hash[ | |
| $.ok[1] | |
| ] | |
| $.bad[1] | |
| @compilebug[] | |
| ^a[]^#31= | |
| @selectSingleoct[] | |
| $d[^xdoc::create[doc]] | |
| $element[^d.selectSingle[$nothing]] | |
| @foreachform[] | |
| <a href=index.cgihtml?one&a=1&two&b=2&three?1,2>one</a><br> | |
| <a href=index.cgihtml?one&a=1&two&b=2&three?shit>two</a><br> | |
| ^form:fields.foreach[key;value]{ | |
| $key -- $value | |
| }[<br>] | |
| <hr> | |
| $nameless[$form:tables.nameless] | |
| ^if(def $nameless){ | |
| nameless table -- ^nameless.menu{$nameless.field}[,] | |
| } | |
| ^if(def $form:imap){ | |
| <hr> | |
| IMAP $form:imap.x : $form:imap.y | |
| } | |
| @steppedfor[name;from;to;step;code] | |
| $caller.$name($from) | |
| ^while($caller.$name<=$to){ | |
| $code | |
| ^caller.$name.inc($step) | |
| } | |
| @bad-compiletosystem[] | |
| ^process[$string:CLASS]{@a[] | |
| } | |
| @junctionselftest[] | |
| $derived[^derived::create[]]^derived.explodejunction{$tomain[tomainOK]} | |
| ^$tomain=$tomain | |
| @junctiontest2[] | |
| ^if($if is junction){is junction;not junction}<br> | |
| ^if(def $if){defined;not defined}<br> | |
| @domorigint[] | |
| $xdoc[^xdoc::create[вася]] | |
| ^xdoc.firstChild.setAttribute[name;значение] | |
| $var[$xdoc.firstChild.nodeName] | |
| ^throw[paf;$var] | |
| @fortestsep[][i] | |
| ^for[i](1;3){$i}[,] | |
| @includet[] | |
| ^include[some.p] | |
| ^included_method[2] | |
| @user-foreach-test[][key;value] | |
| ^user-foreach[key;value]{$key=$value<br>} | |
| @user-foreach[key;value;code] | |
| ^for[i](1;10){ | |
| $caller.$key($i) | |
| $caller.$value($i*2) | |
| $code | |
| } | |
| @tfor[][i] | |
| ^for[i](1;10){ | |
| $i | |
| } | |
| @trycontextt[] | |
| ^try{ | |
| ^trycontexttsub[] | |
| }{ | |
| $exception.handled(0) | |
| } | |
| @trycontexttsub[] | |
| ^bad[] | |
| @opauto[] | |
| ^reada[] | |
| @rusage2[] | |
| <hr> | <hr> |
| OK | OK |
| @rusage2[] | |
| $s[$status:rusage] | |
| ^s.tv_sec.format[%.0f].^s.tv_usec.format[%06.0f] | |
| @voidconstructorpass[] | |
| $a[$form:a] | |
| =^form:a.int(1)= | |
| =^a.int(1)= | |
| @russianindex[] | |
| #dir with files with russian-lang names | |
| $where[dir] | |
| $dir[^file:list[$where;\.txt^$]] | |
| ^dir.menu{ | |
| <a href=$where/^untaint[uri]{$dir.name}>$dir.name</a><br> | |
| } | |
| @badjunctioncall[] | |
| ^badjunctioncallinside{code} | |
| @badjunctioncallinside[code] | |
| xx^code[] | |
| @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] | |
| $i[before] | |
| ^touchit[] | |
| $i | |
| @touchittest2[] | |
| $i[before] | |
| ^touchit[] | |
| $i | |
| @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[] | @duplicatehashsqlkey[] |
| ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{ | ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{ |
| $t[^table::sql{select * from news}] | $t[^table::sql{select * from news}] |
| $c[^t.columns[]] | $c[^t.columns[]] |
| ^c.menu{$c.column}[,] | ^c.menu{$c.column}[,] |
| $h[^hash::sql{select news_type_id, name from news}] | $h[^hash::sql{select news_type_id, name from news}[$.distinct(1)]] |
| } | } |
| @duplicatetable2hashkey[] | @duplicatetable2hashkey[] |
| Line 257 $t[^table::create{a b | Line 565 $t[^table::create{a b |
| 1 2 | 1 2 |
| 1 3 | 1 3 |
| }] | }] |
| ^t.hash[a;b] | #^t.hash[a] |
| #^t.hash[a;b] | |
| ^t.hash[a][$.distinct[1]] | |
| @menudelim[] | @menudelim[] |
| $t[^table::create{a | $t[^table::create{a |
| Line 454 $date.yearday | Line 764 $date.yearday |
| ^mail:send[ | ^mail:send[ |
| $.from[paf@mail.design.ru] | $.from[paf@mail.design.ru] |
| $.to[paf@mail.design.ru] | $.to[paf@mail.design.ru] |
| $.subject[^taint[uri][москва]=2] | $.subject[^taint[uri][москва=E0_+ ]=2] |
| $.text[^taint[uri][москва]=] | $.text[^taint[uri][москва]=] |
| $.html{<a href=http://there.ru/?city=^taint[uri][Москва]>link</a>} | $.html{<a href=http://there.ru/?city=^taint[uri][Москва]>link</a>} |
| ] | ] |
| Line 569 $sheet[^xdoc::create{<?xml version="1.0" | Line 879 $sheet[^xdoc::create{<?xml version="1.0" |
| <xsl:template match="people"> | <xsl:template match="people"> |
| <html> | <html> |
| <head>z</head> | <head> |
| <link type='text/xml' rel='alternate' href='/Default.vsdisco'/> | |
| z</head> | |
| para1=<xsl:copy-of select="^$param1"/> | para1=<xsl:copy-of select="^$param1"/> |
| <xsl:apply-templates/> | <xsl:apply-templates/> |
| <hr/> | <hr/> |
| Line 1595 $date.year $date.month $date.day | Line 1907 $date.year $date.month $date.day |
| @cookie2[] | @cookie2[] |
| #=$cookie:clientType[$.value[test]]=<br> | #=$cookie:clientType[$.value[test]]=<br> |
| =$cookie:clientType=<br> | =$cookie:CLASS.clientType=<br> |
| @tableset[] | @tableset[] |
| Line 2063 $xdoc[^xdoc::set{<?xml version="1.0" enc | Line 2375 $xdoc[^xdoc::set{<?xml version="1.0" enc |
| @xdata[] | @xdata[] |
| #$response:content-type[$.value[text/html] $.charset[windows-1251]] | #$response:content-type[$.value[text/html] $.charset[windows-1251]] |
| $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?> | $xdoc[^xdoc::create{<?xml version="1.0" encoding="windows-1251"?> |
| <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"--> | <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"--> |
| <people> | <people> |
| <man id="1" имя="word слово"> | <man id="1" имя="word слово"> |
| Line 2073 $xdoc[^xdoc::set{^process{<?xml version= | Line 2385 $xdoc[^xdoc::set{^process{<?xml version= |
| <name>ПИФ^taint[&]</name> | <name>ПИФ^taint[&]</name> |
| </man> | </man> |
| </people> | </people> |
| }}] | }] |
| @xml[] | @xml[] |
| ^xdata[] | ^xdata[] |