Return to 185.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/185.html, revision 1.6

1.5       misha       1: @main[]
1.1       misha       2: $request:charset[UTF-8]
                      3: $response:charset[UTF-8]
                      4: $response:content-type[
                      5:        $.value[text/html]
                      6:        $.charset[$response:charset]
                      7: ]
                      8: 
1.3       misha       9: $str[ab^taint["]"cd^taint[xml][&]&ef]
                     10: <pre>^$str[$str] [^str.length[]]</pre>
1.1       misha      11: 
1.5       misha      12: ^^str.left[]: ^left[$str]<br />
                     13: ^^str.left(-2): ^left[$str](-2)<br />
1.2       misha      14: ^^str.left(4): ^left[$str](4)<br />
                     15: ^^str.left(9): ^left[$str](9)<br />
1.5       misha      16: ^^str.left(20): ^left[$str](20)<br />
                     17: ^^str.right[]: ^right[$str]<br />
                     18: ^^str.right(-3): ^right[$str](-3)<br />
1.2       misha      19: ^^str.right(4): ^right[$str](4)<br />
                     20: ^^str.right(9): ^right[$str](9)<br />
1.5       misha      21: ^^str.right(30): ^right[$str](30)<br />
1.2       misha      22: ^^str.mid(1;8): ^mid[$str](1;8)<br />
1.5       misha      23: ^^str.mid(2;0): ^mid[$str](2;0)<br />
                     24: ^^str.mid(3;-1): ^mid[$str](3;-1)<br />
                     25: ^^str.mid(7): ^mid[$str](7)<br />
                     26: ^^str.mid(8;99): ^mid[$str](8;99)<br />
                     27: ^^str.mid(40): ^mid[$str](40)<br />
                     28: ^^str.mid(40;2): ^mid[$str](40;2)<br />
                     29: ^^str.mid(-5): ^mid[$str](-5)<br />
                     30: ^^str.mid(-5;2): ^mid[$str](-5;2)<br />
1.2       misha      31: 
                     32: <hr />
1.1       misha      33: $str[о сколько нам открытий чудных...10.11.2005]
                     34: $length(^str.length[]) ^rem{ *** length in real chars (not in bytes) == 42 *** }
                     35: 
                     36: <pre>^taint[as-is][
1.2       misha      37: ^$str[$str] [^str.length[]]
1.5       misha      38:        <b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789
1.1       misha      39: ]</pre>
                     40: 
1.5       misha      41: ^^str.pos[]: ^try{^str.pos[]}{$exception.handled(1)error}<br />
                     42: ^^str.pos[^$empty]: ^str.pos[$empty]<br />
1.1       misha      43: ^pos[$str;о]
1.4       misha      44: ^pos[$str;о;2]
1.1       misha      45: ^pos[$str; ]
                     46: ^pos[$str;чудных]
                     47: ^pos[$str;2005]
                     48: ^pos[$str;zzz]
                     49: 
1.2       misha      50: <br />
1.1       misha      51: <table border="1">
                     52:        <tr>
1.3       misha      53:                <td>L</td>
                     54:                <td>^^str.left(L) [^^substr.length[]]</tr>
                     55:                <td>R</td>
                     56:                <td>^^str.right(R) [^^substr.length[]]</tr>
                     57:                <td>N, O</td>
1.2       misha      58:                <td>^^str.mid(N;O)</tr>
1.1       misha      59:        </tr>
                     60: ^for[i](0;$length\2+1){
                     61:        <tr>
1.3       misha      62:                $iLeft($i*2+$i%2)
                     63:                <td>$iLeft</td>
                     64:                <td>^left[$str]($iLeft)</td>
                     65:                
                     66:                $iRight($i*2+($i+1)%2)
                     67:                <td>$iRight</td>
                     68:                <td>^right[$str]($iRight)</td>
                     69: 
                     70:                $iMid($i*2)
                     71:                $iLength(^if($i%2)(3;4))
                     72:                <td>$iMid, $iLength</td>
                     73:                <td>^mid[$str]($iMid;$iLength)</td>
1.1       misha      74:        </tr>
                     75: }
                     76: </table>
                     77: 
1.2       misha      78: @left[str;num][substr]
1.5       misha      79: ^try{
                     80:        ^if(def $num){
                     81:                $substr[^str.left($num)]
                     82:        }{
                     83:                $substr[^str.left[]]
                     84:        }
                     85:        $result['$substr' [^substr.length[]]]
                     86: }{
                     87:        $exception.handled(1)
                     88:        $result[error]
                     89: }
1.2       misha      90: 
                     91: @right[str;num][substr]
1.5       misha      92: ^try{
                     93:        ^if(def $num){
                     94:                $substr[^str.right($num)]
                     95:        }{
                     96:                $substr[^str.right[]]
                     97:        }
                     98:        $result['$substr' [^substr.length[]]]
                     99: }{
                    100:        $exception.handled(1)
                    101:        $result[error]
                    102: }
1.1       misha     103: 
                    104: @mid[str;num;count]
1.5       misha     105: ^try{
                    106:        ^if(def $num){
                    107:                ^if(def $count){
                    108:                        $substr[^str.mid($num;$count)]
                    109:                }{
                    110:                        $substr[^str.mid($num)]
                    111:                }
                    112:        }{
                    113:                $substr[^str.mid[]]
                    114:        }
                    115:        $result['$substr' [^substr.length[]]]
                    116: }{
                    117:        $exception.handled(1)
                    118:        $result[error]
                    119: }
1.1       misha     120: 
1.4       misha     121: @pos[str;substr;offset]
                    122: ^^str.pos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.pos[$substr]($offset)}{^str.pos[$substr]}<br />