|
|
| version 1.158, 2001/04/28 08:44:23 | version 1.307, 2001/09/11 08:43:39 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^^table:dir[/]:<BR> | ^testdom3[] |
| $d[^table:dir[/]] | #^testdom2[] |
| $d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}} | #^testdom1[] |
| <HR> | #^testdom0[] |
| OK | |
| @testdom3[] | |
| $dom[^dom::load[test.xml]] | |
| $dom[^dom.xslt[test.xsl;$.param1(48)]] | |
| $dom[^dom.xslt[test.xsl;$.param1(48)]] | |
| $files[^table:set{name}] | @testdom2[] |
| ^d.menu{ | $dom[^dom::load[test.xml]] |
| ^if(-d "$d.name"){ | #^dom.save[$.encoding[windows-1251];write.xml] |
| ^files.append{$d.name} | #^dom.save[;write.xml] |
| } | ^dom.save[$.encoding[windows-1251] $.method[xml];write.xml] |
| } | ^dom.save[$.encoding[windows-1251] $.method[html];write.html] |
| $files{^menu{$name}[,]} | ^dom.save[$.encoding[windows-1251] $.method[text];write.txt] |
| <HR> | |
| @exception[origin;source;comment;type;code] | @testdom1[] |
| <body bgcolor=black> | $dom[^dom::load[test.xml]] |
| <font color=white> | $dom[^dom.xslt[test.xsl;$.param1(48)]] |
| ERROR: | $response:body[^dom.file[windows-1251]] |
| ^if(def $source){$origin '$source'} | |
| ${comment}. | |
| ^if(def $type){type=$type} | |
| ^if(def $code){code=$code} | |
| @auto_test[] | |
| ^BASE.auto_test[] | |
| <li>${request:uri}! | |
| @testdom0[] | |
| $dom[^dom::load[test.xml]] | |
| ^dom.save[windows-1251;write.xml] | |
| ^dom.string[windows-1251] | |
| $פאיכ[^dom.file[windows-1251]] | |
| ^פאיכ.save[binary;writefile.xml] | |
| $response:body[$פאיכ] | |
| OK | |