--- parser3/src/www/htdocs/Attic/index.html 2001/09/07 11:05:17 1.295.2.3
+++ parser3/src/www/htdocs/Attic/index.html 2001/11/14 09:30:09 1.477
@@ -1,1943 +1,659 @@
-@USE
-t.p
-dtf.p
-
@main[]
-^tdupleform[]
-#^tvoiddefault[]
-#^testdom0[]
-#^testlocal[0]
-#^thashdefault2[]
-#^tcase2[]
-#^tlsplit2[]
-#^tconnect[]
-#^timghtmlyu[]
-#^timghtml[]
-#^tresult[]
-#^voidtest[]
-#^ttext[]
-#^tdoubledefault[]
+^badoracequoting[]
+#^badconstructors[]
+#^xloadwrongtable[]
+#^xsetwrongtable[]
+#^if($form:test){y}{n}
+#^tablecolumnerror[]
+#^roll[]
+#^cookie2[]
+#^tableset[]
+#^math:PI.format{%.30f}
+#^xchildren[]
+#^thashforeach3[]
+#^thashforeach2[]
+#^thashforeach[]
+#^thashdelete[]
+#^connect[mysql://user:pass@cd.rinet.ru/db]{^void:sql{z} }
+#^tappend[]
+#^sappend[]
+#^eval(10\3)
+#^tform[]
+#^formattest[]
+#^filelist[]
+#^connect[mysql://user:pass@host]{ }
+#^безнадёжна_попытка_поправить_непоправимое[]
+#^tcache[]
+#^thashfileexp[]
+#^tcounter[]
+#^tablehash[]
+#j^hashfile[]
+#^formclass[]
+#^hren[]
+#^domedit[]
+#^domxslt[]
+#^lsplit2[]
+#^faceesize[]
+#^imageresize[]
+#^ifassignhash[]
#^tintdefault[]
-#^t3partycookie[]
-#^t3partycookie[]
-#^tcookie[]
-#^tfilemove[]
-#^treplace[]
-#^measuretest[]
-#^savetest[]
-#^oratestinsert[]
-#^oratestread[]
-#^process_check[]
-#^ffcheck[]^[xxx]
+#$response:status[404]
+#^ifpasshash[]
+#^movedir[]
+#^replace[]
+#^set[]
+#^hash[]
+#$t[^methresult[]] ->$t
+#^terror[]
+#^ssave[]
+#^calendar[]
+#^thash[]
+#^tdef[]
+#^ford[]
+#^tif[]
+#^image[]
+#^mail2[]
+#^cookie[]
+#^response[]
+#^regexp2[]
+#^ttablerem[]
+#^pcre[]
+#^regexp[]
+#^mail[]
+#^exec[]
+#^fori[]
+#^tconnect[]
+#^xslt[]
+#^xml[]
+#^header[]
+
+OK
-#$ORIGINS(1)
-#^list[]
-#^tests[]
-#^func(0)
-
-@tdupleform[]
-$form:a
-#$c[^form:a.columns[]]
-#^c.menu{$c.column}[,]
-#^form:a.menu{$form:a.element=}[,]
-
-@tvoiddefault[]
-$var[$form:element]
-^var.int(2)
-
-
-@testdom0[]
-$dom[^dom::load[test.xml]]
-
-
-@testlocal[level][local]
-$local($level)
-before($level):$local
-^if($level<10){
- ^testlocal($level+1)
+@badoracequoting[]
+$SQL.connect-string[oracle://webspb:webpwd@mts?NLS_LANG=RUSSIAN_AMERICA.CL8MSWIN1251&NLS_DATE_FORMAT=YYYY-MM-DD HH24:MI:SS]
+^connect[$SQL.connect-string]{
+$tables[^table::sql{select table_name from user_tables}]
+^tables.menu{
+$tables.table_name
}
-after($level):$local
-@thashdefault2[]
-$hash[
- $.a[1]
- $.b[2]
- $._default[xx]
-]
-$hash.c
+
+$news[^table::sql{select description from news}[$.limit(3)]]
+^news.menu{
+ ^untaint{$news.description}
-@tcase2[]
-$hash[
- $.1{^load[code1]}
- $.2{code2}
-]
-$hash.1
+}
+}
+
+$env:PATH
-@tlsplit2[]
-$splitURI[^request:uri.mid(1;^request:uri.length[]-1).lsplit[/]]
-OK
+@badconstructors[]
+$bred[^string::length[]]
+$bred[^response::clear[]]
+$bred[^int::int[]]
-@tconnect[]
-#^connect[mysql://hren:pwd@hren/zz]{hren}
-^connect[mysql://]{^void:sql{show tables}}
+@xloadwrongtable[]
+$constr[^xdoc::load[wrongtable.xml]]
-@timghtmlyu[]
-^img[/i/commons_22_prev.gif][$.vspace(100)]
-@img[filename;params]
-^if(-f $filename){$thisImage[^image::measure[$filename]]^thisImage.html[$params]}
+@xsetwrongtable[]
+$constr[^xdoc::set{
+^untaint[as-is]{$constructor}}]
-@timghtml[]
-$картинка[^image::measure[i/commons_22_prev.gif]]
-#$hash[$.alt[222]]
-#^timghtml-nested[$hash]
-^timghtml-nested[$.alt[222]]
-@timghtml-nested[params]
-^картинка.html[$params]
+@tablecolumnerror[]
+$t[^table::set{a}]
+$t.$a
-@tresult[]
-44
-$result[]
+@roll[]
+#$date[^date::set(1970;1;2)]
+#^date.roll[month](-1)
+$date[^date::set(2038;1;1)]
+^date.roll[month](+1)
+$date.year $date.month $date.day
-@voidtest[]
-#$var[123x]
-^var.int(4)
+@cookie2[]
+#=$cookie:clientType[$.value[test]]=
+=$cookie:clientType=
-@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)[!-+=!\"%:,.^^^;<>?@()[]'&*/^$!]
+@tableset[]
+$a[^table::set{a
+1
+2}]
+^eval(100\$a)
-$response:body[^картинка.gif[]]
-@tdoubledefault[]
-$a[123.6x]
-#^a.double[]
-^a.double(999)
+@zzz[]
-@tintdefault[]
-$a[123x]
-#^a.int[]
-^a.int(999)
-
-@t3partycookie2[]
-#z
z
-z
z
-
-@t3partycookie[]
-z
z
-
-@tcookie[]
-$response:P3P[policyref="http://parser3/w3c/paf.xml"]
-$cookie:test[$form:x^math:random(100)]
-$env:HTTP_COOKIE
-get:$cookie:test
-#
+$constructor[
+
+
+]
-@tfilemove[]
-^file:move[a/a;b/b]
+$constr[^xdoc::set{
+^untaint[as-is]{$constructor}}]
-@treplace[]
-$шило-на-мыло[^table::set{a b
-шило мыло
-}]
-$строка[бывает шило в задице]
-^строка.replace[$шило-на-мыло]
+$children[$constr.documentElement.childNodes]
+^if($children){
+^for[i](1;^children._count[]){
+ $node[$children.$i]
+ $node.nodeName
+}
+}
+
-@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[] }
+@thashforeach3[]
+$h[
+ $.a[1]
+ $.b[2]
+]
+$c[^table::set{a
+^h.foreach[key;value]{$value
+}}]
+$c.a
+
+@thashforeach2[]
+$h[
+ $.a[1]
+ $.b[2]
+]
+$c[
+^h.foreach[key;value]{
+ $.$key[$value]
}
+]
+$c.b
-@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
+@thashforeach[]
+$h[
+ $.a[1]
+ $.b[2]
+]
+^h.foreach[key;value]{
+ $key=$value
+}
+
+@thashdelete[]
+$h[$.a[1] $.b[2]]
+was:
+count=^h._count[]
+b='$h.b'
+
+^h.delete[b]
+
+now:
+count=^h._count[]
+b='$h.b'
+
+@sappend[]
+$test[123]
+^test.save[test]
+^test.save[append;test]
+
+@tappend[]
+$test[^table::set{a b
+a1 b1}]
+^test.save[test]
+$test[^table::set{a b
+a2 b2}]
+^test.save[append;test]
+
+
+@tform[]
+^if(def $form:new_file){y}{n}
+