--- parser3/src/www/htdocs/Attic/index.html 2001/04/25 11:03:01 1.156 +++ parser3/src/www/htdocs/Attic/index.html 2001/10/08 15:50:22 1.367 @@ -1,463 +1,171 @@ -@dump[t] -^t.menu{$n
} -
-@func[n] -$n -@twop[a;b] -($a,$b) - -@Zpostprocess[data] -#(
$data)
-^data.match[1][g]{X} - -@mt[s;m] -$m ^if(^s.match[$:m;i]){matches}{does not match} $s
- @main[] -
- - -
-
-match xmg:
-$s[2 -2] -$r[^s.match[(2^$ #comment - - -)][xmg]] -^r.menu{$match}[,] -
- -image:create
-$itext[^image:create(300;100)] -$itext{ -^font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/;font.gif](13) -^^text(10;10)[ПАФ сделал это]
-^text(10;10)[ПАФ сделал это] -^font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/;font.gif](13;8) -^^text(10;30)[ПАФ сделал это fixed]
-^text(10;30)[ПАФ сделал это fixed] -} -$ff[^itext.gif[]] -^ff.save[i/itext.gif] -^rem{ -^ff.save[i2/itext.gif] -^file:delete[i2/itext.gif] -} -^itext.html[$src[i/itext.gif]] - +^mail[] +#^cookie[] +#^response[] +#^regexp2[] +#^ttablerem[] +#^pcre[] +#^regexp[]
+#^mail[] +#^exec[] +#^fori[] +#^tconnect[] +#^xslt[] +#^xml[] +#^header[] +OK -
-$t[^table:set{id}] -^^t.id.int[]=^t.id.int[]
-^^hren.double[]=^hren.double[]
-
-#image:create
-#$drawing[^image:create(300;100)] -drawing:load
-$drawing[^image:load[001004paf(c)lena_karin.gif]] -$drawing{ -^$drawing.width=$width
-^$drawing.height=$height
-^for[i](0;$width/4){ -^line(0;0)($:i*4;$height-1)(0x00FF00) -} - -^rectangle(100;10)(180;40)(0xFF0000) -^bar(100+20;10+20)(180+20;40+20)(0xFFFF00) -^fill(0;0)(0x0000FF) -^replace(0xFFffFF;0x00FF00)(30;0)(150;99)(200;50) -^polybar(0x00FFFF)(200;100)(170;99)(280;50) -^polygon(0xFFFF00)(210;100)(160;90)(250;50) - -} -
-#$response:body[^drawing.gif[]] -$ff[^drawing.gif[]] -^ff.save[drawing.gif] -^drawing.html[$src[drawing.gif]] -
-image:load
-$face[^image:load[001004paf(c)lena_karin.gif]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-
- -^if($form:photo){ -upload file:
-$face[^image:measure[$form:photo]] -$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-
-} -gif file class:
-$face[^image:measure[^file:load[001004paf(c)lena_karin.gif]]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-^^face.html[]=^face.html[]
-
-gif:
-$face[^image:measure[001004paf(c)lena_karin.gif]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-^^face.html[]=^face.html[]
-
-jpeg:
-$face[^image:measure[001004paf(c)lena_karin.jpg]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-^^face.html[^$border(1) ^$ismap(-1)]=^face.html[$border(1) $ismap(-1)] -
- -^rem{ +@mail[] ^mail:send[ - $from[paf@design.ru] - $to[paf@design.ru] - $subject[test проверка] - $body[test] - $content-type[$value[text/plain] $charset[windows-1251]] + $.to[Александр Петросян ] + .. ] -
-} -env.pl
-$e[^file:cgi[env.pl;$t[1]]] -^$e.exit-code=$e.exit-code
-^$e.stderr="$e.stderr"
-^$e.header="$e.header"
-$e.text -
- -^rem{^mail:send[ - $to[paf@design.ru] - $from[paf@design.ru] - $body[ - $1[ - $content-type[ - $value[text/plain] - $charset[windows-1251] - ] - $body[привет, PAF. +@cookie[] +$env:HTTP_COOKIE
-sincerily yours, -PAF -] - ] - $attach[ - $value[^file:load[test.zip]] - $type[uue] - $file-name[retest.zip] - ] - ] -] -} +#$cookie:переменная[test тест ТЕСТ2] +=$cookie:переменная=
+#$cookie:переменная2[test тест ТЕСТ3] +=$cookie:переменная2=
-^rem{^mail:send[ - $content-type[ - $value[text/plain] - $charset[windows-1251] - ] - $to[paf@design.ru] - $from[paf@design.ru] - $body[привет, PAF. - -sincerily yours, -PAF -] -] -} - -^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:dir[/]:
-$d[^table:dir[/]] -^d.menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};
} -
- -^^table:dir[/;html^$]
-$d[^table:dir[/;html^$]] -^d.menu{$name;
} -
- -#^rem{ -^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
- }} -} +@response[] +#^if($form:reload){ + $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]] #} -
+@xslt[] +^xdata[] +^show-xdoc2[^xdoc.transform[global.xsl]] -$with-cr[^table:set{a b -^taint[<1 -2>] 3 -}] -"$with-cr.a"
-
-^if(def $form:s){ - $form:s
- ^form:s.match[!][g]{!}
-
-} +@regexp2[] +$s[ select] +$s[^s.match[^^\s*][]{!}] +$s -$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[]:
- ^$prematch=$prematch
- ^$match=$match
- ^$postmatch=$postmatch
- ^$1=$1
-} -
-$sm[^s.match[(.)][]] -^^"$s".match[(.)][]:
-^sm.menu{ - ^line[]:
- ^$prematch=$prematch
- ^$match=$match
- ^$postmatch=$postmatch
- ^$1=$1
-} -
-^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:
-^dest.menu{$a!$b!$c!
-^rem{lock violation^table:set[nameless]{1 -2 -3}] -} -} - -
-^^random:generate(10)=^random:generate(10)
+@header[] +$response:refresh[ + $.value[0] + $.url[http://design.ru?a=^taint[123]] +] +@ttablerem[] +$table[^table::load[a.cfg]] +^table.menu{$table.a} -
-$t[^table:load[/test.cfg]] -$t{ -^menu{$a!$b!$c
} -
-^append{x y z} -^menu{$a!$b!$c
} -
-^flip[] -^menu{$0!$1!$2!$3
} -
+@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]
} - -$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}
-
- -$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[]
- -^$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
- -^rem{ -$response:body[] -$response:location[http://parser3/123] } +@pcre[] +$s[1 2] +^s.match[\s;ig]{!} +#^s.match[\d;ig]{!} -
-^^auto_test[]:
-
    -^auto_test[] -
-
- -#$cookie:вот[прислал "browser"] -^${cookie:вот}=${cookie:вот}?
-^$request:query=$request:query
-^$request:uri=$request:uri
- -
- -
$form:name
-
- -
- -
-$свойства_когда_пьян[ - $цвет_глаз[красный] -] -$вася[ - $свойства[$свойства_когда_пьян] -] -$кусок_имени_поля[ства] -^$кусок_имени_поля=$кусок_имени_поля
-^$вася.свой^$кусок_имени_поля.цвет_глаз=$вася.свой$кусок_имени_поля.цвет_глаз -
-
- - -
-
-^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]
-
-} +@regexp[] +$s[abcАБВ] +^if(^s.match[б][i]){y}{n} -#todo proper! untaint $response:refresh[$value[2] $content[url=http://design.ru]] +@mail[] +#$ORIGINS(1) +^mail:send[ + $.from[paf@design.ru] + $.to[paf@design.ru] + $.body[1 + + 2 + + + 3] +] + +@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.select-single[*/man[2]/name];0;1]
-@default[test;def] -$result[^if(^test.length[]){$test}{$def}] +by id: +^show-xnode1[^xdoc.getElementById[1];0;1] +
-@exception[origin;source;comment;type;code] - - -ERROR: -^if(def $source){$origin '$source'} -${comment}. -^if(def $type){type=$type} -^if(def $code){code=$code} - -@auto_test[] -^BASE.auto_test[] -
  • ${request:uri}! \ No newline at end of file +@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] +} + +@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) + } + + ^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] +#]]