Lines Matching refs:del
741 my( $del, $sref ) = @_;
742 my $regex = $del;
743 print "stripRegex:$del:$$sref:\n" if $useDEBUG;
744 while( $$sref =~ s{^(.*?)(\\*)\Q$del\E(\s*)}{}s ){
746 $regex .= $1.$sl.$del;
755 # stripTrans: take a <del> terminated string from y command
756 # honoring and cleaning up of \-escaped <del>'s
759 my( $del, $sref ) = @_;
761 print "stripTrans:$del:$$sref:\n" if $useDEBUG;
762 while( $$sref =~ s{^(.*?)(\\*)\Q$del\E}{}s ){
771 $t .= $sl.$del.$3;
961 my( $del, $pat, $fl ) = @_;
962 my $led = $del;
964 $led = '' if $led eq $del;
981 if( $nc eq $del ){ ## \<pattern del> => \<pattern del>
982 $res .= "\\$del";
1160 return $del . $res . ( $led ? $led : $del );
1168 my( $del, $subst, $fl ) = @_;
1169 my $led = $del;
1171 $led = '' if $led eq $del;
1186 if( $nc =~ /[\\$del$led]/ ){ ## \ and delimiter
1204 return ( $led ? $del : $led ) . $res . ( $led ? $led : $del );
1244 my $del = $1;
1245 my $regex = stripRegex( $del, \$cmd );
1247 $addr1 = 'm '.bre2p( $del, $regex, $fl ).'s';
1261 my $del = $1;
1262 my $regex = stripRegex( $del, \$cmd );
1264 $addr2 = 'm '. bre2p( $del, $regex, $fl ).'s';
1349 my $del = $1;
1350 my $regex = stripRegex( $del, \$cmd );
1356 $regex = bre2p( $del, $regex, $fl );
1370 my $subst = stripRegex( $del, \$cmd );
1376 $subst = sub2p( $del, $subst, $fl );