|
version 1.215, 2001/07/02 13:24:32
|
version 1.490, 2001/11/22 12:40:48
|
|
Line 1
|
Line 1
|
| @main[] |
@main[] |
| $таблица[^table:set{a b |
#$ORIGINS(1) |
| 1 2 |
#$t[^table::set{a b} ^table::set{c d}] |
| }] |
#^ttaintuntaint[] |
| $колонки[^таблица.columns[]] |
#^tappend2[] |
| $колонки{ |
#^badvsnprintf[] |
| ^menu{$name}[,]. |
#^badoracequoting[] |
| } |
#^badconstructors[] |
| |
#^xloadwrongtable[] |
| <hr> |
#^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[] |
| |
#^tconnect[] |
| |
^xslt[] |
| |
#^xml[] |
| |
#^header[] |
| |
<hr> |
| |
OK |
| |
|
| |
@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> |
| |
|
| ^if($form:id ne 'z"'){ |
|
| ne |
|
| }{ |
|
| eq |
|
| } |
} |
| <hr> |
<hr> |
| |
|
| |
|
| ^rem{ |
^rem{ |
| $one(1) |
$news[^table::sql{select description from news}[$.limit(3)]] |
| $z(0) |
^news.menu{ |
| ^eval(^one.int[]%0) |
^untaint{$news.description}<hr> |
| |
|
| |
} |
| <hr> |
<hr> |
| } |
} |
| |
|
| $form:id: |
$tables[^table::sql{select table_name from user_tables}] |
| <hr> |
^tables.menu{ |
| |
$tables.table_name<br> |
| |
} |
| |
|
| ^switch(2){ |
|
| ^case(1;4;3){143} |
|
| ^case[DEFAULT]{default} |
|
| } |
} |
| <hr> |
<hr> |
| ^switch(2){ |
$env:PATH |
| ^case(1;2;3){143} |
|
| ^case[DEFAULT]{default} |
@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] |
| } |
} |
| <hr> |
] |
| ^switch(2){ |
$c.b |
| ^case(1;5;3){143} |
|
| |
@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> |
<hr> |
| ^switch(2){ |
|
| ^case(2){2} |
@безнадёжна_попытка_поправить_непоправимое[] |
| |
$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[] |
| |
#^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> |
<hr> |
| ^switch[2]{ |
^hf.foreach[key;value]{ |
| ^case(2){![2]} |
$key=$value<br> |
| } |
} |
| <hr> |
<hr> |
| |
$hash[^hf.hash[]] |
| |
=$hash.paf= |
| |
<hr> |
| |
|
| |
@tcounter[] |
| |
^tcounterone[$DB_HOME] |
| |
other root: |
| |
^tcounterone[${DB_HOME}2] |
| |
again, first: |
| |
^tcounterone[$DB_HOME] |
| |
|
| $hash[$a[1]] |
@tcounterone[DB_HOME] |
| ^hash.default[0] |
$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{ |
^rem{ |
| $target[targetval] |
$hash[^counter.hash[]] |
| $form_admin[formadminval] |
=$hash.value= |
| ^if(def $target){<head><base target=$target^if(def $form_admin){_a}></head>} |
|
| ^if(def $target){<head><base target=${target}^if(def $form_admin){_a}></head>} |
|
| |
|
| если $target и $form_admin defined получаем |
|
| <head><base target={_a}></head> |
|
| <hr> |
<hr> |
| } |
} |
| |
|
| #$string:a(1) |
@tablehash[] |
| #<hr> |
$productList[^table::set{id name |
| #^if(^log(11)){y}{n} |
1 носки |
| #<hr> |
2 валенки |
| |
3 ушанка |
| |
}] |
| |
|
| #@my_func[arg;z] |
#скажем, у первого дилера |
| #2 |
$firstPriceList[^table::set{id price |
| |
1 0.3 |
| |
3 1000 |
| |
}] |
| |
|
| #@z[] |
$firstPriceHash[^firstPriceList.hash[id]] |
| #^exp(^log(10)) |
|
| #<hr> |
^productList.menu{ |
| #$a[^table:load[a<b]] |
продукт "$productList.name" | цена у first: $firstPriceHash.[$productList.id].price<br> |
| ^rem{ |
|
| ^mail:send[ |
|
| $from[paf@design.ru] |
|
| $to[paf@design.ru] |
|
| $subject[test] |
|
| $body[here] |
|
| ] |
|
| <hr> |
|
| } |
} |
| -^eol[]- |
|
| |
|
| |
@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> |
<hr> |
| ^if(1<2){$a[1]} |
^show-xdoc2[$xdoc] |
| ^$a=$a |
|
| <hr> |
<hr> |
| |
|
| <form method=post> |
@domxslt[] |
| <input type=hidden name=a value=123> |
^domdata[] |
| <table border=1 width=250><tr><td>$form:name</td></tr></table> |
^show-xdoc2[^xdoc.transform[global.xsl;$.param1[123/]]] |
| <textarea name=name rows=5 cols=40>^untaint[html]{^default[$form:name;Пробный текст: А.Ф._Петросян <<Жизнь в Аду>> |
|
| нажми Submit]}</textarea><BR> |
|
| <input type=submit> |
|
| </form> |
|
| <hr> |
<hr> |
| |
|
| #^main[] |
@lsplit2[] |
| #^use[$form:file] |
$path[/optics/] |
| |
$pathTable[^path.lsplit[/]] |
| |
^pathTable.menu{ |
| |
^if(def $pathTable.piece){ |
| |
=$pathTable.piece= |
| |
} |
| |
} |
| |
|
| $строка[вася ЗдЕсЬ] |
|
| ^^строка.upper[]=^строка.upper[]<br> |
|
| ^^строка.lower[]=^строка.lower[]<br> |
|
| <hr> |
|
| |
|
| |
@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[]] |
| |
|
| $a[12] |
@imageresize[] |
| ^a.int[] |
$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[]] |
| |
|
| <hr> |
#$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[]] |
| |
|
| $t[^table:set{key value |
|
| 1 v1 |
|
| 2 v2}] |
|
| $h[^t.hash[key]] |
|
| |
|
| ^sql_test[$SQL.connect-string] |
@tintdefault[] |
| #^sql_test[mysql://test:test@localhost/test/cp1251_koi8] |
#$abc[abc] |
| |
$abc[33] |
| |
^abc.int[z] |
| |
#^abc.int(123) |
| |
|
| <HR> |
@ifassignhash[] |
| $abc{} |
$h[^if(1){$.a(1);$.a(2)}] |
| $tn[^table:set[nameless]{a1 b1 |
$h.a |
| a2 b2 |
|
| }] |
@ifpasshash[] |
| $x[^tn.locate[0;a2]] |
$a[$.e[a]] |
| ^$tn.1=$tn.1 |
$b[$.e[b]] |
| <hr> |
^ifpasshashdest[^if(1){$a;$b}] |
| $t0[^table:set{key a b |
#$x[^if(1){$a}{$b}] |
| 1 a1 |
#^ifpasshashdest[$x] |
| 2 a2 b2 |
|
| |
@ifpasshashdest[p] |
| |
$p.e |
| |
|
| |
@movedir[] |
| |
^file:move[a;deeper/a] |
| |
|
| |
@replace[] |
| |
$a[12^;3] |
| |
^a.replace[^table::set{from to |
| |
2^; ! |
| }] |
}] |
| ^if(^t0.locate[key;2] && "a" ne "b"){y;n} |
|
| |
|
| |
@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> |
<hr> |
| $currentFolder[/a/b] |
|
| $path[^currentFolder.lsplit[/]] |
@setdata[] |
| ^path.flip[] |
$a[$.1[a1] $.2[a2]] |
| $path{ |
$b[ $.2[b2] $.3[b3]] |
| ^menu{$0}{,} |
|
| } |
|
| <hr> |
@hash[] |
| $t1[^table:set{key value |
$h[^hash::create[$._default[123]]] |
| 1 v1 |
$h.paf[not kretin] |
| 2 v2}] |
$h.paf<br> |
| $h1[^t1.hash[key]] |
=$h.that=<br> |
| ^h1.default[$value[nothing]] |
|
| ^$h1.2.value=$h1.2.value<br> |
@methresult[] |
| ^$h1.2x.value=$h1.2x.value<br> |
$result[^table::set{1}] |
| <hr> |
|
| $t2[^table:set{key a b |
@terror[] |
| 1 a1 |
^error[method z must be called with z] |
| 2 a2 b2 |
|
| |
@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 |
| }] |
}] |
| t2 ^if(^t2.empty[]){empty}{not empty}<br> |
$hash[^table.hash[id;^table::set[nameless]{id |
| ^t2.offset(1) |
name}]] |
| $t2.b |
$hash.2.id $hash.2.name $hash.2.age |
| $r[^t2.record[]] |
|
| <hr> |
|
| $th[^t2.hash[b]] |
|
| ^$th.b2.a=$th.b2.a<br> |
|
| <hr> |
|
| $th[^t2.hash[key;a]] |
|
| ^$th.2.a=$th.2.a<br> |
|
| <hr> |
|
| #^OP:eval(1<2) |
|
| |
|
| $filelist[^table:dir[.]] |
@tdef[] |
| |
$s[0] |
| |
if 0=^if($s){}{n}<br> |
| |
if def 0=^if(def $s){y}{}<br> |
| <hr> |
<hr> |
| $path[/news/tululu/] |
|
| #^path.flip[] |
|
| <hr> |
|
| $branches[^table:set{name val |
|
| index.cgihtml 123 |
|
| }] |
|
| $splitURI[^request:uri.lsplit[/]] |
|
| name ^if(^branches.locate[name;$splitURI.1]){found;not found}: |
|
| $branches.name |
|
| <HR> |
|
| $splitURI[^request:uri.lsplit[/]] |
|
| $splitURI.0!$splitURI.1 |
|
| <HR> |
|
| |
|
| $t2[^table:set{dir title |
@ford[] |
| /here Here |
^for[i](0;5){$i}{($i)} |
| }] |
|
| $t2{^menu{${dir}-$title}[,]} |
|
| <HR> |
|
| $dir[news] |
|
| $list[^table:dir[$dir]] |
|
| ^list.menu{ |
|
| $subdir[$dir/$list.name] |
|
| $sublist[^table:dir[$subdir]] |
|
| ${list.name}/ $sublist{^menu{$name}[,]}<br> |
|
| } |
|
| <HR> |
|
| ^if(in "/otherdeeper"){y;n} |
|
| <HR> |
|
| |
|
| ^^table:dir[/]:<BR> |
|
| $d[^table:dir[/]] |
|
| $d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}} |
|
| <HR> |
|
| |
|
| $files[^table:set{name}] |
|
| $d{^menu{ |
|
| ^if(-d "$name"){ |
|
| ^:files.append{$name} |
|
| } |
|
| }} |
|
| |
|
| $files{^menu{$name}[,]} |
@tif[] |
| <HR> |
^if[def]{y;n} |
| |
|
| @exception[origin;source;comment;type;code][i;j] |
@image[] |
| <body bgcolor=black> |
$pict[^image::create(400;200)] |
| <font color=white> |
^pict.arc($pict.width/2;$pict.height/2;$pict.width-1;$pict.height-1;0;360;0x000000) |
| ERROR: |
^pict.arc($pict.width/2;$pict.height/2;$pict.width-10;$pict.height-10;0+10;360-10;0xff0000) |
| ^if(def $source){$origin '$source'} |
#^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0xff0000) |
| ${comment}. |
^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-10;0x0000ff) |
| ^if(def $type){type=$type} |
^pict.arc($pict.width/2;$pict.height/2;$pict.height-26;$pict.height-26;0+10;360-10;0xff0000) |
| ^if(def $code){code=$code} |
$response:body[^pict.gif[]] |
| |
|
| @auto_test[] |
|
| ^BASE.auto_test[] |
|
| <li>${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}{ |
|
| <table border=1> |
|
| <tr><td>id</td><td>name</td><td>age</td></tr> |
|
| ^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>} |
|
| </table> |
|
| }} |
|
| ^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}<br> |
|
| ^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}<br> |
|
| ^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}<br> |
|
| |
|
| $paf[^hash:sql{select id,age from paf}] |
|
| ^$paf.2.age=$paf.2.age<br> |
|
| } |
@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]] |
| #} |
#} |
| |
|
| @eol[] |
@xslt[] |
| eol |
^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] |
| |
^for[i](1;3){... =$i= ...} |
| |
|
| |
@xdata0[] |
| |
#$response:content-type[$.value[text/html] $.charset[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> |
| |
<man id="1" имя="word слово"> |
| |
<name>P«^;AF B</name> |
| |
</man> |
| |
<man id="2"> |
| |
<name>ПИФ^taint[&]</name> |
| |
</man> |
| |
</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-xnode1[$xdoc]<hr> |
| |
$people[^xdoc.select[*/man]] |
| |
#^show1[] |
| |
^show-xnodes1[$people]<hr> |
| |
#^people.0.owner.hren[] |
| |
|
| |
^show-xnode1[^xdoc.selectSingle[*/man[2]/name];0;1]<hr> |
| |
|
| |
by id: |
| |
^show-xnode1[^xdoc.getElementById[1];0;1] |
| |
<hr> |
| |
|
| |
@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 |
| |
} |
| |
<br> |
| |
} |
| |
|
| |
@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}<br> |
| |
^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>^;<br> |
| |
} |
| |
} |
| |
|
| |
@show-xdoc2[xdoc] |
| |
^xdoc.save[out/save.xml; |
| |
# $.encoding[windows-1251] |
| |
$.method[xml] |
| |
] |
| |
$file[^xdoc.file[ |
| |
# $.encoding[windows-1251] |
| |
$.method[html] |
| |
]] |
| |
^file.save[text;out/save_file.html] |
| |
#$response:body[^xdoc.file[ $.media-type[text/paf] ]] |
| |
<pre>^taint[html][^xdoc.string[ |
| |
# $.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> |
| |
|
| @default[test;def] |
|
| $result[^if(^test.length[]){$test}{$def}] |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to index.html CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / www / htdocs