|
|
| 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  ^; ^; ^; ^;^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 | |