^taint[^xmlDataType.string[]]
-$xmlDataTypes[^xmlDataType.select[programs/program[@id=4]/data]]
-#=^xmlDataTypes._count[]=
-=^xmlDataTypes.0.getAttribute[type-id]=
-
-@doubleprobs[]
-$1(^math:radians(180))
-$2($math:PI)
-^if(^1.format[%.10f]==^2.format[%.10f]){y;n}
-^if($1==$2){y;n}
-^if(^math:radians(180)==$math:PI){y;n}
-
-
-@divnamestop[]
-$a(10)
-^eval($a\3)
-
-@arrayclone[]
-$t[^table::create{a b
-1 11
-2 22
-}]
-$c[^table::create[$t]]
-^c.append{2 33}
-^t.count[]
-^c.count[]
-
-@operator_tricks[]
-^if(1){$a[^t[]]}
-$a!
-$a($b)
-^if(1){y}{n}
-$MAIN:a(^t[] eq OK)
-#$MAIN:a(1)
-^if($a){y}{n}
-#^if(1){y}{n}
-$form:if
-$a[$.n[1]]
-$a.if
-
-@xoutputrusattr[]
-$d[^xdoc::set{=^taint[&]= }]
-^show_xdoc2[$d]
-
-@regexp3[]
-$s[abcАБВ]
-^if(^s.match[][i]){y}{n}
-
-
-@exec2[]
-$a[^file::exec[bin/t.cmd]]
-^taint[$a.text]
|$a.status|$a.stderr
-
-
-@tlock[]
-^file:lock[lockfile]{
- code
-}
-
-@xmloutattrwithoutvalue[]
-#$ORIGINS(1)
-$doc[^xdoc::set{zz }]
-$doc[^doc.transform[global.xsl]]
-=^taint[html][^doc.string[$.method[html]]]=
-
-
-
-@precisionProblem[]
-$a[123456789012345678901234567890]
-$b(^a.double[])
-^b.format{%.20E}
-
-^eval(2*2)
-
-@xpath[]
-$xdoc[^xdoc::set{
-привет
-
-$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[проверка]
- ]
- $.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{
-привет
-
-
-@tcache2[]
-^cache[$DB_HOME/keyключ](2){
- ^math:random(100)
-}
-
-@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[
-^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
-
-@thashforeach[]
-$h[
- $.a[1]
- $.b[2]
-]
-^h.foreach[key;value]{
- $key=$value
-}
-
-@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}
-