--- parser3/src/www/htdocs/Attic/index.html	2001/08/23 11:08:52	1.274
+++ parser3/src/www/htdocs/Attic/index.html	2001/09/15 15:42:08	1.296.2.8
@@ -1,9 +1,32 @@
-@USE
-t.p
-dtf.p
-
 @main[]
-^oratest[]
+^line[]
+#^emptyprotocol[]
+#^emptytableisnotdef[]
+#^autoconvemptystring[]
+#^tdupleform[]
+#^tvoiddefault[]
+#^testdom0[]
+#^testlocal[0]
+#^thashdefault2[]
+#^tcase2[]
+#^tlsplit2[]
+#^tconnect[]
+#^timghtmlyu[]
+#^timghtml[]
+#^tresult[]
+#^voidtest[]
+#^ttext[]
+#^tdoubledefault[]
+#^tintdefault[]
+#^t3partycookie[]
+#^t3partycookie[]
+#^tcookie[]
+#^tfilemove[]
+#^treplace[]
+#^measuretest[]
+#^savetest[]
+#^oratestinsert[]
+#^oratestread[]
 #^process_check[]
 #^ffcheck[]^[xxx]
 
@@ -11,8 +34,160 @@ dtf.p
 #^list[]
 #^tests[]
 #^func(0)<hr>
+
+@line[]
+$êàðòèíêà[^image::load[background.gif]]
+$êàðòèíêà.line-width(2)
+^êàðòèíêà.line(0;0;$êàðòèíêà.width;$êàðòèíêà.height;0)[****   *   ]
+$response:body[^êàðòèíêà.gif[]]
+
+
+@emptyprotocol[]
+^connect[]{zz}
+
+@emptytableisnotdef[]
+$table[^table::set[nameless]{}]
+^if(def $table){y;n}
+
+@autoconvemptystring[]
+^if($form:v){y}{n}
+
+
+@tdupleform[]
+#$form:fields.a
+#$c[^form:tables.a.columns[]]
+#^c.menu{$c.column}[,]<br>
+$atable[$form:tables.a]
+^atable.menu{a=$atable.field}[,]
+
+@tvoiddefault[]
+$var[$form:element]
+^var.int(2)
+
+
+@testdom0[]
+$dom[^dom::load[a.xml]]
+
+
+@testlocal[level][local]
+$local($level)
+before($level):$local<br>
+^if($level<10){
+	^testlocal($level+1)
+}
+after($level):$local<br>
+
+@thashdefault2[]
+$hash[
+	$.a[1]
+	$.b[2]
+	$._default[xx]
+]
+$hash.c
+
+@tcase2[]
+$hash[
+	$.1{^load[code1]}
+	$.2{code2}
+]	
+$hash.1
+
+@tlsplit2[]
+$splitURI[^request:uri.mid(1;^request:uri.length[]-1).lsplit[/]]
+OK
+
+@tconnect[]
+#^connect[mysql://hren:pwd@hren/zz]{hren}
+^connect[mysql://]{^void:sql{show tables}}
+
+
+@timghtmlyu[]
+^img[/i/commons_22_prev.gif][$.vspace(100)]
+@img[filename;params]
+^if(-f $filename){$thisImage[^image::measure[$filename]]^thisImage.html[$params]}
+
+@timghtml[]
+$êàðòèíêà[^image::measure[i/commons_22_prev.gif]]
+#$hash[$.alt[222]]
+#^timghtml-nested[$hash]
+^timghtml-nested[$.alt[222]]
+
+@timghtml-nested[params]
+^êàðòèíêà.html[$params]
+
+@tresult[]
+44
+$result[]
+
+@voidtest[]
+#$var[123x]
+^var.int(4)
+
+@ttext[]
+$êàðòèíêà[^image::load[background.gif]]
+^êàðòèíêà.font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^^^;<>?@()[]'&*/^$;font.gif](5)
+
+^êàðòèíêà.text(10;10)[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijkl]
+^êàðòèíêà.text(10;30)[mnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß]
+^êàðòèíêà.text(10;50)[àáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789]
+^êàðòèíêà.text(10;70)[!-+=!\"%:,.^^^;<>?@()[]'&*/^$!]
+
+
+$response:body[^êàðòèíêà.gif[]]
+
+@tdoubledefault[]
+$a[123.6x]
+#^a.double[]
+^a.double(999)
+
+
+@tintdefault[]
+$a[123x]
+#^a.int[]
+^a.int(999)
+
+@t3partycookie2[]
+#z<img width=100 height=100 src=http://i/cgi-bin/p3p.cgi>z
+z<img width=100 height=100 src=http://i.office.design.ru/cgi-bin/p3p.cgi>z
+
+@t3partycookie[]
+z<img width=100 height=100 src=http://rotabanner.adex.ru/cgi-bin/banner/mail>z
+
+@tcookie[]
+$response:P3P[policyref="http://parser3/w3c/paf.xml"]
+$cookie:test[$form:x^math:random(100)]
+$env:HTTP_COOKIE<br>
+get:$cookie:test
+#<img src=http://parser3.office.design.ru/?x=coffice>
+
+@tfilemove[]
+^file:move[a/a;b/b]
+
+@treplace[]
+$øèëî-íà-ìûëî[^table::set{a	b
+øèëî	ìûëî
+}]
+$ñòðîêà[áûâàåò øèëî â çàäèöå]
+^ñòðîêà.replace[$øèëî-íà-ìûëî]<BR>
+
+@measuretest[]
+$im[^image::measure[mm3.gif]]
+x:y=${im.width}:${im.height}<BR>
+
+@savetest[]
+$file[^file::load[text;index.html]]
+^file.save[binary;/some/dir/here.dat]
+OK
 	
-@oratest[]
+@oratestinsert[]
+^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{
+#^void:sql{create table lobtest(test clob)}
+^void:sql{insert into lobtest values (/**test**/'áó''êâû')}
+$table[^table::sql{select * from lobtest}]
+^table.menu{^table.line[] <!--. $table.test -->}
+}
+
+@oratestread[]
 ^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{
 ^rem{
 $tables[^table::sql{select table_name from user_tables}]