Lines Matching refs:possible

1260 sub possible {  subroutine
1261 	my ($possible, $line) = @_;
1280 	warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
1281 	if ($possible !~ $notPermitted) {
1283 		$possible =~ s/\s*$Storage\s*//g;
1284 		$possible =~ s/\s*$Sparse\s*//g;
1285 		if ($possible =~ /^\s*$/) {
1287 		} elsif ($possible =~ /\s/) {
1288 			$possible =~ s/\s*(?:$Type|\#\#)\s*//g;
1289 			for my $modifier (split(' ', $possible)) {
1291 					warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
1297 			warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
1298 			push(@typeList, $possible);
1302 		warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
2092 				possible($type, "A:" . $s);
2096 				possible($1, "B:" . $s);
2101 				possible($1, "C:" . $s);
2117 						possible($1, "D:" . $s);