Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.349 and 1.388

version 1.349, 2001/10/02 11:12:56 version 1.388, 2001/10/12 12:48:22
Line 1 Line 1
 @main[]  @main[]
 $response:content-type[$.value[text/html] $.charset[windows-1251]]  ^tintdefault[]
   #$response:status[404]
   #^ifpasshash[]
   #^movedir[]
   #^replace[]
   #^set[]
   #^hash[]<hr>
   #$t[^methresult[]] ->$t
   #^terror[]
   #^ssave[]
   #^calendar[]
   #^thash[]
   #^tdef[]
   #^ford[]
   #^tif[]
   #^image[]
   #^mail2[]
   #^cookie[]
   #^response[]
   #^regexp2[]
   #^ttablerem[]
 #^pcre[]  #^pcre[]
 #^regexp[]<hr>  #^regexp[]<hr>
 #^mail[]  #^mail[]
 #^exec[]  #^exec[]
 #^fori[]  #^fori[]
 #^connect[mysql://hren]{^void:sql{nothing}}  #^tconnect[]
 ^xslt[]  #^xslt[]
   #^xml[]
   #^header[]
 OK  OK
   
   @tintdefault[]
   #$abc[abc]
   $abc[33]
   ^abc.int[z]
   #^abc.int(123)
   
   @ifpasshash[]
   $a[$.e[a]]
   $b[$.e[b]]
   ^ifpasshashdest[^if(1){$a}{$b}]
   #$x[^if(1){$a}{$b}]
   #^ifpasshashdest[$x]
   
   @ifpasshashdest[p]
   $p.e
   
   @movedir[]
   ^file:move[a;deeper/a]
   
   @replace[]
   $a[12^;3]
   ^a.replace[^table::set{from     to
   2^;     !
   }]
   
   
   @set[]
   ^setdata[]
   ^a.add[$b]
   add:$a.3<br>
   
   ^setdata[]
   ^a.sub[$b]
   sub2:$a.2<br>
   sub1:$a.1<br>
   
   ^setdata[]
   $c[^a.union[$b]]
   union3:$c.3<br>
   union2:$c.2<br>
   
   ^setdata[]
   $c[^a.intersection[$b]]
   intersection3:$c.3<br>
   intersection2:$c.2<br>
   
   ^setdata[]
   intersects:^if(^a.intersects[$b]){y;n}<br>
   intersects2:^if(^a.intersects[ ]){y;n}<br>
   
   
   <hr>
   
   @setdata[]
   $a[$.1[a1] $.2[a2]]
   $b[        $.2[b2] $.3[b3]]
   
   
   @hash[]
   $h[^hash::create[$._default[123]]]
   $h.paf[not kretin]
   $h.paf<br>
   =$h.that=<br>
   
   @methresult[]
   $result[^table::set{1}]
   
   @terror[]
   ^error[method z must be called with z]
   
   @syntax1[]
   #^a[^b]
   
   @syntax2[]
   #^a[
   
   @ssave[]
   $abc[abc]
   ^abc.save[abc]
   
   @calendar[]
   2001;11:<br>
   $week_days[^date:calendar[rus](2001;11)]
   <pre>
   ^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday;&nbsp^;&nbsp^;} }<br>}
   </pre>
   
   @thash[]
   $table[^table::set{id   name    age
   1       paf     278
   2       пиф     234
   }]
   $hash[^table.hash[id;^table::set[nameless]{id
   name}]]
   $hash.2.id $hash.2.name $hash.2.age
   
   @tdef[]
   $s[0]
   if 0=^if($s){}{n}<br>
   if def 0=^if(def $s){y}{}<br>
   <hr>
   
   @ford[]
   ^for[i](0;5){$i}{($i)}
   
   @tif[]
   ^if[def]{y;n}
   
   @image[]
   $pict[^image::create(400;200)]
   ^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000)
   ^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000)
   #^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000)
   ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff)
   ^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000)
   $response:body[^pict.gif[]]
   
   
   
   @mail2[]
   ^mail:send[
           $.content-type[$.value[text/plain] $.charset[windows-1251]]
           $.from[Александр Петросян <paf@design.ru>]
           $.to[Александр Петросян <paf@design.ru>]
           $.subject[проверка]
           $.body[проверка]
   ]
   
   @cookie[]
   $env:HTTP_COOKIE<br>
   
   #$cookie:переменная[test тест ТЕСТ2]
   =$cookie:переменная=<br>
   #$cookie:переменная2[test тест ТЕСТ3]
   =$cookie:переменная2=<br>
   
   @response[]
   #^if($form:reload){
           $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
   #}
   
   @xslt[]
   ^xdata[]
   ^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]]
   
   @regexp2[]
   $s[  select]
   $s[^s.match[^^\s*][]{!}]
   $s
   
   @header[]
   $response:refresh[
           $.value[0]
           $.url[http://design.ru?a=^taint[123]]
   ]
   
   @ttablerem[]
   $table[^table::load[a.cfg]]
   ^table.menu{$table.a}
   
   @tconnect[]
   ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
   $tables[^table::sql{show tables}]
   #$cols[^tables.columns[]]
   #$cols.column
   ^tables.menu{
           $tables.[Tables_in_test]<br>
   }
   }
   
 @pcre[]  @pcre[]
 $s[1 2]  $s[1 2]
 ^s.match[\s;ig]{!}  ^s.match[\s;ig]{!}
Line 33  $s[abcАБВ] Line 225  $s[abcАБВ]
 ]  ]
   
 @exec[]  @exec[]
 $a[^file::exec[fc.exe;a;b]]  $a[^file::exec[fc.exe;;a;b]]
 $a.status|$a.stderr<hr>  $a.status|$a.stderr<hr>
   
 @fori[][i]  @fori[][i]
 ^for[i](1;3){... =$i= ...}  ^for[i](1;3){... =$i= ...}
   
 @xslt[]  @xdata[]
 $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>  #$response:content-type[$.value[text/html] $.charset[windows-1251]]
 #<!DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd">  $xdoc[^xdoc::load[input.xml]]
   
 <people>  @xml[]
         <man id="1">  ^xdata[]
                 <name>P&#171^;AFB</name>  
         </man>  
         <man id="2">  
                 <name>ПИФ</name>  
         </man>  
 </people>  
 }]  
   
 ^show-xdoc2[$xdoc]<hr>  ^show-xdoc2[$xdoc]<hr>
 #^show-xnode1[$xdoc]<hr>  #^show-xnode1[$xdoc]<hr>
Line 90  by id: Line 275  by id:
             $pairs[$x.attributes]              $pairs[$x.attributes]
             ^if(def $pairs){              ^if(def $pairs){
                 $names[^pairs._keys[]]                  $names[^pairs._keys[]]
                 ^names.menu{$names.key=$pairs.[$names.key].nodeValue }                  ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
             }              }
             &gt^;              &gt^;
     }{      }{
Line 118  $file[^xdoc.file[ Line 303  $file[^xdoc.file[
         $.method[html]          $.method[html]
 ]]  ]]
 ^file.save[text;save_file.html]  ^file.save[text;save_file.html]
 ^taint[^xdoc.string[]]  <pre>^taint[^xdoc.string[]]</pre>
 #       $.encoding[windows-1251]  #       $.encoding[windows-1251]
 #       $.method[xml]  #       $.method[xml]
 #]]  #]]

Removed from v.1.349  
changed lines
  Added in v.1.388


E-mail: