--- parser3/src/www/htdocs/Attic/index.html 2001/04/05 18:23:01 1.110
+++ parser3/src/www/htdocs/Attic/index.html 2001/07/18 13:18:00 1.230
@@ -1,268 +1,327 @@
-@auto[]
-!!$html-typo[^table:set{user html comment
-<< «^; длинные user вперёд
->> »^;
-\n\n !эти есть в таблице по умолчанию
-\n
!но т.к. заменяем, надо повторить.
-< <^; !можно этим воспользоваться,
-> >^; !и что-то сделать ДО обычных замен
-" "^; !например из << и >>
-& &^; !сделать ёлочки-кавычки.
-_ ^;
-^#AB «^; windows коды ёлочек
-^#BB »^; windows коды ёлочек
-(c) ©^;
-^#A9 ©^; windows (c)
-}]
+@USE
+dtformat.p
+input_date.p
-@dump[t]
-^t.menu{$n
}
-
-@func[n]
-$n
-@twop[a;b]
-($a,$b)
-
-@post-process[data]
-(
$data)
-#^data.match[1][g]{X}
+@href[href zzz;title xxxx;ставить]
+^if($ставить){y;n}
-@mt[s;m]
-$m ^if[(^s.match[$:m;i])]{matches}{does not match} $s
-@main[]
-^connect[$SQL.connect-string]{
- $random_age(^random:generate(10000))
- $shit[^taint[our's]]
-# $paf[^table:sql{insert into paf (name, age) values ('$shit', $random_age)}(1;4)]
- $paf[^table:sql{select * from paf}(1;4)]
-
- | id | name | age |
- ^paf.menu{| $id | $name | $age |
}
-
-}
+@call[name][method]
+$method[$$name]
+^if(def $method){^method[]}
-
+@test1[]
+test1 result
-$with-cr[^table:set{a b
-^taint[<1
-2>] 3
-}]
-"$with-cr.a"
-
-^if(def $form:s){
- $form:s
- ^form:s.match[!][g]{!}
-
-}
+@main[]
+^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)
-$r[1223]
-^^"$r".match[2][]{(^$match)}=^r.match[2][]{($match)}
-^^"$r".match[2][i]{(^$match)}=^r.match[2][i]{($match)}
-^^"$r".match[2][g]{(^$match)}=^r.match[2][g]{($match)}
-^^"$r".match[2+][g]{(^$match)}=^r.match[2+][g]{($match)}
-
-$s[abcЯ]
-$sm[^s.match[(.)][g]]
-^^"$s".match[(.)][g]:
-^sm.menu{
- ^line[]:
- ^$pre-match=$pre-match
- ^$match=$match
- ^$post-match=$post-match
- ^$1=$1
+
+$stat[^file:stat[test.zip]]
+$stat{
+^$size=$size
+adate=^long_date_format[$adate]
+mdate=^long_date_format[$mdate]
+cdate=^long_date_format[$cdate]
}
-
-$sm[^s.match[(.)][]]
-^^"$s".match[(.)][]:
-^sm.menu{
- ^line[]:
- ^$pre-match=$pre-match
- ^$match=$match
- ^$post-match=$post-match
- ^$1=$1
+
+$дата[^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}
}
-
-^mt[$s;я]
-^mt[$s;Я]
-^mt[$s;b]
-^mt[$s;^^b]
-^mt[$s;^^a]
-^mt[$s;x]
+
+$время[^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]
+ ]
+]
-$dest[^table:set[nameless]{
-$form:d11 d12 d13
-d21 d22 d23
-}]
-$src[^table:set{a b c d
+$имена[^люди.keys[]]
+$имена{
+ ^sort{$key}
+ ^menu{$key}[,].
+}
+
-s1 s2 s3 s4
+$таблица[^table:set{a b
+1 2
}]
-1:
^dest.menu{$0!$1!$2!$3!
}
-^dest.join[$src]
-2:
^dest.menu{$0!$1!$2!$3!
}
+$колонки[^таблица.columns[]]
+$колонки{
+ ^menu{$column}[,].
+}
-
-$dest[^table:set{a b c
-d11 d12 d13
-d21 d22 d23
-}]
-$src[^table:set{a b c d
-s1 s2 s3 s4
-}]
-^dest.join[$src]
-^dest.menu{$a!$b!$c!
}
+
-
-^^random:generate(10)=^random:generate(10)
+^if($form:id ne 'z"'){
+ ne
+}{
+ eq
+}
+
-
-$t[^table:load[/test.cfg]]
-$t{
-^menu{$a!$b!$c
}
-
-^append{x y z}
-^menu{$a!$b!$c
}
-
-^flip[]
-^menu{$0!$1!$2!$3
}
-
+^rem{
+$one(1)
+$z(0)
+^eval(^one.int[]%0)
+
}
-$a[vasya,fedya,kolya]
-^^"$a".lsplit[,]=$as[^a.lsplit[,]]$as.0|$as.1|$as.2|$as.3
-^^"$a".rsplit[,]=$as[^a.rsplit[,]]$as.0|$as.1|$as.2|$as.3
-^^a.pos(sy]="^a.pos[sy]"
-^^a.pos[zsy]="^a.pos[zsy]"
-^^a.left(3)="^a.left(3)"
-^^a.right(3)="^a.right(3)"
-^^a.mid(1;3)="^a.mid(1;3)"
-
-^^twop[a;]=^twop[a;]
-^$request:browser.type=$request:browser.type
-^$request:browser.version=$request:browser.version
-
-$tf[^file:load[test.zip;abc.zip;image/gif]]
-#$response:body[$tf]
-
-^$tf.name=$tf.name
-^$tf.size=$tf.size
-^$tf.mime-type=$tf.mime-type
-^$tf.text:
-$tf.text
-
-^file:find[test.cfg]
-^file:find[tes.cfg]{not found}
-
-
-$t[^table:set{n
-3
-01.3
-1.2
-2
-}]
-$t{^locate[n;2z]^found{$n}{not found}}
-$t{^locate[n;3]^found{found:$n}{not found}}
-^$t:
-^dump[$t]
-^t.sort($n)
-^^t.sort(^$n):
-^dump[$t]
-^t.sort{^:func($n)}
-^^t.sort{^^:func(^$n)}:
-^dump[$t]
-^t.sort{$n}
-^^t.sort{^$n}:
-^dump[$t]
-^t.sort{$n}[desc]
-^^t.sort{^$n}[desc]:
-^dump[$t]
-
+$form:id:
+
-^if(-f index.html){y}{n}
-^taint[html-typo;не знаю
-я ничего
-
-<<слово длинное>>
-
-(c) by Я
-]
-$t[^table:load[/test.cfg]]
-^process[@b[]
-f
-]
-^b[]
+^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}
+}
-^$t.a=$t.a
-^t.offset[2]
-#$r[^t.record[]]
-#^$r.a=$r.a
-
-^$request:uri=$request:uri
-^$env:PATH_INFO=$env:PATH_INFO
-^$env:REMOTE_ADDR=$env:REMOTE_ADDR
+
+^switch(2){
+ ^case(2){2}
+}
-^rem{
-$response:body[]
-$response:location[http://parser3/123]
+
+^switch[2]{
+ ^case(2){![2]}
}
+
-
-^^auto_test[]:
-
-^auto_test[]
-
-
+$hash[$a[1]]
+^hash.default[0]
+^rem{
+$target[targetval]
+$form_admin[formadminval]
+^if(def $target){}
+^if(def $target){}
+
+если $target и $form_admin defined получаем
+
+
+}
-^${cookie:вот}=${cookie:вот}?
-^${cookie:вот}=${cookie:вот}?
-^$request:query=$request:query
-^$request:uri=$request:uri
+#$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[]]
-^if($form:photo){
-
- ^$form:photo.name='$form:photo.name'
- ^$form:photo.size='$form:photo.size'
- ^$form:photo.text='$form:photo.text'
- ^form:photo.save[paf.txt]
-
+$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[.]]
+
+$t2[^table:set{dir title
+/here Here
+}]
+$t2{^menu{${dir}-$title}[,]}
+
+$dir[news]
+$list[^table:dir[$dir]]
+^list.menu{
+ $subdir[$dir/$list.name]
+ $sublist[^table:dir[$subdir]]
+ ${list.name}/ $sublist{^menu{$name}[,]}
}
+
+^if(in "/otherdeeper"){y;n}
+
-#todo proper! untaint $response:refresh[$value[2] $content[url=http://design.ru]]
+^^table:dir[/]:
+$d[^table:dir[/]]
+$d{^menu{$name ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};
}}
+
+$files[^table:set{name}]
+$d{^menu{
+ ^if(-d "$name"){
+ ^:files.append{$name}
+ }
+}}
-@default[test;def]
-$result[^if(^test.length[]){$test}{$def}]
+$files{^menu{$name}[,]}
+
-@exception[origin;source;comment;type;code]
+@exception[origin;source;comment;type;code][i;j]
ERROR:
@@ -273,4 +332,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}{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}]