Lines Matching refs:pat
88 local($pat,$arg) = @_;
90 if ($pat eq 'p') {
92 } elsif ($pat eq 'n' || $pat eq 'N') {
94 $num = ($pat eq 'N') ? 2 : 1;
96 } elsif ($pat eq 'c' || $pat eq 'C') {
99 if (($pat eq 'c' && $arg =~ /^\*([^*?]*)$/)) {
105 $let = ($pat eq 'c') ? 's' : 'S';
258 ($pat,$arg,$type,$suffix) = @split;
269 $pat = &getpat($pat,$arg);
273 if ($pat eq 'p[0]') {
281 $pat = $c . "[0,${defmatch}]";
283 $pat = ($defmatch =~ /[*?]/) ?
287 "'$pat' $type -S '$suffix'" : "'$pat' $type");
289 } elsif ($pat eq "C[-1,*]") {
296 $pat = "W[0,$defmatch]";
298 "'$pat' $type -S '$suffix'" : "'$pat' $type");
303 ($defmatch eq '*') || ($pat = "W[0,$defmatch] $pat");
305 "'$pat' $type -S '$suffix'" : "'$pat' $type");
310 "'$pat' $type -S '$suffix'" : "'$pat' $type");