--- parser3/src/www/htdocs/Attic/index.html 2001/08/28 09:27:42 1.281
+++ parser3/src/www/htdocs/Attic/index.html 2001/11/08 11:52:35 1.467
@@ -1,1815 +1,578 @@
-@USE
-t.p
-dtf.p
-
@main[]
-^treplace[]
-#^measuretest[]
-#^savetest[]
-#^oratestinsert[]
-#^oratestread[]
-#^process_check[]
-#^ffcheck[]^[xxx]
+#^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[]
+#$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)
-
-@treplace[]
-$шило-на-мыло[^table::set{a b
-шило мыло
-}]
-$строка[бывает шило в задице]
-^строка.replace[$шило-на-мыло]
+$constructor[
+
+
+]
-@measuretest[]
-$im[^image::measure[mm2.jpg]]
-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[] }
+$constr[^xdoc::set{
+^untaint[as-is]{$constructor}}]
+
+$children[$constr.documentElement.childNodes]
+^if($children){
+^for[i](1;^children._count[]){
+ $node[$children.$i]
+ $node.nodeName
+}
+}
+
+
+@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}
+