line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Protocol::DBus::Pack; |
2
|
|
|
|
|
|
|
|
3
|
7
|
|
|
7
|
|
45
|
use strict; |
|
7
|
|
|
|
|
14
|
|
|
7
|
|
|
|
|
177
|
|
4
|
7
|
|
|
7
|
|
33
|
use warnings; |
|
7
|
|
|
|
|
13
|
|
|
7
|
|
|
|
|
275
|
|
5
|
|
|
|
|
|
|
|
6
|
7
|
|
|
7
|
|
39
|
use constant CAN_64 => eval { !!pack 'q' }; |
|
7
|
|
|
|
|
13
|
|
|
7
|
|
|
|
|
9
|
|
|
7
|
|
|
|
|
618
|
|
7
|
|
|
|
|
|
|
|
8
|
7
|
|
|
|
|
808
|
use constant NUMERIC => { |
9
|
|
|
|
|
|
|
y => 'C', # uint8 |
10
|
|
|
|
|
|
|
b => 'L', # boolean (uint32) |
11
|
|
|
|
|
|
|
n => 's', # int16 |
12
|
|
|
|
|
|
|
q => 'S', # uint16 |
13
|
|
|
|
|
|
|
i => 'l', # int32 |
14
|
|
|
|
|
|
|
u => 'L', # uint32 |
15
|
|
|
|
|
|
|
x => 'q', # int64 |
16
|
|
|
|
|
|
|
t => 'Q', # uint64 |
17
|
|
|
|
|
|
|
d => 'd', # double float (?) |
18
|
|
|
|
|
|
|
h => 'L', # unix fd, uint32 |
19
|
7
|
|
|
7
|
|
60
|
}; |
|
7
|
|
|
|
|
46
|
|
20
|
|
|
|
|
|
|
|
21
|
7
|
|
|
|
|
920
|
use constant STRING => { |
22
|
|
|
|
|
|
|
s => 'L/a x', |
23
|
|
|
|
|
|
|
o => 'L/a x', |
24
|
|
|
|
|
|
|
g => 'C/a x', |
25
|
7
|
|
|
7
|
|
48
|
}; |
|
7
|
|
|
|
|
13
|
|
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
use constant WIDTH => { |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
# Accommodate 32-bit Perls: |
30
|
70
|
100
|
100
|
|
|
309
|
(map { $_ => ($_ eq 'x' || $_ eq 't') ? 8 : length pack NUMERIC()->{$_} } keys %{ NUMERIC() }), |
|
7
|
|
|
|
|
28
|
|
31
|
7
|
|
|
|
|
12
|
(map { $_ => length pack STRING()->{$_} } keys %{ STRING() }), |
|
21
|
|
|
|
|
797
|
|
|
7
|
|
|
|
|
69
|
|
32
|
7
|
|
|
7
|
|
45
|
}; |
|
7
|
|
|
|
|
14
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
use constant ALIGNMENT => { |
35
|
7
|
|
|
|
|
32
|
%{ WIDTH() }, |
36
|
7
|
|
|
|
|
12
|
map { $_ => length pack( substr( STRING()->{$_}, 0, 1 ) ) } keys %{ STRING() }, |
|
21
|
|
|
|
|
1197
|
|
|
7
|
|
|
|
|
15
|
|
37
|
7
|
|
|
7
|
|
51
|
}; |
|
7
|
|
|
|
|
10
|
|
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
# Increments the 1st arg in-place to align on a boundary of the 2nd arg. |
40
|
|
|
|
|
|
|
# ex. align( 7, 8 ) will change the $_[0] to be 8. |
41
|
|
|
|
|
|
|
sub align { |
42
|
1789
|
100
|
|
1789
|
0
|
3024
|
if ($_[0] % $_[1]) { |
43
|
222
|
|
|
|
|
381
|
$_[0] += ($_[1] - ($_[0] % $_[1])); |
44
|
|
|
|
|
|
|
} |
45
|
|
|
|
|
|
|
} |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
sub align_str { |
48
|
207
|
100
|
|
207
|
0
|
445
|
if (my $mod = length($_[0]) % $_[1]) { |
49
|
31
|
|
|
|
|
87
|
$_[0] .= "\0" x ($_[1] - $mod); |
50
|
|
|
|
|
|
|
} |
51
|
|
|
|
|
|
|
} |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
1; |