--- parser3/tests/185.html	2008/07/16 17:35:43	1.1
+++ parser3/tests/185.html	2010/07/03 07:21:52	1.6
@@ -1,4 +1,4 @@
-@main[]
+@main[]
 $request:charset[UTF-8]
 $response:charset[UTF-8]
 $response:content-type[
@@ -6,58 +6,117 @@ $response:content-type[
 	$.charset[$response:charset]
 ]
 
+$str[ab^taint["]"cd^taint[xml][&]&ef]
+<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(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(9): ^right[$str](9)<br />
+^^str.right(30): ^right[$str](30)<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 />
 $str[о сколько нам открытий чудных...10.11.2005]
 $length(^str.length[]) ^rem{ *** length in real chars (not in bytes) == 42 *** }
 
 <pre>^taint[as-is][
-^$str[$str]
-     <b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789
+^$str[$str] [^str.length[]]
+	<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789<b>0</b>123456789
 ]</pre>
 
-^^str.length[]: ^str.length[]<br /><br />
-
-#=^str.right(5)=
-#=^str.mid(43;2)=
-
+^^str.pos[]: ^try{^str.pos[]}{$exception.handled(1)error}<br />
+^^str.pos[^$empty]: ^str.pos[$empty]<br />
 ^pos[$str;о]
+^pos[$str;о;2]
 ^pos[$str; ]
 ^pos[$str;чудных]
 ^pos[$str;2005]
 ^pos[$str;zzz]
 
-
+<br />
 <table border="1">
 	<tr>
-		<td>N</td>
-		<td>^^str.left(N)</tr>
-		<td>^^str.right(N)</tr>
-		<td>^^str.mid(N;Z)</tr>
+		<td>L</td>
+		<td>^^str.left(L) [^^substr.length[]]</tr>
+		<td>R</td>
+		<td>^^str.right(R) [^^substr.length[]]</tr>
+		<td>N, O</td>
+		<td>^^str.mid(N;O)</tr>
 	</tr>
 ^for[i](0;$length\2+1){
 	<tr>
-		<td>^eval($i*2)</td>
-		<td>^left[$str]($i*2)</td>
-		<td>^right[$str]($i*2)</td>
-		<td>^mid[$str]($i*2;3)</td>
+		$iLeft($i*2+$i%2)
+		<td>$iLeft</td>
+		<td>^left[$str]($iLeft)</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>
 }
 </table>
 
+@left[str;num][substr]
+^try{
+	^if(def $num){
+		$substr[^str.left($num)]
+	}{
+		$substr[^str.left[]]
+	}
+	$result['$substr' [^substr.length[]]]
+}{
+	$exception.handled(1)
+	$result[error]
+}
 
-
-@left[str;num]
-'^str.left($num)'
-
-
-
-@right[str;num]
-'^str.right($num)'
-
+@right[str;num][substr]
+^try{
+	^if(def $num){
+		$substr[^str.right($num)]
+	}{
+		$substr[^str.right[]]
+	}
+	$result['$substr' [^substr.length[]]]
+}{
+	$exception.handled(1)
+	$result[error]
+}
 
 @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]
-^^str.pos[$substr]: ^str.pos[$substr]<br />
+@pos[str;substr;offset]
+^^str.pos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.pos[$substr]($offset)}{^str.pos[$substr]}<br />