--- parser3/src/www/htdocs/Attic/index.html 2001/06/27 14:23:21 1.208 +++ parser3/src/www/htdocs/Attic/index.html 2001/10/18 06:47:20 1.402 @@ -1,219 +1,357 @@ @main[] -^switch(2){ - ^case(1;4;3){143} - ^case[DEFAULT]{default} +^domedit[] +#^lsplit2[] +#^faceesize[] +#^imageresize[] +#^ifassignhash[] +#^tintdefault[] +#$response:status[404] +#^ifpasshash[] +#^movedir[] +#^replace[] +#^set[] +#^hash[]
+#$t[^methresult[]] ->$t +#^terror[] +#^ssave[] +#^calendar[] +#^thash[] +#^tdef[] +#^ford[] +#^tif[] +#^image[] +#^mail2[] +#^cookie[] +#^response[] +#^regexp2[] +#^ttablerem[] +#^pcre[] +#^regexp[]
+#^mail[] +#^exec[] +#^fori[] +#^tconnect[] +#^xslt[] +#^xml[] +#^header[] +OK + +@domedit[] +$doc[^xdoc::create{doc}] +$element[^doc.createElement[ + +@lsplit2[] +$path[/optics/] +$pathTable[^path.lsplit[/]] +^pathTable.menu{ + ^if(def $pathTable.piece){ + =$pathTable.piece= + } } -
+@faceesize[] +$k(2) +$pict[^image::load[paf.gif]] +$small[^image::create($pict.width/$k;$pict.height/$k)] +^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;250) +$response:body[^small.gif[]] + +@imageresize[] +$k(2) +$pict[^image::create(400*$k;200*$k)] +$pict.line-width(2) +^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000) +^pict.arc($pict.width/2;$pict.height/2;$pict.width-20;$pict.height-20;0+20;360-20;0xff0000) +#^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000) +^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-20;0x0000ff) +^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+20;360-20;0xff0000) +#$response:body[^pict.gif[]] + +$small[^image::create($pict.width/$k;$pict.height/$k)] +#^small.copy[$pict](0;0;$pict.width;$pict.height;0;0) +^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;0) + +$response:body[^small.gif[]] + + +@tintdefault[] +#$abc[abc] +$abc[33] +^abc.int[z] +#^abc.int(123) + +@ifassignhash[] +$h[^if(1){$.a(1);$.a(2)}] +$h.a + +@ifpasshash[] +$a[$.e[a]] +$b[$.e[b]] +^ifpasshashdest[^if(1){$a;$b}] +#$x[^if(1){$a}{$b}] +#^ifpasshashdest[$x] + +@ifpasshashdest[p] +$p.e + +@movedir[] +^file:move[a;deeper/a] + +@replace[] +$a[12^;3] +^a.replace[^table::set{from to +2^; ! +}] -$hash[$a[1]] -^hash.default[0] -^rem{ -$target[targetval] -$form_admin[formadminval] -^if(def $target){} -^if(def $target){} -если $target и $form_admin defined получаем - -
-} +@set[] +^setdata[] +^a.add[$b] +add:$a.3
-#$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 -
+^setdata[] +^a.sub[$b] +sub2:$a.2
+sub1:$a.1
-
- -
$form:name
-
- -
-
+^setdata[] +$c[^a.union[$b]] +union3:$c.3
+union2:$c.2
+ +^setdata[] +$c[^a.intersection[$b]] +intersection3:$c.3
+intersection2:$c.2
+ +^setdata[] +intersects:^if(^a.intersects[$b]){y;n}
+intersects2:^if(^a.intersects[ ]){y;n}
-#^main[] -#^use[$form:file] -$строка[вася ЗдЕсЬ] -^^строка.upper[]=^строка.upper[]
-^^строка.lower[]=^строка.lower[]
+@setdata[] +$a[$.1[a1] $.2[a2]] +$b[ $.2[b2] $.3[b3]] -$a[12] -^a.int[] -
+@hash[] +$h[^hash::create[$._default[123]]] +$h.paf[not kretin] +$h.paf
+=$h.that=
+@methresult[] +$result[^table::set{1}] -$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 +@terror[] +^error[method z must be called with z] + +@syntax1[] +#^a[^b] + +@syntax2[] +#^a[ + +@ssave[] +$abc[abc] +^abc.save[abc] + +@calendar[] +2001;11:
+$week_days[^date:calendar[rus](2001;11)] +
+^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday; ^; ^;} }
}
+
+ +@thash[] +$table[^table::set{id name age +1 paf 278 +2 пиф 234 }] -^if(^t0.locate[key;2] && "a" ne "b"){y;n} +$hash[^table.hash[id;^table::set[nameless]{id +name}]] +$hash.2.id $hash.2.name $hash.2.age + +@tdef[] +$s[0] +if 0=^if($s){}{n}
+if def 0=^if(def $s){y}{}
-$currentFolder[/a/b] -$path[^currentFolder.lsplit[/]] -^path.flip[] -$path{ -^menu{$0}{,} + +@ford[] +^for[i](0;5){$i}{($i)} + +@tif[] +^if[def]{y;n} + +@image[] +$pict[^image::create(400;200)] +^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000) +^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000) +#^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000) +^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff) +^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000) +$response:body[^pict.gif[]] + + + +@mail2[] +^mail:send[ + $.content-type[$.value[text/plain] $.charset[windows-1251]] + $.from[Александр Петросян ] + $.to[Александр Петросян ] + $.subject[проверка] + $.body[проверка] +] + +@cookie[] +$env:HTTP_COOKIE
+ +#$cookie:переменная[test тест ТЕСТ2] +=$cookie:переменная=
+#$cookie:переменная2[test тест ТЕСТ3] +=$cookie:переменная2=
+ +@response[] +#^if($form:reload){ + $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]] +#} + +@xslt[] +^xdata[] +^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]] + +@regexp2[] +$s[ select] +$s[^s.match[^^\s*][]{!}] +$s + +@header[] +$response:refresh[ + $.value[0] + $.url[http://design.ru?a=^taint[123]] +] + +@ttablerem[] +$table[^table::load[a.cfg]] +^table.menu{$table.a} + +@tconnect[] +^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{ +$tables[^table::sql{show tables}] +#$cols[^tables.columns[]] +#$cols.column +^tables.menu{ + $tables.[Tables_in_test]
+} } -
-$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 -
+@pcre[] +$s[1 2] +^s.match[\s;ig]{!} +#^s.match[\d;ig]{!} -$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}[,]} -
+@regexp[] +$s[abcАБВ] +^if(^s.match[б][i]){y}{n} -@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))}] - ^nothing: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}
    +@mail[] +#$ORIGINS(1) +^mail:send[ + $.from[paf@design.ru] + $.to[paf@design.ru] + $.body[1 + + 2 + + + 3] +] - $paf[^hash:sql{select id,age from paf}] - ^$paf.2.age=$paf.2.age
    +@exec[] +$a[^file::exec[fc.exe;;a;b]] +$a.status|$a.stderr
    + +@fori[][i] +^for[i](1;3){... =$i= ...} + +@xdata[] +#$response:content-type[$.value[text/html] $.charset[windows-1251]] +$xdoc[^xdoc::load[input.xml]] + +@xml[] +^xdata[] + +^show-xdoc2[$xdoc]
    +#^show-xnode1[$xdoc]
    +$people[^xdoc.select[*/man]] +#^show1[] +^show-xnodes1[$people]
    +#^people.0.owner.hren[] + +^show-xnode1[^xdoc.selectSingle[*/man[2]/name];0;1]
    + +by id: +^show-xnode1[^xdoc.getElementById[1];0;1] +
    + +@show1[array] +^for[i](0;^array._count[]-1){ + $x[$array.$i] + $x.firstChild.nodeValue: + $pattributes[$x.parentNode.attributes] + ^if(^pattributes._count[]){ + $pattributes.id.name=$pattributes.id.nodeValue + } +
    +} + +@show-xnodes1[array][i] +^for[i](0;^array._count[]-1){ + ^show-xnode1[$array.$i;0;1] } -#} -#} -@eol[] -eol +@show-xnode1[x;level;single][l] +^if(def $x){ + ^for[l](0;$level-1){ ^; ^; ^; ^;} + ^if($x.nodeType == $xnode:ELEMENT_NODE){ + <^;$x.nodeName + $pairs[$x.attributes] + ^if(def $pairs){ + $names[^pairs._keys[]] + ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"} + } + >^; + }{ + [$x.nodeType] + } + + ^if(def $x.nodeValue){$x.nodeValue}
    + ^show-xnode1[$x.firstChild]($level+1) + ^if(!$single){ + ^show-xnode1[$x.nextSibling]($level) + } -@default[test;def] -$result[^if(^test.length[]){$test}{$def}] + ^if($x.nodeType == $xnode:ELEMENT_NODE){ + ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;
    + } +} + +@show-xdoc2[xdoc] +^xdoc.save[save.xml; +# $.encoding[windows-1251] + $.method[xml] +] +$file[^xdoc.file[ +# $.encoding[windows-1251] + $.method[html] +]] +^file.save[text;save_file.html] +
    ^taint[^xdoc.string[]]
    +# $.encoding[windows-1251] +# $.method[xml] +#]]