--- parser3/src/www/htdocs/Attic/index.html 2001/05/17 19:03:00 1.189
+++ parser3/src/www/htdocs/Attic/index.html 2001/07/23 11:19:25 1.231
@@ -1,4 +1,227 @@
+@USE
+dtformat.p
+input_date.p
+
+@href[href zzz;title xxxx;ставить]
+^if($ставить){y;n}
+
+
+@call[name][method]
+$method[$$name]
+^if(def $method){^method[]}
+
+@test1[]
+test1 result
+
@main[]
+$a_1[a_1 value]
+$a_1
+
+^eval(2*11)
+^call[test1]
+
+$input_date:input_date_auto_test
+
+#$string:z[1]
+#
+$path[/news/tululu/]
+$pieces[^path.lsplit[/]]
+$pieces{^count[]: ^menu{{$piece}}[,].}
+
+^href[href;title](1<2)
+
+
+$stat[^file:stat[test.zip]]
+$stat{
+^$size=$size
+adate=^long_date_format[$adate]
+mdate=^long_date_format[$mdate]
+cdate=^long_date_format[$cdate]
+}
+
+$дата[^input_date:parse[9.7.2001]]
+^long_date_format[$дата]
+
+$дата[^parse_date[9.7.2001]]
+^long_date_format[$дата]
+
+$сегодня[^date:now[]]
+$недельный_календарь[^table:calendar[rus]($сегодня.year;$сегодня.month;$сегодня.day)]
+
+$недельный_календарь{^menu{
+ $year $month $day $weekday
+}}
+
+
+$сегодня[^date:now[]]
+$месячный_календарь[^table:calendar[rus;$сегодня.year;$сегодня.month]]
+
+^месячный_календарь.menu{^for[i;0;6]{
+ $day[$месячный_календарь.$i]
+ ^if($day){$day}{ ^; ^;}
+}
}
+
+
+before $время[^date:now[]]^время.string[]
+year+^время.roll[year](1)^время.string[]
+month+^время.roll[month](1)^время.string[]
+year-^время.roll[year](-1)^время.string[]
+month-^время.roll[month](-1)^время.string[]
+day+^время.roll[day](1)^время.string[]
+day-^время.roll[day](-1)^время.string[]
+
+$русский_день_недели[
+ $0[Воскресенье]
+ $1[Понедельник]
+ $2[Вторник]
+ $3[Среда]
+ $4[Четверг]
+ $5[Пятница]
+ $6[Суббота]
+]
+
+$время[^date:set(0;1;1;3;30;4)]
+$время{
+ ^string[]
+ ${year}.${month}.${day} ${hour}:${minute}:${second}
+}
+
+$время[^date:set(1.5)]
+^время.string[]
+
+$сейчас[^date:now[]]
+^^сейчас.string[]=^сейчас.string[] $день_недели($сейчас.weekday) $русский_день_недели.$день_недели
+$floatdays($сейчас) ^floatdays.format{%.20f}
+^eval(^math:frac($floatdays)*24)
+^eval(^math:frac($floatdays*24)*60)
+^eval(^math:frac($floatdays*24*60)*60)
+
+
+PI=^math:PI.format{%.40f}
+
+^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 +233,7 @@ $строка[вася ЗдЕсЬ]
$a[12]
^a.int[]
+
@@ -19,7 +243,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{}
@@ -69,20 +293,6 @@ $th[^t2.hash[key;a]]
$filelist[^table:dir[.]]
-$path[/news/tululu/]
-#^path.flip[]
-
-$branches[^table:set{name val
-index.cgihtml 123
-}]
-$splitURI[^request:uri.lsplit[/]]
-name ^if(^branches.locate[name;$splitURI.1]){found;not found}:
-$branches.name
-
-$splitURI[^request:uri.lsplit[/]]
-$splitURI.0!$splitURI.1
-
-
$t2[^table:set{dir title
/here Here
}]
@@ -98,12 +308,6 @@ $list[^table:dir[$dir]]
^if(in "/otherdeeper"){y;n}
-^$form:проверка_имя=$form:проверка_имя
-
-
^^table:dir[/]:
$d[^table:dir[/]]
@@ -141,6 +345,7 @@ ${comment}.
^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 +354,18 @@ ${comment}.
^menu{| $id | $name | $age |
}
}}
+# ^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}{n/a}
+# ^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}(111)
+# ^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}(222)
+
+ $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}]