--- parser3/www/htdocs/Attic/index.html 2002/04/15 06:46:02 1.35
+++ parser3/www/htdocs/Attic/index.html 2002/05/15 09:40:43 1.58
@@ -1,13 +1,38 @@
#@USE
-#z/t.p
+#t.p
@autoz[]
$request:charset[windows-1251]
$response:charset[windows-1251]
$response:content-type[$.value[text/html]$.charset[$response:charset]]
+@postprocess[body]
+#=$env:HTTP_TEST=
+#=$env:REDIRECT_HTTP_TEST=
+#
+$body
+
+OK
+
@main[]
-^casehashtext[]
+#^sqldefaults[]
+#^eval(2)
+#^tcrashlocaljunctionsv2[]
+#^tcrashlocaljunctions[]
+#^tjunctions[]
+#^replacetest[]
+#^matchoptionpp[]
+#^txdocxnodechild[]
+#^tclasses[]
+#$math:PI
+#^b:method[]
+#^main[]
+#^errort[]
+#^tselectNumber[]
+#$result[hello]
+#^invaliddate2[]
+#^process2[]
+#^casehashtext[]
#^subjvaltest[]
#^tableselect0[]
#^memnotest1[]
@@ -119,8 +144,230 @@ $response:content-type[$.value[text/html
#^xslt[]
#^xml[]
#^header[]
+#^tablehasht[]
+#^datecreatestring[]
+#^mssqltypes1[]
+#^badthrows[]
+#^xmlspace[]
+#^counter[main.counter]
+#^xpath2[]
+#^callindirect[]
+#^junctionprob[]
+^datecreatestring2[]
+
+@datecreatestring2[]
+
+^datecreatestring2show[2000]
+^datecreatestring2show[2000-02]
+^datecreatestring2show[2000-02-03]
+^datecreatestring2show[2000-02-03 15]
+^datecreatestring2show[2000-02-03 15:30]
+^datecreatestring2show[2000-02-03 15:30:04]
+^datecreatestring2show[2000-02-03 15:30:04 hren]
+^datecreatestring2show[15:30]
+^datecreatestring2show[15:30:05]
+^datecreatestring2show[15:30:05 hren]
+
+
+@datecreatestring2show[s]
+$date[^date::create[$s]]
+
+| $s | ^date.sql-string[] |
+
+
+
+@junctionprob[][l]
+$l[123]
+$a{$l}
+^junctionprobnested[$a]
+@junctionprobnested[p]
+$p
+
+
+@callindirecttarget[]
+callindirecttarget called
+@callindirect[]
+$f[$callindirecttarget]
+^f[]
+
+@xpath2[]
+$xdoc[^xdoc::create{
+
+
+
+
+
+
+}]
+
+#^xdoc.string[]
+
+$fieldList[^xdoc.selectSingle[/doc/field-list]]
+#^fieldList.childNodes._count[]
+$fields[^fieldList.select[field]]
+#^fields._count[]
+^fields.foreach[k;node]{
+ $node.nodeName
+}
+@counter[filespec][f;s]
+^file:lock[$filespec]{
+ $f[^file::load[text;$filespec]]
+ $s[^eval($f.text+1)]
+ ^s.save[$filespec]
+}
+$s
+
+@xmlspace[]
+$xdoc[^xdoc::set{^process{
+
+
+
+ 1 2
+
+
+}}]
+$xdoc[^xdoc.transform[global.xsl]]
+$string[^xdoc.string[$.method[html]]]
+^string.save[a]
+^untaint[html]{$string}
+
+@badthrows[]
+#^throw[a;b;]
+^throw[a;]
+
+@mssqltypes1[]
+^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
+# ^string:sql{select { ts '1998-05-02 01:23:56.123' }}
+# ^string:sql{select CAST({ ts '1998-05-02 01:23:56.123' }AS smalldatetime)}
+# ^string:sql{select CAST({ts '2002-04-28 00:00:00.000'} AS smalldatetime)}
+ $t[^table::sql{select a from paf}]
+ ^t.count[]
+}
+
+@datecreatestring[]
+$d[^date::create[2002-04-33 01:03:04]]
+^d.sql-string[]
+
+@method[hash]
+$hash.key
+@mainZ[]
+^method[
+ $.key{code}
+]
+
+@tablehasht[]
+$t[^table::create{p
+1
+3
+2
+4}]
+
+$h[^t.hash[p]]
+
+=^h._count[]=
+
+
+@sqldefaults[]
+^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
+ ^int:sql{select news_id from news where news_id=-1}[$.default{2}]
+ ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
+}
+
+@tcrashlocaljunctionsv2[]
+$a[
+ $b{ $c[1] }
+]
+$b
+$c
+
+@tcrashlocaljunctions[]
+$var[aaa]
+^if(1){
+^tcrashlocaljunctions1[]
+}
+
+$j
+
+@tcrashlocaljunctions1[][var]
+$var[varvalue]
+ $j{
+ $var
+ }
+$j
+
+@tjunctions[][tl]
+$t[^t::create[]]
+^tjunctionsi[]
+
+@tjunctionsi[][tl]
+$tl[12345]
+^t.tjunctionsm[
+ $.key{
+ $tl
+ }
+]
+
+@replacetest[]
+$b[b]
+$s[
+aaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+]
+^s.replace[^table::create{from to
+ba !_}]
+
+
+@matchoptionpp[]
+#$ORIGINS(1)
+$s[
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+]
+^s.match[b;g']{($match.prematch|$match.match|$match.postmatch)}
+
+
+@txdocxnodechild[]
+$xdoc[^xdoc::set{}]
+$xdoc.nodeName
+^xdoc.selectNumber[2*2]
+$xdoc:ELEMENT_NODE
+
+
+@tclasses[]
+$t[^t::create[]]
+^t.method[]
-OK
+^t.base_method[]
+
+
+@errort[]
+^xdoc::create[a]
+#^throw[user;here;this]
+
+@tselectNumber[]
+$d[^xdoc::set{}]
+^d.selectString[string(d/@attr)]
+^d.selectNumber[2*2]
+^d.selectNumber[number(/d/@n)+1]
+
+
+@invaliddate2[]
+$d[^date::create(1018946575/60/60)] ^d.sql-string[]
+
+@process2[]
+^^process{
+ ^process{
+ ^$a[^^if(0){^$.k[y]}{^$.k[^^hren[]n]}] ^$a.k
+ }
+}
@casehashtext[]
$tt[1]
@@ -133,8 +380,9 @@ $tmp[
$.bbb[456]
}
}
+ shit!
]
-
+#$tmp
$tmp.aaa
@subjvaltest[]
@@ -352,12 +600,13 @@ $t[^table::create{a b
@execlangs[]
$f[^file::exec[test.pl]]
+err:$f.stderr
^process{$f.text}
#$c[^t.columns[]]
#^c.menu{
#* $c.column
#}
-=$t.c=
+c:$t.c
@tobjeresult[]
^table::create{a