Lines Matching refs:possible
1248 sub possible { subroutine
1249 my ($possible, $line) = @_;
1268 warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
1269 if ($possible !~ $notPermitted) {
1271 $possible =~ s/\s*$Storage\s*//g;
1272 $possible =~ s/\s*$Sparse\s*//g;
1273 if ($possible =~ /^\s*$/) {
1275 } elsif ($possible =~ /\s/) {
1276 $possible =~ s/\s*(?:$Type|\#\#)\s*//g;
1277 for my $modifier (split(' ', $possible)) {
1279 warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
1285 warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
1286 push(@typeList, $possible);
1290 warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
1976 possible($type, "A:" . $s);
1980 possible($1, "B:" . $s);
1985 possible($1, "C:" . $s);
2001 possible($1, "D:" . $s);