--- parser3/src/www/htdocs/Attic/index.html 2001/03/15 11:01:29 1.1 +++ parser3/src/www/htdocs/Attic/index.html 2001/07/07 16:38:02 1.220 @@ -1,15 +1,322 @@ @main[] -test: '$test'
-local auto: '$local_auto'
+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 +
+ + + +
$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 +
+$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[/]] +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 +}] +$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};
}} +
+ +$files[^table:set{name}] +$d{^menu{ + ^if(-d "$name"){ + ^:files.append{$name} + } +}} + +$files{^menu{$name}[,]} +
+ +@exception[origin;source;comment;type;code][i;j] + + +ERROR: +^if(def $source){$origin '$source'} +${comment}. +^if(def $type){type=$type} +^if(def $code){code=$code} + +@auto_test[] +^BASE.auto_test[] +
  • ${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}{ + + + ^menu{} +
    idnameage
    $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 -птичка выпрыгнет тут: ^process[^^eval($form:expr)[%.4f]]? - -@Zexception[origin;source;comment;type;code] -Сервер испытывает временные трудности. -напишите болвану администратору, что у него в $origin есть $source, который $comment (насквозь). +@default[test;def] +$result[^if(^test.length[]){$test}{$def}]