1
|
|
|
<?php |
2
|
|
|
|
3
|
|
|
/** |
4
|
|
|
* This file is part of the tarantool/client package. |
5
|
|
|
* |
6
|
|
|
* (c) Eugene Leonovich <[email protected]> |
7
|
|
|
* |
8
|
|
|
* For the full copyright and license information, please view the LICENSE |
9
|
|
|
* file that was distributed with this source code. |
10
|
|
|
*/ |
11
|
|
|
|
12
|
|
|
declare(strict_types=1); |
13
|
|
|
|
14
|
|
|
namespace Tarantool\Client\Packer\Extension; |
15
|
|
|
|
16
|
|
|
use Decimal\Decimal; |
17
|
|
|
use MessagePack\BufferUnpacker; |
18
|
|
|
use MessagePack\Extension; |
19
|
|
|
use MessagePack\Packer; |
20
|
|
|
|
21
|
|
|
final class DecimalExtension implements Extension |
22
|
|
|
{ |
23
|
|
|
private const TYPE = 1; |
24
|
|
|
private const PRECISION = 38; |
25
|
|
|
|
26
|
170 |
|
public function getType() : int |
27
|
|
|
{ |
28
|
170 |
|
return self::TYPE; |
29
|
|
|
} |
30
|
|
|
|
31
|
59 |
|
public function pack(Packer $packer, $value) : ?string |
32
|
|
|
{ |
33
|
59 |
|
if (!$value instanceof Decimal) { |
34
|
|
|
return null; |
35
|
|
|
} |
36
|
|
|
|
37
|
|
|
// @see https://github.com/php-decimal/ext-decimal/issues/22#issuecomment-512364914 |
38
|
59 |
|
$data = $value->toFixed(self::PRECISION); |
39
|
|
|
|
40
|
59 |
|
if ('-' === $data[0]) { |
41
|
12 |
|
$nibble = 'd'; |
42
|
12 |
|
$data = \substr($data, 1); |
43
|
|
|
} else { |
44
|
47 |
|
$nibble = 'c'; |
45
|
|
|
} |
46
|
|
|
|
47
|
59 |
|
$pieces = \explode('.', $data, 2); |
48
|
59 |
|
$pieces[1] = \rtrim($pieces[1], '0'); |
49
|
|
|
|
50
|
59 |
|
$data = "{$pieces[0]}{$pieces[1]}{$nibble}"; |
51
|
59 |
|
if (0 !== \strlen($data) % 2) { |
52
|
38 |
|
$data = '0'.$data; |
53
|
|
|
} |
54
|
|
|
|
55
|
59 |
|
return $packer->packExt(self::TYPE, |
56
|
59 |
|
$packer->packInt('' === $pieces[1] ? 0 : \strlen($pieces[1])).\hex2bin($data) |
57
|
59 |
|
); |
58
|
|
|
} |
59
|
|
|
|
60
|
|
|
/** |
61
|
|
|
* @return Decimal |
62
|
|
|
*/ |
63
|
59 |
|
public function unpackExt(BufferUnpacker $unpacker, int $extLength) |
64
|
|
|
{ |
65
|
|
|
/** |
66
|
|
|
* @psalm-suppress UndefinedDocblockClass (suppresses \GMP) |
67
|
|
|
* @var int $scale |
68
|
|
|
*/ |
69
|
59 |
|
$scale = $unpacker->unpackInt(); |
70
|
59 |
|
$data = $unpacker->read($extLength - 1); |
71
|
59 |
|
$data = \bin2hex($data); |
72
|
|
|
|
73
|
59 |
|
$sign = 'd' === $data[-1] ? '-' : ''; |
74
|
59 |
|
$dec = \substr($data, 0, -1); |
75
|
|
|
|
76
|
59 |
|
if (0 !== $scale) { |
77
|
33 |
|
$length = \strlen($dec); |
78
|
33 |
|
$dec = ($length <= $scale) |
79
|
15 |
|
? \substr_replace($dec, '0.'.\str_repeat('0', $scale - $length), -$scale, 0) |
80
|
33 |
|
: \substr_replace($dec, '.', -$scale, 0); |
81
|
|
|
} |
82
|
|
|
|
83
|
59 |
|
return new Decimal($sign.$dec, self::PRECISION); |
|
|
|
|
84
|
|
|
} |
85
|
|
|
} |
86
|
|
|
|