--- parser3/src/www/htdocs/Attic/index.html 2001/09/04 19:03:23 1.291 +++ parser3/src/www/htdocs/Attic/index.html 2001/09/12 15:34:58 1.296.2.6 @@ -1,9 +1,16 @@ -@USE -t.p -dtf.p - @main[] -^timghtmlyu[] +^emptyprotocol[] +#^emptytableisnotdef[] +#^autoconvemptystring[] +#^tdupleform[] +#^tvoiddefault[] +#^testdom0[] +#^testlocal[0] +#^thashdefault2[] +#^tcase2[] +#^tlsplit2[] +#^tconnect[] +#^timghtmlyu[] #^timghtml[] #^tresult[] #^voidtest[] @@ -27,6 +34,64 @@ dtf.p #^tests[] #^func(0)
+@emptyprotocol[] +^connect[z]{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}[,]
+$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
+^if($level<10){ + ^testlocal($level+1) +} +after($level):$local
+ +@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)]