--- parser3/src/www/htdocs/Attic/index.html	2001/08/10 10:45:50	1.265
+++ parser3/src/www/htdocs/Attic/index.html	2001/09/18 15:24:37	1.296.2.12
@@ -1,6 +1,310 @@
-@USE
-t.p
-dtf.p
+@main[]
+#^locals[]
+^fori[]
+#^imagepoly[]
+#^dconst[]
+#^subnameinexpr3[]
+#^subnameinexpr2[]
+#^subnameinexpr[]
+#^statictest[]
+#^istable[]
+#^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]
+
+#$ORIGINS(1)
+#^list[]
+#^tests[]
+#^func(0)<hr>
+
+@locals[][i]
+$i[33]
+^locals2[]
+$i
+
+@locals2[][i]
+$i[44]
+$i
+
+@fori[][i]
+#$i(0)
+$j(0)
+#^while($i<=9){
+#^while($j<1){
+^for[i](0;9){
+=$i=
+^j.inc[]
+#^i.inc[]
+#}
+}
+
+@imagepoly[]
+$i[^image::create[200;200]]
+$i.line-style[*******       ]
+^i.polyline(0)[^table::set{x	y
+50	50
+100	50
+150	150
+}]
+#^i.line(50;50;100;50;0)
+$response:body[^i.gif[]]
+
+@dconst[]
+$hash[
+$.a(0xe)
+]
+$hash.a
+
+
+@subnameinexpr3[]
+^use[/chart.p]
+$test[^chart::init[1;2;$.zz[]]]
+
+@subnameinexpr2[]
+^use[/test.p]
+$test[^test::subnameinexpr2[]]
+$test.c
+
+@subnameinexpr[]
+$hash[
+	$.a[1]
+	$.b[2]
+]
+$c($CLASS.hash.a+$hash.b)
+$c
+
+@statictest[]
+^use[/test.p]
+$test[^test::create[]]
+
+@istable[]
+^istable_nested[^table::set{hren}]
+@istable_nested[param]
+^if($param is table){y2;n2}
+
+@line[]
+$êàðòèíêà[^image::create(200;200)]
+$êàðòèíêà.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
+	
+@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^$]]
+^list.menu{$list.name<br>}
+#^list.count[]
+
+@func[param]
+#[local]
+$local(0)
+^local.inc(1)
+#$local($local+1)
+^if($param<10){^func($param+1)}
+=$local=
 
 @bannerSSI[][code]
 $code[^file::cgi[/../cgi-bin/bbssi.pl;
@@ -22,7 +326,27 @@ document.write('');
 </script>
 <!-- BannerBank advertising end: new -->
 
-@main[]
+@tests[]
+$ab(123)
+${[ab]}=
+<hr>
+$õýø[$.âîçðàñò(88)] $äîñòàòü[$.ïîëå[âîçðàñò]] ^õýø.[$äîñòàòü.ïîëå].format{%05d}
+<hr>
+
+$ëþäè[
+	$.âàñÿ[
+		$.âîçðàñò(45)
+	]
+]
+$÷åëîâåê[
+	$.ïîëå[âîçðàñò]	
+]
+
+$ëþäè.âàñÿ.[$÷åëîâåê.ïîëå]<br>
+^ëþäè.âàñÿ.[$÷åëîâåê.ïîëå].format{%010d}<br>
+
+
+<hr>
 $unsorted[^table::set{a	b
 1	1
 3	3