--- parser3/src/www/htdocs/Attic/index.html 2001/04/27 16:48:38 1.157.2.2
+++ parser3/src/www/htdocs/Attic/index.html 2002/01/25 12:09:04 1.539
@@ -1,469 +1,847 @@
-@USE
-news.p
-
-@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
+@auto[]
+$request:charset[windows-1251]
+$response:charset[windows-1251]
+$response:content-type[$.value[text/html]$.charset[$response:charset]]
@main[]
-^if(1>2){y}{n}
-#$SQL.drivers.a[z]
+^tlock[]
+#^xmloutattrwithoutvalue[]
+#^precisionProblem[]
+#^xpath[]
+#^ttablesetlang[]
+#^mail3[]
+#^ttime[]
+#^tupper[]
+#^treplace[]
+#^xslt2[]
+#^tcache2[]
+#$ORIGINS(1)
+#$t[^table::set{a b} ^table::set{c d}]
+#^ttaintuntaint[]
+#^tappend2[]
+#^badvsnprintf[]
+#^badoracequoting[]
+#^badconstructors[]
+#^xloadwrongtable[]
+#^xsetwrongtable[]
+#^if($form:test){y}{n}
+#^tablecolumnerror[]
+#^roll[]
+#^cookie2[]
+#^tableset[]
+#^math:PI.format{%.30f}
+#^xchildren[]
+#^thashforeach3[]
+#^thashforeach2[]
+#^thashforeach[]
+#^thashdelete[]
+#^connect[mysql://user:pass@cd.rinet.ru/db]{^void:sql{z} }
+#^tappend[]
+#^sappend[]
+#^eval(10\3)
+#^tform[]
+#^formattest[]
+#^filelist[]
+#^connect[mysql://user:pass@host]{ }
+#^безнадёжна_попытка_поправить_непоправимое[]
+#^tcache[]
+#^thashfileexp[]
+#^tcounter[]
+#^tablehash[]
+#j^hashfile[]
+#^formclass[]
+#^hren[]
+#^domedit[]
+#^domxslt[]
+#^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
-
-
-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]
+@tlock[]
+^file:lock[lockfile]{
+ code
}
-$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]]
+@xmloutattrwithoutvalue[]
+#$ORIGINS(1)
+$doc[^xdoc::set{zz}]
+$doc[^doc.transform[global.xsl]]
+=^taint[html][^doc.string[$.method[html]]]=
-
-$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:send[
- $from[paf@design.ru]
- $to[paf@design.ru]
- $subject[test проверка]
- $body[test]
- $content-type[$value[text/plain] $charset[windows-1251]]
-]
-
+
+@precisionProblem[]
+$a[123456789012345678901234567890]
+$b(^a.double[])
+^b.format{%.20E}
+
+^eval(2*2)
+
+@xpath[]
+$xdoc[^xdoc::set{
+привет
+}]
+#^show-xdoc2[$xdoc]
+$node[^xdoc.selectSingle[/document/block/p]]
+^if(def $node){
+ ^if($node is string){
+ $node
+ }{
+ ^if($node is hash){
+ ^node._count[]
+ }{
+ $node.nodeType
+ }
+ }
+#$node.firstChild.nodeValue
+}{
+ node not found
}
-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.
-sincerily yours,
-PAF
-]
+@ttablesetlang[]
+$a-tab-b[a b
+1 2]
+
+$t[^table::set{$a-tab-b}]
+=$t.a=
+
+
+$t[^table::set[nameless]{^taint[$a-tab-b]}]
+=$t.0=
+
+
+$t[^table::set{^untaint{^taint[$a-tab-b]}}]
+=$t.a=
+
+#^t.append{1 2}
+
+@mail3[]
+^mail:send[
+ $.from[Александр Петросян ]
+ $.to[Александр Петросян ]
+ $.subject[проверка4]
+ $.body[
+ $.text[
+ $.content-type[$.value[text/plain] $.charset[windows-1251]]
+ $.body[проверка]
]
- $attach[
- $value[^file:load[test.zip]]
- $type[uue]
- $file-name[retest.zip]
+ $.attachment[
+ $.value[^file::load[text;index.html]]
+ $.file-name[привет всем.html]
]
]
]
+
+
+@ttime[]
+$now[^date::now[]]
+$now.hour:$now.minute
+
+@tupper[]
+$t[abcABCабвАБВ]
+$t
+^t.upper[]
+
+@treplace[]
+$copy-paste-clean[^table::set{a b
+. _
+, _
++ _
+& _
+? _
+= _}]
+
+$cache_key[^taint[в.а,с+я]&был?тут=недавно.cache]
+# почему-то этот replace роняет апач в 500 ошибку :(
+#^cache_key.replace[$copy-paste-clean]
+$test[abc]
+^test.save[$cache_key]saved
+$cache[^file:list[.;\.cache^$]]
+^file:delete[$cache_key]deleted($cache.name)
+
+
+
+@xslt2[]
+$xdoc[^xdoc::set{
+привет
+}]
+^show-xdoc2[$xdoc]
+^show-xdoc2[^xdoc.transform[templates/_document.xslt]]
+
+
+
+@tcache2[]
+^cache[$DB_HOME/keyключ](2){
+ ^math:random(100)
}
-^rem{^mail:send[
- $content-type[
- $value[text/plain]
- $charset[windows-1251]
- ]
- $to[paf@design.ru]
- $from[paf@design.ru]
- $body[привет, PAF.
+@ttaintuntaint[]
+^taint[html][
+
+]zz
+
+^untaint[html]{1^taint[ ]2 3}
+
+
+@tappend2[]
+$t[^table::set{a b}]^t.append{1 2}$t.a
+
+@badvsnprintf[]
+^connect[zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]{
+}
+
+
+@badoracequoting[]
+$SQL.connect-string[oracle://webspb:webpwd@mts?NLS_LANG=RUSSIAN_AMERICA.CL8MSWIN1251&NLS_DATE_FORMAT=YYYY-MM-DD HH24:MI:SS]
+^connect[$SQL.connect-string]{
+^void:sql{delete from paf}
+^void:sql{insert into paf values (1, '$form:text')}
+$paf[^table::sql{select * from paf}]
+^paf.menu{
+ $paf.id: ^untaint{$paf.block}
+
+}
+
+
+
+^rem{
+$news[^table::sql{select description from news}[$.limit(3)]]
+^news.menu{
+ ^untaint{$news.description}
+
+}
+
+}
+
+$tables[^table::sql{select table_name from user_tables}]
+^tables.menu{
+$tables.table_name
+}
+
+}
+
+$env:PATH
+
+@badconstructors[]
+$bred[^string::length[]]
+$bred[^response::clear[]]
+$bred[^int::int[]]
+
+
+@xloadwrongtable[]
+$constr[^xdoc::load[wrongtable.xml]]
+^show-xdoc2[$constr]
+
+@xsetwrongtable[]
+$constr[^xdoc::set{
+^untaint[as-is]{$constructor}}]
+
+
+@tablecolumnerror[]
+$t[^table::set{a}]
+$t.$a
+
+@roll[]
+#$date[^date::set(1970;1;2)]
+#^date.roll[month](-1)
+$date[^date::set(2038;1;1)]
+^date.roll[month](+1)
+$date.year $date.month $date.day
+
+@cookie2[]
+#=$cookie:clientType[$.value[test]]=
+=$cookie:clientType=
+
+
+@tableset[]
+$a[^table::set{a
+1
+2}]
+^eval(100\$a)
+
+
+
+@zzz[]
+
+
+$constructor[
+
+
+]
-sincerily yours,
-PAF
+$constr[^xdoc::set{
+^untaint[as-is]{$constructor}}]
+
+$children[$constr.documentElement.childNodes]
+^if($children){
+^for[i](1;^children._count[]){
+ $node[$children.$i]
+ $node.nodeName
+}
+}
+
+
+@thashforeach3[]
+$h[
+ $.a[1]
+ $.b[2]
]
+$c[^table::set{a
+^h.foreach[key;value]{$value
+}}]
+$c.a
+
+@thashforeach2[]
+$h[
+ $.a[1]
+ $.b[2]
]
+$c[
+^h.foreach[key;value]{
+ $.$key[$value]
}
+]
+$c.b
-^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;
}
-
+@thashforeach[]
+$h[
+ $.a[1]
+ $.b[2]
+]
+^h.foreach[key;value]{
+ $key=$value
+}
-#^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}{
-
- | id | name | age |
- ^menu{| $id | $name | $age |
}
-
- }}
+@thashdelete[]
+$h[$.a[1] $.b[2]]
+was:
+count=^h._count[]
+b='$h.b'
+
+^h.delete[b]
+
+now:
+count=^h._count[]
+b='$h.b'
+
+@sappend[]
+$test[123]
+^test.save[test]
+^test.save[append;test]
+
+@tappend[]
+$test[^table::set{a b
+a1 b1}]
+^test.save[test]
+$test[^table::set{a b
+a2 b2}]
+^test.save[append;test]
+
+
+@tform[]
+^if(def $form:new_file){y}{n}
+