--- parser3/src/www/htdocs/Attic/index.html 2001/04/08 13:15:52 1.124 +++ parser3/src/www/htdocs/Attic/index.html 2001/07/24 15:43:56 1.235 @@ -1,343 +1,342 @@ -@auto[] -$html-typo[^table:set{user html comment -<< «^; длинные user вперёд ->> »^; -\n\n

!эти есть в таблице по умолчанию -\n
!но т.к. заменяем, надо повторить. -< <^; !можно этим воспользоваться, -> >^; !и что-то сделать ДО обычных замен -" "^; !например из << и >> -& &^; !сделать ёлочки-кавычки. -_  ^; -^#AB «^; windows коды ёлочек -^#BB »^; windows коды ёлочек -(c) ©^; -^#A9 ©^; windows (c) -}] - -@dump[t] -^t.menu{$n
} -

-@func[n] -$n -@twop[a;b] -($a,$b) - -@Zpost-process[data] -#(
$data)
-^data.match[1][g]{X} - -@mt[s;m] -$m ^if(^s.match[$:m;i]){matches}{does not match} $s
+@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 + +@odbc_test[] +^connect[odbc://dsn=voz7^;uid=voz^;pwd=pwd]{ + $пресса[^table:sql{select * from press}] + $пресса{^menu{ + $id, $date_row, $header, $short_text^rem{, $full_text}, $mode + }[
]} +} +
@main[] -^rem{^mail:send[ - $to[paf@design.ru] - $from[paf@design.ru] - $body[ - $1[ - $content-type[ - $value[text/plain] - $charset[windows-1251] - ] - $body[привет, PAF. +#^file:move[a/t.html;t.html] +#
+^odbc_test[] +$a_1[a_1 value] +$a_1
-sincerily yours, -PAF -] - ] - $attach[ - $value[^file:load[test.zip]] - $type[uue] - $file-name[retest.zip] - ] - ] +^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) +
-^rem{^mail:send[ - $content-type[ - $value[text/plain] - $charset[windows-1251] +PI=^math:PI.format{%.40f} +
+^math:random(10) +
+^math:sqrt(16) +
+$люди[ + $2федя[ + $рост[176] + ] + $1василий[ + $возраст[5] ] - $to[paf@design.ru] - $from[paf@design.ru] - $body[привет, PAF. - -sincerily yours, -PAF -] ] + +$имена[^люди.keys[]] +$имена{ + ^sort{$key} + ^menu{$key}[,]. } +
-^rem{^mail:send[ - $to[paf@design.ru] - $from[paf@design.ru] - $body[ - $2[ - $content-type[$value[message/rfc822] $name[letter.eml]] - $body[to: paul -from: paf -subject: 2 - -2.body - ] - ] - $1[ - $to[paul] - $from[paf] - $subject[1] - $content-type[text/plain] - $body[image] - ] - ] -]} +$таблица[^table:set{a b +1 2 +}] +$колонки[^таблица.columns[]] +$колонки{ + ^menu{$column}[,]. +} +
-^^table:dir[/]:
-$d[^table:dir[/]] -^d.menu{$name;
} -
+^if($form:id ne 'z"'){ + ne +}{ + eq +} +
-^^table:dir[/;html^$]
-$d[^table:dir[/;html^$]] -^d.menu{$name;
} -
-^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}{ - - - ^menu{} -
idnameage
$id$name$age
- }} +^rem{ +$one(1) +$z(0) +^eval(^one.int[]%0) +
} -
+$form:id: +
-$with-cr[^table:set{a b -^taint[<1 -2>] 3 -}] -"$with-cr.a"
-
-^if(def $form:s){ - $form:s
- ^form:s.match[!][g]{!}
-
+^switch(2){ + ^case(1;4;3){143} + ^case[DEFAULT]{default} } - -$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
+
+^switch(2){ + ^case(1;2;3){143} + ^case[DEFAULT]{default} } -
-$sm[^s.match[(.)][]] -^^"$s".match[(.)][]:
-^sm.menu{ - ^line[]:
- ^$pre-match=$pre-match
- ^$match=$match
- ^$post-match=$post-match
- ^$1=$1
+
+^switch(2){ + ^case(1;5;3){143} } -
-^mt[$s;я] -^mt[$s;Я] -^mt[$s;b] -^mt[$s;^^b] -^mt[$s;^^a] -^mt[$s;x] - -
- -$dest[^table:set[nameless]{ -$form:d11 d12 d13 -d21 d22 d23 -}] -$src[^table:set{a b c d - -s1 s2 s3 s4 -}] -1:
^dest.menu{$0!$1!$2!$3!
} -^dest.join[$src] -2:
^dest.menu{$0!$1!$2!$3!
} -
-$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)
- - -
-$t[^table:load[/test.cfg]] -$t{ -^menu{$a!$b!$c
} -
-^append{x y z} -^menu{$a!$b!$c
} -
-^flip[] -^menu{$0!$1!$2!$3
} -
+
+^switch(2){ + ^case(2){2} } -$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]] -#$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}
-
+
+^switch[2]{ + ^case(2){![2]} +} +
-$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] -
-^if(-f index.html){y}{n}
-^taint[html-typo;не знаю -я ничего - -<<слово длинное>> - -(c) by Я -]
-$t[^table:load[/test.cfg]] -^process[@b[] -f -] -^b[]
+$hash[$a[1]] +^hash.default[0] +^rem{ +$target[targetval] +$form_admin[formadminval] +^if(def $target){} +^if(def $target){} -^$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
+если $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 } - - -
-^^auto_test[]:
-
    -^auto_test[] -
-
- -^${cookie:вот}=${cookie:вот}?
-^${cookie:вот}=${cookie:вот}?
-^$request:query=$request:query
-^$request:uri=$request:uri
+-^eol[]- +
+^if(1<2){$a[1]} +^$a=$a +
+
$form:name

+
-
-$свойства_когда_пьян[ - $цвет_глаз[красный] -] -$вася[ - $свойства[$свойства_когда_пьян] -] +#^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
-^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]
-
+$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) -#todo proper! untaint $response:refresh[$value[2] $content[url=http://design.ru]] +$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} +
+^^table:dir[/]:
+$d[^table:dir[/]] +$d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};
}} +
-@default[test;def] -$result[^if(^test.length[]){$test}{$def}] +$files[^table:set{name}] +$d{^menu{ + ^if(-d "$name"){ + ^:files.append{$name} + } +}} -@exception[origin;source;comment;type;code] +$files{^menu{$name}[,]} +
+ +@exception[origin;source;comment;type;code][i;j] ERROR: @@ -348,4 +347,36 @@ ${comment}. @auto_test[] ^BASE.auto_test[] -
  • ${request:uri}! \ No newline at end of file +
  • ${request:uri}! + + +@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}{ + + + ^menu{} +
    idnameage
    $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}]