Return to 185.html CVS log

Up to [parser3project] / parser3 / tests

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

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]
1.7     ! moko       49: ^rpos[$str;о]
        !            50: ^rpos[$str;о;14]
        !            51: ^rpos[$str;о;13]
        !            52: ^rpos[$str;о;0]
        !            53: ^rpos[$str; ]
        !            54: ^rpos[$str;чудных]
        !            55: ^rpos[$str;чудных;23]
        !            56: ^rpos[$str;чудных;22]
        !            57: ^rpos[$str;.]
        !            58: ^rpos[$str;.;36]
        !            59: ^rpos[$str;2005]
        !            60: ^rpos[$str;2005;100]
        !            61: ^rpos[$str;2005;37]
        !            62: ^rpos[$str;zzz]
        !            63: ^rpos[$str;$empty]
        !            64: ^rpos[$str;$str]
1.1       misha      65: 
1.2       misha      66: <br />
1.1       misha      67: <table border="1">
                     68:        <tr>
1.3       misha      69:                <td>L</td>
                     70:                <td>^^str.left(L) [^^substr.length[]]</tr>
                     71:                <td>R</td>
                     72:                <td>^^str.right(R) [^^substr.length[]]</tr>
                     73:                <td>N, O</td>
1.2       misha      74:                <td>^^str.mid(N;O)</tr>
1.1       misha      75:        </tr>
                     76: ^for[i](0;$length\2+1){
                     77:        <tr>
1.3       misha      78:                $iLeft($i*2+$i%2)
                     79:                <td>$iLeft</td>
                     80:                <td>^left[$str]($iLeft)</td>
                     81:                
                     82:                $iRight($i*2+($i+1)%2)
                     83:                <td>$iRight</td>
                     84:                <td>^right[$str]($iRight)</td>
                     85: 
                     86:                $iMid($i*2)
                     87:                $iLength(^if($i%2)(3;4))
                     88:                <td>$iMid, $iLength</td>
                     89:                <td>^mid[$str]($iMid;$iLength)</td>
1.1       misha      90:        </tr>
                     91: }
                     92: </table>
                     93: 
1.2       misha      94: @left[str;num][substr]
1.5       misha      95: ^try{
                     96:        ^if(def $num){
                     97:                $substr[^str.left($num)]
                     98:        }{
                     99:                $substr[^str.left[]]
                    100:        }
                    101:        $result['$substr' [^substr.length[]]]
                    102: }{
                    103:        $exception.handled(1)
                    104:        $result[error]
                    105: }
1.2       misha     106: 
                    107: @right[str;num][substr]
1.5       misha     108: ^try{
                    109:        ^if(def $num){
                    110:                $substr[^str.right($num)]
                    111:        }{
                    112:                $substr[^str.right[]]
                    113:        }
                    114:        $result['$substr' [^substr.length[]]]
                    115: }{
                    116:        $exception.handled(1)
                    117:        $result[error]
                    118: }
1.1       misha     119: 
                    120: @mid[str;num;count]
1.5       misha     121: ^try{
                    122:        ^if(def $num){
                    123:                ^if(def $count){
                    124:                        $substr[^str.mid($num;$count)]
                    125:                }{
                    126:                        $substr[^str.mid($num)]
                    127:                }
                    128:        }{
                    129:                $substr[^str.mid[]]
                    130:        }
                    131:        $result['$substr' [^substr.length[]]]
                    132: }{
                    133:        $exception.handled(1)
                    134:        $result[error]
                    135: }
1.1       misha     136: 
1.4       misha     137: @pos[str;substr;offset]
                    138: ^^str.pos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.pos[$substr]($offset)}{^str.pos[$substr]}<br />
1.7     ! moko      139: 
        !           140: @rpos[str;substr;offset]
        !           141: ^^str.rpos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.rpos[$substr]($offset)}{^str.rpos[$substr]}<br />