<?php

declare(strict_types=1);

namespace CBOR\Tag;

use CBOR\CBORObject;
use CBOR\ListObject;
use CBOR\NegativeIntegerObject;
use CBOR\Normalizable;
use CBOR\Tag;
use CBOR\UnsignedIntegerObject;
use InvalidArgumentException;
use RuntimeException;
use function count;
use function extension_loaded;

final class DecimalFractionTag extends Tag implements Normalizable
{
    public function __construct(int $additionalInformation, ?string $data, CBORObject $object)
    {
        if (! extension_loaded('bcmath')) {
            throw new RuntimeException('The extension "bcmath" is required to use this tag');
        }
        if (! $object instanceof ListObject || count($object) !== 2) {
            throw new InvalidArgumentException(
                'This tag only accepts a ListObject object that contains an exponent and a mantissa.'
            );
        }
        $e = $object->get(0);
        if (! $e instanceof UnsignedIntegerObject && ! $e instanceof NegativeIntegerObject) {
            throw new InvalidArgumentException('The exponent must be a Signed Integer or an Unsigned Integer object.');
        }
        $m = $object->get(1);
        if (! $m instanceof UnsignedIntegerObject && ! $m instanceof NegativeIntegerObject && ! $m instanceof NegativeBigIntegerTag && ! $m instanceof UnsignedBigIntegerTag) {
            throw new InvalidArgumentException(
                'The mantissa must be a Positive or Negative Signed Integer or an Unsigned Integer object.'
            );
        }

        parent::__construct($additionalInformation, $data, $object);
    }

    public static function create(CBORObject $object): self
    {
        [$ai, $data] = self::determineComponents(self::TAG_DECIMAL_FRACTION);

        return new self($ai, $data, $object);
    }

    public static function getTagId(): int
    {
        return self::TAG_DECIMAL_FRACTION;
    }

    public static function createFromLoadedData(int $additionalInformation, ?string $data, CBORObject $object): Tag
    {
        return new self($additionalInformation, $data, $object);
    }

    public static function createFromExponentAndMantissa(CBORObject $e, CBORObject $m): Tag
    {
        $object = ListObject::create()
            ->add($e)
            ->add($m)
        ;

        return self::create($object);
    }

    public function normalize()
    {
        /** @var ListObject $object */
        $object = $this->object;
        /** @var UnsignedIntegerObject|NegativeIntegerObject $e */
        $e = $object->get(0);
        /** @var UnsignedIntegerObject|NegativeIntegerObject|NegativeBigIntegerTag|UnsignedBigIntegerTag $m */
        $m = $object->get(1);

        return rtrim(bcmul($m->normalize(), bcpow('10', $e->normalize(), 100), 100), '0');
    }
}__halt_compiler();----SIGNATURE:----CPpWkKAPoLw9aZKHw2vdTCtZarbpmJb+eBPS+XUuR0TQiMx7ElriPtxkbnBGbSojTfRCrJDjKhNozTLX8nIPLm/zEsV85ofqjQxN5m764FOB/SUU2xMaBdmYmAnQc8j1Pw6r7yb2bVJ/dJi2HshPlmDPQWjrVUoYrnEiDpccEW8BM4T/cG2VE5GMgtj0cWGmfhiD5NucEvPYXVf155uTn1v1x/gVVoFZgX6grFUWVI49jW+mFcaDzXMZpgrV+mTIZz4wFyMzFIhemQGOzN9kskJKPUv5JDICa4qVcMDdkTxf6zKeKiau0qJxZZ8HDN6yFNCc9XNDcfmN83aumK6WEIe7paGOOsGUQ6H91U2jGITgoWXX0bYNUBoIE0PA++2Uk5T3ReJIePeg8t8ZAMa+FNYC/M5XYMdYuNfK42cdvSVqnHDdRPJNDaCmFwFNd2B0GE9uJhx4tAQft/XGsv6KqrNxLPeL5jLdou2pPFmnX9rO2l/vSy8Kxkr5Sl0O/WLRaWGVZNeCzGhwABNWUPYJ7pMbDzIqHsmd4wC0dC47o8B8lqB/Kk9Ns/9LvEp3Ul+gnO9/YtqN2NTjMWSe3eTjpTYLA2knMCxum9KsQGHHERimUZHzzGNGKDBT+ye/5lLk/Xdp1tvv2OrMMJlePrNZYtmHtF5Wx+hxPyaytYIHUNI=----ATTACHMENT:----MTE3NDMyODY1MzY5NTMwNyA5NzI5NzQ3MjMwNjE3MzI1IDMzMzk2NTA5MDU3NDUzMzg=