| line |
true |
false |
branch |
|
845
|
0 |
0 |
if /: *(\S+)/ |
|
1114
|
43 |
0 |
if ($value) |
|
1115
|
1 |
42 |
if (exists $this->{'_cache'}{$name}) |
|
1117
|
1 |
0 |
if ($existing != $value) |
|
1136
|
66 |
311 |
if (exists $this->{'_cache'}{$name}) |
|
1206
|
0 |
0 |
if (-e $fqn) |
|
1226
|
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/) { } |
|
1228
|
3 |
31 |
if ($ch eq "\"" and substr($str, $i - 1, 1) ne "\\") |
|
1236
|
0 |
6 |
if ($endx < $i + 2) |
|
1244
|
694 |
4227 |
unless ($in_lit) |
|
1252
|
0 |
694 |
if (exists $active_defines{$out[$ondx]}) |
|
1254
|
0 |
0 |
if ("$value" ne "") |
|
1261
|
236 |
458 |
unless ($ch =~ /\s/) |
|
1268
|
0 |
224 |
if ($in_lit) |
|
1270
|
0 |
0 |
if (exists $active_defines{$out[$ondx]}) |
|
1272
|
0 |
0 |
if ("$value" ne "") |
|
1289
|
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/) { } |
|
1290
|
0 |
30 |
if ($out[$i + 1] eq "double" and not $CORBA::IDLtree::long_double_supported) |
|
1293
|
10 |
20 |
if ($out[$i + 1] eq "long" or $out[$i + 1] eq "double") |
|
1298
|
1 |
0 |
if ($out[$i + 1] eq "short" or $out[$i + 1] eq "long") |
|
1301
|
0 |
1 |
if ($out[$i + 1] eq "long") |
|
1313
|
0 |
0 |
unless ($i < $#out - 1 and $out[$i + 2] eq ":") |
|
1315
|
0 |
0 |
if ($i > 0) |
|
1317
|
0 |
0 |
if ($prev =~ /\w$/ and not exists $keywords{$prev}) |
|
1318
|
0 |
0 |
if ($out[$i - 1] eq 'CORBA') { } |
|
1332
|
0 |
0 |
if ($i == 0 or $out[$i - 1] eq "(" or $out[$i - 1] eq "=" or $in_preprocessor) |
|
1339
|
0 |
0 |
if ($out[$i] =~ /^[\-\d][\d\.]*e$/i and $out[$i + 1] eq '+' || $out[$i + 1] eq '-') |
|
1348
|
0 |
24 |
if ($out[$i] =~ /^w?string$/ and ($out[$i + 1] eq "<" and $out[$i + 3] eq ">")) |
|
1363
|
0 |
17 |
unless (defined $tdesc) |
|
1369
|
0 |
17 |
if (@_) |
|
1373
|
17 |
0 |
if ($tdesc >= 1 and $tdesc <= 18) { } |
|
|
0 |
0 |
elsif ($recurse_into_typedef and isnode($tdesc) and $tdesc->[0] == 24) { } |
|
1384
|
0 |
0 |
unless ($dimref and @{$dimref;}) |
|
1396
|
111 |
6404 |
if ($idltype eq $predef_types[$i]) |
|
1397
|
0 |
111 |
if ($CORBA::IDLtree::string_bound and $idltype =~ /^w?string$/) { } |
|
1405
|
0 |
110 |
if ($idltype =~ /^(w?string)\s*<(\d+)\s*>/) |
|
1407
|
0 |
0 |
$1 eq 'wstring' ? : |
|
1417
|
0 |
185 |
if (not $name =~ /^[a-z_:]/i or $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed) |
|
1426
|
81 |
88 |
if (@_) |
|
1429
|
0 |
169 |
unless (is_valid_identifier($name)) |
|
1430
|
0 |
0 |
unless ($name =~ /^w?string<.*>$/) |
|
1434
|
0 |
169 |
if (exists $keywords{lc $name}) |
|
1435
|
0 |
0 |
if ($CORBA::IDLtree::permissive) { } |
|
1443
|
169 |
0 |
unless ($CORBA::IDLtree::leading_underscore_allowed > 1) |
|
1452
|
13 |
0 |
if (@_) |
|
1455
|
0 |
13 |
unless (is_valid_identifier($name)) |
|
1456
|
0 |
0 |
unless ($name =~ /^w?string<.*>$/) |
|
1461
|
0 |
13 |
ref $pt ? : |
|
|
13 |
0 |
if ((ref $pt ? $pt->[0] : $pt) < 24) |
|
1465
|
0 |
0 |
if (exists $keywords{lc $name}) |
|
1466
|
0 |
0 |
if ($CORBA::IDLtree::permissive) { } |
|
1483
|
5 |
140 |
$#scopestack < 0 ? : |
|
1488
|
0 |
183 |
if (@annotations) |
|
1497
|
0 |
236 |
if (@post_comment) |
|
1508
|
0 |
8 |
if (shift @{$argref;} ne "<") |
|
1514
|
3 |
5 |
if (not $type) { } |
|
|
0 |
5 |
elsif ($type == 22) { } |
|
1516
|
0 |
3 |
unless ($type) |
|
1525
|
2 |
6 |
if ($nxtarg eq ",") |
|
1529
|
0 |
8 |
if ($nxtarg ne ">") |
|
1540
|
0 |
88 |
if ($typename eq 'fixed') { } |
|
|
0 |
88 |
elsif ($typename =~ /^(w?string)<([\w:]+)>$/) { } |
|
|
8 |
80 |
elsif ($typename eq 'sequence') { } |
|
1541
|
0 |
0 |
if (shift @{$argref;} ne "<") |
|
1546
|
0 |
0 |
if ($digits =~ /\D/) |
|
1550
|
0 |
0 |
if (shift @{$argref;} ne ",") |
|
1555
|
0 |
0 |
if ($scale =~ /\D/) |
|
1559
|
0 |
0 |
if (shift @{$argref;} ne ">") |
|
1567
|
0 |
0 |
$1 eq 'wstring' ? : |
|
1569
|
0 |
0 |
unless ($bound =~ /^\d/) |
|
1571
|
0 |
0 |
if (isnode($boundtype)) { } |
|
1573
|
0 |
0 |
if ($node[0] == 31) { } |
|
1576
|
0 |
0 |
if (scalar @expr > 1 or not $expr[0] =~ /^\d/) |
|
1614
|
30 |
0 |
if (ref $structref_or_vt_access) { } |
|
1626
|
0 |
30 |
if ($first_thing eq "}") |
|
1631
|
0 |
30 |
unless ($component_type) |
|
1635
|
0 |
30 |
if (&in_annotation_def()) |
|
1638
|
0 |
0 |
if (@{$argref;}) |
|
1640
|
0 |
0 |
if ($next eq "default") |
|
1645
|
0 |
0 |
if (@{$argref;}) |
|
1647
|
0 |
0 |
unless ($next eq ";") |
|
1654
|
0 |
30 |
unless (is_type($component_type)) |
|
1665
|
0 |
30 |
if ($first_thing eq "}") |
|
1676
|
0 |
13 |
if ($nxtarg eq '[') { } |
|
|
13 |
0 |
elsif ($nxtarg eq ',' or $nxtarg eq ';') { } |
|
1678
|
0 |
0 |
if (shift @{$argref;} ne "]") |
|
1691
|
0 |
30 |
if (@dimensions) |
|
1693
|
0 |
0 |
unless ($CORBA::IDLtree::permissive) |
|
1699
|
0 |
30 |
if ($value_member_flag) { } |
|
1702
|
0 |
0 |
if (isnode($type) and $type->[1] eq $component_name) |
|
1709
|
15 |
98 |
unless ref $_ |
|
1710
|
53 |
45 |
if $_->[0] == 28 or $_->[0] == 29 |
|
1711
|
0 |
45 |
if ($_->[0] != 48 and $_->[1] eq $component_name) |
|
1717
|
0 |
30 |
if ($name_found) |
|
1721
|
15 |
15 |
unless (defined $comment) |
|
1726
|
0 |
30 |
if ($value_member_flag) { } |
|
1731
|
13 |
17 |
if $nxtarg eq ";" |
|
1783
|
0 |
0 |
if (@_) { } |
|
1791
|
1 |
0 |
if (not $did_emucppmsg) |
|
1804
|
0 |
0 |
if ($symbol eq 'defined') { } |
|
|
0 |
0 |
elsif ($symbol =~ /^[A-z]/) { } |
|
|
0 |
0 |
elsif (not $symbol =~ /^\d+$/) { } |
|
1805
|
0 |
0 |
if $arg[0] eq "(" |
|
1807
|
0 |
0 |
if $arg[0] eq ")" |
|
1808
|
0 |
0 |
if (@arg or not $symbol =~ /^\d+$/) |
|
1832
|
0 |
0 |
if ($in_comment) |
|
1833
|
0 |
0 |
if ($l =~ m[\*/]) |
|
1839
|
0 |
0 |
if ($cstart >= 0) |
|
1841
|
0 |
0 |
if ($cstop > $cstart) { } |
|
1843
|
0 |
0 |
if ($cstart > 0) |
|
1848
|
0 |
0 |
if ($cstop < length $l) |
|
1857
|
0 |
0 |
unless $l =~ /^\s*#/ |
|
1862
|
0 |
0 |
if ($count == 0) |
|
1863
|
0 |
0 |
if ($directive eq "else" or $directive eq "endif") |
|
1866
|
0 |
0 |
if ($directive eq "elif") |
|
1867
|
0 |
0 |
if (eval_preproc_expr(@arg)) |
|
1873
|
0 |
0 |
if ($directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef') { } |
|
|
0 |
0 |
elsif ($directive eq 'endif') { } |
|
1889
|
21 |
1 |
if (length $line > 2) |
|
1892
|
0 |
21 |
if ($ord0 == 65279) { } |
|
|
0 |
21 |
elsif ($ord0 == 239) { } |
|
1897
|
0 |
0 |
if ($ord1 == 187 and $ord2 == 191) |
|
1908
|
204 |
25 |
if (@_) |
|
1912
|
2 |
227 |
if (@global_items) |
|
1931
|
22 |
281 |
if ($firstline) |
|
1935
|
0 |
303 |
if ($l =~ /[^\t\f[:print:]]/) |
|
1937
|
0 |
0 |
unless (ref $decoder) |
|
1939
|
0 |
0 |
if ($decoder =~ /No appropriate encodings found/) { } |
|
1947
|
43 |
260 |
if ($l =~ /^\s*$/) |
|
1948
|
0 |
43 |
if ($in_comment) |
|
1949
|
0 |
0 |
if ($seen_token) { } |
|
1957
|
21 |
239 |
if ($in_comment) |
|
1958
|
0 |
21 |
if ($l =~ m[/\*]) |
|
1961
|
1 |
20 |
if ($l =~ m[\*/]) { } |
|
1968
|
0 |
1 |
if ($seen_token) { } |
|
1975
|
0 |
1 |
if ($seen_token) |
|
1976
|
0 |
0 |
unless ($l =~ /^\s*$/) |
|
1981
|
1 |
0 |
if $l =~ /^\s*$/ |
|
1983
|
0 |
20 |
if ($seen_token) { } |
|
1991
|
10 |
229 |
if ($l =~ m[^\s*//(.*)]) |
|
1993
|
6 |
4 |
unless (@remark) |
|
2003
|
0 |
1 |
if ($cend > 0) { } |
|
2027
|
0 |
1 |
unless (defined $line_number[$currfile]) |
|
2030
|
1 |
0 |
if ($l =~ /^\s*$/) { } |
|
2039
|
0 |
228 |
if ($l =~ m[//(.*)$]) |
|
2041
|
0 |
0 |
unless ($cmnt =~ /^\s*$/) |
|
2042
|
0 |
0 |
unless (defined $line_number[$currfile]) |
|
2052
|
224 |
4 |
if ($first) { } |
|
2058
|
222 |
4 |
if ($line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/ or $line =~ /[;,":{]$/) |
|
2062
|
224 |
0 |
unless $in_comment |
|
2065
|
0 |
227 |
if ($in_comment) |
|
2069
|
3 |
224 |
unless ($line) |
|
2075
|
222 |
2 |
if ($tmp[0] ne "#") |
|
2080
|
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') { } |
|
2082
|
0 |
0 |
unless eval_preproc_expr(@tmp) |
|
2087
|
0 |
0 |
unless $symbol =~ /^\d/ |
|
2092
|
0 |
0 |
if $symbol =~ /^\d/ |
|
2098
|
0 |
0 |
if (@tmp) |
|
2102
|
0 |
0 |
if (exists $active_defines{$symbol} and $value ne $active_defines{$symbol}) |
|
2104
|
0 |
0 |
if ($CORBA::IDLtree::cache_trees) { } |
|
2116
|
0 |
0 |
if (exists $active_defines{$symbol}) |
|
2117
|
0 |
0 |
if ($CORBA::IDLtree::cache_trees) |
|
2152
|
2 |
0 |
if (@parts == 0) |
|
2154
|
0 |
2 |
if (not $refscope and $p eq "") |
|
2160
|
2 |
0 |
if $scope == $s |
|
2171
|
0 |
0 |
if $is_abs |
|
2174
|
0 |
0 |
if join("::", @parts) eq $p |
|
2176
|
0 |
0 |
unless ($is_abs) |
|
2179
|
0 |
0 |
if join("::", (@anc, @parts)) eq $p |
|
2194
|
0 |
6 |
unless (ref $enum_subordinate) |
|
2200
|
0 |
21 |
unless (ref $elem eq "ARRAY") |
|
2205
|
0 |
21 |
if $elem->[0] =~ /^\d/ |
|
2218
|
2 |
0 |
unless defined $refscope |
|
2224
|
2 |
0 |
if (defined $s) |
|
2226
|
2 |
2 |
if $_ eq $e |
|
2236
|
1 |
16 |
if ($case->[0] == 29) { } |
|
2238
|
1 |
2 |
if $i++ == 0 |
|
2239
|
0 |
2 |
if ($_->[0] == 29) |
|
2247
|
2 |
14 |
if (is_a($type, 23)) { } |
|
|
2 |
12 |
elsif (is_a($type, 1)) { } |
|
|
4 |
8 |
elsif (is_a($type, 3)) { } |
|
2250
|
0 |
2 |
unless (check_enum_literal($type, $c)) |
|
2257
|
0 |
2 |
unless ($c eq "TRUE" or $c eq "FALSE") |
|
2264
|
0 |
5 |
unless ($c =~ /^'.*'$/ or $c =~ /^\d+$/) |
|
2272
|
0 |
9 |
unless ($c =~ /^[-+]?\d+$/) |
|
2274
|
0 |
0 |
unless ($resolved_const =~ /^[-+]?\d+$/) |
|
2282
|
16 |
70 |
if $i++ == 0 |
|
2283
|
41 |
29 |
unless $_->[0] == 28 |
|
2286
|
0 |
38 |
if ($c eq $_) |
|
2300
|
0 |
2 |
if ($CORBA::IDLtree::cache_trees) { } |
|
2302
|
0 |
0 |
if ($incfile_contents_ref) |
|
2322
|
1 |
1 |
unless ($locale_was_determined) |
|
2324
|
0 |
3 |
if (exists $ENV{$env}) |
|
2326
|
0 |
0 |
if ($lang and $lang ne "C") |
|
2335
|
0 |
2 |
if ($CORBA::IDLtree::cache_statistics) |
|
2339
|
0 |
2 |
if ($res and not @$res) { } |
|
|
0 |
2 |
elsif ($CORBA::IDLtree::cache_trees) { } |
|
2356
|
0 |
0 |
unless $node->[0] == 26 |
|
2361
|
0 |
0 |
if ($membertype == 48) { } |
|
2364
|
0 |
0 |
if (isnode($membertype) and $membertype->[0] == 20 || $membertype->[0] == 21) |
|
2397
|
0 |
0 |
unless (defined $index) |
|
2399
|
0 |
0 |
if ($argref->[0] eq "(") |
|
2402
|
0 |
0 |
if ($argref->[0] eq ")") |
|
2408
|
0 |
0 |
unless ($seen_closing_parenth) |
|
2419
|
0 |
0 |
if (@adef) |
|
2421
|
0 |
0 |
unless ($argref and @$argref) |
|
2428
|
0 |
0 |
if (@$argref and $argref->[0] eq "(") |
|
2429
|
0 |
0 |
unless (@adef) |
|
2438
|
0 |
0 |
if ($val eq ")") |
|
2442
|
0 |
0 |
if $val eq "," |
|
2443
|
0 |
0 |
if ($val =~ /^[a-z]/i and $argref->[0] eq '=') { } |
|
2446
|
0 |
0 |
unless (@$argref) |
|
2452
|
0 |
0 |
if ($adef[$ai][1] eq $parname) |
|
2457
|
0 |
0 |
unless (defined $param_index) |
|
2463
|
0 |
0 |
if (exists $annoEnum{$type}) |
|
2465
|
0 |
0 |
unless (grep {$_ eq $val;} @{$enumvalues;}) |
|
2473
|
0 |
0 |
if (exists $annoEnum{$type}) |
|
2475
|
0 |
0 |
unless (grep {$_ eq $val;} @{$enumvalues;}) |
|
2485
|
0 |
0 |
unless ($closing_parenth_seen) |
|
2490
|
0 |
0 |
if (@adef) |
|
2492
|
0 |
0 |
unless (defined $anargs[$i]) |
|
2495
|
0 |
0 |
if (defined $default) { } |
|
2514
|
0 |
4 |
if ($members[$i][0] == 29) |
|
2525
|
0 |
97 |
if ($in_valuetype and not $CORBA::IDLtree::vt2struct) { } |
|
2539
|
3 |
19 |
if ($file) { } |
|
|
19 |
0 |
elsif ("$input_filehandle") { } |
|
2540
|
0 |
3 |
unless -e "$file" |
|
2548
|
0 |
3 |
unless ($emucpp) |
|
2552
|
0 |
0 |
if (locate_executable('cpp')) { } |
|
|
0 |
0 |
elsif (locate_executable('gcc')) { } |
|
2560
|
3 |
0 |
if ($emucpp) { } |
|
2561
|
0 |
3 |
unless open $in, "<", $file |
|
2570
|
0 |
0 |
unless open $in, "$cppcmd $cpp_args $file |" |
|
2580
|
20 |
2 |
if ($symb) { } |
|
2592
|
0 |
201 |
if ($verbose > 1) |
|
2596
|
0 |
201 |
if ($CORBA::IDLtree::enable_comments and @remark) |
|
2598
|
0 |
0 |
if (@typestack) { } |
|
2609
|
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') { } |
|
2611
|
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') { } |
|
2614
|
1 |
0 |
if ($directive eq 'prefix') { } |
|
|
0 |
0 |
elsif ($directive eq 'version') { } |
|
|
0 |
0 |
elsif (uc $directive eq 'ID') { } |
|
2616
|
0 |
1 |
if (substr($prefix, 0, 1) ne '"') { } |
|
2620
|
0 |
1 |
if (substr($prefix, length($prefix) - 1) ne '"') { } |
|
2647
|
0 |
1 |
if ($filename eq "<") |
|
2653
|
0 |
0 |
if ($t eq ">") |
|
2660
|
0 |
1 |
if (substr($filename, 0, 1) ne '"') { } |
|
2664
|
0 |
1 |
if (substr($filename, length($filename) - 1) ne '"') { } |
|
2672
|
1 |
0 |
unless (-e "$filename") |
|
2675
|
1 |
0 |
if (-e "$_/$filename") |
|
2682
|
0 |
1 |
unless $found |
|
2684
|
0 |
1 |
if (@typestack or @scopestack) |
|
2689
|
0 |
1 |
if ($incfile_contents_ref) { } |
|
2701
|
0 |
1 |
unless Parse_File_i($filename, undef, $incfile_contents_ref) |
|
2705
|
1 |
0 |
if $in_global_scope |
|
2707
|
0 |
1 |
unless ($in_global_scope) |
|
2725
|
0 |
0 |
if ($filename eq $infilename[$currfile]) |
|
2732
|
0 |
0 |
if ($filename eq $infilename[$i]) |
|
2739
|
0 |
0 |
if $seen_file |
|
2745
|
0 |
0 |
unless $incfile_contents_ref |
|
2769
|
0 |
0 |
if ($ann eq 'annotation') { } |
|
2773
|
0 |
0 |
if (shift @arg ne "{") |
|
2778
|
0 |
0 |
if (@arg) |
|
2779
|
0 |
0 |
if ($arg[0] eq "}" or parse_members($symbols, \@arg, \@struct) == 1) |
|
2790
|
0 |
0 |
if (@arg) |
|
2797
|
0 |
34 |
if (shift @arg ne ";") |
|
2800
|
19 |
15 |
unless (@typestack) |
|
2801
|
19 |
0 |
if (@scopestack) { } |
|
2809
|
0 |
15 |
if ($in_valuetype) |
|
2813
|
0 |
15 |
if (&in_annotation_def()) |
|
2824
|
1 |
14 |
if ($type == 27 and is_a($struct[0], 23)) |
|
2828
|
1 |
0 |
unless (has_default_branch(\@struct)) |
|
2833
|
2 |
3 |
if ($umember->[0] == 28) |
|
2842
|
0 |
3 |
ref $_ ? : |
|
2843
|
1 |
2 |
if (defined $lit and not defined $lits_given{$lit}) |
|
2851
|
0 |
15 |
if ($CORBA::IDLtree::struct2vt and $type == 26) |
|
2860
|
0 |
3 |
if shift @arg ne "{" |
|
2869
|
1 |
2 |
if ($module) |
|
2880
|
0 |
3 |
unless Parse_File_i("", $in, $subord) |
|
2881
|
0 |
3 |
unless ($module) |
|
2890
|
14 |
16 |
if ($lasttok eq ';') { } |
|
|
0 |
16 |
elsif ($lasttok ne '{') { } |
|
2896
|
0 |
0 |
unless (require_end_of_stmt(\@arg, $in, "{")) |
|
2902
|
14 |
2 |
if ($fwd) |
|
2903
|
0 |
14 |
if ($fwd->[0] != 34) |
|
2910
|
5 |
11 |
if (@arg) |
|
2911
|
0 |
5 |
if (shift @arg ne ':') { } |
|
|
0 |
5 |
elsif (not @arg) { } |
|
2922
|
0 |
6 |
unless ($ancestor_node) |
|
2927
|
1 |
5 |
if ($i < $#arg) |
|
2928
|
0 |
1 |
if ($arg[++$i] ne ",") |
|
2940
|
0 |
16 |
unless Parse_File_i("", $in, $subord) |
|
2962
|
0 |
0 |
if ($CORBA::IDLtree::vt2struct) { } |
|
2972
|
0 |
0 |
if ($nxttok eq ";") |
|
2979
|
0 |
0 |
if ($nxttok eq ":") |
|
2980
|
0 |
0 |
if (($nxttok = shift @arg) eq "truncatable") |
|
2986
|
0 |
0 |
if (not isnode($anc_type) or $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36) { } |
|
2994
|
0 |
0 |
unless ($nxttok = shift @arg) eq "," |
|
2999
|
0 |
0 |
if ($nxttok eq "supports") |
|
3002
|
0 |
0 |
if (not $anc_type) { } |
|
|
0 |
0 |
elsif (not isnode($anc_type) or $anc_type->[0] != 33 or $anc_type->[0] != 34) { } |
|
3011
|
0 |
0 |
unless ($nxttok = shift @arg) eq "," |
|
3015
|
0 |
0 |
if ($seen_ancestors) { } |
|
|
0 |
0 |
elsif (isname($nxttok)) { } |
|
|
0 |
0 |
elsif ($nxttok ne '{') { } |
|
3016
|
0 |
0 |
if ($nxttok ne "{") |
|
3023
|
0 |
0 |
if ($type) { } |
|
3035
|
0 |
0 |
if (ref $fwd and $fwd->[0] == 36) |
|
3039
|
0 |
0 |
unless ($CORBA::IDLtree::vt2struct) |
|
3045
|
0 |
0 |
unless Parse_File_i("", $in, $declarations, 1) |
|
3055
|
0 |
0 |
unless ($in_valuetype) |
|
3059
|
0 |
0 |
if ($abstract) |
|
3063
|
0 |
0 |
if ($CORBA::IDLtree::vt2struct) { } |
|
3064
|
0 |
0 |
if (parse_members($symbols, \@arg, \@struct) == 1) |
|
3075
|
0 |
0 |
if ($kw eq 'public') { } |
|
3080
|
0 |
0 |
if (parse_members($symbols, \@arg, $vt_access, $cmnt) == 1) |
|
3082
|
0 |
0 |
if (@scopestack) { } |
|
3094
|
8 |
2 |
$kw eq 'struct' ? : |
|
3103
|
0 |
10 |
if ($type == 26 and $nxt eq ":") |
|
3106
|
0 |
0 |
if (isnode($parent) and $parent->[0] == 26) { } |
|
3113
|
0 |
10 |
if ($nxt ne "{") |
|
3117
|
0 |
10 |
if (@arg) |
|
3118
|
0 |
0 |
if ($arg[0] eq "}" or parse_members($symbols, \@arg, \@struct, $cmnt) == 1) |
|
3122
|
0 |
0 |
if ($CORBA::IDLtree::struct2vt and $type == 26) |
|
3142
|
0 |
5 |
if (shift @arg ne "switch") |
|
3147
|
0 |
5 |
if ($nxt ne "(") |
|
3159
|
0 |
5 |
if (not $switchtype) { } |
|
|
1 |
4 |
elsif (isnode($switchtype)) { } |
|
|
0 |
4 |
elsif ($switchtype < 1 or $switchtype > 10) { } |
|
3164
|
0 |
1 |
if ($typ < 1 or $typ > 9 and $typ != 23 and $typ != 24) |
|
3173
|
0 |
5 |
if shift @arg ne ")" |
|
3174
|
0 |
5 |
if shift @arg ne "{" |
|
3175
|
0 |
5 |
if @arg |
|
3182
|
16 |
1 |
if ($kw eq 'case') { } |
|
3185
|
0 |
16 |
if (shift @arg ne ":") |
|
3189
|
4 |
12 |
unless @arg |
|
3190
|
12 |
0 |
unless $arg[0] eq "case" |
|
3193
|
4 |
12 |
unless (@arg) |
|
3198
|
2 |
2 |
unless ($kw eq "case") |
|
3204
|
2 |
0 |
if ($arg[$#arg] eq ";") |
|
3209
|
0 |
2 |
if (shift @arg ne ":") |
|
3213
|
0 |
2 |
unless @arg |
|
3214
|
2 |
0 |
unless $arg[0] eq "case" |
|
3217
|
2 |
0 |
if @arg |
|
3222
|
0 |
1 |
if (shift @arg ne ":") |
|
3230
|
15 |
2 |
if (@arg) |
|
3231
|
0 |
15 |
if (parse_members($symbols, \@arg, \@struct) == 1) |
|
3233
|
0 |
0 |
if ($#typestack < 0) |
|
3241
|
0 |
0 |
if ($initial_cmnt) |
|
3242
|
0 |
0 |
if ($cmnt and $cmnt != $initial_cmnt) |
|
3247
|
0 |
0 |
if ($type != 27) |
|
3261
|
0 |
3 |
if (shift @arg ne "{") |
|
3267
|
1 |
2 |
unless @arg |
|
3270
|
0 |
12 |
if (&in_annotation_def()) { } |
|
3271
|
0 |
0 |
unless ($lit =~ /^\w+$/) |
|
3277
|
0 |
12 |
if ($CORBA::IDLtree::enable_comments and @remark) |
|
3288
|
0 |
12 |
unless ($lit =~ /^\w+$/) |
|
3293
|
12 |
0 |
if (@arg) |
|
3295
|
3 |
9 |
if $nxt eq "}" |
|
3296
|
0 |
9 |
unless ($nxt eq ",") |
|
3302
|
4 |
5 |
unless @arg |
|
3304
|
0 |
3 |
if (&in_annotation_def()) { } |
|
3313
|
0 |
97 |
unless (require_end_of_stmt(\@arg, $in)) |
|
3318
|
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) { } |
|
3326
|
0 |
12 |
if (shift @arg ne "=") |
|
3331
|
0 |
12 |
unless ($typething) |
|
3337
|
0 |
5 |
if /^\d/ or /^\.\d/ or /^-\d/ |
|
3338
|
2 |
3 |
if /^'.*'$/ or /^".*"$/ |
|
3339
|
3 |
0 |
if is_valid_identifier($_) |
|
3347
|
0 |
0 |
if ($arg eq $_) |
|
3352
|
0 |
0 |
if $is_operand |
|
3356
|
2 |
10 |
if (isnode($typething)) |
|
3358
|
0 |
2 |
if ($id < 23 or $id > 24) |
|
3370
|
0 |
13 |
unless ($existing_typenode) |
|
3377
|
0 |
7 |
if (shift @arg ne "[") |
|
3385
|
7 |
7 |
if $token eq "]" |
|
3386
|
0 |
7 |
if ($dim) |
|
3391
|
0 |
7 |
unless ($dim) |
|
3395
|
0 |
7 |
unless ($token eq "]") |
|
3407
|
1 |
2 |
if ($kw eq "readonly") |
|
3408
|
0 |
1 |
if (shift @arg ne "attribute") |
|
3416
|
0 |
3 |
unless ($type) |
|
3428
|
5 |
49 |
if ($kw eq 'oneway') { } |
|
|
7 |
42 |
elsif ($kw eq 'void') { } |
|
|
0 |
42 |
elsif ($in_valuetype and $kw eq 'factory') { } |
|
3429
|
0 |
5 |
if (shift @arg ne "void") |
|
3440
|
0 |
42 |
unless ($rettype) |
|
3447
|
0 |
54 |
if (shift @arg ne '(') { } |
|
|
0 |
54 |
elsif (pop @arg ne ')') { } |
|
3460
|
1 |
77 |
if ($m eq ")") |
|
3461
|
0 |
1 |
if ($typename ne 'raises') { } |
|
|
0 |
1 |
elsif ($pname ne '(') { } |
|
3470
|
21 |
0 |
$m eq 'inout' ? : |
|
|
22 |
21 |
$m eq 'out' ? : |
|
|
34 |
43 |
$m eq 'in' ? : |
|
3473
|
0 |
77 |
unless ($pmode) |
|
3477
|
0 |
77 |
if ($rettype == 41 and $pmode != 1) |
|
3482
|
0 |
77 |
unless ($ptype) |
|
3489
|
46 |
31 |
if (@arg and $arg[0] eq ",") |
|
3494
|
1 |
53 |
if ($expecting_exception_list) |
|
3498
|
0 |
1 |
if (not $exc_type) { } |
|
|
0 |
1 |
elsif (do {
$exc_type
}->[0] != 30) { } |
|
3506
|
0 |
1 |
if (@arg and shift @arg ne ",") |
|
3512
|
0 |
54 |
if ($in_valuetype) { } |
|
3513
|
0 |
0 |
if (@exception_list) |
|
3523
|
0 |
15 |
if ($#typestack < 0) |
|
3527
|
2 |
13 |
if ($typestack[-1] == 27) |
|
3532
|
2 |
0 |
unless $struct[$i][0] == 48 |
|
3535
|
0 |
2 |
if ($i < 0 or $struct[$i][0] != 28 and $struct[$i][0] != 29) |
|
3540
|
0 |
15 |
if (parse_members($symbols, \@arg, \@struct, $cmnt) == 1) |
|
3544
|
0 |
0 |
if ($type == ANNOTATION()) { } |
|
3549
|
0 |
0 |
if ($initial_cmnt) |
|
3550
|
0 |
0 |
if ($cmnt and $cmnt != $initial_cmnt) |
|
3563
|
3 |
0 |
if ($file) |
|
3569
|
0 |
3 |
if ($CORBA::IDLtree::n_errors) |
|
3572
|
2 |
1 |
unless $symb |
|
3586
|
0 |
97 |
if (@_) |
|
3589
|
88 |
9 |
if ($$argref[$argref->$#*] eq $stmt_terminator) |
|
3595
|
0 |
16 |
unless @new_items = get_items($file) |
|
3598
|
9 |
0 |
if ($$argref[$argref->$#*] eq $stmt_terminator) |
|
3609
|
295 |
7339 |
unless ref $node_ref |
|
3610
|
155 |
7184 |
unless ref $node_ref eq "ARRAY" and defined $node_ref->[0] |
|
3611
|
6836 |
348 |
if ($node_ref->[0] >= 1 and $node_ref->[0] < 49) |
|
3613
|
0 |
6836 |
if (scalar @$node_ref == 5) |
|
3632
|
0 |
0 |
if (isnode($thing)) |
|
3643
|
13 |
17 |
if (isnode($thing)) { } |
|
3668
|
432 |
0 |
unless ($noderef->[0] == 43) |
|
3681
|
197 |
50 |
unless (grep {$_ eq $element;} @$targetlistref) |
|
3698
|
170 |
309 |
if (isnode($root)) { } |
|
3701
|
64 |
106 |
if ($type == 33) { } |
|
|
0 |
106 |
elsif ($type == 35) { } |
|
|
14 |
92 |
elsif ($type == 34) { } |
|
3708
|
0 |
14 |
unless (isnode($full_interface)) |
|
3713
|
0 |
0 |
if (defined $root->[1] and $root->[1] eq $first) |
|
3733
|
384 |
6354 |
unless isnode($node) |
|
3734
|
0 |
6354 |
if ($type == 35) |
|
3735
|
0 |
0 |
if $node->[0] |
|
3739
|
0 |
6354 |
unless (defined $nt) |
|
3743
|
1010 |
5344 |
if $nt == 48 or $nt == 42 or $nt == 38 |
|
3745
|
1 |
5343 |
if ($nt == 43) { } |
|
|
246 |
5097 |
elsif (defined $node->[1] and $node->[1] eq $first) { } |
|
3748
|
182 |
64 |
if (@parts == 0) { } |
|
3750
|
64 |
118 |
if ($nt == 34) |
|
3753
|
50 |
14 |
if (isnode($full_interface)) |
|
3761
|
247 |
5097 |
if (@r) |
|
3767
|
78 |
401 |
if (defined $anc and @parts == 0) |
|
3771
|
0 |
14 |
if (@r) |
|
3784
|
0 |
200 |
if ("$name" eq "") |
|
3790
|
0 |
200 |
if ($name =~ /^::/) |
|
3794
|
200 |
0 |
if ($name =~ /^CORBA::/ or not $name =~ /::/) |
|
3800
|
94 |
106 |
if ($predef_type_id) |
|
3805
|
0 |
106 |
if (&in_annotation_def()) |
|
3806
|
0 |
0 |
if (exists $annoEnum{$name}) |
|
3816
|
106 |
0 |
unless ($is_abs) |
|
3820
|
26 |
80 |
if defined $res |
|
3822
|
13 |
67 |
if (@r == 1) |
|
3830
|
67 |
0 |
if (@prev_symroots and $prev_symroots[-1] != $current_symtree_ref) |
|
3835
|
134 |
0 |
unless ($is_abs) |
|
3842
|
39 |
159 |
if ($res) |
|
3847
|
67 |
92 |
unless @sc |
|
3851
|
26 |
66 |
if (@r) |
|
3852
|
0 |
26 |
if (scalar @r > 1) |
|
3855
|
0 |
0 |
if (@r > 1) { } |
|
3878
|
0 |
69 |
if defined $res |
|
3880
|
0 |
69 |
if (@r) |
|
3881
|
0 |
0 |
if (scalar @r > 1) |
|
3884
|
0 |
0 |
if (@r > 1) { } |
|
3906
|
9 |
0 |
unless $verbose |
|
3908
|
0 |
0 |
if ($currfile >= 0 and $currfile < scalar @infilename) { } |
|
3918
|
0 |
0 |
if ($currfile >= 0 and $currfile < scalar @infilename) { } |
|
3930
|
0 |
0 |
if ($currfile >= 0) |
|
3944
|
189 |
2 |
if (@_) |
|
3948
|
98 |
93 |
if (not ref $type and ($type >= 1 and $type < 49)) { } |
|
|
0 |
93 |
elsif (not isnode($type)) { } |
|
3950
|
98 |
0 |
if ($type <= 18) |
|
3961
|
91 |
2 |
if ($gen_scope) |
|
3965
|
0 |
91 |
if $scope[0] == 43 |
|
3967
|
91 |
0 |
unless ($prefix =~ /\b$new_prefix/) |
|
3972
|
91 |
0 |
if (ref $gen_scope) |
|
3976
|
28 |
63 |
if ($prefix eq "${curr_scope}::") |
|
3982
|
0 |
93 |
if ($node[0] == 19) { } |
|
|
0 |
93 |
elsif ($node[0] == 20 or $node[0] == 21) { } |
|
|
8 |
85 |
elsif ($node[0] == 22) { } |
|
3990
|
0 |
0 |
if ($node[0] == 21) |
|
3998
|
2 |
6 |
if ($bound) |
|
4011
|
0 |
47 |
unless ($type) |
|
4016
|
44 |
3 |
unless (isnode($type)) |
|
4017
|
44 |
0 |
if ($typeid > 0) { } |
|
4025
|
3 |
0 |
if ($typeid > 0) { } |
|
4026
|
3 |
0 |
if $type->[0] == $typeid |
|
4028
|
0 |
0 |
if scoped_name($type) eq $typeid |
|
4030
|
0 |
0 |
unless $type->[0] == 24 |
|
4038
|
0 |
0 |
if $dimref and @{$dimref;} |
|
4048
|
0 |
17 |
if (isnode($type) and $type->[0] == 24) |
|
4050
|
0 |
0 |
unless ($dimref and @{$dimref;}) |
|
4063
|
0 |
0 |
if (isnode($type) and $type->[0] == 24) |
|
4072
|
0 |
0 |
if (isnode($type)) |
|
4089
|
0 |
0 |
if (not $symroot) { } |
|
|
0 |
0 |
elsif (not ref $symroot) { } |
|
|
0 |
0 |
elsif (isnode($symroot)) { } |
|
4103
|
0 |
0 |
if ($type == 43) |
|
4115
|
0 |
0 |
if ($epos < 0) |
|
4118
|
0 |
0 |
if ($epos > 0) { } |
|
4130
|
0 |
0 |
if ($value =~ /^[-+]?(?:0x)?[0-9a-f]*$/i) |
|
4132
|
0 |
0 |
if ($is64bit) { } |
|
4134
|
0 |
0 |
if ($wantfloat) |
|
4142
|
0 |
0 |
if ($value =~ /^[-+]?0[0-7]/) { } |
|
4145
|
0 |
0 |
if ('Math::BigInt'->can('from_oct')) { } |
|
4151
|
0 |
0 |
if ($dg[0] eq "-" or $dg[0] eq "+" or $dg[0] eq 0) |
|
4153
|
0 |
0 |
if $c eq "-" |
|
4158
|
0 |
0 |
if ($c lt 0 or $c gt 7) |
|
4164
|
0 |
0 |
if $sg eq "-" |
|
4166
|
0 |
0 |
if ($v->is_nan) |
|
4171
|
0 |
0 |
if ($v->is_nan) |
|
4174
|
0 |
0 |
if ($wantfloat and not $v =~ /\./) |
|
4181
|
0 |
0 |
if ($value =~ /^[-+]?(?:\d+.?\d*|\.\d+)(?:[eE][+-]?\d+)?$/) |
|
4184
|
0 |
0 |
if ($wantfloat and not $res =~ /\./) |
|
4190
|
0 |
0 |
if (isnode($value)) |
|
4192
|
0 |
0 |
unless $value->[0] == 31 |
|
4201
|
0 |
0 |
if ($token =~ /^[a-z]/i) { } |
|
4204
|
0 |
0 |
if (defined $v) { } |
|
4214
|
0 |
0 |
if ($wantfloat and not $res =~ /\./) |
|
4221
|
0 |
0 |
if (@expr > 1) { } |
|
|
0 |
0 |
elsif ($expr[0] eq 'FALSE') { } |
|
|
0 |
0 |
elsif ($expr[0] eq 'TRUE') { } |
|
4223
|
0 |
0 |
$wantfloat ? : |
|
4235
|
0 |
0 |
if (isnode($node)) |
|
4249
|
0 |
0 |
if (@_) |
|
4252
|
0 |
0 |
unless defined $scoperef->[2] |
|
4257
|
0 |
0 |
if ($scopetype == 33) { } |
|
|
0 |
0 |
elsif ($scopetype == 35) { } |
|
4265
|
0 |
0 |
if ($scopetype == 35) |
|
4266
|
0 |
0 |
if $node->[0] |
|
4269
|
0 |
0 |
if (@$node > 1 and $node->[1] eq $name) |
|
4270
|
0 |
0 |
if ($must_be_scope_node and not is_scope($node)) { } |
|
4288
|
0 |
0 |
unless $currscope |
|
4289
|
0 |
0 |
unless (defined $currscope) |
|
4290
|
0 |
0 |
unless defined $global_symroot |
|
4295
|
0 |
0 |
if ($node->[0] == 43) { } |
|
|
0 |
0 |
elsif (is_scope($node) and $scopes[0] eq $node->[1]) { } |
|
4298
|
0 |
0 |
if $currscope |
|
4302
|
0 |
0 |
if (scalar @scopes > 1) { } |
|
4308
|
0 |
0 |
if ($currscope) |
|
4316
|
0 |
0 |
unless defined $currscope |
|
4319
|
0 |
0 |
if ($scopes[0] eq $currscope->[1]) |
|
4325
|
0 |
0 |
unless $currscope |
|
4332
|
0 |
0 |
if ($scope) |
|
4337
|
0 |
0 |
unless $scope |
|
4350
|
0 |
0 |
if defined $currscope |
|
4355
|
0 |
0 |
unless defined $scoperef |
|
4366
|
2 |
2 |
unless ref $scoperef |
|
4367
|
0 |
2 |
if $scoperef->[0] == 43 |
|
4381
|
0 |
0 |
if ($scopes[$i] eq $scopes[$i - 1]) |
|
4398
|
0 |
0 |
if $components[0] eq "" |
|
4400
|
0 |
0 |
if (scalar @components > 1) { } |
|
|
0 |
0 |
elsif (defined $scoperef and $scoperef != 0) { } |
|
4403
|
0 |
0 |
if (defined $scoperef) |
|
4410
|
0 |
0 |
if $noderef |
|
4413
|
0 |
0 |
if ($recurse and not $noderef) |
|
4416
|
0 |
0 |
if ($nodetype == 35) |
|
4421
|
0 |
0 |
if ($nodetype == 35) |
|
4422
|
0 |
0 |
if $n->[0] |
|
4426
|
0 |
0 |
unless $nt == 43 or $nt == 32 or $nt == 33 or $nt == 35 |
|
4429
|
0 |
0 |
if $noderef |
|
4434
|
0 |
0 |
if $_->[0] == 48 |
|
4435
|
0 |
0 |
if ($_->[1] eq $name) |
|
4436
|
0 |
0 |
if ($_->[0] == 34) |
|
4440
|
0 |
0 |
if defined $full_interface and @{$full_interface;} |
|
4449
|
0 |
0 |
if ($nt == 43 or $nt == 32 or $nt == 33 or $nt == 35) |
|
4452
|
0 |
0 |
if $noderef |
|
4462
|
0 |
0 |
if (@_) |
|
4466
|
0 |
0 |
unless (isnode($node)) |
|
4487
|
0 |
944 |
if (defined $dsoptarg) { } |
|
4488
|
0 |
0 |
if (ref $dsoptarg) { } |
|
4500
|
191 |
91 |
if (@_) |
|
4507
|
46 |
0 |
unless $cmnt_ref |
|
4509
|
0 |
0 |
unless @cmnt |
|
4510
|
0 |
0 |
if (scalar @cmnt == 1) |
|
4531
|
0 |
135 |
unless ($sym_array_ref) |
|
4536
|
2 |
133 |
unless (isnode($sym_array_ref)) |
|
4538
|
0 |
4 |
unless (dump_symbols_internal($_)) |
|
4550
|
2 |
131 |
if ($type == 43 or $type == 44) |
|
4551
|
1 |
1 |
if ($type == 43) { } |
|
4560
|
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) { } |
|
4562
|
1 |
2 |
if $arg[0] |
|
4567
|
5 |
49 |
if ($t == 39) { } |
|
|
7 |
42 |
elsif ($t == 40) { } |
|
4575
|
54 |
0 |
if (@arg) |
|
4577
|
0 |
54 |
unless (ref $lastarg eq "ARRAY") |
|
4582
|
54 |
0 |
if (scalar @last != 3 or ref $last[1]) |
|
4587
|
31 |
23 |
if (@arg) |
|
4588
|
24 |
7 |
unless ($#arg == 0) |
|
4597
|
22 |
21 |
$m == &OUT ? : |
|
|
34 |
43 |
$m == &IN ? : |
|
4598
|
70 |
7 |
unless $#arg == 0 |
|
4600
|
46 |
31 |
if $i < $#arg |
|
4602
|
24 |
7 |
unless ($#arg == 0) |
|
4607
|
1 |
53 |
if (@exc_list) |
|
4613
|
0 |
1 |
if $i < $#exc_list |
|
4620
|
0 |
0 |
if ($arg[0]) |
|
4624
|
0 |
0 |
if ($arg[1]) |
|
4626
|
0 |
0 |
if ($truncatable) |
|
4629
|
0 |
0 |
if (@{$ancestors_ref;}) |
|
4633
|
0 |
0 |
if ($first) { } |
|
4647
|
0 |
0 |
if ($memberkind) { } |
|
4651
|
0 |
0 |
$memberkind == &PUBLIC ? : |
|
4654
|
0 |
0 |
unless (dump_symbols_internal($member)) |
|
4664
|
16 |
2 |
if ($type == 33) |
|
4665
|
0 |
16 |
if ($arg[1] == ABSTRACT()) { } |
|
|
0 |
16 |
elsif ($arg[1] == LOCAL()) { } |
|
4673
|
16 |
2 |
if ($type == 33) |
|
4677
|
5 |
11 |
if (@ancestors) |
|
4682
|
1 |
5 |
if $i < $#ancestors |
|
4689
|
0 |
129 |
unless (dump_symbols_internal($_)) |
|
4700
|
5 |
8 |
if ($dimref and @{$dimref;}) |
|
4711
|
0 |
3 |
if ($#arg > 4) |
|
4716
|
0 |
12 |
if $#arg > 4 |
|
4718
|
9 |
3 |
if ($i < $#arg) |
|
4720
|
0 |
9 |
if $#arg > 4 |
|
4723
|
0 |
3 |
if ($#arg > 4) { } |
|
4732
|
5 |
9 |
if ($type == 27) |
|
4744
|
17 |
29 |
if ($type == 28 or $type == 29) { } |
|
|
0 |
29 |
elsif ($type == 48) { } |
|
4745
|
12 |
5 |
if ($had_case) { } |
|
4750
|
16 |
1 |
if ($type == 28) { } |
|
4776
|
0 |
0 |
if (ref $type) { } |
|
4784
|
131 |
0 |
if ($status) { } |
|
4796
|
0 |
2 |
if (@_) { } |
|
4801
|
0 |
0 |
unless (ref $dsoptarg) |
|
4803
|
0 |
0 |
unless (open DS, ">$output_file_name") |
|
4819
|
0 |
2 |
if ($output_file_name) { } |
|
|
0 |
2 |
elsif ($dsoptarg) { } |
|
4840
|
0 |
0 |
if (not $symroot) { } |
|
|
0 |
0 |
elsif (is_elementary_type($symroot)) { } |
|
|
0 |
0 |
elsif (not isnode($symroot)) { } |
|
4858
|
0 |
0 |
if ($type == &INCFILE) { } |
|
|
0 |
0 |
elsif ($type == 32) { } |
|
|
0 |
0 |
elsif ($type == 33) { } |
|
4859
|
0 |
0 |
if $traverse_includefiles |
|
4883
|
0 |
0 |
if (@_) |
|
4894
|
0 |
0 |
if (defined $comment_directives) { } |
|
4898
|
0 |
0 |
if ($t == 1) { } |
|
|
0 |
0 |
elsif (is_elementary_type($t)) { } |
|
|
0 |
0 |
elsif ($t->[0] == 23) { } |
|
4905
|
0 |
0 |
if ($scoped) |
|
4933
|
0 |
0 |
if ($caseval =~ /::/) |
|
4936
|
0 |
0 |
unless $node->[0] == 27 |
|
4943
|
0 |
0 |
if $memb->[0] == 48 |
|
4944
|
0 |
0 |
if ($memb->[0] == 28) { } |
|
|
0 |
0 |
elsif ($memb->[0] == 29) { } |
|
|
0 |
0 |
elsif ($found) { } |
|
4946
|
0 |
0 |
$int ? : |
|
4947
|
0 |
0 |
if ($cv =~ /::/) |
|
4948
|
0 |
0 |
if ($cv eq $caseval) |
|
4970
|
0 |
0 |
unless $node->[0] == 27 |
|
4979
|
0 |
0 |
if (defined $memb or $CORBA::IDLtree::union_default_null_allowed) |
|
4984
|
0 |
0 |
if (isnode($st) and $st->[0] == 23) |
|
4987
|
0 |
0 |
ref $e ? : |
|
4989
|
0 |
0 |
if (defined $memb) |
|
4990
|
0 |
0 |
unless ($el =~ /::/) |
|
5004
|
0 |
0 |
if $memb->[0] == 48 |
|
5005
|
0 |
0 |
if ($memb->[0] == 28) { } |
|
|
0 |
0 |
elsif ($memb->[0] == 29) { } |
|
|
0 |
0 |
elsif (defined $case) { } |
|
5007
|
0 |
0 |
if is_integer($switcht) |