--- parser3/src/www/htdocs/Attic/index.html	2001/03/21 16:48:19	1.32
+++ parser3/src/www/htdocs/Attic/index.html	2001/09/11 09:26:44	1.310
@@ -1,16 +1,41 @@
 @main[]
-<form method=post>
-(^$form:name=$form:name)<BR>
-<input name=name value="^default[$form:name;íå çíàþ]">
-<input type=submit>
-</form>
-
-@default[test;def]
-^if(^test.length[]){$test}{$def}
-
-@exception[origin;source;comment;type;code]
-ERROR:
-^if(def $source){$origin '$source'}
-${comment}.
-^if(def $type){type=$type}
-^if(def $code){code=$code}
+^testdom4[]
+#^testdom3[]
+#^testdom2[]
+#^testdom1[]
+#^testdom0[]
+OK
+
+@testdom4[]
+$dom[^dom::set{<?xml version="1.0" encoding="windows-1251"?>
+
+<doc>testing ïðîâåðêà ÏÐÎÂÅÐÊÀ. ^$form:a='$form:a'</doc>
+}]
+$response:body[^dom.file[$.encoding[windows-1251]]]
+
+@testdom3[]
+$dom[^dom::load[test.xml]]
+$dom[^dom.xslt[test.xsl;$.param1(48)]]
+$dom[^dom.xslt[test.xsl;$.param1(48)]]
+
+@testdom2[]
+$dom[^dom::load[test.xml]]
+#^dom.save[$.encoding[windows-1251];write.xml]
+#^dom.save[;write.xml]
+^dom.save[$.encoding[windows-1251] $.method[xml];write.xml]
+^dom.save[$.encoding[windows-1251] $.method[html];write.html]
+^dom.save[$.encoding[windows-1251] $.method[text];write.txt]
+
+@testdom1[]
+$dom[^dom::load[test.xml]]
+$dom[^dom.xslt[test.xsl;$.param1(48)]]
+$response:body[^dom.file[$.encoding[windows-1251]]]
+
+@testdom0[]
+$dom[^dom::load[test.xml]]
+^dom.save[$.encoding[windows-1251];write.xml]
+^dom.string[$.encoding[windows-1251]]
+$ôàéë[^dom.file[$.encoding[windows-1251]]]
+^ôàéë.save[binary;writefile.xml]
+$response:body[$ôàéë]
+OK
\ No newline at end of file