| line |
true |
false |
branch |
|
776
|
0 |
0 |
if /: *(\S+)/ |
|
1036
|
43 |
0 |
if ($value) |
|
1037
|
1 |
42 |
if (exists $this->{'_cache'}{$name}) |
|
1039
|
1 |
0 |
if ($existing != $value) |
|
1042
|
0 |
1 |
if $CORBA::IDLtree::verbose |
|
1059
|
66 |
311 |
if (exists $this->{'_cache'}{$name}) |
|
1129
|
0 |
0 |
if (-e $fqn) |
|
1149
|
34 |
6100 |
if ($in_string) { } |
|
|
3 |
6097 |
elsif ($ch eq '"') { } |
|
|
6 |
6091 |
elsif ($ch eq q[']) { } |
|
|
4921 |
1170 |
elsif ($ch =~ /[a-z_0-9\.]/i) { } |
|
|
694 |
476 |
elsif ($in_lit) { } |
|
|
247 |
229 |
elsif (not $ch =~ /\s/) { } |
|
1151
|
3 |
31 |
if ($ch eq '"' and substr($str, $i - 1, 1) ne '\\') |
|
1159
|
0 |
6 |
if ($endx < $i + 2) |
|
1167
|
694 |
4227 |
unless ($in_lit) |
|
1175
|
0 |
694 |
if (exists $active_defines{$out[$ondx]}) |
|
1177
|
0 |
0 |
if ("$value" ne '') |
|
1184
|
236 |
458 |
unless ($ch =~ /\s/) |
|
1191
|
0 |
224 |
if ($in_lit) |
|
1193
|
0 |
0 |
if (exists $active_defines{$out[$ondx]}) |
|
1195
|
0 |
0 |
if ("$value" ne '') |
|
1212
|
30 |
921 |
if ($out[$i] eq 'long') { } |
|
|
1 |
920 |
elsif ($out[$i] eq 'unsigned') { } |
|
|
0 |
920 |
elsif ($out[$i] eq ':' and $out[$i + 1] eq ':') { } |
|
|
0 |
1840 |
elsif ($out[$i] eq '-' and $out[$i + 1] =~ /^\d/) { } |
|
1213
|
0 |
30 |
if ($out[$i + 1] eq 'double' and not $CORBA::IDLtree::long_double_supported) |
|
1216
|
10 |
20 |
if ($out[$i + 1] eq 'long' or $out[$i + 1] eq 'double') |
|
1221
|
1 |
0 |
if ($out[$i + 1] eq 'short' or $out[$i + 1] eq 'long') |
|
1224
|
0 |
1 |
if ($out[$i + 1] eq 'long') |
|
1236
|
0 |
0 |
unless ($i < $#out - 1 and $out[$i + 2] eq ':') |
|
1238
|
0 |
0 |
if ($i > 0) |
|
1240
|
0 |
0 |
if ($prev =~ /\w$/ and not exists $keywords{$prev}) |
|
1241
|
0 |
0 |
if ($out[$i - 1] eq 'CORBA') { } |
|
1255
|
0 |
0 |
if ($i == 0 or $out[$i - 1] eq '(' or $out[$i - 1] eq '=' or $in_preprocessor) |
|
1262
|
0 |
0 |
if ($out[$i] =~ /^[\-\d][\d\.]*e$/i and $out[$i + 1] eq '+' || $out[$i + 1] eq '-') |
|
1271
|
0 |
24 |
if ($out[$i] =~ /^w?string$/ and ($out[$i + 1] eq '<' and $out[$i + 3] eq '>')) |
|
1286
|
0 |
17 |
unless (defined $tdesc) |
|
1292
|
0 |
17 |
if (@_) |
|
1296
|
17 |
0 |
if ($tdesc >= 1 and $tdesc <= 18) { } |
|
|
0 |
0 |
elsif ($recurse_into_typedef and isnode($tdesc) and $tdesc->[0] == 24) { } |
|
1307
|
0 |
0 |
unless ($dimref and @{$dimref;}) |
|
1319
|
111 |
6404 |
if ($idltype eq $predef_types[$i]) |
|
1320
|
0 |
111 |
if ($CORBA::IDLtree::string_bound and $idltype =~ /^w?string$/) { } |
|
1328
|
0 |
110 |
if ($idltype =~ /^(w?string)\s*<(\d+)\s*>/) |
|
1330
|
0 |
0 |
$1 eq 'wstring' ? : |
|
1340
|
0 |
185 |
if (not $name =~ /^[a-z_:]/i or $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed) |
|
1349
|
81 |
88 |
if (@_) |
|
1352
|
0 |
169 |
unless (is_valid_identifier($name)) |
|
1353
|
0 |
0 |
unless ($name =~ /^w?string<.*>$/) |
|
1357
|
0 |
169 |
if (exists $keywords{lc $name}) |
|
1358
|
0 |
0 |
if ($CORBA::IDLtree::permissive) { } |
|
1366
|
169 |
0 |
unless ($CORBA::IDLtree::leading_underscore_allowed > 1) |
|
1375
|
13 |
0 |
if (@_) |
|
1378
|
0 |
13 |
unless (is_valid_identifier($name)) |
|
1379
|
0 |
0 |
unless ($name =~ /^w?string<.*>$/) |
|
1384
|
0 |
13 |
ref $pt ? : |
|
|
13 |
0 |
if ((ref $pt ? $pt->[0] : $pt) < 24) |
|
1388
|
0 |
0 |
if (exists $keywords{lc $name}) |
|
1389
|
0 |
0 |
if ($CORBA::IDLtree::permissive) { } |
|
1406
|
5 |
140 |
$#scopestack < 0 ? : |
|
1411
|
0 |
183 |
if (@annotations) |
|
1420
|
0 |
236 |
if (@post_comment) |
|
1431
|
0 |
8 |
if (shift @{$argref;} ne '<') |
|
1437
|
3 |
5 |
if (not $type) { } |
|
|
0 |
5 |
elsif ($type == 22) { } |
|
1439
|
0 |
3 |
unless ($type) |
|
1448
|
2 |
6 |
if ($nxtarg eq ',') |
|
1452
|
0 |
8 |
if ($nxtarg ne '>') |
|
1463
|
0 |
88 |
if ($typename eq 'fixed') { } |
|
|
0 |
88 |
elsif ($typename =~ /^(w?string)<([\w:]+)>$/) { } |
|
|
8 |
80 |
elsif ($typename eq 'sequence') { } |
|
1464
|
0 |
0 |
if (shift @{$argref;} ne '<') |
|
1469
|
0 |
0 |
if ($digits =~ /\D/) |
|
1473
|
0 |
0 |
if (shift @{$argref;} ne ',') |
|
1478
|
0 |
0 |
if ($scale =~ /\D/) |
|
1482
|
0 |
0 |
if (shift @{$argref;} ne '>') |
|
1490
|
0 |
0 |
$1 eq 'wstring' ? : |
|
1492
|
0 |
0 |
unless ($bound =~ /^\d/) |
|
1494
|
0 |
0 |
if (isnode($boundtype)) { } |
|
1496
|
0 |
0 |
if ($node[0] == 31) { } |
|
1499
|
0 |
0 |
if (scalar @expr > 1 or not $expr[0] =~ /^\d/) |
|
1538
|
30 |
0 |
if (ref $structref_or_vt_access) { } |
|
1545
|
0 |
30 |
if ($first_thing eq '}') |
|
1549
|
0 |
30 |
unless ($component_type) |
|
1553
|
0 |
30 |
if (&in_annotation_def()) |
|
1556
|
0 |
0 |
if (@arg) |
|
1558
|
0 |
0 |
if ($next eq 'default') |
|
1563
|
0 |
0 |
if (@arg) |
|
1565
|
0 |
0 |
unless ($next eq ';') |
|
1572
|
0 |
30 |
unless (is_type($component_type)) |
|
1578
|
0 |
30 |
if $component_name eq '}' |
|
1584
|
0 |
13 |
if ($nxtarg eq '[') { } |
|
|
13 |
0 |
elsif ($nxtarg eq ',' or $nxtarg eq ';') { } |
|
1586
|
0 |
0 |
if (shift @arg ne ']') |
|
1599
|
0 |
30 |
if (@dimensions) |
|
1601
|
0 |
0 |
unless ($CORBA::IDLtree::permissive) |
|
1607
|
0 |
30 |
if ($value_member_flag) { } |
|
1610
|
0 |
0 |
if (isnode($type) and $type->[1] eq $component_name) |
|
1617
|
15 |
98 |
unless ref $_ |
|
1618
|
53 |
45 |
if $_->[0] == 28 or $_->[0] == 29 |
|
1619
|
0 |
45 |
if ($_->[0] != 48 and $_->[1] eq $component_name) |
|
1625
|
0 |
30 |
if ($name_found) |
|
1629
|
15 |
15 |
unless (defined $comment) |
|
1634
|
0 |
30 |
if ($value_member_flag) { } |
|
1639
|
13 |
17 |
if $nxtarg eq ';' |
|
1691
|
0 |
0 |
if (@_) { } |
|
1699
|
0 |
1 |
if (not $did_emucppmsg and $verbose) |
|
1712
|
0 |
0 |
if ($symbol eq 'defined') { } |
|
|
0 |
0 |
elsif ($symbol =~ /^[A-z]/) { } |
|
|
0 |
0 |
elsif (not $symbol =~ /^\d+$/) { } |
|
1715
|
0 |
0 |
if ($#arg > 0) |
|
1733
|
0 |
0 |
unless /^\s*#/ |
|
1738
|
0 |
0 |
if ($count == 0) |
|
1739
|
0 |
0 |
if ($directive eq 'else' or $directive eq 'endif') |
|
1742
|
0 |
0 |
if ($directive eq 'elif') |
|
1743
|
0 |
0 |
if (eval_preproc_expr(@arg)) |
|
1749
|
0 |
0 |
if ($directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef') { } |
|
|
0 |
0 |
elsif ($directive eq 'endif') { } |
|
1755
|
0 |
0 |
if ($count <= 0) |
|
1768
|
2 |
227 |
if (@global_items) |
|
1787
|
303 |
0 |
unless ($locale) |
|
1790
|
43 |
260 |
if ($l =~ /^\s*$/) |
|
1791
|
0 |
43 |
if ($in_comment) |
|
1792
|
0 |
0 |
if ($seen_token) { } |
|
1800
|
21 |
239 |
if ($in_comment) |
|
1801
|
0 |
21 |
if ($l =~ m[/\*]) |
|
1804
|
1 |
20 |
if ($l =~ m[\*/]) { } |
|
1811
|
0 |
1 |
if ($seen_token) { } |
|
1818
|
0 |
1 |
if ($seen_token) |
|
1819
|
0 |
0 |
unless ($l =~ /^\s*$/) |
|
1824
|
1 |
0 |
if $l =~ /^\s*$/ |
|
1826
|
0 |
20 |
if ($seen_token) { } |
|
1834
|
10 |
229 |
if ($l =~ m[^\s*//(.*)]) |
|
1836
|
6 |
4 |
unless (@remark) |
|
1846
|
0 |
1 |
if ($cend > 0) { } |
|
1870
|
0 |
1 |
unless (defined $line_number[$currfile]) |
|
1873
|
1 |
0 |
if ($l =~ /^\s*$/) { } |
|
1882
|
0 |
228 |
if ($l =~ m[//(.*)$]) |
|
1884
|
0 |
0 |
unless ($cmnt =~ /^\s*$/) |
|
1885
|
0 |
0 |
unless (defined $line_number[$currfile]) |
|
1895
|
224 |
4 |
if ($first) { } |
|
1901
|
222 |
4 |
if ($line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/ or $line =~ /[;,":{]$/) |
|
1905
|
224 |
0 |
unless $in_comment |
|
1908
|
0 |
227 |
if ($in_comment) |
|
1912
|
3 |
224 |
unless ($line) |
|
1918
|
222 |
2 |
if ($tmp[0] ne '#') |
|
1923
|
0 |
2 |
if ($directive eq 'if' or $directive eq 'elif') { } |
|
|
0 |
2 |
elsif ($directive eq 'ifdef') { } |
|
|
0 |
2 |
elsif ($directive eq 'ifndef') { } |
|
|
0 |
2 |
elsif ($directive eq 'define') { } |
|
|
0 |
2 |
elsif ($directive eq 'undef') { } |
|
|
0 |
2 |
elsif ($directive eq 'else') { } |
|
|
0 |
2 |
elsif ($directive eq 'endif') { } |
|
1925
|
0 |
0 |
unless eval_preproc_expr(@tmp) |
|
1930
|
0 |
0 |
unless $symbol =~ /^\d/ |
|
1935
|
0 |
0 |
if $symbol =~ /^\d/ |
|
1941
|
0 |
0 |
if (@tmp) |
|
1943
|
0 |
0 |
if $verbose |
|
1945
|
0 |
0 |
if (exists $active_defines{$symbol} and $value ne $active_defines{$symbol}) |
|
1947
|
0 |
0 |
if ($CORBA::IDLtree::cache_trees) { } |
|
1959
|
0 |
0 |
if (exists $active_defines{$symbol}) |
|
1960
|
0 |
0 |
if ($CORBA::IDLtree::cache_trees) |
|
1995
|
2 |
0 |
if (@parts == 0) |
|
1997
|
0 |
2 |
if (not $refscope and $p eq '') |
|
2003
|
2 |
0 |
if $scope == $s |
|
2014
|
0 |
0 |
if $is_abs |
|
2017
|
0 |
0 |
if join('::', @parts) eq $p |
|
2019
|
0 |
0 |
unless ($is_abs) |
|
2022
|
0 |
0 |
if join('::', (@anc, @parts)) eq $p |
|
2037
|
0 |
6 |
unless (ref $enum_subordinate) |
|
2043
|
0 |
21 |
unless (ref $elem eq 'ARRAY') |
|
2048
|
0 |
21 |
if $elem->[0] =~ /^\d/ |
|
2061
|
2 |
0 |
unless defined $refscope |
|
2067
|
2 |
0 |
if (defined $s) |
|
2069
|
2 |
2 |
if $_ eq $e |
|
2079
|
1 |
16 |
if ($case->[0] == 29) { } |
|
2081
|
1 |
2 |
if $i++ == 0 |
|
2082
|
0 |
2 |
if ($_->[0] == 29) |
|
2090
|
2 |
14 |
if (is_a($type, 23)) { } |
|
|
2 |
12 |
elsif (is_a($type, 1)) { } |
|
|
4 |
8 |
elsif (is_a($type, 3)) { } |
|
2093
|
0 |
2 |
unless (check_enum_literal($type, $c)) |
|
2100
|
0 |
2 |
unless ($c eq 'TRUE' or $c eq 'FALSE') |
|
2107
|
0 |
5 |
unless ($c =~ /^'.*'$/ or $c =~ /^\d+$/) |
|
2115
|
0 |
9 |
unless ($c =~ /^[-+]?\d+$/) |
|
2117
|
0 |
0 |
unless ($resolved_const =~ /^[-+]?\d+$/) |
|
2125
|
16 |
70 |
if $i++ == 0 |
|
2126
|
41 |
29 |
unless $_->[0] == 28 |
|
2129
|
0 |
38 |
if ($c eq $_) |
|
2143
|
0 |
2 |
if ($CORBA::IDLtree::cache_trees) { } |
|
2145
|
0 |
0 |
if ($incfile_contents_ref) |
|
2165
|
1 |
1 |
unless ($locale_was_determined) |
|
2167
|
0 |
3 |
if (exists $ENV{$env}) |
|
2169
|
0 |
0 |
if ($lang and $lang ne 'C') |
|
2178
|
0 |
2 |
if ($CORBA::IDLtree::cache_statistics) |
|
2182
|
0 |
2 |
if ($res and not @$res) { } |
|
|
0 |
2 |
elsif ($CORBA::IDLtree::cache_trees) { } |
|
2199
|
0 |
0 |
unless $node->[0] == 26 |
|
2204
|
0 |
0 |
if ($membertype == 48) { } |
|
2207
|
0 |
0 |
if (isnode($membertype) and $membertype->[0] == 20 || $membertype->[0] == 21) |
|
2240
|
0 |
0 |
unless (defined $index) |
|
2248
|
0 |
0 |
if (@adef) |
|
2250
|
0 |
0 |
unless ($argref and @$argref) |
|
2257
|
0 |
0 |
if (@$argref and $argref->[0] eq '(') |
|
2258
|
0 |
0 |
unless (@adef) |
|
2267
|
0 |
0 |
if ($val eq ')') |
|
2271
|
0 |
0 |
if $val eq ',' |
|
2272
|
0 |
0 |
if ($val =~ /^[a-z]/i and $argref->[0] eq '=') { } |
|
2275
|
0 |
0 |
unless (@$argref) |
|
2281
|
0 |
0 |
if ($adef[$ai][1] eq $parname) |
|
2286
|
0 |
0 |
unless (defined $param_index) |
|
2292
|
0 |
0 |
if (exists $annoEnum{$type}) |
|
2294
|
0 |
0 |
unless (grep {$_ eq $val;} @{$enumvalues;}) |
|
2302
|
0 |
0 |
if (exists $annoEnum{$type}) |
|
2304
|
0 |
0 |
unless (grep {$_ eq $val;} @{$enumvalues;}) |
|
2314
|
0 |
0 |
unless ($closing_parenth_seen) |
|
2319
|
0 |
0 |
if (@adef) |
|
2321
|
0 |
0 |
unless (defined $anargs[$i]) |
|
2324
|
0 |
0 |
if (defined $default) { } |
|
2336
|
0 |
0 |
if (@$argref) |
|
2345
|
0 |
97 |
if ($in_valuetype and not $CORBA::IDLtree::vt2struct) { } |
|
2365
|
3 |
19 |
if ($file) { } |
|
|
19 |
0 |
elsif ("$input_filehandle") { } |
|
2366
|
0 |
3 |
unless -e "$file" |
|
2374
|
0 |
3 |
unless ($emucpp) |
|
2378
|
0 |
0 |
if (locate_executable('cpp')) { } |
|
|
0 |
0 |
elsif (locate_executable('gcc')) { } |
|
2386
|
3 |
0 |
if ($emucpp) { } |
|
2387
|
0 |
3 |
unless open $in, $file |
|
2396
|
0 |
0 |
unless open $in, "$cppcmd $cpp_args $file |" |
|
2399
|
0 |
3 |
if $verbose |
|
2406
|
20 |
2 |
if ($symb) { } |
|
2416
|
0 |
201 |
if ($verbose > 1) |
|
2420
|
0 |
201 |
if ($CORBA::IDLtree::enable_comments and @remark) |
|
2422
|
0 |
0 |
if (@typestack) { } |
|
2433
|
2 |
199 |
if ($kw eq '#') { } |
|
|
0 |
199 |
elsif ($kw eq '@') { } |
|
|
34 |
165 |
elsif ($kw eq '}') { } |
|
|
3 |
162 |
elsif ($kw eq 'module') { } |
|
|
30 |
132 |
elsif ($kw eq 'interface') { } |
|
|
0 |
132 |
elsif ($kw eq 'local') { } |
|
|
0 |
132 |
elsif ($kw eq 'abstract') { } |
|
|
0 |
132 |
elsif ($kw eq 'custom') { } |
|
|
0 |
132 |
elsif ($kw eq 'valuetype') { } |
|
|
0 |
132 |
elsif ($kw eq 'public' or $kw eq 'private') { } |
|
|
10 |
122 |
elsif ($kw eq 'struct' or $kw eq 'exception') { } |
|
|
5 |
117 |
elsif ($kw eq 'union') { } |
|
|
17 |
100 |
elsif ($kw eq 'case' or $kw eq 'default') { } |
|
|
3 |
97 |
elsif ($kw eq 'enum') { } |
|
2435
|
1 |
1 |
if ($directive eq 'pragma') { } |
|
|
1 |
0 |
elsif ($directive eq 'include') { } |
|
|
0 |
0 |
elsif ($directive =~ /^\d/) { } |
|
|
0 |
0 |
elsif ($directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef' or $directive eq 'elif' or $directive eq 'else' or $directive eq 'endif' or $directive eq 'define' or $directive eq 'undef') { } |
|
2438
|
1 |
0 |
if ($directive eq 'prefix') { } |
|
|
0 |
0 |
elsif ($directive eq 'version') { } |
|
|
0 |
0 |
elsif (uc $directive eq 'ID') { } |
|
2440
|
0 |
1 |
if (substr($prefix, 0, 1) ne '"') { } |
|
2444
|
0 |
1 |
if (substr($prefix, length($prefix) - 1) ne '"') { } |
|
2471
|
0 |
1 |
if ($filename eq '<') |
|
2477
|
0 |
0 |
if ($t eq '>') |
|
2484
|
0 |
1 |
if (substr($filename, 0, 1) ne '"') { } |
|
2488
|
0 |
1 |
if (substr($filename, length($filename) - 1) ne '"') { } |
|
2496
|
1 |
0 |
unless (-e "$filename") |
|
2499
|
1 |
0 |
if (-e "$_/$filename") |
|
2506
|
0 |
1 |
unless $found |
|
2508
|
0 |
1 |
if (@typestack or @scopestack) |
|
2513
|
0 |
1 |
if ($incfile_contents_ref) { } |
|
2525
|
0 |
1 |
unless Parse_File_i($filename, undef, $incfile_contents_ref) |
|
2529
|
1 |
0 |
if $in_global_scope |
|
2531
|
0 |
1 |
unless ($in_global_scope) |
|
2549
|
0 |
0 |
if ($filename eq $infilename[$currfile]) |
|
2556
|
0 |
0 |
if ($filename eq $infilename[$i]) |
|
2563
|
0 |
0 |
if $seen_file |
|
2569
|
0 |
0 |
unless $incfile_contents_ref |
|
2593
|
0 |
0 |
if ($ann eq 'annotation') { } |
|
2597
|
0 |
0 |
if (shift @arg ne '{') |
|
2602
|
0 |
0 |
if (@arg) |
|
2603
|
0 |
0 |
if ($arg[0] eq '}' or parse_members($symbols, \@arg, \@struct) == 1) |
|
2618
|
0 |
34 |
if (shift @arg ne ';') |
|
2621
|
19 |
15 |
unless (@typestack) |
|
2622
|
19 |
0 |
if (@scopestack) { } |
|
2629
|
0 |
15 |
if ($in_valuetype) |
|
2633
|
0 |
15 |
if (&in_annotation_def()) |
|
2644
|
1 |
14 |
if ($type == 27 and is_a($struct[0], 23)) |
|
2649
|
1 |
0 |
unless ($maybe_dflt->[0] == 29) |
|
2654
|
2 |
3 |
if ($umember->[0] == 28) |
|
2663
|
0 |
3 |
ref $_ ? : |
|
2664
|
1 |
2 |
if (defined $lit and not defined $lits_given{$lit}) |
|
2672
|
0 |
15 |
if ($CORBA::IDLtree::struct2vt and $type == 26) |
|
2681
|
0 |
3 |
if shift @arg ne '{' |
|
2690
|
1 |
2 |
if ($module) |
|
2701
|
0 |
3 |
unless Parse_File_i('', $in, $subord) |
|
2702
|
0 |
3 |
unless ($module) |
|
2711
|
14 |
16 |
if ($lasttok eq ';') { } |
|
|
0 |
16 |
elsif ($lasttok ne '{') { } |
|
2717
|
0 |
0 |
unless (require_end_of_stmt(\@arg, $in, '{')) |
|
2723
|
14 |
2 |
if ($fwd) |
|
2724
|
0 |
14 |
if ($fwd->[0] != 34) |
|
2731
|
5 |
11 |
if (@arg) |
|
2732
|
0 |
5 |
if (shift @arg ne ':') { } |
|
|
0 |
5 |
elsif (not @arg) { } |
|
2743
|
0 |
6 |
unless ($ancestor_node) |
|
2748
|
1 |
5 |
if ($i < $#arg) |
|
2749
|
0 |
1 |
if ($arg[++$i] ne ',') |
|
2761
|
0 |
16 |
unless Parse_File_i('', $in, $subord) |
|
2783
|
0 |
0 |
if ($CORBA::IDLtree::vt2struct) { } |
|
2793
|
0 |
0 |
if ($nxttok eq ';') |
|
2800
|
0 |
0 |
if ($nxttok eq ':') |
|
2801
|
0 |
0 |
if (($nxttok = shift @arg) eq 'truncatable') |
|
2807
|
0 |
0 |
if (not isnode($anc_type) or $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36) { } |
|
2815
|
0 |
0 |
unless ($nxttok = shift @arg) eq ',' |
|
2820
|
0 |
0 |
if ($nxttok eq 'supports') |
|
2823
|
0 |
0 |
if (not $anc_type) { } |
|
|
0 |
0 |
elsif (not isnode($anc_type) or $anc_type->[0] != 33 or $anc_type->[0] != 34) { } |
|
2832
|
0 |
0 |
unless ($nxttok = shift @arg) eq ',' |
|
2836
|
0 |
0 |
if ($seen_ancestors) { } |
|
|
0 |
0 |
elsif (isname($nxttok)) { } |
|
|
0 |
0 |
elsif ($nxttok ne '{') { } |
|
2837
|
0 |
0 |
if ($nxttok ne '{') |
|
2844
|
0 |
0 |
if ($type) { } |
|
2856
|
0 |
0 |
if (ref $fwd and $fwd->[0] == 36) |
|
2860
|
0 |
0 |
unless ($CORBA::IDLtree::vt2struct) |
|
2866
|
0 |
0 |
unless Parse_File_i('', $in, $declarations, 1) |
|
2875
|
0 |
0 |
unless ($in_valuetype) |
|
2879
|
0 |
0 |
if ($abstract) |
|
2883
|
0 |
0 |
if ($CORBA::IDLtree::vt2struct) { } |
|
2884
|
0 |
0 |
if (parse_members($symbols, \@arg, \@struct) == 1) |
|
2895
|
0 |
0 |
if ($kw eq 'public') { } |
|
2900
|
0 |
0 |
if (parse_members($symbols, \@arg, $vt_access, $cmnt) == 1) |
|
2902
|
0 |
0 |
if (@scopestack) { } |
|
2914
|
8 |
2 |
$kw eq 'struct' ? : |
|
2923
|
0 |
10 |
if ($type == 26 and $nxt eq ':') |
|
2926
|
0 |
0 |
if (isnode($parent) and $parent->[0] == 26) { } |
|
2933
|
0 |
10 |
if ($nxt ne '{') |
|
2937
|
0 |
10 |
if (@arg) |
|
2938
|
0 |
0 |
if ($arg[0] eq '}' or parse_members($symbols, \@arg, \@struct, $cmnt) == 1) |
|
2942
|
0 |
0 |
if ($CORBA::IDLtree::struct2vt and $type == 26) |
|
2962
|
0 |
5 |
if (shift @arg ne 'switch') |
|
2966
|
0 |
5 |
if (shift @arg ne '(') |
|
2972
|
0 |
5 |
if (not $switchtype) { } |
|
|
1 |
4 |
elsif (isnode($switchtype)) { } |
|
|
0 |
4 |
elsif ($switchtype < 1 or $switchtype > 10) { } |
|
2977
|
0 |
1 |
if ($typ < 1 or $typ > 9 and $typ != 23 and $typ != 24) |
|
2986
|
0 |
5 |
if shift @arg ne ')' |
|
2987
|
0 |
5 |
if shift @arg ne '{' |
|
2988
|
0 |
5 |
if @arg |
|
2995
|
16 |
1 |
if ($kw eq 'case') { } |
|
2998
|
0 |
16 |
if (shift @arg ne ':') |
|
3002
|
4 |
12 |
unless @arg |
|
3003
|
12 |
0 |
unless $arg[0] eq 'case' |
|
3006
|
4 |
12 |
unless (@arg) |
|
3011
|
2 |
2 |
unless ($kw eq 'case') |
|
3017
|
2 |
0 |
if ($arg[$#arg] eq ';') |
|
3022
|
0 |
2 |
if (shift @arg ne ':') |
|
3026
|
0 |
2 |
unless @arg |
|
3027
|
2 |
0 |
unless $arg[0] eq 'case' |
|
3030
|
2 |
0 |
if @arg |
|
3035
|
0 |
1 |
if (shift @arg ne ':') |
|
3043
|
15 |
2 |
if (@arg) |
|
3044
|
0 |
15 |
if (parse_members($symbols, \@arg, \@struct) == 1) |
|
3046
|
0 |
0 |
if ($#typestack < 0) |
|
3054
|
0 |
0 |
if ($initial_cmnt) |
|
3055
|
0 |
0 |
if ($cmnt and $cmnt != $initial_cmnt) |
|
3060
|
0 |
0 |
if ($type != 27) |
|
3074
|
0 |
3 |
if (shift @arg ne '{') |
|
3080
|
1 |
2 |
unless @arg |
|
3083
|
0 |
12 |
if (&in_annotation_def()) { } |
|
3084
|
0 |
0 |
unless ($lit =~ /^\w+$/) |
|
3090
|
0 |
12 |
if ($CORBA::IDLtree::enable_comments and @remark) |
|
3095
|
0 |
12 |
if ($lit eq '@') { } |
|
3100
|
0 |
12 |
unless ($lit =~ /^\w+$/) |
|
3106
|
12 |
0 |
if (@arg) |
|
3108
|
3 |
9 |
if $nxt eq '}' |
|
3109
|
0 |
9 |
unless ($nxt eq ',') |
|
3115
|
4 |
5 |
unless @arg |
|
3117
|
0 |
3 |
if (&in_annotation_def()) { } |
|
3126
|
0 |
97 |
unless (require_end_of_stmt(\@arg, $in)) |
|
3131
|
0 |
97 |
if ($kw eq 'native') { } |
|
|
12 |
85 |
elsif ($kw eq 'const') { } |
|
|
13 |
72 |
elsif ($kw eq 'typedef') { } |
|
|
3 |
69 |
elsif ($kw eq 'readonly' or $kw eq 'attribute') { } |
|
|
54 |
15 |
elsif (grep /\(/, @arg) { } |
|
3139
|
0 |
12 |
if (shift @arg ne '=') |
|
3144
|
0 |
12 |
unless ($typething) |
|
3150
|
0 |
5 |
if /^\d/ or /^\.\d/ or /^-\d/ |
|
3151
|
2 |
3 |
if /^'.*'$/ or /^".*"$/ |
|
3152
|
3 |
0 |
if is_valid_identifier($_) |
|
3160
|
0 |
0 |
if ($arg eq $_) |
|
3165
|
0 |
0 |
if $is_operand |
|
3169
|
2 |
10 |
if (isnode($typething)) |
|
3171
|
0 |
2 |
if ($id < 23 or $id > 24) |
|
3183
|
0 |
13 |
unless ($existing_typenode) |
|
3190
|
0 |
7 |
if (shift @arg ne '[') |
|
3198
|
7 |
7 |
if $token eq ']' |
|
3199
|
0 |
7 |
if ($dim) |
|
3204
|
0 |
7 |
unless ($dim) |
|
3208
|
0 |
7 |
unless ($token eq ']') |
|
3220
|
1 |
2 |
if ($kw eq 'readonly') |
|
3221
|
0 |
1 |
if (shift @arg ne 'attribute') |
|
3229
|
0 |
3 |
unless ($type) |
|
3241
|
5 |
49 |
if ($kw eq 'oneway') { } |
|
|
7 |
42 |
elsif ($kw eq 'void') { } |
|
|
0 |
42 |
elsif ($in_valuetype and $kw eq 'factory') { } |
|
3242
|
0 |
5 |
if (shift @arg ne 'void') |
|
3253
|
0 |
42 |
unless ($rettype) |
|
3260
|
0 |
54 |
if (shift @arg ne '(') { } |
|
|
0 |
54 |
elsif (pop @arg ne ')') { } |
|
3273
|
1 |
77 |
if ($m eq ')') |
|
3274
|
0 |
1 |
if ($typename ne 'raises') { } |
|
|
0 |
1 |
elsif ($pname ne '(') { } |
|
3283
|
21 |
0 |
$m eq 'inout' ? : |
|
|
22 |
21 |
$m eq 'out' ? : |
|
|
34 |
43 |
$m eq 'in' ? : |
|
3286
|
0 |
77 |
unless ($pmode) |
|
3290
|
0 |
77 |
if ($rettype == 41 and $pmode != 1) |
|
3295
|
0 |
77 |
unless ($ptype) |
|
3302
|
46 |
31 |
if (@arg and $arg[0] eq ',') |
|
3307
|
1 |
53 |
if ($expecting_exception_list) |
|
3311
|
0 |
1 |
if (not $exc_type) { } |
|
|
0 |
1 |
elsif (do {
$exc_type
}->[0] != 30) { } |
|
3319
|
0 |
1 |
if (@arg and shift @arg ne ',') |
|
3325
|
0 |
54 |
if ($in_valuetype) { } |
|
3326
|
0 |
0 |
if (@exception_list) |
|
3336
|
0 |
15 |
if ($#typestack < 0) |
|
3340
|
2 |
13 |
if ($typestack[-1] == 27) |
|
3345
|
2 |
0 |
unless $struct[$i][0] == 48 |
|
3348
|
0 |
2 |
if ($i < 0 or $struct[$i][0] != 28 and $struct[$i][0] != 29) |
|
3353
|
0 |
15 |
if (parse_members($symbols, \@arg, \@struct, $cmnt) == 1) |
|
3357
|
0 |
0 |
if ($type == ANNOTATION()) { } |
|
3362
|
0 |
0 |
if ($initial_cmnt) |
|
3363
|
0 |
0 |
if ($cmnt and $cmnt != $initial_cmnt) |
|
3375
|
0 |
3 |
if ($verbose) |
|
3378
|
3 |
0 |
if ($file) |
|
3384
|
0 |
3 |
if ($CORBA::IDLtree::n_errors) |
|
3387
|
2 |
1 |
unless $symb |
|
3401
|
0 |
97 |
if (@_) |
|
3404
|
88 |
9 |
if ($$argref[$#$argref] eq $stmt_terminator) |
|
3410
|
0 |
16 |
unless @new_items = get_items($file) |
|
3413
|
9 |
0 |
if ($$argref[$#$argref] eq $stmt_terminator) |
|
3424
|
295 |
7337 |
unless ref $node_ref |
|
3425
|
155 |
7182 |
unless ref $node_ref eq 'ARRAY' and defined $node_ref->[0] |
|
3426
|
6834 |
348 |
if ($node_ref->[0] >= 1 and $node_ref->[0] < 49) |
|
3428
|
0 |
0 |
if (scalar @$node_ref == 5 and $verbose) |
|
3447
|
0 |
0 |
if (isnode($thing)) |
|
3458
|
13 |
17 |
if (isnode($thing)) { } |
|
3483
|
432 |
0 |
unless ($noderef->[0] == 43) |
|
3496
|
197 |
50 |
unless (grep {$_ eq $element;} @$targetlistref) |
|
3513
|
170 |
309 |
if (isnode($root)) { } |
|
3516
|
64 |
106 |
if ($type == 33) { } |
|
|
0 |
106 |
elsif ($type == 35) { } |
|
|
14 |
92 |
elsif ($type == 34) { } |
|
3523
|
0 |
14 |
unless (isnode($full_interface)) |
|
3528
|
0 |
0 |
if (defined $root->[1] and $root->[1] eq $first) |
|
3548
|
384 |
6354 |
unless isnode($node) |
|
3549
|
0 |
6354 |
if ($type == 35) |
|
3550
|
0 |
0 |
if $node->[0] |
|
3554
|
0 |
6354 |
unless (defined $nt) |
|
3558
|
1010 |
5344 |
if $nt == 48 or $nt == 42 or $nt == 38 |
|
3560
|
1 |
5343 |
if ($nt == 43) { } |
|
|
246 |
5097 |
elsif (defined $node->[1] and $node->[1] eq $first) { } |
|
3563
|
182 |
64 |
if (@parts == 0) { } |
|
3565
|
64 |
118 |
if ($nt == 34) |
|
3568
|
50 |
14 |
if (isnode($full_interface)) |
|
3576
|
247 |
5097 |
if (@r) |
|
3582
|
78 |
401 |
if (defined $anc and @parts == 0) |
|
3586
|
0 |
14 |
if (@r) |
|
3599
|
0 |
200 |
if ("$name" eq '') |
|
3605
|
0 |
200 |
if ($name =~ /^::/) |
|
3609
|
200 |
0 |
if ($name =~ /^CORBA::/ or not $name =~ /::/) |
|
3615
|
94 |
106 |
if ($predef_type_id) |
|
3620
|
0 |
106 |
if (&in_annotation_def()) |
|
3621
|
0 |
0 |
if (exists $annoEnum{$name}) |
|
3631
|
106 |
0 |
unless ($is_abs) |
|
3635
|
26 |
80 |
if defined $res |
|
3637
|
13 |
67 |
if (@r == 1) |
|
3645
|
67 |
0 |
if (@prev_symroots and $prev_symroots[-1] != $current_symtree_ref) |
|
3650
|
134 |
0 |
unless ($is_abs) |
|
3657
|
39 |
159 |
if ($res) |
|
3662
|
67 |
92 |
unless @sc |
|
3666
|
26 |
66 |
if (@r) |
|
3667
|
0 |
26 |
if (scalar @r > 1) |
|
3670
|
0 |
0 |
if (@r > 1) { } |
|
3693
|
0 |
69 |
if defined $res |
|
3695
|
0 |
69 |
if (@r) |
|
3696
|
0 |
0 |
if (scalar @r > 1) |
|
3699
|
0 |
0 |
if (@r > 1) { } |
|
3722
|
1 |
0 |
if ($currfile >= 0 and $currfile < scalar @infilename) { } |
|
3739
|
0 |
0 |
if ($currfile >= 0) |
|
3753
|
189 |
0 |
if (@_) |
|
3757
|
98 |
91 |
if (not ref $type and ($type >= 1 and $type < 49)) { } |
|
|
0 |
91 |
elsif (not isnode($type)) { } |
|
3759
|
98 |
0 |
if ($type <= 18) |
|
3770
|
91 |
0 |
if ($gen_scope) |
|
3774
|
0 |
91 |
if $scope[0] == 43 |
|
3776
|
91 |
0 |
unless ($prefix =~ /\b$new_prefix/) |
|
3781
|
91 |
0 |
if (ref $gen_scope) |
|
3785
|
28 |
63 |
if ($prefix eq "${curr_scope}::") |
|
3791
|
0 |
91 |
if ($node[0] == 19) { } |
|
|
0 |
91 |
elsif ($node[0] == 20 or $node[0] == 21) { } |
|
|
8 |
83 |
elsif ($node[0] == 22) { } |
|
3799
|
0 |
0 |
if ($node[0] == 21) |
|
3807
|
2 |
6 |
if ($bound) |
|
3820
|
0 |
47 |
unless ($type) |
|
3825
|
44 |
3 |
unless (isnode($type)) |
|
3826
|
44 |
0 |
if ($typeid > 0) { } |
|
3834
|
3 |
0 |
if ($typeid > 0) { } |
|
3835
|
3 |
0 |
if $type->[0] == $typeid |
|
3837
|
0 |
0 |
if scoped_name($type) eq $typeid |
|
3839
|
0 |
0 |
unless $type->[0] == 24 |
|
3847
|
0 |
0 |
if $dimref and @{$dimref;} |
|
3857
|
0 |
17 |
if (isnode($type) and $type->[0] == 24) |
|
3859
|
0 |
0 |
unless ($dimref and @{$dimref;}) |
|
3872
|
0 |
0 |
if (isnode($type) and $type->[0] == 24) |
|
3881
|
0 |
0 |
if (isnode($type)) |
|
3898
|
0 |
0 |
if (not $symroot) { } |
|
|
0 |
0 |
elsif (not ref $symroot) { } |
|
|
0 |
0 |
elsif (isnode($symroot)) { } |
|
3912
|
0 |
0 |
if ($type == 43) |
|
3924
|
0 |
0 |
if ($epos < 0) |
|
3927
|
0 |
0 |
if ($epos > 0) { } |
|
3939
|
0 |
0 |
if ($value =~ /^[-+]?(?:0x)?[0-9a-f]*$/i) |
|
3941
|
0 |
0 |
if ($is64bit) { } |
|
3943
|
0 |
0 |
if ($wantfloat) |
|
3951
|
0 |
0 |
if ($value =~ /^[-+]?0[0-7]/) { } |
|
3954
|
0 |
0 |
if ('Math::BigInt'->can('from_oct')) { } |
|
3960
|
0 |
0 |
if ($dg[0] eq '-' or $dg[0] eq '+' or $dg[0] eq '0') |
|
3962
|
0 |
0 |
if $c eq '-' |
|
3967
|
0 |
0 |
if ($c lt '0' or $c gt '7') |
|
3973
|
0 |
0 |
if $sg eq '-' |
|
3975
|
0 |
0 |
if ($v->is_nan) |
|
3980
|
0 |
0 |
if ($v->is_nan) |
|
3983
|
0 |
0 |
if ($wantfloat and not $v =~ /\./) |
|
3990
|
0 |
0 |
if ($value =~ /^[-+]?(?:\d+.?\d*|\.\d+)(?:[eE][+-]?\d+)?$/) |
|
3993
|
0 |
0 |
if ($wantfloat and not $res =~ /\./) |
|
3999
|
0 |
0 |
if (isnode($value)) |
|
4001
|
0 |
0 |
unless $value->[0] == 31 |
|
4010
|
0 |
0 |
if ($token =~ /^[a-z]/i) { } |
|
4013
|
0 |
0 |
if (defined $v) { } |
|
4023
|
0 |
0 |
if ($wantfloat and not $res =~ /\./) |
|
4030
|
0 |
0 |
if (@expr > 1) { } |
|
|
0 |
0 |
elsif ($expr[0] eq 'FALSE') { } |
|
|
0 |
0 |
elsif ($expr[0] eq 'TRUE') { } |
|
4032
|
0 |
0 |
$wantfloat ? : |
|
4044
|
0 |
0 |
if (isnode($node)) |
|
4058
|
0 |
0 |
if (@_) |
|
4061
|
0 |
0 |
unless defined $scoperef->[2] |
|
4066
|
0 |
0 |
if ($scopetype == 33) { } |
|
|
0 |
0 |
elsif ($scopetype == 35) { } |
|
4074
|
0 |
0 |
if ($scopetype == 35) |
|
4075
|
0 |
0 |
if $node->[0] |
|
4078
|
0 |
0 |
if (@$node > 1 and $node->[1] eq $name) |
|
4079
|
0 |
0 |
if ($must_be_scope_node and not is_scope($node)) { } |
|
4097
|
0 |
0 |
unless $currscope |
|
4098
|
0 |
0 |
unless (defined $currscope) |
|
4099
|
0 |
0 |
unless defined $global_symroot |
|
4104
|
0 |
0 |
if ($node->[0] == 43) { } |
|
|
0 |
0 |
elsif (is_scope($node) and $scopes[0] eq $node->[1]) { } |
|
4107
|
0 |
0 |
if $currscope |
|
4111
|
0 |
0 |
if (scalar @scopes > 1) { } |
|
4117
|
0 |
0 |
if ($currscope) |
|
4125
|
0 |
0 |
unless defined $currscope |
|
4128
|
0 |
0 |
if ($scopes[0] eq $currscope->[1]) |
|
4134
|
0 |
0 |
unless $currscope |
|
4141
|
0 |
0 |
if ($scope) |
|
4146
|
0 |
0 |
unless $scope |
|
4159
|
0 |
0 |
if defined $currscope |
|
4164
|
0 |
0 |
unless defined $scoperef |
|
4175
|
2 |
2 |
unless ref $scoperef |
|
4176
|
0 |
2 |
if $scoperef->[0] == 43 |
|
4190
|
0 |
0 |
if ($scopes[$i] eq $scopes[$i - 1]) |
|
4207
|
0 |
0 |
if $components[0] eq '' |
|
4209
|
0 |
0 |
if (scalar @components > 1) { } |
|
|
0 |
0 |
elsif (defined $scoperef and $scoperef != 0) { } |
|
4212
|
0 |
0 |
if (defined $scoperef) |
|
4219
|
0 |
0 |
if $noderef |
|
4222
|
0 |
0 |
if ($recurse and not $noderef) |
|
4225
|
0 |
0 |
if ($nodetype == 35) |
|
4230
|
0 |
0 |
if ($nodetype == 35) |
|
4231
|
0 |
0 |
if $n->[0] |
|
4235
|
0 |
0 |
unless $nt == 43 or $nt == 32 or $nt == 33 or $nt == 35 |
|
4238
|
0 |
0 |
if $noderef |
|
4243
|
0 |
0 |
if $_->[0] == 48 |
|
4244
|
0 |
0 |
if ($_->[1] eq $name) |
|
4245
|
0 |
0 |
if ($_->[0] == 34) |
|
4249
|
0 |
0 |
if defined $full_interface and @{$full_interface;} |
|
4258
|
0 |
0 |
if ($nt == 43 or $nt == 32 or $nt == 33 or $nt == 35) |
|
4261
|
0 |
0 |
if $noderef |
|
4271
|
0 |
0 |
if (@_) |
|
4275
|
0 |
0 |
unless (isnode($node)) |
|
4281
|
0 |
0 |
unless $sc->[0] == 43 or $sc->[1] eq $scopes[0] |
|
4301
|
0 |
944 |
if (defined $dsoptarg) { } |
|
4302
|
0 |
0 |
if (ref $dsoptarg) { } |
|
4314
|
191 |
91 |
if (@_) |
|
4321
|
46 |
0 |
unless $cmnt_ref |
|
4323
|
0 |
0 |
unless @cmnt |
|
4324
|
0 |
0 |
if (scalar @cmnt == 1) |
|
4345
|
0 |
135 |
unless ($sym_array_ref) |
|
4350
|
2 |
133 |
unless (isnode($sym_array_ref)) |
|
4352
|
0 |
4 |
unless (dump_symbols_internal($_)) |
|
4364
|
2 |
131 |
if ($type == 43 or $type == 44) |
|
4365
|
1 |
1 |
if ($type == 43) { } |
|
4374
|
3 |
128 |
if ($type == 38) { } |
|
|
54 |
74 |
elsif ($type == 42) { } |
|
|
0 |
74 |
elsif ($type == 35) { } |
|
|
18 |
56 |
elsif ($type == 32 or $type == 33) { } |
|
|
13 |
43 |
elsif ($type == 24) { } |
|
|
12 |
31 |
elsif ($type == 31) { } |
|
|
3 |
28 |
elsif ($type == 23) { } |
|
|
14 |
14 |
elsif ($type == 26 or $type == 27 or $type == 30) { } |
|
|
14 |
0 |
elsif ($type == 34) { } |
|
|
0 |
0 |
elsif ($type == 48) { } |
|
4376
|
1 |
2 |
if $arg[0] |
|
4381
|
5 |
49 |
if ($t == 39) { } |
|
|
7 |
42 |
elsif ($t == 40) { } |
|
4389
|
54 |
0 |
if (@arg) |
|
4391
|
0 |
54 |
unless (ref $lastarg eq 'ARRAY') |
|
4396
|
54 |
0 |
if (scalar @last != 3 or ref $last[1]) |
|
4401
|
31 |
23 |
if (@arg) |
|
4402
|
24 |
7 |
unless ($#arg == 0) |
|
4411
|
22 |
21 |
$m == &OUT ? : |
|
|
34 |
43 |
$m == &IN ? : |
|
4412
|
70 |
7 |
unless $#arg == 0 |
|
4414
|
46 |
31 |
if $i < $#arg |
|
4416
|
24 |
7 |
unless ($#arg == 0) |
|
4421
|
1 |
53 |
if (@exc_list) |
|
4427
|
0 |
1 |
if $i < $#exc_list |
|
4434
|
0 |
0 |
if ($arg[0]) |
|
4438
|
0 |
0 |
if ($arg[1]) |
|
4440
|
0 |
0 |
if ($truncatable) |
|
4443
|
0 |
0 |
if (@{$ancestors_ref;}) |
|
4447
|
0 |
0 |
if ($first) { } |
|
4461
|
0 |
0 |
if ($memberkind) { } |
|
4465
|
0 |
0 |
$memberkind == &PUBLIC ? : |
|
4468
|
0 |
0 |
unless (dump_symbols_internal($member)) |
|
4478
|
16 |
2 |
if ($type == 33) |
|
4479
|
0 |
16 |
if ($arg[1] == ABSTRACT()) { } |
|
|
0 |
16 |
elsif ($arg[1] == LOCAL()) { } |
|
4487
|
16 |
2 |
if ($type == 33) |
|
4491
|
5 |
11 |
if (@ancestors) |
|
4496
|
1 |
5 |
if $i < $#ancestors |
|
4503
|
0 |
129 |
unless (dump_symbols_internal($_)) |
|
4514
|
5 |
8 |
if ($dimref and @{$dimref;}) |
|
4525
|
0 |
3 |
if ($#arg > 4) |
|
4530
|
0 |
12 |
if $#arg > 4 |
|
4532
|
9 |
3 |
if ($i < $#arg) |
|
4534
|
0 |
9 |
if $#arg > 4 |
|
4537
|
0 |
3 |
if ($#arg > 4) { } |
|
4546
|
5 |
9 |
if ($type == 27) |
|
4558
|
17 |
29 |
if ($type == 28 or $type == 29) { } |
|
|
0 |
29 |
elsif ($type == 48) { } |
|
4559
|
12 |
5 |
if ($had_case) { } |
|
4564
|
16 |
1 |
if ($type == 28) { } |
|
4590
|
0 |
0 |
if (ref $type) { } |
|
4598
|
131 |
0 |
if ($status) { } |
|
4610
|
0 |
2 |
if (@_) { } |
|
4615
|
0 |
0 |
unless (ref $dsoptarg) |
|
4617
|
0 |
0 |
unless (open DS, ">$output_file_name") |
|
4633
|
0 |
2 |
if ($output_file_name) { } |
|
|
0 |
2 |
elsif ($dsoptarg) { } |
|
4654
|
0 |
0 |
if (not $symroot) { } |
|
|
0 |
0 |
elsif (is_elementary_type($symroot)) { } |
|
|
0 |
0 |
elsif (not isnode($symroot)) { } |
|
4672
|
0 |
0 |
if ($type == &INCFILE) { } |
|
|
0 |
0 |
elsif ($type == 32) { } |
|
|
0 |
0 |
elsif ($type == 33) { } |
|
4673
|
0 |
0 |
if $traverse_includefiles |
|
4697
|
0 |
0 |
if (@_) |
|
4708
|
0 |
0 |
if (defined $comment_directives) { } |
|
4712
|
0 |
0 |
if ($t == 1) { } |
|
|
0 |
0 |
elsif (is_elementary_type($t)) { } |
|
|
0 |
0 |
elsif ($t->[0] == 23) { } |
|
4719
|
0 |
0 |
if ($scoped) |
|
4747
|
0 |
0 |
if ($caseval =~ /::/) |
|
4750
|
0 |
0 |
unless $node->[0] == 27 |
|
4757
|
0 |
0 |
if $memb->[0] == 48 |
|
4758
|
0 |
0 |
if ($memb->[0] == 28) { } |
|
|
0 |
0 |
elsif ($memb->[0] == 29) { } |
|
|
0 |
0 |
elsif ($found) { } |
|
4760
|
0 |
0 |
$int ? : |
|
4761
|
0 |
0 |
if ($cv =~ /::/) |
|
4762
|
0 |
0 |
if ($cv eq $caseval) |
|
4784
|
0 |
0 |
unless $node->[0] == 27 |
|
4793
|
0 |
0 |
if (defined $memb or $CORBA::IDLtree::union_default_null_allowed) |
|
4798
|
0 |
0 |
if (isnode($st) and $st->[0] == 23) |
|
4801
|
0 |
0 |
ref $e ? : |
|
4803
|
0 |
0 |
if (defined $memb) |
|
4804
|
0 |
0 |
unless ($el =~ /::/) |
|
4818
|
0 |
0 |
if $memb->[0] == 48 |
|
4819
|
0 |
0 |
if ($memb->[0] == 28) { } |
|
|
0 |
0 |
elsif ($memb->[0] == 29) { } |
|
|
0 |
0 |
elsif (defined $case) { } |
|
4821
|
0 |
0 |
if is_integer($switcht) |