|
|
| version 1.4, 2008/07/25 12:55:35 | version 1.26, 2026/01/08 21:24:29 |
|---|---|
| Line 8 $CLASS_PATH[^table::create{path | Line 8 $CLASS_PATH[^table::create{path |
| /tests | /tests |
| }] | }] |
| $NO_PROTOTYPE[ | |
| $.[336.html][yes] | |
| $.[225.html][yes] | |
| $.[051.html][yes] | |
| ] | |
| ^if(def $NO_PROTOTYPE.[$env:PATH_TRANSLATED]){ | |
| $OBJECT-PROTOTYPE(false) | |
| } | |
| ^if($env:PATH_TRANSLATED eq '357.html'){ | |
| $LIMITS[ | |
| $.max_loop(50) | |
| $.max_recursion(50) | |
| ] | |
| } | |
| ^if($env:PATH_TRANSLATED eq '358.html'){ | |
| $LIMITS[ | |
| $.max_loop(0) | |
| $.max_recoursion(0) | |
| ] | |
| } | |
| ^if($env:PATH_TRANSLATED eq '380.html' || $env:PATH_TRANSLATED eq '394-curl.html' ){ | |
| $LIMITS[ | |
| $.max_file_size(10000) | |
| ] | |
| } | |
| ^if($env:PATH_TRANSLATED eq '403.html'){ | |
| $MIME-TYPES[^table::create{ext mime-type | |
| txt text/plain | |
| html text/html | |
| }] | |
| } | |
| ^if($env:PATH_TRANSLATED eq '409.html'){ | |
| $LOCALS(true) | |
| } | |
| ^if($env:PATH_TRANSLATED eq '410.html'){ | |
| $CLASS-GETTER-PROTECTED(false) | |
| } | |
| ^if($env:PATH_TRANSLATED eq '449.html'){ | |
| $LIMITS[ | |
| $.max_array_size(1000) | |
| ] | |
| } | |
| ^os[;]{ ^curl:options[ $.library[libcurl.4.dylib] ] } | |
| @auto[] | @auto[] |
| @try-catch[jCode] | |
| ^try{$jCode}{ | |
| $exception.handled(true) | |
| Exception type: $exception.type, | |
| Source: $exception.source, | |
| Comment: ^taint[as-is;$exception.comment] | |
| } | |
| @windows-1251[] | |
| @try-catch-filtered[jCode;limit] | |
| ^try{$jCode}{ | |
| $exception.handled(true) | |
| Exception type: $exception.type, | |
| Source: $exception.source^if(def $limit){, | |
| Comment: ^exception.comment.left($limit)} | |
| } | |
| @try-catch-comment[jCode] | |
| ^try{$jCode}{ | |
| $exception.handled(true) | |
| Exception: ^taint[as-is;$exception.comment] | |
| } | |
| @1251[] | |
| ^from-1251[] | |
| ^to-1251[] | |
| @from-1251[] | |
| $request:charset[windows-1251] | $request:charset[windows-1251] |
| @to-1251[] | |
| $response:charset[windows-1251] | $response:charset[windows-1251] |
| # backward | |
| @windows-1251[] | |
| ^1251[] | |
| @os[win;unix;mac][name] | |
| $name[^env:OS.left(7)] | |
| $result[^if(^name.lower[] eq 'windows'){$win}{^if(^env:HOME.left(6) eq '/Users' && def $mac){$mac;$unix}}] |