Diff for /parser3/www/htdocs/Attic/index.html between versions 1.32 and 1.54

version 1.32, 2002/04/09 15:27:13 version 1.54, 2002/04/25 15:39:15
Line 1 Line 1
 #@USE  @USE
 #z/t.p  t.p
   
 @autoz[]  @autoz[]
 $request:charset[windows-1251]  $request:charset[windows-1251]
 $response:charset[windows-1251]  $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]  $response:content-type[$.value[text/html]$.charset[$response:charset]]
   
   @postprocess[body]
   =$env:HTTP_TEST=<br>
   =$env:REDIRECT_HTTP_TEST=<br>
   <hr>
   $body
   <hr>
   OK
   
 @main[]  @main[]
 ^transparams[]  #^sqldefaults[]
   #^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[]  #^voidparams[]
 #^rolls2[]  #^rolls2[]
 #^cacheexpireschanging[]  #^cacheexpireschanging[]
Line 115  $response:content-type[$.value[text/html Line 144  $response:content-type[$.value[text/html
 #^xslt[]  #^xslt[]
 #^xml[]  #^xml[]
 #^header[]  #^header[]
   #^tablehasht[]
   #^datecreatestring[]
   #^mssqltypes1[]
   
   @mssqltypes1[]
   ^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
           ^string:sql{select CAST('2000-05-28 00:00:00.000' AS smalldatetime)}
   }
   
   @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}]
   }
   
   @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>  <hr>
 OK  ^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[]  @transparams[]
 $idoc[^xdoc::create{<?xml version="1.0" ?><doc/>}]  $idoc[^xdoc::create{<?xml version="1.0" ?><doc/>}]
Line 137  $odoc[^idoc.transform[global.xsl; Line 327  $odoc[^idoc.transform[global.xsl;
 @memnotest1notes[]  @memnotest1notes[]
 одна итерация цикла:  одна итерация цикла:
 [Mon Apr  8 20:12:02 2002] execution-------------------------|  [Mon Apr  8 20:12:02 2002] execution-------------------------|
 '469641+=28 wcodeframe -> 0 optimized[3]''469669+=49 string от {} -> 0 optimized[3]'  '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] 12:STRING__WRITE
 [Mon Apr  8 20:12:02 2002]  "|| "  [Mon Apr  8 20:12:02 2002]  "|| "
 [Mon Apr  8 20:12:02 2002] 12:WITH_ROOT  [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] 13:VALUE
 [Mon Apr  8 20:12:02 2002]  "xxxx" string  [Mon Apr  8 20:12:02 2002]  "xxxx" string
 [Mon Apr  8 20:12:02 2002] 14:CREATE_EWPOOL'469377+=24 wcodeframe -> 0 stacked[1]''469401+=49 string -> 41 optimized[7]'  [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] 16:WITH_READ
 [Mon Apr  8 20:12:02 2002] 17:VALUE  [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]  "i" string
 [Mon Apr  8 20:12:02 2002] 18:GET_ELEMENT  [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] 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 optimized[5]'  [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] 15:CONSTRUCT_VALUE
 [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE  [Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
 [Mon Apr  8 20:12:02 2002]  "| "  [Mon Apr  8 20:12:02 2002]  "| "
Line 159  $odoc[^idoc.transform[global.xsl; Line 349  $odoc[^idoc.transform[global.xsl;
 [Mon Apr  8 20:12:02 2002] 14:GET_ELEMENT  [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] 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] 12:STRING__WRITE
 [Mon Apr  8 20:12:02 2002]  "||"'469617+=24 VString -> 0 optimized[6]'  [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 returned
 [Mon Apr  8 20:12:02 2002] ja->  [Mon Apr  8 20:12:02 2002] ja->
   
Line 319  $t[^table::create{a b Line 509  $t[^table::create{a b
   
 @execlangs[]  @execlangs[]
 $f[^file::exec[test.pl]]  $f[^file::exec[test.pl]]
   err:$f.stderr<br>
 ^process{$f.text}  ^process{$f.text}
 #$c[^t.columns[]]  #$c[^t.columns[]]
 #^c.menu{  #^c.menu{
 #* $c.column<br>  #* $c.column<br>
 #}  #}
 =$t.c=  c:$t.c<br>
   
 @tobjeresult[]  @tobjeresult[]
 ^table::create{a  ^table::create{a

Removed from v.1.32  
changed lines
  Added in v.1.54


E-mail: