Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.173 and 1.307

version 1.173, 2001/05/08 08:15:03 version 1.307, 2001/09/11 08:43:39
Line 1 Line 1
 @main[]  @main[]
 $t2[^table:set{key      a       b  ^testdom3[]
 1       a1  #^testdom2[]
 2       a2      b2  #^testdom1[]
 }]  #^testdom0[]
 ^t2.offset(1)  OK
 $t2.b  
 $r[^t2.record[]]  @testdom3[]
 <hr>  $dom[^dom::load[test.xml]]
 $th[^t2.hash[b]]  $dom[^dom.xslt[test.xsl;$.param1(48)]]
 ^$th.b2.a=$th.b2.a<br>  $dom[^dom.xslt[test.xsl;$.param1(48)]]
 <hr>  
 $th[^t2.hash[key;a]]  @testdom2[]
 ^$th.2=$th.2<br>  $dom[^dom::load[test.xml]]
 <hr>  #^dom.save[$.encoding[windows-1251];write.xml]
 #^OP:eval(1<2)  #^dom.save[;write.xml]
   ^dom.save[$.encoding[windows-1251] $.method[xml];write.xml]
 $filelist[^table:dir[.]]  ^dom.save[$.encoding[windows-1251] $.method[html];write.html]
 <hr>  ^dom.save[$.encoding[windows-1251] $.method[text];write.txt]
 $path[/news/tululu/]  
 #^path.flip[]  @testdom1[]
 <hr>  $dom[^dom::load[test.xml]]
 $branches[^table:set{name       val  $dom[^dom.xslt[test.xsl;$.param1(48)]]
 index.cgihtml   123  $response:body[^dom.file[windows-1251]]
 }]  
 $splitURI[^request:uri.lsplit[/]]  @testdom0[]
 name ^if(^branches.locate[name;$splitURI.1]){found;not found}:  $dom[^dom::load[test.xml]]
 $branches.name  ^dom.save[windows-1251;write.xml]
 <HR>  ^dom.string[windows-1251]
 $splitURI[^request:uri.lsplit[/]]  $файл[^dom.file[windows-1251]]
 $splitURI.0!$splitURI.1  ^файл.save[binary;writefile.xml]
 <HR>  $response:body[$файл]
   OK
 $t2[^table:set{dir      title  
 /here   Here  
 }]  
 $t2{^menu{${dir}-$title}[,]}  
 <HR>  
 $dir[news]  
 $list[^table:dir[$dir]]  
 ^list.menu{  
     $subdir[$dir/$list.name]  
         $sublist[^table:dir[$subdir]]  
         ${list.name}/ $sublist{^menu{$name}[,]}<br>  
 }  
 <HR>  
 ^t[x]  
 <HR>  
 ^if(in "/otherdeeper"){y;n}  
 <HR>  
 ^$form:проверка_имя=$form:проверка_имя<BR>  
 <form method=post>  
 <input name=проверка_имя value=проверка_значение>  
 <input type=submit>  
 </form>  
 <HR>  
   
 ^^table:dir[/]:<BR>  
 $d[^table:dir[/]]  
 $d{^menu{$name &nbsp^;&nbsp^;&nbsp^;&nbsp^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}}  
 <HR>  
   
 $files[^table:set{name}]  
 $d{^menu{  
     ^if(-d "$name"){  
         ^:files.append{$name}  
     }  
 }}  
   
 $files{^menu{$name}[,]}  
 <HR>  
   
 @exception[origin;source;comment;type;code][i;j]  
 <body bgcolor=black>  
 <font color=white>  
 ERROR:  
 ^if(def $source){$origin '$source'}  
 ${comment}.  
 ^if(def $type){type=$type}  
 ^if(def $code){code=$code}  
   
 @auto_test[]  
 ^BASE.auto_test[]  
 <li>${request:uri}!  
   
 @t[a]  
 -${a}-  
 @end  
   
   

Removed from v.1.173  
changed lines
  Added in v.1.307


E-mail: