/
int.pl6
executable file
·61 lines (47 loc) · 1.5 KB
/
int.pl6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#!/usr/bin/env perl6
use v6;
use NativeCall;
use BSON;
use Bench;
my Int $i1 = 123456789;
my Buf $bi1 = encode-int64($i1);
my Buf $bi2;
my Int $i2;
my $b = Bench.new;
$b.timethese(
3000, {
'32 bit integer encode' => sub { $bi2 = encode-int32($i1); },
'32 bit integer decode' => sub { $i2 = decode-int32( $bi1, 0); },
'64 bit integer encode' => sub { $bi2 = encode-int64($i1); },
'64 bit integer decode' => sub { $i2 = decode-int64( $bi1, 0); },
# '32 bit native integer decode' => sub { $i2 = decode-int32-native( $bi1, 0); },
# '64 bit native integer decode' => sub { $i2 = decode-int64-native( $bi1, 0); },
}
);
say "I = $i2, bi2 = ", $bi2.perl;
#------------------------------------------------------------------------------
# decode to Int from buf little endian
sub decode-int32-native ( Buf:D $b, Int:D $index --> Int ) is export {
state $little-endian = little-endian();
my CArray[uint8] $ble;
if $little-endian {
$ble .= new($b.subbuf( $index, 4));
}
else {
$ble .= new($b.subbuf( $index, 4).reverse);
}
nativecast( CArray[int32], $ble)[0];
}
#------------------------------------------------------------------------------
# decode to Int from buf little endian
sub decode-int64-native ( Buf:D $b, Int:D $index --> Int ) is export {
state $little-endian = little-endian();
my CArray[uint8] $ble;
if $little-endian {
$ble .= new($b.subbuf( $index, 8));
}
else {
$ble .= new($b.subbuf( $index, 8).reverse);
}
nativecast( CArray[int64], $ble)[0];
}