--- parser3/src/www/htdocs/Attic/index.html	2001/08/21 11:12:20	1.269
+++ parser3/src/www/htdocs/Attic/index.html	2001/09/06 16:54:14	1.296
@@ -3,10 +3,201 @@ t.p
 dtf.p
 
 @main[]
+^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]
+
 #$ORIGINS(1)
-#^func(0)<hr>
+#^list[]
 #^tests[]
-^list[]
+#^func(0)<hr>
+
+@tdupleform[]
+#$c[^form:a.columns[]]
+#^c.menu{$c.column}[,]<br>
+^form:a.menu{$form:a.element=}[,]
+
+@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[/i/commons_22_prev.gif]]
+^êàðòèíêà.font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^^^;<>?@()[]'&*/^$;/i/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
+	
+@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}]
+^tables.menu{
+	$tables.table_name<br>
+}
+<hr>
+}
+$news[^table::sql{select * from news}[$.limit(2)]]
+^rem{
+news columns:<br>
+$news_columns[^news.columns[]]
+^news_columns.menu{
+	$news_columns.column<br>
+}
+<hr>
+}
+news description:<br>
+^news.menu{
+<hr>
+	$news.description
+}
+}
+
+@process_check[]
+$f[^file::load[text;process.tpl]]
+^process[$f.text]
+
+@ffcheck[]
+^file:find[bug/index.html]{not found}
 
 @list[]
 $list[^file:list[.;.*\.html^$]]