--- 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]