--- parser3/src/www/htdocs/Attic/index.html 2001/08/22 14:03:18 1.272
+++ parser3/src/www/htdocs/Attic/index.html 2001/08/28 14:39:50 1.283
@@ -3,7 +3,13 @@ t.p
dtf.p
@main[]
-^process_check[]
+#^tfilemove[]
+#^treplace[]
+^measuretest[]
+#^savetest[]
+#^oratestinsert[]
+#^oratestread[]
+#^process_check[]
#^ffcheck[]^[xxx]
#$ORIGINS(1)
@@ -11,6 +17,58 @@ dtf.p
#^tests[]
#^func(0)
+@tfilemove[]
+^file:move[a/a;b/b]
+
+@treplace[]
+$шило-на-мыло[^table::set{a b
+шило мыло
+}]
+$строка[бывает шило в задице]
+^строка.replace[$шило-на-мыло]
+
+@measuretest[]
+$im[^image::measure[mm3.gif]]
+x:y=${im.width}:${im.height}
+
+@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[] }
+}
+
+@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
+}
+
+}
+$news[^table::sql{select * from news}[$.limit(2)]]
+^rem{
+news columns:
+$news_columns[^news.columns[]]
+^news_columns.menu{
+ $news_columns.column
+}
+
+}
+news description:
+^news.menu{
+
+ $news.description
+}
+}
+
@process_check[]
$f[^file::load[text;process.tpl]]
^process[$f.text]