|
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
|
|
|
|
tarantool-php /
client
Loading history...