|
|
| version 1.333, 2001/09/26 15:43:59 | version 1.504, 2001/12/15 22:26:22 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| $request:charset[windows-1251] | |
| $response:charset[windows-1251] | |
| ^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)<br> | |
| #^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[]<hr> | |
| #$t[^methresult[]] ->$t | |
| #^terror[] | |
| #^ssave[] | |
| #^calendar[] | |
| #^thash[] | |
| #^tdef[] | |
| #^ford[] | |
| #^tif[] | |
| #^image[] | |
| #^mail2[] | |
| #^cookie[] | |
| #^response[] | |
| #^regexp2[] | |
| #^ttablerem[] | |
| #^pcre[] | |
| #^regexp[]<hr> | |
| #^mail[] | |
| #^exec[] | |
| #^fori[] | #^fori[] |
| #^connect[mysql://hren]{^void:sql{nothing}} | #^tconnect[] |
| #$response:content-type[$.value[text/html] $.charset[utf-8]] | #^xslt[] |
| ^xslt[] | #^xml[] |
| #^header[] | |
| <hr> | |
| OK | OK |
| @tupper[] | |
| $t[abcABCабвАБВ] | |
| $t<br> | |
| ^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<br> | |
| $cache[^file:list[.;\.cache^$]] | |
| ^file:delete[$cache_key]deleted($cache.name)<br> | |
| @xslt2[] | |
| $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?> | |
| <document><block><p>hi</p></block></document> | |
| }] | |
| #^show-xdoc2[$xdoc] | |
| ^show-xdoc2[^xdoc.transform[templates/_document.xslt]] | |
| <hr> | |
| @tcache2[] | |
| ^cache[$DB_HOME/keyключ](2){ | |
| ^math:random(100) | |
| } | |
| @ttaintuntaint[] | |
| <!-- некий панковский заголовок с буковкой C в круглых скобках -->^taint[html][ | |
| ]zz | |
| <hr> | |
| ^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}<hr> | |
| } | |
| <hr> | |
| ^rem{ | |
| $news[^table::sql{select description from news}[$.limit(3)]] | |
| ^news.menu{ | |
| ^untaint{$news.description}<hr> | |
| } | |
| <hr> | |
| } | |
| $tables[^table::sql{select table_name from user_tables}] | |
| ^tables.menu{ | |
| $tables.table_name<br> | |
| } | |
| } | |
| <hr> | |
| $env:PATH | |
| @badconstructors[] | |
| $bred[^string::length[]] | |
| $bred[^response::clear[]] | |
| $bred[^int::int[]] | |
| @xloadwrongtable[] | |
| $constr[^xdoc::load[wrongtable.xml]] | |
| @xsetwrongtable[] | |
| $constr[^xdoc::set{<?xml version="1.0" encoding="windows-1251z" ?> | |
| <block-list>^untaint[as-is]{$constructor}</block-list>}] | |
| @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]]=<br> | |
| =$cookie:clientType=<br> | |
| @tableset[] | |
| $a[^table::set{a | |
| 1 | |
| 2}] | |
| ^eval(100\$a) | |
| @zzz[] | |
| $constructor[ | |
| <block1 name="main_srvr" type="0" label="Основное тело" /> | |
| <block2 name="main_srvr2" type="0" label="Основное тело" /> | |
| ] | |
| $constr[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?> | |
| <block-list>^untaint[as-is]{$constructor}</block-list>}] | |
| $children[$constr.documentElement.childNodes] | |
| ^if($children){ | |
| ^for[i](1;^children._count[]){ | |
| $node[$children.$i] | |
| $node.nodeName<br> | |
| } | |
| } | |
| @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 | |
| @thashforeach[] | |
| $h[ | |
| $.a[1] | |
| $.b[2] | |
| ] | |
| ^h.foreach[key;value]{ | |
| $key=$value<br> | |
| } | |
| @thashdelete[] | |
| $h[$.a[1] $.b[2]] | |
| was:<br> | |
| count=^h._count[] <br> | |
| b='$h.b' <br> | |
| ^h.delete[b] | |
| now:<br> | |
| count=^h._count[] <br> | |
| 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} | |
| <form method="post" enctype="multipart/form-data"> | |
| <input type="file" name="new_file" /> | |
| <input type=submit> | |
| </input> | |
| @formattest[] | |
| $size(15.124) | |
| ^size.format{%.2f} | |
| @filelist[] | |
| $html[^file:list[.;\.html^$]] | |
| ^html.menu{ | |
| $html.name<br> | |
| } | |
| <hr> | |
| @безнадёжна_попытка_поправить_непоправимое[] | |
| $dom_from_disk[^xdoc::load[input.xml]] | |
| $dom_created_in_air[^xdoc::create[doc]] | |
| ^dom_created_in_air.documentElement.appendChild[^dom_from_disk.documentElement.cloneNode(1)] | |
| ^show-xdoc2[$dom_created_in_air] | |
| @tcache[] | |
| ^rem{ | |
| #^hashfile:clear[cache] | |
| $code[^hashfile::open[$DB_HOME;cache]] | |
| ^code.cache[key](2){ | |
| ^math:random(100) | |
| # ^code.delete[] | |
| } | |
| } | |
| @thashfileexp[] | |
| $hf[^hashfile::open[$DB_HOME;hashfile]] | |
| $hf.paf[$.value[крут] $.expires(3)] | |
| paf=$hf.paf | |
| <hr> | |
| ^hf.foreach[key;value]{ | |
| $key=$value<br> | |
| } | |
| <hr> | |
| $hash[^hf.hash[]] | |
| =$hash.paf= | |
| <hr> | |
| @tcounter[] | |
| ^tcounterone[$DB_HOME] | |
| other root: | |
| ^tcounterone[${DB_HOME}2] | |
| again, first: | |
| ^tcounterone[$DB_HOME] | |
| @tcounterone[DB_HOME] | |
| $counter[^hashfile::open[$DB_HOME;counter]] | |
| #^counter.clear[] | |
| ^counter.transaction{ | |
| # $counter.value(10) | |
| $counter.value($counter.value+1) | |
| # ^counter.delete[value] | |
| $counter.value | |
| } | |
| <hr> | |
| ^rem{ | |
| $hash[^counter.hash[]] | |
| =$hash.value= | |
| <hr> | |
| } | |
| @tablehash[] | |
| $productList[^table::set{id name | |
| 1 носки | |
| 2 валенки | |
| 3 ушанка | |
| }] | |
| #скажем, у первого дилера | |
| $firstPriceList[^table::set{id price | |
| 1 0.3 | |
| 3 1000 | |
| }] | |
| $firstPriceHash[^firstPriceList.hash[id]] | |
| ^productList.menu{ | |
| продукт "$productList.name" | цена у first: $firstPriceHash.[$productList.id].price<br> | |
| } | |
| @hashfile[] | |
| $hf[^hashfile::assign[hashfile]] | |
| #$hf.paf[крут5] | |
| paf=$hf.paf | |
| @formclass[] | |
| ^$form:CLASS.a=$form:CLASS.a | |
| @domdata[] | |
| ^if(1){ | |
| # $a{^hren[]} | |
| } | |
| $a | |
| $xdoc[^xdoc::create[doc]] | |
| $doc[$xdoc.documentElement] | |
| $name[^doc.appendChild[^xdoc.createElement[name]]] | |
| $text[^name.appendChild[^xdoc.createTextNode[петросян&coz]]] | |
| ^untaint[as-is]{=$text.nodeValue=} | |
| @domedit[] | |
| ^domdata[] | |
| #$paf.nodeName<br> | |
| #$doc.documentElement.nodeName<br> | |
| ^show-xnode1[$xdoc.documentElement;0;1] | |
| <hr> | |
| ^show-xdoc2[$xdoc] | |
| <hr> | |
| @domxslt[] | |
| ^domdata[] | |
| ^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]] | |
| <hr> | |
| @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^; ! | |
| }] | |
| @set[] | |
| ^setdata[] | |
| ^a.add[$b] | |
| add:$a.3<br> | |
| ^setdata[] | |
| ^a.sub[$b] | |
| sub2:$a.2<br> | |
| sub1:$a.1<br> | |
| ^setdata[] | |
| $c[^a.union[$b]] | |
| union3:$c.3<br> | |
| union2:$c.2<br> | |
| ^setdata[] | |
| $c[^a.intersection[$b]] | |
| intersection3:$c.3<br> | |
| intersection2:$c.2<br> | |
| ^setdata[] | |
| intersects:^if(^a.intersects[$b]){y;n}<br> | |
| intersects2:^if(^a.intersects[ ]){y;n}<br> | |
| <hr> | |
| @setdata[] | |
| $a[$.1[a1] $.2[a2]] | |
| $b[ $.2[b2] $.3[b3]] | |
| @hash[] | |
| $h[^hash::create[$._default[123]]] | |
| $h.paf[not kretin] | |
| $h.paf<br> | |
| =$h.that=<br> | |
| @methresult[] | |
| $result[^table::set{1}] | |
| @terror[] | |
| ^error[method z must be called with z] | |
| @syntax1[] | |
| #^a[^b] | |
| @syntax2[] | |
| #^a[ | |
| @ssave[] | |
| $abc[abc] | |
| ^abc.save[abc] | |
| @calendar[] | |
| 2001;11:<br> | |
| $week_days[^date:calendar[rus](2001;11)] | |
| <pre> | |
| ^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday; ^; ^;} }<br>} | |
| </pre> | |
| @thash[] | |
| $table[^table::set{id name age | |
| 1 paf 278 | |
| 2 пиф 234 | |
| }] | |
| $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}<br> | |
| if def 0=^if(def $s){y}{}<br> | |
| <hr> | |
| @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[Александр Петросян <paf@design.ru>] | |
| $.to[Александр Петросян <paf@design.ru>] | |
| $.subject[проверка] | |
| $.body[проверка] | |
| ] | |
| @cookie[] | |
| $env:HTTP_COOKIE<br> | |
| #$cookie:переменная[test тест ТЕСТ2] | |
| =$cookie:переменная=<br> | |
| #$cookie:переменная2[test тест ТЕСТ3] | |
| =$cookie:переменная2=<br> | |
| =$cookie:CLASS.переменная2=<br> | |
| @response[] | |
| #^if($form:reload){ | |
| $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]] | |
| #} | |
| @xslt[] | |
| ^xdata[] | |
| $transformed[^xdoc.transform[global.xsl;$.param1[123/]]] | |
| ^show-xdoc2[$transformed] | |
| @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]<br> | |
| } | |
| } | |
| @pcre[] | |
| $s[1 2] | |
| ^s.match[\s;ig]{!} | |
| #^s.match[\d;ig]{!} | |
| @regexp[] | |
| $s[abcАБВ] | |
| ^if(^s.match[б][i]){y}{n} | |
| @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<hr> | |
| @fori[][i] | @fori[][i] |
| ^for[i](1;3){... =$i= ...} | ^for[i](1;3){... =$i= ...} |
| @xslt[] | @xdata0[] |
| #$response:content-type[$.value[text/html] $.charset[windows-1251]] | |
| $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?> | $xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?> |
| <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"--> | |
| <people> | <people> |
| <man id="1"> | <man id="1" имя="word слово"> |
| <name>PAF</name> | <name>P«^;AF B</name> |
| </man> | |
| <man id="2"> | |
| <name>ПИФ</name> | |
| </man> | </man> |
| <man id="2"> | |
| <name>ПИФ^taint[&]</name> | |
| </man> | |
| </people> | </people> |
| }] | }] |
| @xdata[] | |
| #$response:content-type[$.value[text/html] $.charset[windows-1251]] | |
| $xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?> | |
| <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"--> | |
| <people> | |
| <man id="1" имя="word слово"> | |
| <name>P«^;AF B</name> | |
| </man> | |
| <man id="2"> | |
| <name>ПИФ^taint[&]</name> | |
| </man> | |
| </people> | |
| }}] | |
| @xml[] | |
| ^xdata[] | |
| ^show-xdoc2[$xdoc]<hr> | ^show-xdoc2[$xdoc]<hr> |
| #^show-xnode1[$xdoc]<hr> | #^show-xnode1[$xdoc]<hr> |
| $people[^xdoc.select[*/man]] | $people[^xdoc.select[*/man]] |
| Line 28 $people[^xdoc.select[*/man]] | Line 685 $people[^xdoc.select[*/man]] |
| ^show-xnodes1[$people]<hr> | ^show-xnodes1[$people]<hr> |
| #^people.0.owner.hren[] | #^people.0.owner.hren[] |
| ^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]<hr> | ^show-xnode1[^xdoc.selectSingle[*/man[2]/name];0;1]<hr> |
| by id: | |
| ^show-xnode1[^xdoc.getElementById[1];0;1] | |
| <hr> | |
| @show1[] | @show1[array] |
| ^for[i](0;^people._count[]-1){ | ^for[i](0;^array._count[]-1){ |
| $x[$people.$i] | $x[$array.$i] |
| $x.firstChild.nodeValue: | $x.firstChild.nodeValue: |
| $pattributes[$x.parentNode.attributes] | $pattributes[$x.parentNode.attributes] |
| ^if(^pattributes._count[]){ | ^if(^pattributes._count[]){ |
| Line 40 $people[^xdoc.select[*/man]] | Line 701 $people[^xdoc.select[*/man]] |
| } | } |
| <br> | <br> |
| } | } |
| <hr> | |
| @show-xnodes1[array][i] | @show-xnodes1[array][i] |
| ^for[i](0;^array._count[]-1){ | ^for[i](0;^array._count[]-1){ |
| Line 55 $people[^xdoc.select[*/man]] | Line 715 $people[^xdoc.select[*/man]] |
| $pairs[$x.attributes] | $pairs[$x.attributes] |
| ^if(def $pairs){ | ^if(def $pairs){ |
| $names[^pairs._keys[]] | $names[^pairs._keys[]] |
| ^names.menu{$names.key=$pairs.[$names.key].nodeValue } | ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"} |
| } | } |
| >^; | >^; |
| }{ | }{ |
| Line 74 $people[^xdoc.select[*/man]] | Line 734 $people[^xdoc.select[*/man]] |
| } | } |
| @show-xdoc2[xdoc] | @show-xdoc2[xdoc] |
| ^xdoc.save[save.xml; | ^xdoc.save[out/save.xml; |
| # $.encoding[windows-1251] | # $.encoding[windows-1251] |
| $.method[xml] | $.method[xml] |
| ] | ] |
| Line 82 $file[^xdoc.file[ | Line 742 $file[^xdoc.file[ |
| # $.encoding[windows-1251] | # $.encoding[windows-1251] |
| $.method[html] | $.method[html] |
| ]] | ]] |
| ^file.save[text;save_file.html] | ^file.save[text;out/save_file.html] |
| ^taint[^xdoc.string[]] | #$response:body[^xdoc.file[ $.media-type[text/paf] ]] |
| # $.encoding[windows-1251] | <pre>^taint[html][^xdoc.string[ |
| # $.method[xml] | # $.method[html] |
| #]] | # $.version[1.0] |
| # $.encoding[utf-8] | |
| # $.omit-xml-declaration[yes] | |
| # $.standalone[yes] | |
| # $.doctype-public[-//W3C//DTD XHTML] | |
| # $.doctype-system[/a/b/c/] | |
| # $.indent[no] | |
| $.media-type[text/paf] | |
| ]] | |
| </pre> | |