OpenGrok

23 my @nesting;
25 push @nesting, 1;
31 	    push @nesting, 1;
33 	    push @nesting, 0;
39 	    push @nesting, 0;
41 	    push @nesting, 1;
45 	my $var = pop @nesting;
47 	push @nesting, $var;
49     } elsif ($nesting[$#nesting] and m/\s*#define\s+(\w+)\s+(\S+)/) {
76 @nesting = (1);
82 	    push @nesting, 1;
84 	    push @nesting, 0;
90 	    push @nesting, 0;
92 	    push @nesting, 1;
98 	push @nesting, $res;
101 	my $res = pop @nesting;
107 	push @nesting, $res;
110 	my $var = pop @nesting;
112 	push @nesting, $var;
115 	pop @nesting;
119     print "nesting dep $#{nesting}\n"  if ($debug);
121     while ($i le $#nesting) {
122 	$t = 0 if ($nesting[$i] le 0);
123 	print "nesting $i val $nesting[$i] -> $t\n" if ($debug);

Indexes created Wed Apr 08 00:23:23 UTC 2026