[BACK]Return to index.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / www / htdocs

Diff for /parser3/www/htdocs/Attic/index.html between versions 1.10 and 1.86

version 1.10, 2002/02/18 15:23:15 version 1.86, 2002/08/06 09:49:05
Line 1 Line 1
 #@USE  #@USE
 #z/t.p  #t.p
   
 @autoz[]  @auto[filespec]
 $request:charset[windows-1251]  $selffilespec[$filespec]
 $response:charset[windows-1251]  #$form:here
 $response:content-type[$.value[text/html]$.charset[$response:charset]]  #$request:charset[UTF-8]
   #$response:charset[windows-1251]
   #$response:content-type[$.value[text/html]$.charset[$response:charset]]
   
   #@postprocess[body]
   #<b>$body</b>
   #$result[123]
   
 @main[]  @main[]
 ^doubleprobs[]  #$a(123)
   #^a.format[%.10u]
   #$result[111]
   #^f[a]
   #^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
   #       ^int:sql{select news_id from news where news_id=-1}[$.default{2}]<br>
   #    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
   #}
   #^eval(2)
   #^tcrashlocaljunctionsv2[]
   #^tcrashlocaljunctions[]
   #^tjunctions[]
   #^replacetest[]
   #^matchoptionpp[]
   #^txdocxnodechild[]
   #^tclasses[]
   #$math:PI
   #^b:method[]
   #^main[]
   #^errort[]
   #^tselectNumber[]
   #$result[hello]
   #^invaliddate2[]
   #^process2[]
   #^casehashtext[]
   #^subjvaltest[]
   #^tableselect0[]
   #^memnotest1[]
   #^transparams[]
   #^voidparams[]
   #^rolls2[]
   #^cacheexpireschanging[]
   #^cacheexpiresfixed[]
   #^dateoffsets[]
   #^exceptionTypes[]
   #^roll2[]
   #^rolls[]
   #^exceptions1[]
   #^locate_by_expr[]
   #^method_junction_params{...}
   #^verifyCookie[paf]
   #^execlangs[]
   #$t[^tobjeresult[]]$t.a
   #^xmlprobs[]
   #^doubleprobs[]
 #^math:random(-10)  #^math:random(-10)
 #^divnamestop[]  #^divnamestop[]
 #^arrayclone[]  #^arrayclone[]
