--- parser3/src/www/htdocs/Attic/index.html 2001/05/17 18:36:33 1.188
+++ parser3/src/www/htdocs/Attic/index.html 2001/07/02 12:56:33 1.214
@@ -1,4 +1,97 @@
@main[]
+^if($form:id ne 'z"'){
+ ne
+}{
+ eq
+}
+
+
+
+^rem{
+$one(1)
+$z(0)
+^eval(^one.int[]%0)
+
+}
+
+$form:id:
+
+
+^switch(2){
+ ^case(1;4;3){143}
+ ^case[DEFAULT]{default}
+}
+
+^switch(2){
+ ^case(1;2;3){143}
+ ^case[DEFAULT]{default}
+}
+
+^switch(2){
+ ^case(1;5;3){143}
+}
+
+
+^switch(2){
+ ^case(2){2}
+}
+
+
+^switch[2]{
+ ^case(2){![2]}
+}
+
+
+
+$hash[$a[1]]
+^hash.default[0]
+^rem{
+$target[targetval]
+$form_admin[formadminval]
+^if(def $target){ }
+^if(def $target){ }
+
+если $target и $form_admin defined получаем
+
+
+}
+
+#$string:a(1)
+#
+#^if(^log(11)){y}{n}
+#
+
+#@my_func[arg;z]
+#2
+
+#@z[]
+#^exp(^log(10))
+#
+#$a[^table:load[a
+}
+-^eol[]-
+
+^if(1<2){$a[1]}
+^$a=$a
+
+
+
+
+
#^main[]
#^use[$form:file]
@@ -10,6 +103,7 @@ $строка[вася ЗдЕсЬ]
$a[12]
^a.int[]
+
@@ -19,7 +113,7 @@ $t[^table:set{key value
$h[^t.hash[key]]
^sql_test[$SQL.connect-string]
-^sql_test[mysql://test:test@localhost/test/cp1251_koi8]
+#^sql_test[mysql://test:test@localhost/test/cp1251_koi8]
$abc{}
@@ -98,12 +192,6 @@ $list[^table:dir[$dir]]
^if(in "/otherdeeper"){y;n}
-^$form:проверка_имя=$form:проверка_имя
-
-
-
-
-
^^table:dir[/]:
$d[^table:dir[/]]
@@ -137,10 +225,11 @@ ${comment}.
@sql_test[connect-string]
#^rem{
-^for[i](1;2){
+#^for[i](1;2){
^connect[$connect-string]{
$shit[^taint[our's]]
# $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
+ ^void:sql{update paf set age=age+1}
$paf[^table:sql{select * from paf order by id desc}(5)]
$paf{
^if(^empty[]){query result is empty}{
@@ -149,7 +238,18 @@ ${comment}.
^menu{$id $name $age }
}}
-}
+ ^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}
+ ^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}
+ ^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}
+
+ $paf[^hash:sql{select id,age from paf}]
+ ^$paf.2.age=$paf.2.age
}
#}
+#}
+
+@eol[]
+eol
+@default[test;def]
+$result[^if(^test.length[]){$test}{$def}]