| line |
true |
false |
branch |
|
799
|
0 |
0 |
if /: *(\S+)/ |
|
1068
|
43 |
0 |
if ($value) |
|
1069
|
1 |
42 |
if (exists $this->{'_cache'}{$name}) |
|
1071
|
1 |
0 |
if ($existing != $value) |
|
1074
|
0 |
1 |
if $CORBA::IDLtree::verbose |
|
1091
|
66 |
311 |
if (exists $this->{'_cache'}{$name}) |
|
1161
|
0 |
0 |
if (-e $fqn) |
|
1181
|
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/) { } |
|
1183
|
3 |
31 |
if ($ch eq '"' and substr($str, $i - 1, 1) ne '\\') |
|
1191
|
0 |
6 |
if ($endx < $i + 2) |
|
1199
|
694 |
4227 |
unless ($in_lit) |
|
1207
|
0 |
694 |
if (exists $active_defines{$out[$ondx]}) |
|
1209
|
0 |
0 |
if ("$value" ne '') |
|
1216
|
236 |
458 |
unless ($ch =~ /\s/) |
|
1223
|
0 |
224 |
if ($in_lit) |
|
1225
|
0 |
0 |
if (exists $active_defines{$out[$ondx]}) |
|
1227
|
0 |
0 |
if ("$value" ne '') |
|
1244
|
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/) { } |
|
1245
|
0 |
30 |
if ($out[$i + 1] eq 'double' and not $CORBA::IDLtree::long_double_supported) |
|
1248
|
10 |
20 |
if ($out[$i + 1] eq 'long' or $out[$i + 1] eq 'double') |
|
1253
|
1 |
0 |
if ($out[$i + 1] eq 'short' or $out[$i + 1] eq 'long') |
|
1256
|
0 |
1 |
if ($out[$i + 1] eq 'long') |
|
1268
|
0 |
0 |
unless ($i < $#out - 1 and $out[$i + 2] eq ':') |
|
1270
|
0 |
0 |
if ($i > 0) |
|
1272
|
0 |
0 |
if ($prev =~ /\w$/ and not exists $keywords{$prev}) |
|
1273
|
0 |
0 |
if ($out[$i - 1] eq 'CORBA') { } |
|
1287
|
0 |
0 |
if ($i == 0 or $out[$i - 1] eq '(' or $out[$i - 1] eq '=' or $in_preprocessor) |
|
1294
|
0 |
0 |
if ($out[$i] =~ /^[\-\d][\d\.]*e$/i and $out[$i + 1] eq '+' || $out[$i + 1] eq '-') |
|
1303
|
0 |
24 |
if ($out[$i] =~ /^w?string$/ and ($out[$i + 1] eq '<' and $out[$i + 3] eq '>')) |
|
1318
|
0 |
17 |
unless (defined $tdesc) |
|
1324
|
0 |
17 |
if (@_) |
|
1328
|
17 |
0 |
if ($tdesc >= 1 and $tdesc <= 18) { } |
|
|
0 |
0 |
elsif ($recurse_into_typedef and isnode($tdesc) and $tdesc->[0] == 24) { } |
|
1339
|
0 |
0 |
unless ($dimref and @{$dimref;}) |
|
1351
|
111 |
6404 |
if ($idltype eq $predef_types[$i]) |
|
1352
|
0 |
111 |
if ($CORBA::IDLtree::string_bound and $idltype =~ /^w?string$/) { } |
|
1360
|
0 |
110 |
if ($idltype =~ /^(w?string)\s*<(\d+)\s*>/) |
|
1362
|
0 |
0 |
$1 eq 'wstring' ? : |
|
1372
|
0 |
185 |
if (not $name =~ /^[a-z_:]/i or $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed) |
|
1381
|
81 |
88 |
if (@_) |
|
1384
|
0 |
169 |
unless (is_valid_identifier($name)) |
|
1385
|
0 |
0 |
unless ($name =~ /^w?string<.*>$/) |
|
1389
|
0 |
169 |
if (exists $keywords{lc $name}) |
|
1390
|
0 |
0 |
if ($CORBA::IDLtree::permissive) { } |
|
1398
|
169 |
0 |
unless ($CORBA::IDLtree::leading_underscore_allowed > 1) |
|
1407
|
13 |
0 |
if (@_) |
|
1410
|
0 |
13 |
unless (is_valid_identifier($name)) |
|
1411
|
0 |
0 |
unless ($name =~ /^w?string<.*>$/) |
|
1416
|
0 |
13 |
ref $pt ? : |
|
|
13 |
0 |
if ((ref $pt ? $pt->[0] : $pt) < 24) |
|
1420
|
0 |
0 |
if (exists $keywords{lc $name}) |
|
1421
|
0 |
0 |
if ($CORBA::IDLtree::permissive) { } |
|
1438
|
5 |
140 |
$#scopestack < 0 ? : |
|
1443
|
0 |
183 |
if (@annotations) |
|
1452
|
0 |
236 |
if (@post_comment) |
|
1463
|
0 |
8 |
if (shift @{$argref;} ne '<') |
|
1469
|
3 |
5 |
if (not $type) { } |
|
|
0 |
5 |
elsif ($type == 22) { } |
|
1471
|
0 |
3 |
unless ($type) |
|
1480
|
2 |
6 |
if ($nxtarg eq ',') |
|
1484
|
0 |
8 |
if ($nxtarg ne '>') |
|
1495
|
0 |
88 |
if ($typename eq 'fixed') { } |
|
|
0 |
88 |
elsif ($typename =~ /^(w?string)<([\w:]+)>$/) { } |
|
|
8 |
80 |
elsif ($typename eq 'sequence') { } |
|
1496
|
0 |
0 |
if (shift @{$argref;} ne '<') |
|
1501
|
0 |
0 |
if ($digits =~ /\D/) |
|
1505
|
0 |
0 |
if (shift @{$argref;} ne ',') |
|
1510
|
0 |
0 |
if ($scale =~ /\D/) |
|
1514
|
0 |
0 |
if (shift @{$argref;} ne '>') |
|
1522
|
0 |
0 |
$1 eq 'wstring' ? : |
|
1524
|
0 |
0 |
unless ($bound =~ /^\d/) |
|
1526
|
0 |
0 |
if (isnode($boundtype)) { } |
|
1528
|
0 |
0 |
if ($node[0] == 31) { } |
|
1531
|
0 |
0 |
if (scalar @expr > 1 or not $expr[0] =~ /^\d/) |
|
1570
|
30 |
0 |
if (ref $structref_or_vt_access) { } |
|
1577
|
0 |
30 |
if ($first_thing eq '}') |
|
1581
|
0 |
30 |
unless ($component_type) |
|
1585
|
0 |
30 |
if (&in_annotation_def()) |
|
1588
|
0 |
0 |
if (@arg) |
|
1590
|
0 |
0 |
if ($next eq 'default') |
|
1595
|
0 |
0 |
if (@arg) |
|
1597
|
0 |
0 |
unless ($next eq ';') |
|
1604
|
0 |
30 |
unless (is_type($component_type)) |
|
1610
|
0 |
30 |
if $component_name eq '}' |
|
1616
|
0 |
13 |
if ($nxtarg eq '[') { } |
|
|
13 |
0 |
elsif ($nxtarg eq ',' or $nxtarg eq ';') { } |
|
1618
|
0 |
0 |
if (shift @arg ne ']') |
|
1631
|
0 |
30 |
if (@dimensions) |
|
1633
|
0 |
0 |
unless ($CORBA::IDLtree::permissive) |
|
1639
|
0 |
30 |
if ($value_member_flag) { } |
|
1642
|
0 |
0 |
if (isnode($type) and $type->[1] eq $component_name) |
|
1649
|
15 |
98 |
unless ref $_ |
|
1650
|
53 |
45 |
if $_->[0] == 28 or $_->[0] == 29 |
|
1651
|
0 |
45 |
if ($_->[0] != 48 and $_->[1] eq $component_name) |
|
1657
|
0 |
30 |
if ($name_found) |
|
1661
|
15 |
15 |
unless (defined $comment) |
|
1666
|
0 |
30 |
if ($value_member_flag) { } |
|
1671
|
13 |
17 |
if $nxtarg eq ';' |
|
1723
|
0 |
0 |
if (@_) { } |
|
1731
|
0 |
1 |
if (not $did_emucppmsg and $verbose) |
|
1744
|
0 |
0 |
if ($symbol eq 'defined') { } |
|
|
0 |
0 |
elsif ($symbol =~ /^[A-z]/) { } |
|
|
0 |
0 |
elsif (not $symbol =~ /^\d+$/) { } |
|
1745
|
0 |
0 |
if $arg[0] eq '(' |
|
1747
|
0 |
0 |
if $arg[0] eq ')' |
|
1748
|
0 |
0 |
if (@arg or not $symbol =~ /^\d+$/) |
|
1772
|
0 |
0 |
if ($in_comment) |
|
1773
|
0 |
0 |
if ($l =~ m[\*/]) |
|
1779
|
0 |
0 |
if ($cstart >= 0) |
|
1781
|
0 |
0 |
if ($cstop > $cstart) { } |
|
1783
|
0 |
0 |
if ($cstart > 0) |
|
1788
|
0 |
0 |
if ($cstop < length $l) |
|
1797
|
0 |
0 |
unless $l =~ /^s*#/ |
|
1802
|
0 |
0 |
if ($count == 0) |
|
1803
|
0 |
0 |
if ($directive eq 'else' or $directive eq 'endif') |
|
1806
|
0 |
0 |
if ($directive eq 'elif') |
|
1807
|
0 |
0 |
if (eval_preproc_expr(@arg)) |
|
1813
|
0 |
0 |
if ($directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef') { } |
|
|
0 |
0 |
elsif ($directive eq 'endif') { } |
|
1829
|
21 |
1 |
if (length $line > 2) |
|
1832
|
0 |
21 |
if ($ord0 == 65279) { } |
|
|
0 |
21 |
elsif ($ord0 == 239) { } |
|
1837
|
0 |
0 |
if ($ord1 == 187 and $ord2 == 191) |
|
1848
|
204 |
25 |
if (@_) |
|
1852
|
2 |
227 |
if (@global_items) |
|
1871
|
303 |
0 |
unless ($locale) |
|
1874
|
22 |
281 |
if ($firstline) |
|
1878
|
43 |
260 |
if ($l =~ /^\s*$/) |
|
1879
|
0 |
43 |
if ($in_comment) |
|
1880
|
0 |
0 |
if ($seen_token) { } |
|
1888
|
21 |
239 |
if ($in_comment) |
|
1889
|
0 |
21 |
if ($l =~ m[/\*]) |
|
1892
|
1 |
20 |
if ($l =~ m[\*/]) { } |
|
1899
|
0 |
1 |
if ($seen_token) { } |
|
1906
|
0 |
1 |
if ($seen_token) |
|
1907
|
0 |
0 |
unless ($l =~ /^\s*$/) |
|
1912
|
1 |
0 |
if $l =~ /^\s*$/ |
|
1914
|
0 |
20 |
if ($seen_token) { } |
|
1922
|
10 |
229 |
if ($l =~ m[^\s*//(.*)]) |
|
1924
|
6 |
4 |
unless (@remark) |
|
1934
|
0 |
1 |
if ($cend > 0) { } |
|
1958
|
0 |
1 |
unless (defined $line_number[$currfile]) |
|
1961
|
1 |
0 |
if ($l =~ /^\s*$/) { } |
|
1970
|
0 |
228 |
if ($l =~ m[//(.*)$]) |
|
1972
|
0 |
0 |
unless ($cmnt =~ /^\s*$/) |
|
1973
|
0 |
0 |
unless (defined $line_number[$currfile]) |
|
1983
|
224 |
4 |
if ($first) { } |
|
1989
|
222 |
4 |
if ($line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/ or $line =~ /[;,":{]$/) |
|
1993
|
224 |
0 |
unless $in_comment |
|
1996
|
0 |
227 |
if ($in_comment) |
|
2000
|
3 |
224 |
unless ($line) |
|
2006
|
222 |
2 |
if ($tmp[0] ne '#') |
|
2011
|
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') { } |
|
2013
|
0 |
0 |
unless eval_preproc_expr(@tmp) |
|
2018
|
0 |
0 |
unless $symbol =~ /^\d/ |
|
2023
|
0 |
0 |
if $symbol =~ /^\d/ |
|
2029
|
0 |
0 |
if (@tmp) |
|
2031
|
0 |
0 |
if $verbose |
|
2033
|
0 |
0 |
if (exists $active_defines{$symbol} and $value ne $active_defines{$symbol}) |
|
2035
|
0 |
0 |
if ($CORBA::IDLtree::cache_trees) { } |
|
2047
|
0 |
0 |
if (exists $active_defines{$symbol}) |
|
2048
|
0 |
0 |
if ($CORBA::IDLtree::cache_trees) |
|
2083
|
2 |
0 |
if (@parts == 0) |
|
2085
|
0 |
2 |
if (not $refscope and $p eq '') |
|
2091
|
2 |
0 |
if $scope == $s |
|
2102
|
0 |
0 |
if $is_abs |
|
2105
|
0 |
0 |
if join('::', @parts) eq $p |
|
2107
|
0 |
0 |
unless ($is_abs) |
|
2110
|
0 |
0 |
if join('::', (@anc, @parts)) eq $p |
|
2125
|
0 |
6 |
unless (ref $enum_subordinate) |
|
2131
|
0 |
21 |
unless (ref $elem eq 'ARRAY') |
|
2136
|
0 |
21 |
if $elem->[0] =~ /^\d/ |
|
2149
|
2 |
0 |
unless defined $refscope |
|
2155
|
2 |
0 |
if (defined $s) |
|
2157
|
2 |
2 |
if $_ eq $e |
|
2167
|
1 |
16 |
if ($case->[0] == 29) { } |
|
2169
|
1 |
2 |
if $i++ == 0 |
|
2170
|
0 |
2 |
if ($_->[0] == 29) |
|
2178
|
2 |
14 |
if (is_a($type, 23)) { } |
|
|
2 |
12 |
elsif (is_a($type, 1)) { } |
|
|
4 |
8 |
elsif (is_a($type, 3)) { } |
|
2181
|
0 |
2 |
unless (check_enum_literal($type, $c)) |
|
2188
|
0 |
2 |
unless ($c eq 'TRUE' or $c eq 'FALSE') |
|
2195
|
0 |
5 |
unless ($c =~ /^'.*'$/ or $c =~ /^\d+$/) |
|
2203
|
0 |
9 |
unless ($c =~ /^[-+]?\d+$/) |
|
2205
|
0 |
0 |
unless ($resolved_const =~ /^[-+]?\d+$/) |
|
2213
|
16 |
70 |
if $i++ == 0 |
|
2214
|
41 |
29 |
unless $_->[0] == 28 |
|
2217
|
0 |
38 |
if ($c eq $_) |
|
2231
|
0 |
2 |
if ($CORBA::IDLtree::cache_trees) { } |
|
2233
|
0 |
0 |
if ($incfile_contents_ref) |
|
2253
|
1 |
1 |
unless ($locale_was_determined) |
|
2255
|
0 |
3 |
if (exists $ENV{$env}) |
|
2257
|
0 |
0 |
if ($lang and $lang ne 'C') |
|
2266
|
0 |
2 |
if ($CORBA::IDLtree::cache_statistics) |
|
2270
|
0 |
2 |
if ($res and not @$res) { } |
|
|
0 |
2 |
elsif ($CORBA::IDLtree::cache_trees) { } |
|
2287
|
0 |
0 |
unless $node->[0] == 26 |
|
2292
|
0 |
0 |
if ($membertype == 48) { } |
|
2295
|
0 |
0 |
if (isnode($membertype) and $membertype->[0] == 20 || $membertype->[0] == 21) |
|
2328
|
0 |
0 |
unless (defined $index) |
|
2336
|
0 |
0 |
if (@adef) |
|
2338
|
0 |
0 |
unless ($argref and @$argref) |
|
2345
|
0 |
0 |
if (@$argref and $argref->[0] eq '(') |
|
2346
|
0 |
0 |
unless (@adef) |
|
2355
|
0 |
0 |
if ($val eq ')') |
|
2359
|
0 |
0 |
if $val eq ',' |
|
2360
|
0 |
0 |
if ($val =~ /^[a-z]/i and $argref->[0] eq '=') { } |
|
2363
|
0 |
0 |
unless (@$argref) |
|
2369
|
0 |
0 |
if ($adef[$ai][1] eq $parname) |
|
2374
|
0 |
0 |
unless (defined $param_index) |
|
2380
|
0 |
0 |
if (exists $annoEnum{$type}) |
|
2382
|
0 |
0 |
unless (grep {$_ eq $val;} @{$enumvalues;}) |
|
2390
|
0 |
0 |
if (exists $annoEnum{$type}) |
|
2392
|
0 |
0 |
unless (grep {$_ eq $val;} @{$enumvalues;}) |
|
2402
|
0 |
0 |
unless ($closing_parenth_seen) |
|
2407
|
0 |
0 |
if (@adef) |
|
2409
|
0 |
0 |
unless (defined $anargs[$i]) |
|
2412
|
0 |
0 |
if (defined $default) { } |
|
2424
|
0 |
0 |
if (@$argref) |
|
2434
|
0 |
4 |
if ($members[$i][0] == 29) |
|
2445
|
0 |
97 |
if ($in_valuetype and not $CORBA::IDLtree::vt2struct) { } |
|
2459
|
3 |
19 |
if ($file) { } |
|
|
19 |
0 |
elsif ("$input_filehandle") { } |
|
2460
|
0 |
3 |
unless -e "$file" |
|
2468
|
0 |
3 |
unless ($emucpp) |
|
2472
|
0 |
0 |
if (locate_executable('cpp')) { } |
|
|
0 |
0 |
elsif (locate_executable('gcc')) { } |
|
2480
|
3 |
0 |
if ($emucpp) { } |
|
2481
|
0 |
3 |
unless open $in, '<:encoding(UTF-8)', $file |
|
2490
|
0 |
0 |
unless open $in, "$cppcmd $cpp_args $file |" |
|
2493
|
0 |
3 |
if $verbose |
|
2500
|
20 |
2 |
if ($symb) { } |
|
2512
|
0 |
201 |
if ($verbose > 1) |
|
2516
|
0 |
201 |
if ($CORBA::IDLtree::enable_comments and @remark) |
|
2518
|
0 |
0 |
if (@typestack) { } |
|
2529
|
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') { } |
|
2531
|
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') { } |
|
2534
|
1 |
0 |
if ($directive eq 'prefix') { } |
|
|
0 |
0 |
elsif ($directive eq 'version') { } |
|
|
0 |
0 |
elsif (uc $directive eq 'ID') { } |
|
2536
|
0 |
1 |
if (substr($prefix, 0, 1) ne '"') { } |
|
2540
|
0 |
1 |
if (substr($prefix, length($prefix) - 1) ne '"') { } |
|
2567
|
0 |
1 |
if ($filename eq '<') |
|
2573
|
0 |
0 |
if ($t eq '>') |
|
2580
|
0 |
1 |
if (substr($filename, 0, 1) ne '"') { } |
|
2584
|
0 |
1 |
if (substr($filename, length($filename) - 1) ne '"') { } |
|
2592
|
1 |
0 |
unless (-e "$filename") |
|
2595
|
1 |
0 |
if (-e "$_/$filename") |
|
2602
|
0 |
1 |
unless $found |
|
2604
|
0 |
1 |
if (@typestack or @scopestack) |
|
2609
|
0 |
1 |
if ($incfile_contents_ref) { } |
|
2621
|
0 |
1 |
unless Parse_File_i($filename, undef, $incfile_contents_ref) |
|
2625
|
1 |
0 |
if $in_global_scope |
|
2627
|
0 |
1 |
unless ($in_global_scope) |
|
2645
|
0 |
0 |
if ($filename eq $infilename[$currfile]) |
|
2652
|
0 |
0 |
if ($filename eq $infilename[$i]) |
|
2659
|
0 |
0 |
if $seen_file |
|
2665
|
0 |
0 |
unless $incfile_contents_ref |
|
2689
|
0 |
0 |
if ($ann eq 'annotation') { } |
|
2693
|
0 |
0 |
if (shift @arg ne '{') |
|
2698
|
0 |
0 |
if (@arg) |
|
2699
|
0 |
0 |
if ($arg[0] eq '}' or parse_members($symbols, \@arg, \@struct) == 1) |
|
2714
|
0 |
34 |
if (shift @arg ne ';') |
|
2717
|
19 |
15 |
unless (@typestack) |
|
2718
|
19 |
0 |
if (@scopestack) { } |
|
2725
|
0 |
15 |
if ($in_valuetype) |
|
2729
|
0 |
15 |
if (&in_annotation_def()) |
|
2740
|
1 |
14 |
if ($type == 27 and is_a($struct[0], 23)) |
|
2744
|
1 |
0 |
unless (has_default_branch(\@struct)) |
|
2749
|
2 |
3 |
if ($umember->[0] == 28) |
|
2758
|
0 |
3 |
ref $_ ? : |
|
2759
|
1 |
2 |
if (defined $lit and not defined $lits_given{$lit}) |
|
2767
|
0 |
15 |
if ($CORBA::IDLtree::struct2vt and $type == 26) |
|
2776
|
0 |
3 |
if shift @arg ne '{' |
|
2785
|
1 |
2 |
if ($module) |
|
2796
|
0 |
3 |
unless Parse_File_i('', $in, $subord) |
|
2797
|
0 |
3 |
unless ($module) |
|
2806
|
14 |
16 |
if ($lasttok eq ';') { } |
|
|
0 |
16 |
elsif ($lasttok ne '{') { } |
|
2812
|
0 |
0 |
unless (require_end_of_stmt(\@arg, $in, '{')) |
|
2818
|
14 |
2 |
if ($fwd) |
|
2819
|
0 |
14 |
if ($fwd->[0] != 34) |
|
2826
|
5 |
11 |
if (@arg) |
|
2827
|
0 |
5 |
if (shift @arg ne ':') { } |
|
|
0 |
5 |
elsif (not @arg) { } |
|
2838
|
0 |
6 |
unless ($ancestor_node) |
|
2843
|
1 |
5 |
if ($i < $#arg) |
|
2844
|
0 |
1 |
if ($arg[++$i] ne ',') |
|
2856
|
0 |
16 |
unless Parse_File_i('', $in, $subord) |
|
2878
|
0 |
0 |
if ($CORBA::IDLtree::vt2struct) { } |
|
2888
|
0 |
0 |
if ($nxttok eq ';') |
|
2895
|
0 |
0 |
if ($nxttok eq ':') |
|
2896
|
0 |
0 |
if (($nxttok = shift @arg) eq 'truncatable') |
|
2902
|
0 |
0 |
if (not isnode($anc_type) or $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36) { } |
|
2910
|
0 |
0 |
unless ($nxttok = shift @arg) eq ',' |
|
2915
|
0 |
0 |
if ($nxttok eq 'supports') |
|
2918
|
0 |
0 |
if (not $anc_type) { } |
|
|
0 |
0 |
elsif (not isnode($anc_type) or $anc_type->[0] != 33 or $anc_type->[0] != 34) { } |
|
2927
|
0 |
0 |
unless ($nxttok = shift @arg) eq ',' |
|
2931
|
0 |
0 |
if ($seen_ancestors) { } |
|
|
0 |
0 |
elsif (isname($nxttok)) { } |
|
|
0 |
0 |
elsif ($nxttok ne '{') { } |
|
2932
|
0 |
0 |
if ($nxttok ne '{') |
|
2939
|
0 |
0 |
if ($type) { } |
|
2951
|
0 |
0 |
if (ref $fwd and $fwd->[0] == 36) |
|
2955
|
0 |
0 |
unless ($CORBA::IDLtree::vt2struct) |
|
2961
|
0 |
0 |
unless Parse_File_i('', $in, $declarations, 1) |
|
2970
|
0 |
0 |
unless ($in_valuetype) |
|
2974
|
0 |
0 |
if ($abstract) |
|
2978
|
0 |
0 |
if ($CORBA::IDLtree::vt2struct) { } |
|
2979
|
0 |
0 |
if (parse_members($symbols, \@arg, \@struct) == 1) |
|
2990
|
0 |
0 |
if ($kw eq 'public') { } |
|
2995
|
0 |
0 |
if (parse_members($symbols, \@arg, $vt_access, $cmnt) == 1) |
|
2997
|
0 |
0 |
if (@scopestack) { } |
|
3009
|
8 |
2 |
$kw eq 'struct' ? : |
|
3018
|
0 |
10 |
if ($type == 26 and $nxt eq ':') |
|
3021
|
0 |
0 |
if (isnode($parent) and $parent->[0] == 26) { } |
|
3028
|
0 |
10 |
if ($nxt ne '{') |
|
3032
|
0 |
10 |
if (@arg) |
|
3033
|
0 |
0 |
if ($arg[0] eq '}' or parse_members($symbols, \@arg, \@struct, $cmnt) == 1) |
|
3037
|
0 |
0 |
if ($CORBA::IDLtree::struct2vt and $type == 26) |
|
3057
|
0 |
5 |
if (shift @arg ne 'switch') |
|
3061
|
0 |
5 |
if (shift @arg ne '(') |
|
3067
|
0 |
5 |
if (not $switchtype) { } |
|
|
1 |
4 |
elsif (isnode($switchtype)) { } |
|
|
0 |
4 |
elsif ($switchtype < 1 or $switchtype > 10) { } |
|
3072
|
0 |
1 |
if ($typ < 1 or $typ > 9 and $typ != 23 and $typ != 24) |
|
3081
|
0 |
5 |
if shift @arg ne ')' |
|
3082
|
0 |
5 |
if shift @arg ne '{' |
|
3083
|
0 |
5 |
if @arg |
|
3090
|
16 |
1 |
if ($kw eq 'case') { } |
|
3093
|
0 |
16 |
if (shift @arg ne ':') |
|
3097
|
4 |
12 |
unless @arg |
|
3098
|
12 |
0 |
unless $arg[0] eq 'case' |
|
3101
|
4 |
12 |
unless (@arg) |
|
3106
|
2 |
2 |
unless ($kw eq 'case') |
|
3112
|
2 |
0 |
if ($arg[$#arg] eq ';') |
|
3117
|
0 |
2 |
if (shift @arg ne ':') |
|
3121
|
0 |
2 |
unless @arg |
|
3122
|
2 |
0 |
unless $arg[0] eq 'case' |
|
3125
|
2 |
0 |
if @arg |
|
3130
|
0 |
1 |
if (shift @arg ne ':') |
|
3138
|
15 |
2 |
if (@arg) |
|
3139
|
0 |
15 |
if (parse_members($symbols, \@arg, \@struct) == 1) |
|
3141
|
0 |
0 |
if ($#typestack < 0) |
|
3149
|
0 |
0 |
if ($initial_cmnt) |
|
3150
|
0 |
0 |
if ($cmnt and $cmnt != $initial_cmnt) |
|
3155
|
0 |
0 |
if ($type != 27) |
|
3169
|
0 |
3 |
if (shift @arg ne '{') |
|
3175
|
1 |
2 |
unless @arg |
|
3178
|
0 |
12 |
if (&in_annotation_def()) { } |
|
3179
|
0 |
0 |
unless ($lit =~ /^\w+$/) |
|
3185
|
0 |
12 |
if ($CORBA::IDLtree::enable_comments and @remark) |
|
3190
|
0 |
12 |
if ($lit eq '@') { } |
|
3195
|
0 |
12 |
unless ($lit =~ /^\w+$/) |
|
3201
|
12 |
0 |
if (@arg) |
|
3203
|
3 |
9 |
if $nxt eq '}' |
|
3204
|
0 |
9 |
unless ($nxt eq ',') |
|
3210
|
4 |
5 |
unless @arg |
|
3212
|
0 |
3 |
if (&in_annotation_def()) { } |
|
3221
|
0 |
97 |
unless (require_end_of_stmt(\@arg, $in)) |
|
3226
|
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) { } |
|
3234
|
0 |
12 |
if (shift @arg ne '=') |
|
3239
|
0 |
12 |
unless ($typething) |
|
3245
|
0 |
5 |
if /^\d/ or /^\.\d/ or /^-\d/ |
|
3246
|
2 |
3 |
if /^'.*'$/ or /^".*"$/ |
|
3247
|
3 |
0 |
if is_valid_identifier($_) |
|
3255
|
0 |
0 |
if ($arg eq $_) |
|
3260
|
0 |
0 |
if $is_operand |
|
3264
|
2 |
10 |
if (isnode($typething)) |
|
3266
|
0 |
2 |
if ($id < 23 or $id > 24) |
|
3278
|
0 |
13 |
unless ($existing_typenode) |
|
3285
|
0 |
7 |
if (shift @arg ne '[') |
|
3293
|
7 |
7 |
if $token eq ']' |
|
3294
|
0 |
7 |
if ($dim) |
|
3299
|
0 |
7 |
unless ($dim) |
|
3303
|
0 |
7 |
unless ($token eq ']') |
|
3315
|
1 |
2 |
if ($kw eq 'readonly') |
|
3316
|
0 |
1 |
if (shift @arg ne 'attribute') |
|
3324
|
0 |
3 |
unless ($type) |
|
3336
|
5 |
49 |
if ($kw eq 'oneway') { } |
|
|
7 |
42 |
elsif ($kw eq 'void') { } |
|
|
0 |
42 |
elsif ($in_valuetype and $kw eq 'factory') { } |
|
3337
|
0 |
5 |
if (shift @arg ne 'void') |
|
3348
|
0 |
42 |
unless ($rettype) |
|
3355
|
0 |
54 |
if (shift @arg ne '(') { } |
|
|
0 |
54 |
elsif (pop @arg ne ')') { } |
|
3368
|
1 |
77 |
if ($m eq ')') |
|
3369
|
0 |
1 |
if ($typename ne 'raises') { } |
|
|
0 |
1 |
elsif ($pname ne '(') { } |
|
3378
|
21 |
0 |
$m eq 'inout' ? : |
|
|
22 |
21 |
$m eq 'out' ? : |
|
|
34 |
43 |
$m eq 'in' ? : |
|
3381
|
0 |
77 |
unless ($pmode) |
|
3385
|
0 |
77 |
if ($rettype == 41 and $pmode != 1) |
|
3390
|
0 |
77 |
unless ($ptype) |
|
3397
|
46 |
31 |
if (@arg and $arg[0] eq ',') |
|
3402
|
1 |
53 |
if ($expecting_exception_list) |
|
3406
|
0 |
1 |
if (not $exc_type) { } |
|
|
0 |
1 |
elsif (do {
$exc_type
}->[0] != 30) { } |
|
3414
|
0 |
1 |
if (@arg and shift @arg ne ',') |
|
3420
|
0 |
54 |
if ($in_valuetype) { } |
|
3421
|
0 |
0 |
if (@exception_list) |
|
3431
|
0 |
15 |
if ($#typestack < 0) |
|
3435
|
2 |
13 |
if ($typestack[-1] == 27) |
|
3440
|
2 |
0 |
unless $struct[$i][0] == 48 |
|
3443
|
0 |
2 |
if ($i < 0 or $struct[$i][0] != 28 and $struct[$i][0] != 29) |
|
3448
|
0 |
15 |
if (parse_members($symbols, \@arg, \@struct, $cmnt) == 1) |
|
3452
|
0 |
0 |
if ($type == ANNOTATION()) { } |
|
3457
|
0 |
0 |
if ($initial_cmnt) |
|
3458
|
0 |
0 |
if ($cmnt and $cmnt != $initial_cmnt) |
|
3470
|
0 |
3 |
if ($verbose) |
|
3473
|
3 |
0 |
if ($file) |
|
3479
|
0 |
3 |
if ($CORBA::IDLtree::n_errors) |
|
3482
|
2 |
1 |
unless $symb |
|
3496
|
0 |
97 |
if (@_) |
|
3499
|
88 |
9 |
if ($$argref[$#$argref] eq $stmt_terminator) |
|
3505
|
0 |
16 |
unless @new_items = get_items($file) |
|
3508
|
9 |
0 |
if ($$argref[$#$argref] eq $stmt_terminator) |
|
3519
|
295 |
7337 |
unless ref $node_ref |
|
3520
|
155 |
7182 |
unless ref $node_ref eq 'ARRAY' and defined $node_ref->[0] |
|
3521
|
6834 |
348 |
if ($node_ref->[0] >= 1 and $node_ref->[0] < 49) |
|
3523
|
0 |
0 |
if (scalar @$node_ref == 5 and $verbose) |
|
3542
|
0 |
0 |
if (isnode($thing)) |
|
3553
|
13 |
17 |
if (isnode($thing)) { } |
|
3578
|
432 |
0 |
unless ($noderef->[0] == 43) |
|
3591
|
197 |
50 |
unless (grep {$_ eq $element;} @$targetlistref) |
|
3608
|
170 |
309 |
if (isnode($root)) { } |
|
3611
|
64 |
106 |
if ($type == 33) { } |
|
|
0 |
106 |
elsif ($type == 35) { } |
|
|
14 |
92 |
elsif ($type == 34) { } |
|
3618
|
0 |
14 |
unless (isnode($full_interface)) |
|
3623
|
0 |
0 |
if (defined $root->[1] and $root->[1] eq $first) |
|
3643
|
384 |
6354 |
unless isnode($node) |
|
3644
|
0 |
6354 |
if ($type == 35) |
|
3645
|
0 |
0 |
if $node->[0] |
|
3649
|
0 |
6354 |
unless (defined $nt) |
|
3653
|
1010 |
5344 |
if $nt == 48 or $nt == 42 or $nt == 38 |
|
3655
|
1 |
5343 |
if ($nt == 43) { } |
|
|
246 |
5097 |
elsif (defined $node->[1] and $node->[1] eq $first) { } |
|
3658
|
182 |
64 |
if (@parts == 0) { } |
|
3660
|
64 |
118 |
if ($nt == 34) |
|
3663
|
50 |
14 |
if (isnode($full_interface)) |
|
3671
|
247 |
5097 |
if (@r) |
|
3677
|
78 |
401 |
if (defined $anc and @parts == 0) |
|
3681
|
0 |
14 |
if (@r) |
|
3694
|
0 |
200 |
if ("$name" eq '') |
|
3700
|
0 |
200 |
if ($name =~ /^::/) |
|
3704
|
200 |
0 |
if ($name =~ /^CORBA::/ or not $name =~ /::/) |
|
3710
|
94 |
106 |
if ($predef_type_id) |
|
3715
|
0 |
106 |
if (&in_annotation_def()) |
|
3716
|
0 |
0 |
if (exists $annoEnum{$name}) |
|
3726
|
106 |
0 |
unless ($is_abs) |
|
3730
|
26 |
80 |
if defined $res |
|
3732
|
13 |
67 |
if (@r == 1) |
|
3740
|
67 |
0 |
if (@prev_symroots and $prev_symroots[-1] != $current_symtree_ref) |
|
3745
|
134 |
0 |
unless ($is_abs) |
|
3752
|
39 |
159 |
if ($res) |
|
3757
|
67 |
92 |
unless @sc |
|
3761
|
26 |
66 |
if (@r) |
|
3762
|
0 |
26 |
if (scalar @r > 1) |
|
3765
|
0 |
0 |
if (@r > 1) { } |
|
3788
|
0 |
69 |
if defined $res |
|
3790
|
0 |
69 |
if (@r) |
|
3791
|
0 |
0 |
if (scalar @r > 1) |
|
3794
|
0 |
0 |
if (@r > 1) { } |
|
3817
|
1 |
0 |
if ($currfile >= 0 and $currfile < scalar @infilename) { } |
|
3834
|
0 |
0 |
if ($currfile >= 0) |
|
3848
|
189 |
0 |
if (@_) |
|
3852
|
98 |
91 |
if (not ref $type and ($type >= 1 and $type < 49)) { } |
|
|
0 |
91 |
elsif (not isnode($type)) { } |
|
3854
|
98 |
0 |
if ($type <= 18) |
|
3865
|
91 |
0 |
if ($gen_scope) |
|
3869
|
0 |
91 |
if $scope[0] == 43 |
|
3871
|
91 |
0 |
unless ($prefix =~ /\b$new_prefix/) |
|
3876
|
91 |
0 |
if (ref $gen_scope) |
|
3880
|
28 |
63 |
if ($prefix eq "${curr_scope}::") |
|
3886
|
0 |
91 |
if ($node[0] == 19) { } |
|
|
0 |
91 |
elsif ($node[0] == 20 or $node[0] == 21) { } |
|
|
8 |
83 |
elsif ($node[0] == 22) { } |
|
3894
|
0 |
0 |
if ($node[0] == 21) |
|
3902
|
2 |
6 |
if ($bound) |
|
3915
|
0 |
47 |
unless ($type) |
|
3920
|
44 |
3 |
unless (isnode($type)) |
|
3921
|
44 |
0 |
if ($typeid > 0) { } |
|
3929
|
3 |
0 |
if ($typeid > 0) { } |
|
3930
|
3 |
0 |
if $type->[0] == $typeid |
|
3932
|
0 |
0 |
if scoped_name($type) eq $typeid |
|
3934
|
0 |
0 |
unless $type->[0] == 24 |
|
3942
|
0 |
0 |
if $dimref and @{$dimref;} |
|
3952
|
0 |
17 |
if (isnode($type) and $type->[0] == 24) |
|
3954
|
0 |
0 |
unless ($dimref and @{$dimref;}) |
|
3967
|
0 |
0 |
if (isnode($type) and $type->[0] == 24) |
|
3976
|
0 |
0 |
if (isnode($type)) |
|
3993
|
0 |
0 |
if (not $symroot) { } |
|
|
0 |
0 |
elsif (not ref $symroot) { } |
|
|
0 |
0 |
elsif (isnode($symroot)) { } |
|
4007
|
0 |
0 |
if ($type == 43) |
|
4019
|
0 |
0 |
if ($epos < 0) |
|
4022
|
0 |
0 |
if ($epos > 0) { } |
|
4034
|
0 |
0 |
if ($value =~ /^[-+]?(?:0x)?[0-9a-f]*$/i) |
|
4036
|
0 |
0 |
if ($is64bit) { } |
|
4038
|
0 |
0 |
if ($wantfloat) |
|
4046
|
0 |
0 |
if ($value =~ /^[-+]?0[0-7]/) { } |
|
4049
|
0 |
0 |
if ('Math::BigInt'->can('from_oct')) { } |
|
4055
|
0 |
0 |
if ($dg[0] eq '-' or $dg[0] eq '+' or $dg[0] eq '0') |
|
4057
|
0 |
0 |
if $c eq '-' |
|
4062
|
0 |
0 |
if ($c lt '0' or $c gt '7') |
|
4068
|
0 |
0 |
if $sg eq '-' |
|
4070
|
0 |
0 |
if ($v->is_nan) |
|
4075
|
0 |
0 |
if ($v->is_nan) |
|
4078
|
0 |
0 |
if ($wantfloat and not $v =~ /\./) |
|
4085
|
0 |
0 |
if ($value =~ /^[-+]?(?:\d+.?\d*|\.\d+)(?:[eE][+-]?\d+)?$/) |
|
4088
|
0 |
0 |
if ($wantfloat and not $res =~ /\./) |
|
4094
|
0 |
0 |
if (isnode($value)) |
|
4096
|
0 |
0 |
unless $value->[0] == 31 |
|
4105
|
0 |
0 |
if ($token =~ /^[a-z]/i) { } |
|
4108
|
0 |
0 |
if (defined $v) { } |
|
4118
|
0 |
0 |
if ($wantfloat and not $res =~ /\./) |
|
4125
|
0 |
0 |
if (@expr > 1) { } |
|
|
0 |
0 |
elsif ($expr[0] eq 'FALSE') { } |
|
|
0 |
0 |
elsif ($expr[0] eq 'TRUE') { } |
|
4127
|
0 |
0 |
$wantfloat ? : |
|
4139
|
0 |
0 |
if (isnode($node)) |
|
4153
|
0 |
0 |
if (@_) |
|
4156
|
0 |
0 |
unless defined $scoperef->[2] |
|
4161
|
0 |
0 |
if ($scopetype == 33) { } |
|
|
0 |
0 |
elsif ($scopetype == 35) { } |
|
4169
|
0 |
0 |
if ($scopetype == 35) |
|
4170
|
0 |
0 |
if $node->[0] |
|
4173
|
0 |
0 |
if (@$node > 1 and $node->[1] eq $name) |
|
4174
|
0 |
0 |
if ($must_be_scope_node and not is_scope($node)) { } |
|
4192
|
0 |
0 |
unless $currscope |
|
4193
|
0 |
0 |
unless (defined $currscope) |
|
4194
|
0 |
0 |
unless defined $global_symroot |
|
4199
|
0 |
0 |
if ($node->[0] == 43) { } |
|
|
0 |
0 |
elsif (is_scope($node) and $scopes[0] eq $node->[1]) { } |
|
4202
|
0 |
0 |
if $currscope |
|
4206
|
0 |
0 |
if (scalar @scopes > 1) { } |
|
4212
|
0 |
0 |
if ($currscope) |
|
4220
|
0 |
0 |
unless defined $currscope |
|
4223
|
0 |
0 |
if ($scopes[0] eq $currscope->[1]) |
|
4229
|
0 |
0 |
unless $currscope |
|
4236
|
0 |
0 |
if ($scope) |
|
4241
|
0 |
0 |
unless $scope |
|
4254
|
0 |
0 |
if defined $currscope |
|
4259
|
0 |
0 |
unless defined $scoperef |
|
4270
|
2 |
2 |
unless ref $scoperef |
|
4271
|
0 |
2 |
if $scoperef->[0] == 43 |
|
4285
|
0 |
0 |
if ($scopes[$i] eq $scopes[$i - 1]) |
|
4302
|
0 |
0 |
if $components[0] eq '' |
|
4304
|
0 |
0 |
if (scalar @components > 1) { } |
|
|
0 |
0 |
elsif (defined $scoperef and $scoperef != 0) { } |
|
4307
|
0 |
0 |
if (defined $scoperef) |
|
4314
|
0 |
0 |
if $noderef |
|
4317
|
0 |
0 |
if ($recurse and not $noderef) |
|
4320
|
0 |
0 |
if ($nodetype == 35) |
|
4325
|
0 |
0 |
if ($nodetype == 35) |
|
4326
|
0 |
0 |
if $n->[0] |
|
4330
|
0 |
0 |
unless $nt == 43 or $nt == 32 or $nt == 33 or $nt == 35 |
|
4333
|
0 |
0 |
if $noderef |
|
4338
|
0 |
0 |
if $_->[0] == 48 |
|
4339
|
0 |
0 |
if ($_->[1] eq $name) |
|
4340
|
0 |
0 |
if ($_->[0] == 34) |
|
4344
|
0 |
0 |
if defined $full_interface and @{$full_interface;} |
|
4353
|
0 |
0 |
if ($nt == 43 or $nt == 32 or $nt == 33 or $nt == 35) |
|
4356
|
0 |
0 |
if $noderef |
|
4366
|
0 |
0 |
if (@_) |
|
4370
|
0 |
0 |
unless (isnode($node)) |
|
4376
|
0 |
0 |
unless $sc->[0] == 43 or $sc->[1] eq $scopes[0] |
|
4396
|
0 |
944 |
if (defined $dsoptarg) { } |
|
4397
|
0 |
0 |
if (ref $dsoptarg) { } |
|
4409
|
191 |
91 |
if (@_) |
|
4416
|
46 |
0 |
unless $cmnt_ref |
|
4418
|
0 |
0 |
unless @cmnt |
|
4419
|
0 |
0 |
if (scalar @cmnt == 1) |
|
4440
|
0 |
135 |
unless ($sym_array_ref) |
|
4445
|
2 |
133 |
unless (isnode($sym_array_ref)) |
|
4447
|
0 |
4 |
unless (dump_symbols_internal($_)) |
|
4459
|
2 |
131 |
if ($type == 43 or $type == 44) |
|
4460
|
1 |
1 |
if ($type == 43) { } |
|
4469
|
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) { } |
|
4471
|
1 |
2 |
if $arg[0] |
|
4476
|
5 |
49 |
if ($t == 39) { } |
|
|
7 |
42 |
elsif ($t == 40) { } |
|
4484
|
54 |
0 |
if (@arg) |
|
4486
|
0 |
54 |
unless (ref $lastarg eq 'ARRAY') |
|
4491
|
54 |
0 |
if (scalar @last != 3 or ref $last[1]) |
|
4496
|
31 |
23 |
if (@arg) |
|
4497
|
24 |
7 |
unless ($#arg == 0) |
|
4506
|
22 |
21 |
$m == &OUT ? : |
|
|
34 |
43 |
$m == &IN ? : |
|
4507
|
70 |
7 |
unless $#arg == 0 |
|
4509
|
46 |
31 |
if $i < $#arg |
|
4511
|
24 |
7 |
unless ($#arg == 0) |
|
4516
|
1 |
53 |
if (@exc_list) |
|
4522
|
0 |
1 |
if $i < $#exc_list |
|
4529
|
0 |
0 |
if ($arg[0]) |
|
4533
|
0 |
0 |
if ($arg[1]) |
|
4535
|
0 |
0 |
if ($truncatable) |
|
4538
|
0 |
0 |
if (@{$ancestors_ref;}) |
|
4542
|
0 |
0 |
if ($first) { } |
|
4556
|
0 |
0 |
if ($memberkind) { } |
|
4560
|
0 |
0 |
$memberkind == &PUBLIC ? : |
|
4563
|
0 |
0 |
unless (dump_symbols_internal($member)) |
|
4573
|
16 |
2 |
if ($type == 33) |
|
4574
|
0 |
16 |
if ($arg[1] == ABSTRACT()) { } |
|
|
0 |
16 |
elsif ($arg[1] == LOCAL()) { } |
|
4582
|
16 |
2 |
if ($type == 33) |
|
4586
|
5 |
11 |
if (@ancestors) |
|
4591
|
1 |
5 |
if $i < $#ancestors |
|
4598
|
0 |
129 |
unless (dump_symbols_internal($_)) |
|
4609
|
5 |
8 |
if ($dimref and @{$dimref;}) |
|
4620
|
0 |
3 |
if ($#arg > 4) |
|
4625
|
0 |
12 |
if $#arg > 4 |
|
4627
|
9 |
3 |
if ($i < $#arg) |
|
4629
|
0 |
9 |
if $#arg > 4 |
|
4632
|
0 |
3 |
if ($#arg > 4) { } |
|
4641
|
5 |
9 |
if ($type == 27) |
|
4653
|
17 |
29 |
if ($type == 28 or $type == 29) { } |
|
|
0 |
29 |
elsif ($type == 48) { } |
|
4654
|
12 |
5 |
if ($had_case) { } |
|
4659
|
16 |
1 |
if ($type == 28) { } |
|
4685
|
0 |
0 |
if (ref $type) { } |
|
4693
|
131 |
0 |
if ($status) { } |
|
4705
|
0 |
2 |
if (@_) { } |
|
4710
|
0 |
0 |
unless (ref $dsoptarg) |
|
4712
|
0 |
0 |
unless (open DS, ">$output_file_name") |
|
4728
|
0 |
2 |
if ($output_file_name) { } |
|
|
0 |
2 |
elsif ($dsoptarg) { } |
|
4749
|
0 |
0 |
if (not $symroot) { } |
|
|
0 |
0 |
elsif (is_elementary_type($symroot)) { } |
|
|
0 |
0 |
elsif (not isnode($symroot)) { } |
|
4767
|
0 |
0 |
if ($type == &INCFILE) { } |
|
|
0 |
0 |
elsif ($type == 32) { } |
|
|
0 |
0 |
elsif ($type == 33) { } |
|
4768
|
0 |
0 |
if $traverse_includefiles |
|
4792
|
0 |
0 |
if (@_) |
|
4803
|
0 |
0 |
if (defined $comment_directives) { } |
|
4807
|
0 |
0 |
if ($t == 1) { } |
|
|
0 |
0 |
elsif (is_elementary_type($t)) { } |
|
|
0 |
0 |
elsif ($t->[0] == 23) { } |
|
4814
|
0 |
0 |
if ($scoped) |
|
4842
|
0 |
0 |
if ($caseval =~ /::/) |
|
4845
|
0 |
0 |
unless $node->[0] == 27 |
|
4852
|
0 |
0 |
if $memb->[0] == 48 |
|
4853
|
0 |
0 |
if ($memb->[0] == 28) { } |
|
|
0 |
0 |
elsif ($memb->[0] == 29) { } |
|
|
0 |
0 |
elsif ($found) { } |
|
4855
|
0 |
0 |
$int ? : |
|
4856
|
0 |
0 |
if ($cv =~ /::/) |
|
4857
|
0 |
0 |
if ($cv eq $caseval) |
|
4879
|
0 |
0 |
unless $node->[0] == 27 |
|
4888
|
0 |
0 |
if (defined $memb or $CORBA::IDLtree::union_default_null_allowed) |
|
4893
|
0 |
0 |
if (isnode($st) and $st->[0] == 23) |
|
4896
|
0 |
0 |
ref $e ? : |
|
4898
|
0 |
0 |
if (defined $memb) |
|
4899
|
0 |
0 |
unless ($el =~ /::/) |
|
4913
|
0 |
0 |
if $memb->[0] == 48 |
|
4914
|
0 |
0 |
if ($memb->[0] == 28) { } |
|
|
0 |
0 |
elsif ($memb->[0] == 29) { } |
|
|
0 |
0 |
elsif (defined $case) { } |
|
4916
|
0 |
0 |
if is_integer($switcht) |