Lines Matching refs:possible
1624 sub possible { subroutine
1625 my ($possible, $line) = @_;
1645 warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
1646 if ($possible !~ $notPermitted) {
1648 $possible =~ s/\s*$Storage\s*//g;
1649 $possible =~ s/\s*$Sparse\s*//g;
1650 if ($possible =~ /^\s*$/) {
1652 } elsif ($possible =~ /\s/) {
1653 $possible =~ s/\s*$Type\s*//g;
1654 for my $modifier (split(' ', $possible)) {
1656 warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
1662 warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
1663 push(@typeListFile, $possible);
1667 warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
2999 possible($type, "A:" . $s);
3003 possible($1, "B:" . $s);
3008 possible($1, "C:" . $s);
3024 possible($1, "D:" . $s);