--- parser3/src/www/htdocs/Attic/index.html 2001/05/10 12:42:41 1.178
+++ parser3/src/www/htdocs/Attic/index.html 2001/06/29 13:53:23 1.212
@@ -1,24 +1,109 @@
@main[]
-$t[^table:set{key value
-1 v1
-2 v2}]
-$h[^t.hash[key]]
+$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{
-^connect[$SQL.connect-string]{
- $shit[^taint[our's]]
-# $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
- $paf[^table:sql{select * from paf order by id desc}(5)]
- $paf{
- ^empty{query result is empty}{
-
- | id | name | age |
- ^menu{| $id | $name | $age |
}
-
- }}
+$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]
+
+$строка[вася ЗдЕсЬ]
+^^строка.upper[]=^строка.upper[]
+^^строка.lower[]=^строка.lower[]
+
+
+
+$a[12]
+^a.int[]
+
+
+
+
+$t[^table:set{key value
+1 v1
+2 v2}]
+$h[^t.hash[key]]
+
+^sql_test[$SQL.connect-string]
+#^sql_test[mysql://test:test@localhost/test/cp1251_koi8]
$abc{}
@@ -95,16 +180,8 @@ $list[^table:dir[$dir]]
${list.name}/ $sublist{^menu{$name}[,]}
}
-^t[x]
-
^if(in "/otherdeeper"){y;n}
-^$form:проверка_имя=$form:проверка_имя
-
-
^^table:dir[/]:
$d[^table:dir[/]]
@@ -133,8 +210,36 @@ ${comment}.
@auto_test[]
^BASE.auto_test[]
${request:uri}!
-
-@t[a]
--${a}-
@end
+
+@sql_test[connect-string]
+#^rem{
+#^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}{
+
+ | id | name | age |
+ ^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}]