Line 79  $response:content-type[$.value[text/html Line 129  $response:content-type[$.value[text/html
 #$t[^methresult[]] ->$t  #$t[^methresult[]] ->$t
 #^terror[]  #^terror[]
 #^ssave[]  #^ssave[]
 #^calendar[]  
 #^thash[]  #^thash[]
 #^tdef[]  #^tdef[]
 #^ford[]  #^ford[]
Line 99  $response:content-type[$.value[text/html Line 148  $response:content-type[$.value[text/html
 #^xslt[]  #^xslt[]
 #^xml[]  #^xml[]
 #^header[]  #^header[]
   #^tablehasht[]
   #^datecreatestring[]
   #^mssqltypes1[]
   #^badthrows[]
   #^xmlspace[]
   #^counter[main.counter]
   #^xpath2[]
   #^callindirect[]
   #^junctionprob[]
   #^datecreatestring2[]
   #^tstoredproc[]
   #^tstoredproc2[]
   #^forkeys[]
   #^pngsize[]
   #^checkList[]
   #^datetest[]
   #^tserge[]
   #^envt[]
   #^selectt[]
   #^select2[]
   #^selectSingle2[]
   #^selectString2[]
   #^selectNumber2[]
   #^selectBool2[]
   #^xdoccreate[]
   #^xdoccreatetag[]
   #^xdocload[]
   #^xdocstring[]
   #^xdocsave[]
   #^div[]
   #^datecreatestring3[]
   #^tfilespec[]
   #^tcrypt[]
   #^cryptdocsample[]
   #^sendtests[]
   #^tnormalize[]
   #^xmltransformbyxdoc[]
   #^sergestrandef[]
   #^tstdin[]
   #^tfind[]
   #^calendar[]
   #^mimet[]
   ^cgit[]
 <hr>  <hr>
 OK  OK
   
   @cgit[]
   $f[^file::cgi[showenv.cmd]]
   $f.HELLO=<br>
   $f.CONTENT-TYPE=<br>
   $f.content-type=<br>
   
   
   @mimet[]
   $f[^file::stat[a.GIF]]
   $f.content-type
   
   
   @tfind[]
   ^file:find[index.html]
   
   @tstdin[]
   $f[^file::exec[test.pl;$.stdin[проверка stdin потока]]]
   <pre>$f.text</pre>
   
   @sergestrandef[]
   $sQuantity[ ]
   ^sQuantity.int(10)
   
   @xmltransformbyxdoc[]
   $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
   <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
   <people>
           <man id="1" имя="word слово">
                   <name>1  2</name>
           </man>
   </people>
   }}]
   $sheet[^xdoc::create{<?xml version="1.0"?> 
   <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
   
   >
   <!--<xsl:output doctype-public ="-//W3C//DTD XHTML" indent="yes"/>-->
   
           <!--<xsl:import href="http://localhost/html.xsl"/>-->
           <xsl:import href="html.xsl"/>
   
   <xsl:param name="param1">defparam1</xsl:param>
   <xsl:param name="param2">defparam2</xsl:param>
   
   
           <xsl:template match="doc">
                   param1=<xsl:value-of select="^$param1"/><br/>
                   param2=<xsl:value-of select="^$param2"/><br/>
   
                   test return <something background=""/>
           </xsl:template>
   
           <xsl:template name="test">
                   test return3
           </xsl:template>
   
     <xsl:template match="people">
        <html>
        <head>z</head>
                   para1=<xsl:copy-of select="^$param1"/>
           <xsl:apply-templates/>
           <hr/>
           <xsl:call-template name="test"/>
        </html>    
     </xsl:template>
   
     <xsl:template match="name">
       <b><xsl:value-of select="."/></b>
     </xsl:template>
   </xsl:stylesheet>
   }]
   
   
   $xdoc[^xdoc.transform[$sheet]]
   $string[^xdoc.string[$.method[html]]]
   ^string.save[a]
   ^untaint[html]{$string}
   
   
   
   @tnormalize[]
   #s состоит из 1000 фрагментов
   $s[^for[i](0;999){фрагмент }]
   #это займет много ресурсов
   ^s.match[фраг][g]{перга}
   #это займет меньше ресурсов
   #$normalized[^s.normalize[]]
   #^normalized.match[фраг][g]{перга}
   
   @sendtests[]
   #^text[]
   #^html[]
   #^text-n-html[]
   #^file[]
   #^text-n-file[]
   ^text-n-html-n-file[]
   #^backwardcomp[]
   
   @backwardcomp[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.body[this is text value]
   ]
   
   @text[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.text[
                   $.value[this is text value]
           ]
   ]
   
   @html[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.html{this is <b>html</b> value ^taint[<] 10}
   ]
   
   @text-n-html[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.text[
                   $.value[this is text value]
           ]
           $.html[
           $.value{this is <b>html</b> value ^taint[<] 10}
           ]
   ]
   
   @file[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.file[^file::load[binary;image.jpg]]
   ]
   
   @text-n-file[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.text[
                   $.value[this is text value]
           ]
           $.file[^file::load[binary;image.jpg]]
   ]
   
   @text-n-html-n-file[]
   ^mail:send[
           $.from[paf]
           $.to[paf]
           $.text[
                   $.value[this is text value]
           ]
           $.html[
           $.COntent-type[$.value[text/html]$.charset[windows-1251xx]]
           $.value{this is <b>html</b> value ^taint[<] 10}
           ]
           $.file[^file::load[binary;image.jpg]]
   ]
   
   
   
   @md5salt[]
   1234
   
   @cryptdocsample[]
   $users[^table::create{name      password
   alice   ***
   bob     ***
   }]
   
   $htpasswd[^table::create[nameless]{}]
   ^users.menu{
           ^htpasswd.append{$users.name:^math:crypt[$users.password;^$apr1^$^md5salt[]]}
   }
   
   ^htpasswd.save[nameless;.htpasswd-parser-test]
   
   
   @tcrypt[]
   #^math:crypt[123;^$apr1^$1234567890abcdef]<br>
   ^math:crypt[123;^$apr1^$]<br>
   
   @tfilespec[]
   src=$selffilespec<br>
   dirname=^file:dirname[$selffilespec]<br>
   basename=^file:basename[$selffilespec]<br>
   justname=^file:justname[$selffilespec]<br>
   justext=^file:justext[$selffilespec]<br>
   
   @datecreatestring3[]
   $new_after[^date::now(-3)]
   $articles[^table::create{id     title   last_update
   1       привет  2002-07-03}]
   ^articles.menu{
       $last_update[^date::create[$articles.last_update]]
       <a href=${articles.id}.html>$articles.title</a>
       ^if($last_update > $new_after){новая}
       <br>
   }
   
   @div[]
   $var(5)
   ^var.inc(7)
   ^var.dec(3)
   ^var.div(4)
   ^var.mul(2)
   $var
   
   
   @xdocsave[]
   $document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
   <document>
   строка1<br/>
   строка2<br/>
   </document>}]
   ^document.save[test.xml]
   
   @xdocstring[]
   $document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
   <document>
   строка1<br/>
   строка2<br/>
   </document>}]
   ^document.string[
       $.method[html]
   ]
   
   
   @xdocload[]
   $document[^xdoc::load[article.xml]]
   $response:body[^document.file[$.media-type[text/xml]]]
   
   
   @xdoccreatetag[]
   $document[^xdoc::create[document]]
   $paraNode[^document.createElement[para]]
   $dummy[^document.documentElement.appendChild[$paraNode]]
   $response:body[^document.file[$.media-type[text/xml]]]
   
   
   @xdoccreate[]
   $document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
   <document>
   текст
   </document>}]
   $response:body[^document.file[$.media-type[text/xml]]]
   
   @selectBool2[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
   <t attr="привет" n="123"/>}]
   ^if(^d.selectBool[/t/@n > 10]){
       /t/@n больше 10
   }{
       не больше
   }
   
   
   @selectNumber2[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
   <t attr="привет" n="123"/>}]
   ^d.selectNumber[number(/t/@n)+1]<br>
   ^d.selectNumber[2*2]<br>
   
   
   @selectString2[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
   <t attr="привет" n="123"/>}]
   # результат=привет
   ^d.selectString[string(t/@attr)]
   
   
   @selectSingle2[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
   <t attr="привет" n="123"/>}]
   # результат=один элемент "t"
   $element[^d.selectSingle[t]]
   # результат=2 (количество атрибутов <t>)
   Количество атрибутов: ^element.attributes._count[]<br>
   # результат=не существует (нет <x>)
   ^if(^d.select[x]){
       x существует
   }{
       x не существует
   }
   
   @select2[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><t attr="привет" n="123"/>}]
   # результат: список из одного элемента "t"
   $list[^d.select[t]]
   # результат: 2 = количество атрибутов <t>
   ^list.0.attributes._count[]<br>
   ^for[i](0;$list-1){
       $attr[$list.$i]
       $attr.nodeName = $attr.nodeType<br>
   }
   
   
   @selectt[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><t attr="привет" n="123"/>}]
   $list[^d.select[t]]
   ^list.0.attributes._count[]
   
   @envt[]
   $f[^file::exec[showenv.cmd;
           $.bad[value]
           $.CGI_good[value]
   ]]
   $f.status<br>
   $f.stderr<br>
   <pre>$f.text</pre>
   
   
   @tserge[]
   ^if(" 09 "){y}
   
   @datetest[]
           $f[^file::stat[some.zip]]
   Размер в байтах: $f.size<br>
   Год создания: $f.cdate.year<br>
   $now[^date::now[]]
   $DAYS_CONSIDERED_NEW(3)
   Статус: ^if($f.mdate >= $now-$DAYS_CONSIDERED_NEW){новый;старый}
   
   
   @checkList[]
   ...^oneOf[a;a,b,c]...<br>
   #...^oneOf[a;ax,b,c]...<br>
   ...^oneWord[word]...<br>
   #...^oneWord[wo rd]...<br>
   
   
   @oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
   $t[^list.lsplit[,]]
   ^if(!^t.locate[piece;$s]){^throw[user;$s;unknown]}
   $result[$s]
   
   @oneWord[s]
   ^if(^s.match[\W]){^throw[user.data;$s;not word]}{$s}
   
   @pngsize[]
   $i[^image::measure[test.png]]
   ^i.html[]
   
   
   @forkeys[]
   $text[^form:fields.foreach[key;val]{$key=$val
   }]
   ^text.save[ttt.txt]
   =$text=
   
   
   @tstoredproc2[]
   ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
           ^void:sql{exec pafvoid}
   }
   
   @tstoredproc[]
   ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
           $t[^table::sql{exec pafproc}]
   #       $t[^table::sql{{call pafproc}}]
           $c[^t.columns[]]
           ^c.menu{$c.column}[<br>]
   }
   
   @datecreatestring2[]
   <table border=1>
   ^datecreatestring2show[2000]
   ^datecreatestring2show[2000-02]
   ^datecreatestring2show[2000-2-03]
   ^datecreatestring2show[2000-02-03 15]
   ^datecreatestring2show[2000-02-03 15:30] 
   ^datecreatestring2show[2000-02-03 15:30:04] 
   ^datecreatestring2show[2000-02-03 15:30:04 hren] 
   ^datecreatestring2show[15:30] 
   ^datecreatestring2show[15:30:05] 
   ^datecreatestring2show[15:30:05 hren] 
   </table>
   
   @datecreatestring2show[s]
   $date[^date::create[$s]]
   <tr>
   <td>$s</td><td align=right>^date.sql-string[]</td>
   </tr>
   
   
   @junctionprob[][l]
   $l[123]
   $a{$l}
   ^junctionprobnested[$a]
   @junctionprobnested[p]
   $p
   
   
   @callindirecttarget[]
   callindirecttarget called
   @callindirect[]
   $f[$callindirecttarget]
   ^f[]
   
   @xpath2[]
   $xdoc[^xdoc::create{<?xml version="1.0" encoding="windows-1251"?>
   <doc>
   <field-list>
   <field name="aa"/>
   <field name="bb"/>
   </field-list>
   </doc>
   }]
   
   #^xdoc.string[]
   
   $fieldList[^xdoc.selectSingle[/doc/field-list]]
   #^fieldList.childNodes._count[]
   $fields[^fieldList.select[field]]
   #^fields._count[]
   ^fields.foreach[k;node]{
           $node.nodeName<br>
   }
   @counter[filespec][f;s]
   ^file:lock[$filespec]{
           $f[^file::load[text;$filespec]]
           $s[^eval($f.text+1)]
           ^s.save[$filespec]      
   }
   $s
   
   @xmlspace[]
   $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
   <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
   <people>
           <man id="1" имя="word слово">
                   <name>1  2</name>
           </man>
   </people>
   }}]
   $xdoc[^xdoc.transform[global.xsl]]
   $string[^xdoc.string[$.method[html]]]
   ^string.save[a]
   ^untaint[html]{$string}
   
   @badthrows[]
   #^throw[a;b;]
   ^throw[a;]
   
   @mssqltypes1[]
   ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
   #    ^string:sql{select { ts '1998-05-02 01:23:56.123' }}
   #    ^string:sql{select CAST({ ts '1998-05-02 01:23:56.123' }AS smalldatetime)}
   #       ^string:sql{select CAST({ts '2002-04-28 00:00:00.000'} AS smalldatetime)}
           $t[^table::sql{select a from paf}]
           ^t.count[]
   }
   
   @datecreatestring[]
   $d[^date::create[2002-04-33 01:03:04]]
   ^d.sql-string[]
   
   @method[hash]
   $hash.key
   @mainZ[]
   ^method[
       $.key{code}
   ]
   
   @tablehasht[]
   $t[^table::create{p
   1
   3
   2
   4}]
   
   $h[^t.hash[p]]
   
   =^h._count[]=
   
   
   @sqldefaults[]
   ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
           ^int:sql{select news_id from news where news_id=-1}[$.default{2}]<br>
       ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
   }
   =======
   <hr>
   OK
   >>>>>>> 1.50
   
   @tcrashlocaljunctionsv2[]
   $a[
           $b{  $c[1] }
   ]
   $b
   $c
   
   @tcrashlocaljunctions[]
   $var[aaa]
   ^if(1){
   ^tcrashlocaljunctions1[]
   }
   
   $j
   
   @tcrashlocaljunctions1[][var]
   $var[varvalue]
           $j{
                   $var
           }
   $j
   
   @tjunctions[][tl]
   $t[^t::create[]]
   ^tjunctionsi[]
   
   @tjunctionsi[][tl]
   $tl[12345]
   ^t.tjunctionsm[
           $.key{
                   $tl
           }
   ]
   
   @replacetest[]
   $b[b]
   $s[
   aaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   ]
   ^s.replace[^table::create{from  to
   ba      !_}]
   
   
   @matchoptionpp[]
   #$ORIGINS(1)
   $s[
   aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
   ]
   ^s.match[b;g']{($match.prematch|$match.match|$match.postmatch)}
   
   
   @txdocxnodechild[]
   $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?><d/>}]
   $xdoc.nodeName
   ^xdoc.selectNumber[2*2]
   $xdoc:ELEMENT_NODE
   
   
   @tclasses[]
   $t[^t::create[]]
   ^t.method[]
   <hr>
   ^t.base_method[]
   
   
   @errort[]
   ^xdoc::create[a]
   #^throw[user;here;this]
   
   @tselectNumber[]
   $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет" n="123"/>}]
   ^d.selectString[string(d/@attr)]<br>
   ^d.selectNumber[2*2]<br>
   ^d.selectNumber[number(/d/@n)+1]<br>
   
   
   @invaliddate2[]
   $d[^date::create(1018946575/60/60)] ^d.sql-string[]
   
   @process2[]
   ^^process{
           ^process{
                   ^$a[^^if(0){^$.k[y]}{^$.k[^^hren[]n]}] ^$a.k
           }
   }
   
   @casehashtext[]
   $tt[1]
   $tmp[
           ^switch[$tt]{
                   ^case[1]{
                           $.aaa[123]
                   }
                   ^case[DEFAULT]{
                           $.bbb[456]
                   }
           }
           shit!
   ]
   #$tmp
   $tmp.aaa
   
   @subjvaltest[]
   $a12[val]
   $b[12]
   $a$b
   
   @tableselect0[]
   $person[^table::create{name     height
   paf     1.77
   шохин   2.07
   moko    1.77
   }]
   $nottoohigh[^person.select($person.height<2)]
   ^nottoohigh.menu{$nottoohigh.name<br>}
   
   @transparams[]
   $idoc[^xdoc::create{<?xml version="1.0" ?><doc/>}]
   $odoc[^idoc.transform[global.xsl;
           $.param1['1']
           $.param2['2']
   ]]
   <pre>^taint[^odoc.string[$.method[html]]]
   
   @memnotest1[]
   ^for[i](0;4000){
   
    $xxxx[$i]
    $xxxx
   
   }
   
   @memnotest1notes[]
   одна итерация цикла:
   [Mon Apr  8 20:12:02 2002] execution-------------------------|
   '469641+=28 wcodeframe -> 0 !optimize[3]''469669+=49 string от {} -> 0 optimize[3]'
   [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
   [Mon Apr  8 20:12:02 2002]  "|| "
   [Mon Apr  8 20:12:02 2002] 12:WITH_ROOT
   [Mon Apr  8 20:12:02 2002] 13:VALUE
   [Mon Apr  8 20:12:02 2002]  "xxxx" string
   [Mon Apr  8 20:12:02 2002] 14:CREATE_EWPOOL'469377+=24 wcodeframe -> 0 !optimize[1]''469401+=49 string -> 41 !optimize[7]'
   [Mon Apr  8 20:12:02 2002] 16:WITH_READ
   [Mon Apr  8 20:12:02 2002] 17:VALUE
   [Mon Apr  8 20:12:02 2002]  "i" string
   [Mon Apr  8 20:12:02 2002] 18:GET_ELEMENT
   [Mon Apr  8 20:12:02 2002] 17:WRITE_VALUE'469452+=40 MAX_NUMBER -> !~2 actual digits''469492+=49 -> 41 !'
   [Mon Apr  8 20:12:02 2002] 16:REDUCE_EWPOOL'469541+=24 VString -> 0 optimize[5]'
   [Mon Apr  8 20:12:02 2002] 15:CONSTRUCT_VALUE
   [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
   [Mon Apr  8 20:12:02 2002]  "| "
   [Mon Apr  8 20:12:02 2002] 12:WITH_READ
   [Mon Apr  8 20:12:02 2002] 13:VALUE
   [Mon Apr  8 20:12:02 2002]  "xxxx" string
   [Mon Apr  8 20:12:02 2002] 14:GET_ELEMENT
   [Mon Apr  8 20:12:02 2002] 13:WRITE_VALUE'469573+=41 string expand nothing for now'
   [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
   [Mon Apr  8 20:12:02 2002]  "||"'469617+=24 VString -> 0 !optimize[6]'
   [Mon Apr  8 20:12:02 2002] <-ja returned
   [Mon Apr  8 20:12:02 2002] ja->
   
   201/328=0.612804878049 %%optimized
   
   1.
   CREATE_*POOL
       сделать
   *POOL_POOLED+CODE
       где
           wwrapper
           и(возможно) wcodeframe
           +string
           стековая переменная
   
   2.
   избавиться от обёртки при возврате результата process [см. тело _for]
   
   3.
   сделать callback для process, чтобы вынести invariants из _for & co.
   
   4.
    @todo склеить get_element и write_value (при вставлении? write_value)
   
   5.
   reduce_*pool -> вариант получить именно string, без VString обёртки [часто
   обёртка сразу выбрасывается = не нужна]
   
   6.
   process вариант получить именно string, без VString обёртки [часто обёртка
   сразу выбрасывается = не нужна]
   
   7.
   string head, убить 8 байт неправильной link
   
   @voidparams[]
   ^voidparamsm[$form:field]
   
   @voidparamsm[p]
   ^p.int(123)
   
   @rolls2[]
   $now[^date::now[]]
   $d[^date::create($now.year;$now.month)] ^d.sql-string[]<br>
   ^for[i](1;12){
           ^d.roll[month](-1) ^d.sql-string[]<br>
   }
   
   @cacheexpireschanging[]
   ^cache[$DB_HOME/keyключ][^date::now(+1)]{ ^rem{1 day}
       ^cache[^date::now(+4/24/60/60)]
   #    ^cache(2)
   #    ^cache(0)
           ^math:random(100)
   }
   
   
   
   @cacheexpiresfixed[]
   ^cache[$DB_HOME/keyключ][^date::now(+2/24/60/60)]{
           ^math:random(100)
   }
   
   @dateoffsets[]
   $d[^date::create(^date::now[]+1/24/60)]
   #$d[^date::now(+1/24/60)]
   ^d.sql-string[]
   #$d
   
   @exceptionTypes[]
   #    parser.compile       ^test[}                компиляция (непарная скобка, ...)
   #    parser.runtime       ^if(0).                параметры (больше/меньше, чем нужно, не тех типов, ...)
   #    number.zerodivision  ^eval(1/0) ^eval(1%0)
   #    number.format        ^eval(abc*5)
   #    file.missing         ^file:delete[delme]                       not found
   #    file.access          ^table::load[.]                       no rights
   #    image.format         ^image::measure[index.html]                        not gif/jpg
   #    sql.connect          ^connect[mysql://baduser:pass@host/db]{}                       not found/timeout
   #    sql.execute          ^connect[mysql://okuser:pass@host/db]{^void:sql{select bad}}                       syntax error
   #    xml                  ^xdoc::create{<forgot?>}                       any error in xml/xslt libs
   #    smtp.connect                                not found/timeout
   #    smtp.execute                                communication error
   
   @roll2[]
   $d[^date::create(2002;4;2;2;2;3)] ^d.sql-string[]<br>
   ^d.roll[day](+365*3+1) ^d.sql-string[]<br>
   
   
   @rolls[]
   $d[^date::create(2002;4;4)]
   ^d.sql-string[]<br>
   ^for[i](1;7){
   ^d.roll[day](-1)
   ^d.sql-string[]<br>
   }
   <hr>
   $d[^date::create(2002;3;28)]
   ^d.sql-string[]<br>
   ^for[i](1;7){
   ^d.roll[day](+1)
   ^d.sql-string[]<br>
   }
   <hr>
   $d[^date::create(2002;12;3)]
   ^d.sql-string[]<br>
   ^for[i](1;14){
   ^d.roll[day](-1)
   ^d.sql-string[]<br>
   }
   <hr>
   $d[^date::create(2002;10;19)]
   ^d.sql-string[]<br>
   ^for[i](1;14){
   ^d.roll[day](+1)
   ^d.sql-string[]<br>
   }
   
   
   
   
   
   
   @exceptions1[]
   ^try{
           aaa
           ^throw[custom1;paf;is stupid]
   }{
           ^if($exception.type eq custom1){
   #               $exception.handled(1)
           ^throw[$exception]
                   type=$exception.type<br>
               source=$exception.source<br>
               file=$exception.file<br>
               lineno=$exception.lineno<br>
           comment=$exception.comment<br>
           }
   }
   
   @locate_by_expr[]
   $t[^table::create{a     b
   1       nok
   2       ok
   3       nok
   }]
   ^if(^t.locate($t.a==2)){$t.b}{n}
   
   @method_junction_params[param]
   ^if($param is junction){junction}{ne junction}
   
   @verifyCookie[value] 
   ^if($cookie:dummyvote eq $value){ 
           $result(1) 
   }{ 
           $cookie:dummyvote[$value] 
           $result(0) 
   }
   
   @execlangs[]
   $f[^file::exec[test.pl]]
   err:$f.stderr<br>
   ^process{$f.text}
   #$c[^t.columns[]]
   #^c.menu{
   #* $c.column<br>
   #}
   c:$t.c<br>
   
   @tobjeresult[]
   ^table::create{a
   12}
   
   @xmlprobs[]
   $xmlDataType[^xdoc::load[program.xml]]
   #<pre>^taint[^xmlDataType.string[]]
   $xmlDataTypes[^xmlDataType.select[programs/program[@id=4]/data]]
   #=^xmlDataTypes._count[]=
   =^xmlDataTypes.0.getAttribute[type-id]=
   
 @doubleprobs[]  @doubleprobs[]
 $1(^math:radians(180))  $1(^math:radians(180))
 $2($math:PI)  $2($math:PI)
Line 681  $abc[abc] Line 1610  $abc[abc]
 ^abc.save[abc]  ^abc.save[abc]
   
 @calendar[]  @calendar[]
 2001;11:<br>  $year(2002)
 $week_days[^date:calendar[rus](2001;11)]  $month(8)
   ${year}-${month}:<br>
   $week_days[^date:calendar[rus]($year;$month)]
 <pre>  <pre>
 ^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday;&nbsp^;&nbsp^;} }<br>}  ^week_days.menu{^for[wday](0;6){^if($week_days.$wday){$week_days.$wday;&nbsp^;&nbsp^;} }=$week_days.week=<br>}
 </pre>  </pre>
   
 @thash[]  @thash[]
Removed from v.1.10  
changed lines
  Added in v.1.86

E-mail: