Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.352 and 1.376

version 1.352, 2001/10/03 00:05:21 version 1.376, 2001/10/09 13:17:45
Line 1 Line 1
 @main[]  @main[]
   ^calendar[]
   #^thash[]
   #^tdef[]
   #^ford[]
   #^tif[]
   #^image[]
   #^mail2[]
   #^cookie[]
   #^response[]
   #^regexp2[]
 #^ttablerem[]  #^ttablerem[]
 #^pcre[]  #^pcre[]
 #^regexp[]<hr>  #^regexp[]<hr>
Line 6 Line 16
 #^exec[]  #^exec[]
 #^fori[]  #^fori[]
 #^tconnect[]  #^tconnect[]
 ^xslt[]  #^xslt[]
   #^xml[]
   #^header[]
 OK  OK
   
   @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;$pict.height;0;360;0x000000)
   ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-5;0x000000)
   $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[]  @ttablerem[]
 $table[^table::load[a.cfg]]  $table[^table::load[a.cfg]]
 ^table.menu{$table.a}  ^table.menu{$table.a}
   
 @tconnect[]  @tconnect[]
 ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1]{  ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
 $tables[^table::sql{show tables}]  $tables[^table::sql{show tables}]
 #$cols[^tables.columns[]]  #$cols[^tables.columns[]]
 #$cols.column  #$cols.column
Line 47  $s[abcАБВ] Line 132  $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[]
 #$response:content-type[$.value[text/html] $.charset[windows-1251]]  #$response:content-type[$.value[text/html] $.charset[windows-1251]]
 $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>  $xdoc[^xdoc::load[input.xml]]
 #<!DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd">  
   
 <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 105  by id: Line 182  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 133  $file[^xdoc.file[ Line 210  $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.352  
changed lines
  Added in v.1.376


E-mail: