Lines Matching refs:ic
956 my( $pref, $ic ) = @_;
957 $ic < length($$pref)-1 ? substr( $$pref, $ic+1, 1 ) : '';
971 for( my $ic = 0; $ic < length( $pat ); $ic++ ){
972 my $c = substr( $pat, $ic, 1 );
975 my $nc = peek($pat,$ic);
980 $ic++;
1003 my $endpos = index( $pat, '\\}', $ic );
1008 my $rep = substr( $pat, $ic+1, $endpos-($ic+1) );
1009 $ic = $endpos + 1;
1048 if( peek($pat,$ic) =~ /[0-9]/ ){
1084 if( peek($pat,$ic) eq '^' ){
1085 $ic++;
1088 my $nc = peek($pat,$ic);
1091 $ic++;
1094 if( $ic >= length( $pat ) - 1 ){
1099 my $rstr = substr( $pat, $ic+1 );
1102 $ic += length( $cnt );
1121 if( $ic < length($pat) - 1 &&
1122 substr( $pat, $ic+1 ) =~ /^(-?])/ ){
1123 $ic += length( $1 );
1146 $res .= $ic == length( $pat ) - 1 ? '$' : '\\$';
1176 for( my $ic = 0; $ic < length( $subst ); $ic++ ){
1177 my $c = substr( $subst, $ic, 1 );
1180 my $nc = peek($subst,$ic);
1185 $ic++;