--- parser3/www/htdocs/Attic/_bug.html 2004/03/02 14:56:42 1.23
+++ parser3/www/htdocs/Attic/_bug.html 2004/12/23 14:40:54 1.73
@@ -1,9 +1,25 @@
-$request:charset[windows-1251]
-$response:charset[windows-1251]
+@main[]
-^connect[$SQL.connect-string]{
-#$f[^file::sql{select 2*2 from dual}]
-#^f.save[binary;file_sql.dat]
-$f[^file::load[binary;_bug.gif]]
-=^f.sql-string[]=
+$cH[^cH[]]
+
+^if($cH.this is "junction"){
+ $result[^cH.this[$cH.th_par]]
+}{
+ $result[0]
}
+
+####################################################################################################################
+
+@cH[]
+$result[
+ $.this[$mThis]
+ $.th_par[
+ $.a(2)
+ $.b(3)
+ ]
+]
+####################################################################################################################
+
+@mThis[lparams][params]
+$params[^hash::create[$lparams]]
+$result[^eval($params.a * $params.b)]