Lines Matching refs:state
42 my $state = "initial";
423 if ($state eq "initial") {
425 $state = "funcunit";
427 $state = "desc";
433 } elsif ($state eq "desc") {
435 $state = "funcunit";
439 if (!($keyword =~ /$state/)) {
441 "`$state'");
443 $state = $keyword; # disambiguate between multiple legal states
445 if (!defined $stateparse{$state}) {
446 &parsebail("attempt to transition to invalid state `$state'");
449 my ($handler, $next) = @{$stateparse{$state}};
453 $state = $next;
455 if ($state eq "initial") {
462 if ($state ne "initial" && $state ne "desc") {