--- parser3/src/www/htdocs/Attic/index.html 2001/07/11 15:02:09 1.223 +++ parser3/src/www/htdocs/Attic/index.html 2001/09/21 14:46:10 1.328 @@ -1,363 +1,84 @@ -@USE -dtformat.p -input_date.p - -@href[href zzz;title xxxx;ставить] -^if($ставить){y;n} - @main[] -^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 -
- -
- -
$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} +$response:content-type[$.value[text/html] $.charset[windows-1251]] +^xslt[] +OK + +@xslt[] +$dom[^dom::set{ + + + + PAF + + + ПИФ + + +}] + +^show-dom2[$dom]
+#^show-dnode1[$dom]
+$people[^dom.select[*/man]] +#^show1[] +^show-dnodes1[$people]
+#^people.0.owner.hren[] + +^show-dnode1[^dom.select-single[*/man[2]/name];0;1]
+ +@show1[] +^for[i](0;^people._count[]-1){ + $node[$people.$i] + $node.first-child.value: + $pattributes[$node.parent.attributes] + ^if(^pattributes._count[]){ + $pattributes.id.name=$pattributes.id.value + } +
+} +
+ +@show-dnodes1[array][i] +^for[i](0;^array._count[]-1){ + ^show-dnode1[$array.$i;0;1] +} + +@show-dnode1[dnode;level;single][l] +^if(def $dnode){ + ^for[l](0;$level-1){ ^; ^; ^; ^;} + ^if($dnode.type eq element){ + <^;$dnode.name + $pairs[$dnode.attributes] + ^if(def $pairs){ + $names[^pairs._keys[]] + ^names.menu{$names.key=$pairs.[$names.key].value } + } + >^; + }{ + $dnode.name + } + + ^if(def $dnode.value){$dnode.value}
+ ^show-dnode1[$dnode.first-child]($level+1) + ^if(!$single){ + ^show-dnode1[$dnode.next-sibling]($level) } -}} - -$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
    + ^if($dnode.type eq element){ + ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$dnode.name>^;
    + } } -#} -#} - -@eol[] -eol -@default[test;def] -$result[^if(^test.length[]){$test}{$def}] +@show-dom2[dom] +^dom.save[save.xml; +# $.encoding[windows-1251] + $.method[xml] +] +$file[^dom.file[ +# $.encoding[windows-1251] + $.method[html] +]] +^file.save[text;save_file.html] +^taint[^dom.string[]] +# $.encoding[windows-1251] +# $.method[xml] +#]] \ No newline at end of file