Lines Matching refs:possible
1042 sub possible { subroutine
1043 my ($possible, $line) = @_;
1061 warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
1062 if ($possible !~ $notPermitted) {
1064 $possible =~ s/\s*$Storage\s*//g;
1065 $possible =~ s/\s*$Sparse\s*//g;
1066 if ($possible =~ /^\s*$/) {
1068 } elsif ($possible =~ /\s/) {
1069 $possible =~ s/\s*$Type\s*//g;
1070 for my $modifier (split(' ', $possible)) {
1072 warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
1078 warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
1079 push(@typeList, $possible);
1083 warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
1572 possible($type, "A:" . $s);
1576 possible($1, "B:" . $s);
1581 possible($1, "C:" . $s);
1597 possible($1, "D:" . $s);