Lines Matching refs:exp
111 my @exp = ();
115 push @exp, 0;
117 push @exp, $c;
121 push @exp, 0;
123 return @exp;
129 my @exp = expand shift;
134 $pat1 = join ('', map { $_ =~ /\d/ ? () : $_ } @exp);
142 if ($subexp[$j] > $exp[2 * $i + $j]) {
143 $exp[2 * $i + $j] = $subexp[$j];
155 return join ('', map { $_ eq '0' ? () : $_ } @exp);
