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

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.8     ! moko       94: <hr />
        !            95: $str[😀a€й😀z😀]
        !            96: $length(^str.length[])
        !            97: <pre>^$str[$str] [^str.length[]] ^rem{ *** 1-4 bytes per character *** }</pre>
        !            98: ^for[i](1;$length+1){^left[$str]($i)<br />}
        !            99: ^for[i](1;$length+1){^right[$str]($i)<br />}
        !           100: ^for[i](0;$length+1){^mid[$str]($i;2)<br />}
        !           101: ^mid[$str]($length+1)<br />
        !           102: ^mid[$str](100;3)<br />
        !           103: $e[]
        !           104: ^left[$e](3)<br />
        !           105: ^right[$e](3)<br />
        !           106: ^mid[$e](1)<br />
        !           107: ^right[😀](2)<br />
        !           108: 
        !           109: <hr />
        !           110: $str[о сколько нам открытий чудных...10.11.2005]
        !           111: ^rem{ *** 42 characters, more bytes: p and n between the length in characters and in bytes *** }
        !           112: ^mid[$str](42)<br />
        !           113: ^mid[$str](50)<br />
        !           114: ^mid[$str](42;5)<br />
        !           115: ^mid[$str](50;5)<br />
        !           116: ^left[$str](50)<br />
        !           117: ^right[$str](50)<br />
        !           118: 
1.2       misha     119: @left[str;num][substr]
1.5       misha     120: ^try{
                    121:        ^if(def $num){
                    122:                $substr[^str.left($num)]
                    123:        }{
                    124:                $substr[^str.left[]]
                    125:        }
                    126:        $result['$substr' [^substr.length[]]]
                    127: }{
                    128:        $exception.handled(1)
                    129:        $result[error]
                    130: }
1.2       misha     131: 
                    132: @right[str;num][substr]
1.5       misha     133: ^try{
                    134:        ^if(def $num){
                    135:                $substr[^str.right($num)]
                    136:        }{
                    137:                $substr[^str.right[]]
                    138:        }
                    139:        $result['$substr' [^substr.length[]]]
                    140: }{
                    141:        $exception.handled(1)
                    142:        $result[error]
                    143: }
1.1       misha     144: 
                    145: @mid[str;num;count]
1.5       misha     146: ^try{
                    147:        ^if(def $num){
                    148:                ^if(def $count){
                    149:                        $substr[^str.mid($num;$count)]
                    150:                }{
                    151:                        $substr[^str.mid($num)]
                    152:                }
                    153:        }{
                    154:                $substr[^str.mid[]]
                    155:        }
                    156:        $result['$substr' [^substr.length[]]]
                    157: }{
                    158:        $exception.handled(1)
                    159:        $result[error]
                    160: }
1.1       misha     161: 
1.4       misha     162: @pos[str;substr;offset]
                    163: ^^str.pos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.pos[$substr]($offset)}{^str.pos[$substr]}<br />
1.7       moko      164: 
                    165: @rpos[str;substr;offset]
                    166: ^^str.rpos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.rpos[$substr]($offset)}{^str.rpos[$substr]}<br />

E-mail: