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

Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.348 and 1.378

version 1.348, 2001/10/02 11:07:45 version 1.378, 2001/10/09 14:30:19
Line 1 Line 1
 @main[]  @main[]
 $response:content-type[$.value[text/html] $.charset[windows-1251]]  #^ssave[]
 ^pcre[]  #^calendar[]
   #^thash[]
   #^tdef[]
   #^ford[]
   #^tif[]
   #^image[]
   #^mail2[]
   #^cookie[]
   #^response[]
   #^regexp2[]
   #^ttablerem[]
   #^pcre[]
 #^regexp[]<hr>  #^regexp[]<hr>
 #^mail[]  #^mail[]
 #^exec[]  #^exec[]
 #^fori[]  #^fori[]
 #^connect[mysql://hren]{^void:sql{nothing}}  #^tconnect[]
 #^xslt[]  ^xslt[]
   #^xml[]
   #^header[]
 OK  OK
   
   @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;$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[]
   $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 137  $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 187  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 215  $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.348  
changed lines
  Added in v.1.378

E-mail: