--- parser3/src/www/htdocs/Attic/index.html 2001/05/17 18:36:33 1.188
+++ parser3/src/www/htdocs/Attic/index.html 2001/07/03 10:10:21 1.218
@@ -1,4 +1,127 @@
@main[]
+^math:random(10)
+
+^math:sqrt(16)
+
+$люди[
+ $2федя[
+ $рост[176]
+ ]
+ $1василий[
+ $возраст[5]
+ ]
+]
+
+$имена[^люди.keys[]]
+$имена{
+ ^sort{$key}
+ ^menu{$key}[,].
+}
+
+
+$таблица[^table:set{a b
+1 2
+}]
+$колонки[^таблица.columns[]]
+$колонки{
+ ^menu{$column}[,].
+}
+
+
+
+^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 +133,7 @@ $строка[вася ЗдЕсЬ]
$a[12]
^a.int[]
+
@@ -19,7 +143,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 +222,6 @@ $list[^table:dir[$dir]]
^if(in "/otherdeeper"){y;n}
-^$form:проверка_имя=$form:проверка_имя
-
-
^^table:dir[/]:
$d[^table:dir[/]]
@@ -137,10 +255,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 +268,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}]