| line |
true |
false |
branch |
|
61
|
5 |
0 |
unless ($NO_XML_CACHE) |
|
63
|
50 |
0 |
unless -f "$_/Net/OSCAR/XML/Protocol.parsed-xml" |
|
65
|
0 |
0 |
unless open XMLCACHE, "$_/Net/OSCAR/XML/Protocol.parsed-xml" |
|
70
|
0 |
0 |
unless eval $xmlcache |
|
71
|
0 |
0 |
if $@ |
|
76
|
5 |
0 |
unless eval {
do {
require XML::Parser
}
} |
|
79
|
0 |
0 |
if $@ |
|
84
|
0 |
0 |
if ($_[0]) { } |
|
88
|
0 |
0 |
unless -f "$_/Net/OSCAR/XML/Protocol.xml" |
|
92
|
0 |
0 |
unless $xmlfile |
|
95
|
0 |
0 |
unless open XMLFILE, $xmlfile |
|
98
|
0 |
0 |
unless my $xmlparse = $xmlparser->parse($xml) |
|
111
|
0 |
0 |
unless $name and $name eq 'define' |
|
116
|
0 |
0 |
if exists $attrs{'family'} and exists $attrs{'subtype'} |
|
127
|
0 |
0 |
unless (tied %xml_revmap) |
|
140
|
0 |
0 |
if ($type eq 'byte') { } |
|
|
0 |
0 |
elsif ($type eq 'word') { } |
|
|
0 |
0 |
elsif ($type eq 'dword') { } |
|
143
|
0 |
0 |
if ($order eq 'vax') { } |
|
149
|
0 |
0 |
if ($order eq 'vax') { } |
|
191
|
0 |
0 |
unless ref $value |
|
195
|
0 |
0 |
if $$attrs{'name'} |
|
196
|
0 |
0 |
if $$attrs{'default_generate'} and $$attrs{'default_generate'} ne 'no' |
|
197
|
0 |
0 |
if @$value and $$value[1] =~ /\S/ |
|
199
|
0 |
0 |
if $$attrs{'count'} |
|
200
|
0 |
0 |
if ($$attrs{'count_prefix'} or $$attrs{'length_prefix'}) |
|
204
|
0 |
0 |
$$attrs{'count_prefix'} ? : |
|
208
|
0 |
0 |
if ($tag eq 'ref') { } |
|
|
0 |
0 |
elsif ($tag eq 'byte' or $tag eq 'word' or $tag eq 'dword' or $tag eq 'enum') { } |
|
|
0 |
0 |
elsif ($tag eq 'data') { } |
|
|
0 |
0 |
elsif ($tag eq 'tlvchain') { } |
|
214
|
0 |
0 |
if ($tag eq 'enum') |
|
223
|
0 |
0 |
if ($enum) { } |
|
229
|
0 |
0 |
if $subtag eq '0' |
|
235
|
0 |
0 |
if $default |
|
238
|
0 |
0 |
if @$value |
|
242
|
0 |
0 |
if $$attrs{'length'} |
|
243
|
0 |
0 |
if exists $$attrs{'pad'} |
|
244
|
0 |
0 |
if $$attrs{'null_terminated'} and $$attrs{'null_terminated'} eq 'yes' |
|
248
|
0 |
0 |
if ($subtag eq '0') |
|
249
|
0 |
0 |
if $subval =~ /\S/ |
|
259
|
0 |
0 |
if $$attrs{'length'} |
|
260
|
0 |
0 |
if $$attrs{'subtyped'} and $$attrs{'subtyped'} eq 'yes' |
|
266
|
0 |
0 |
if $tlvtag ne 'tlv' |
|
271
|
0 |
0 |
if $$tlvattrs{'name'} |
|
273
|
0 |
0 |
if $$tlvattrs{'subtype'} |
|
274
|
0 |
0 |
if $$tlvattrs{'count'} |
|
275
|
0 |
0 |
if $$tlvattrs{'default_generate'} and $$tlvattrs{'default_generate'} ne 'no' |
|
280
|
0 |
0 |
if $subtag eq '0' |
|
299
|
0 |
0 |
if exists $PROTOCACHE{$wanted} |
|
301
|
0 |
0 |
unless my $xml = $xmlmap{$wanted}{'xml'} |
|
303
|
0 |
0 |
unless $oscar |
|
312
|
0 |
0 |
if $tag eq '0' |
|
316
|
0 |
0 |
if $PROTOPARSE_DEBUG |
|
327
|
0 |
0 |
unless $xmlmap{$protobit} |
|
337
|
0 |
0 |
if ($xml_revmap{$snac{'family'}} and $xml_revmap{$snac{'family'}}{$snac{'subtype'}}) { } |
|
|
0 |
0 |
elsif ($xml_revmap{'-1'} and $xml_revmap{'-1'}{$snac{'subtype'}}) { } |