Diff for /parser3/tests/185.html between versions 1.2 and 1.6

version 1.2, 2008/07/17 09:09:22 version 1.6, 2010/07/03 07:21:52
Line 1 Line 1
 @main[]  @main[]
 $request:charset[UTF-8]  $request:charset[UTF-8]
 $response:charset[UTF-8]  $response:charset[UTF-8]
 $response:content-type[  $response:content-type[
Line 6  $response:content-type[ Line 6  $response:content-type[
         $.charset[$response:charset]          $.charset[$response:charset]
 ]  ]
   
 $str[^taint[ab<cd]ef>gh]  $str[ab^taint["]"cd^taint[xml][&]&ef]
 ^$str[$str] [^str.length[]]<br /><br />  <pre>^$str[$str] [^str.length[]]</pre>
   
   ^^str.left[]: ^left[$str]<br />
   ^^str.left(-2): ^left[$str](-2)<br />
 ^^str.left(4): ^left[$str](4)<br />  ^^str.left(4): ^left[$str](4)<br />
 ^^str.left(9): ^left[$str](9)<br />  ^^str.left(9): ^left[$str](9)<br />
   ^^str.left(20): ^left[$str](20)<br />
   ^^str.right[]: ^right[$str]<br />
   ^^str.right(-3): ^right[$str](-3)<br />
 ^^str.right(4): ^right[$str](4)<br />  ^^str.right(4): ^right[$str](4)<br />
 ^^str.right(9): ^right[$str](9)<br />  ^^str.right(9): ^right[$str](9)<br />
   ^^str.right(30): ^right[$str](30)<br />
 ^^str.mid(1;8): ^mid[$str](1;8)<br />  ^^str.mid(1;8): ^mid[$str](1;8)<br />
   ^^str.mid(2;0): ^mid[$str](2;0)<br />
   ^^str.mid(3;-1): ^mid[$str](3;-1)<br />
   ^^str.mid(7): ^mid[$str](7)<br />
   ^^str.mid(8;99): ^mid[$str](8;99)<br />
   ^^str.mid(40): ^mid[$str](40)<br />
   ^^str.mid(40;2): ^mid[$str](40;2)<br />
   ^^str.mid(-5): ^mid[$str](-5)<br />
   ^^str.mid(-5;2): ^mid[$str](-5;2)<br />
   
 <hr />  <hr />
 $str[о сколько нам открытий чудных...10.11.2005]  $str[о сколько нам открытий чудных...10.11.2005]
Line 21  $length(^str.length[]) ^rem{ *** length Line 35  $length(^str.length[]) ^rem{ *** length
   
 <pre>^taint[as-is][  <pre>^taint[as-is][
 ^$str[$str] [^str.length[]]  ^$str[$str] [^str.length[]]
      <b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789          <b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789
 ]</pre>  ]</pre>
   
   ^^str.pos[]: ^try{^str.pos[]}{$exception.handled(1)error}<br />
   ^^str.pos[^$empty]: ^str.pos[$empty]<br />
 ^pos[$str;о]  ^pos[$str;о]
   ^pos[$str;о;2]
 ^pos[$str; ]  ^pos[$str; ]
 ^pos[$str;чудных]  ^pos[$str;чудных]
 ^pos[$str;2005]  ^pos[$str;2005]
Line 33  $length(^str.length[]) ^rem{ *** length Line 50  $length(^str.length[]) ^rem{ *** length
 <br />  <br />
 <table border="1">  <table border="1">
         <tr>          <tr>
                 <td>N</td>                  <td>L</td>
                 <td>^^str.left(N) [^^substr.length[]]</tr>                  <td>^^str.left(L) [^^substr.length[]]</tr>
                 <td>^^str.right(N) [^^substr.length[]]</tr>                  <td>R</td>
                   <td>^^str.right(R) [^^substr.length[]]</tr>
                   <td>N, O</td>
                 <td>^^str.mid(N;O)</tr>                  <td>^^str.mid(N;O)</tr>
         </tr>          </tr>
 ^for[i](0;$length\2+1){  ^for[i](0;$length\2+1){
         <tr>          <tr>
                 <td>^eval($i*2)</td>                  $iLeft($i*2+$i%2)
                 <td>^left[$str]($i*2+$i%2)</td>                  <td>$iLeft</td>
                 <td>^right[$str]($i*2+($i+1)%2)</td>                  <td>^left[$str]($iLeft)</td>
                 <td>^mid[$str]($i*2;^if($i%2)(3;4))</td>                  
                   $iRight($i*2+($i+1)%2)
                   <td>$iRight</td>
                   <td>^right[$str]($iRight)</td>
   
                   $iMid($i*2)
                   $iLength(^if($i%2)(3;4))
                   <td>$iMid, $iLength</td>
                   <td>^mid[$str]($iMid;$iLength)</td>
         </tr>          </tr>
 }  }
 </table>  </table>
   
   
   
 @left[str;num][substr]  @left[str;num][substr]
 $substr[^str.left($num)]  ^try{
 '$substr' [^substr.length[]]          ^if(def $num){
                   $substr[^str.left($num)]
           }{
                   $substr[^str.left[]]
           }
           $result['$substr' [^substr.length[]]]
   }{
           $exception.handled(1)
           $result[error]
   }
   
 @right[str;num][substr]  @right[str;num][substr]
 $substr[^str.right($num)]  ^try{
 '$substr' [^substr.length[]]          ^if(def $num){
                   $substr[^str.right($num)]
           }{
                   $substr[^str.right[]]
           }
           $result['$substr' [^substr.length[]]]
   }{
           $exception.handled(1)
           $result[error]
   }
   
 @mid[str;num;count]  @mid[str;num;count]
 '^str.mid($num;$count)'  ^try{
           ^if(def $num){
                   ^if(def $count){
                           $substr[^str.mid($num;$count)]
                   }{
                           $substr[^str.mid($num)]
                   }
           }{
                   $substr[^str.mid[]]
           }
           $result['$substr' [^substr.length[]]]
   }{
           $exception.handled(1)
           $result[error]
   }
   
 @pos[str;substr]  @pos[str;substr;offset]
 ^^str.pos[$substr]: ^str.pos[$substr]<br />  ^^str.pos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.pos[$substr]($offset)}{^str.pos[$substr]}<br />

Removed from v.1.2  
changed lines
  Added in v.1.6


E-mail: