--- parser3/src/www/htdocs/Attic/index.html 2001/05/07 15:31:54 1.167
+++ parser3/src/www/htdocs/Attic/index.html 2001/06/29 14:16:09 1.213
@@ -1,14 +1,167 @@
-@t[a]
--${a}-
-@end
-
@main[]
+$one(1)
+$z(0)
+^eval(^one.int[]%$z)
+
+
+$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]
+
+$строка[вася ЗдЕсЬ]
+^^строка.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{}
+$tn[^table:set[nameless]{a1 b1
+a2 b2
+}]
+$x[^tn.locate[0;a2]]
+^$tn.1=$tn.1
+
+$t0[^table:set{key a b
+1 a1
+2 a2 b2
+}]
+^if(^t0.locate[key;2] && "a" ne "b"){y;n}
+
+$currentFolder[/a/b]
+$path[^currentFolder.lsplit[/]]
+^path.flip[]
+$path{
+^menu{$0}{,}
+}
+
+$t1[^table:set{key value
+1 v1
+2 v2}]
+$h1[^t1.hash[key]]
+^h1.default[$value[nothing]]
+^$h1.2.value=$h1.2.value
+^$h1.2x.value=$h1.2x.value
+
+$t2[^table:set{key a b
+1 a1
+2 a2 b2
+}]
+t2 ^if(^t2.empty[]){empty}{not empty}
+^t2.offset(1)
+$t2.b
+$r[^t2.record[]]
+
+$th[^t2.hash[b]]
+^$th.b2.a=$th.b2.a
+
+$th[^t2.hash[key;a]]
+^$th.2.a=$th.2.a
+
+#^OP:eval(1<2)
+
+$filelist[^table:dir[.]]
+
+$path[/news/tululu/]
+#^path.flip[]
+
$branches[^table:set{name val
index.cgihtml 123
}]
$splitURI[^request:uri.lsplit[/]]
- ^branches.locate[name2;$splitURI.1]
- $branches.name
+name ^if(^branches.locate[name;$splitURI.1]){found;not found}:
+$branches.name
$splitURI[^request:uri.lsplit[/]]
$splitURI.0!$splitURI.1
@@ -27,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[/]]
@@ -64,4 +209,37 @@ ${comment}.
@auto_test[]
^BASE.auto_test[]
-${request:uri}!
\ No newline at end of file
+${request:uri}!
+@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}]