Lines Matching full:subpat
72 $subpat = substr ($pat, $i, $j);
73 if (defined $pattab{$subpat}) {
74 print "$pattab{$subpat} is embedded in $pattab{$pat}\n";
78 substr ($pat, 0, $i).$pattab{$subpat};
80 print "$ss+$pattab{$subpat}\n";
82 if (defined $repltab{$subpat}) {
83 $begcorr = (($pat =~ /^[.]/) && !($subpat =~ /^[.]/)) ? 1 : 0;
84 $newrepltab{$newpat} = $repltab{$subpat};
85 $newreplbeg{$newpat} = $replbeg{$subpat} + enclen($ss) - $begcorr;
86 $newrepllen{$newpat} = $repllen{$subpat};
91 combine ($newpattab{$newpat}, $pattab{$subpat});
92 print "$tmp + $pattab{$subpat} -> $newpattab{$newpat}\n";
140 if (substr ($pat1, $i, length $pat2) eq $subpat) {
