Lines Matching refs:level
104 my $level=0;
108 my @dbgargs = \($level, %state, %if, $line);
110 my $level = ${$_[1][0]};
111 printf STDERR ("/* BP %4d $_[0] state=$_[1][1]->{$level} if=$_[1][2]->{$level} level=$level (${$_[1][3]}) */\n", $.) if $DEBUG;
126 $state{$level} = "ifother";
127 $if{$level} = 1;
130 $level++;
135 $state{$level} = 'if';
136 $if{$level} = ($1 eq 'n') ? !$defs{$2} : $defs{$2};
138 $level++;
141 $state{$level} = "ifother";
142 $if{$level} = 1;
144 $level++;
150 $state{$level} = 'if';
151 $if{$level} = $res;
153 $level++;
156 $state{$level} = 'ifother';
157 $if{$level} = 1;
159 $level++;
165 $level--;
166 $level < 0 and die "more elifs than ifs";
167 $state{$level} =~ /if/ or die "unmatched elif";
169 if ($state{$level} eq 'if' && !$if{$level}) {
172 $state{$level} = 'if';
173 $if{$level} = $res;
175 $level++;
177 } elsif ($state{$level} ne 'ifother') {
178 $if{$level} = 0;
179 $state{$level} = 'elif';
181 $level++;
184 $level++;
187 $level--;
188 $level < 0 and die "more elses than ifs";
189 $state{$level} =~ /if/ or die "unmatched else";
190 $if{$level} = !$if{$level} if ($state{$level} eq 'if');
191 $state{$level} =~ s/^if/else/o; # if -> else, ifother -> elseother, elif -> elif
193 $level++;
194 next if $state{$level-1} !~ /other$/o;
197 $level--;
198 $level < 0 and die "more endifs than ifs";
200 next if $state{$level} !~ /other$/o;
204 for (my $i=0;$i<$level;$i++) {