Sop\ASN1\Type\Primitive\Real

Complexity

Total Complexity

33

Size/Duplication

Total Lines	273
Duplicated Lines	0 %

Test Coverage

Coverage

100%

Importance

Changes

0

11 Methods

Rating	Name	Duplication	Size	Complexity
A	_validateNumber()	0	6	2
A	_decodeSpecialRealValue()	0	14	4
A	__construct()	0	8	2
B	_nr3ToDecimal()	0	30	7
A	_encodedContentDER()	0	9	2
B	_decimalToNR3()	0	41	7
A	_decodeFromDER()	0	21	4
A	fromFloat()	0	3	1
A	_decodeBinaryEncoding()	0	4	1
A	float()	0	3	1
A	_decodeDecimalEncoding()	0	8	2

<?php

declare(strict_types = 1);

namespace Sop\ASN1\Type\Primitive;

use Sop\ASN1\Component\Identifier;
use Sop\ASN1\Component\Length;
use Sop\ASN1\Element;
use Sop\ASN1\Exception\DecodeException;
use Sop\ASN1\Feature\ElementBase;
use Sop\ASN1\Type\PrimitiveType;
use Sop\ASN1\Type\UniversalClass;

/**
 * Implements *REAL* type.
 */
class Real extends Element
{
    use UniversalClass;
    use PrimitiveType;

    /**
     * Regex pattern to parse NR3 form number conforming to DER.
     *
     * @var string
     */
    const NR3_REGEX = '/^(-?)(\d+)?\.E([+\-]?\d+)$/';

    /**
     * Regex pattern to parse PHP exponent number format.
     *
     * @see http://php.net/manual/en/language.types.float.php
     *
     * @var string
     */
    const PHP_EXPONENT_DNUM = '/^' .
        '([+\-]?' . // sign
        '(?:' .
            '\d+' . // LNUM
            '|' .
            '(?:\d*\.\d+|\d+\.\d*)' . // DNUM
        '))[eE]' .
        '([+\-]?\d+)' . // exponent
    '$/';

    /**
     * Number zero represented in NR3 form.
     *
     * @var string
     */
    const NR3_ZERO = '.E+0';

    /**
     * Number in NR3 form.
     *
     * @var string
     */
    private $_number;

    /**
     * Constructor.
     *
     * @param string $number number in NR3 form
     */
    public function __construct(string $number)
    {
        $this->_typeTag = self::TYPE_REAL;
        if (!self::_validateNumber($number)) {
            throw new \InvalidArgumentException(
                "'{$number}' is not a valid NR3 form real.");
        }
        $this->_number = $number;
    }

    /**
     * Initialize from float.
     *
     * @param float $number
     *
     * @return self
     */
    public static function fromFloat(float $number): self
    {
        return new self(self::_decimalToNR3(strval($number)));
    }

    /**
     * Get number as a float.
     *
     * @return float
     */
    public function float(): float
    {
        return self::_nr3ToDecimal($this->_number);
    }

    /**
     * {@inheritdoc}
     */
    protected function _encodedContentDER(): string
    {
        /* if the real value is the value zero, there shall be no contents
         octets in the encoding. (X.690 07-2002, section 8.5.2) */
        if (self::NR3_ZERO === $this->_number) {
            return '';
        }
        // encode in NR3 decimal encoding
        return chr(0x03) . $this->_number;
    }

    /**
     * {@inheritdoc}
     */
    protected static function _decodeFromDER(Identifier $identifier,
        string $data, int &$offset): ElementBase
    {
        $idx = $offset;
        $length = Length::expectFromDER($data, $idx)->intLength();
        // if length is zero, value is zero (spec 8.5.2)
        if (!$length) {
            $obj = new self(self::NR3_ZERO);
        } else {
            $bytes = substr($data, $idx, $length);
            $byte = ord($bytes[0]);
            if (0x80 & $byte) { // bit 8 = 1
                $obj = self::_decodeBinaryEncoding($bytes);
            } elseif (0x00 === $byte >> 6) { // bit 8 = 0, bit 7 = 0
                $obj = self::_decodeDecimalEncoding($bytes);
            } else { // bit 8 = 0, bit 7 = 1
                $obj = self::_decodeSpecialRealValue($bytes);
            }
        }
        $offset = $idx + $length;
        return $obj;
    }

    /**
     * @todo Implement
     *
     * @param string $data
     */
    protected static function _decodeBinaryEncoding(string $data)
    {
        throw new \RuntimeException(
            'Binary encoding of REAL is not implemented.');
    }

    /**
     * @param string $data
     *
     * @throws \RuntimeException
     *
     * @return self
     */
    protected static function _decodeDecimalEncoding(string $data): self
    {
        $nr = ord($data[0]) & 0x03;
        if (0x03 !== $nr) {
            throw new \RuntimeException('Only NR3 form supported.');
        }
        $str = substr($data, 1);
        return new self($str);
    }

    /**
     * @todo Implement
     *
     * @param string $data
     */
    protected static function _decodeSpecialRealValue(string $data)
    {
        if (1 !== strlen($data)) {
            throw new DecodeException(
                'SpecialRealValue must have one content octet.');
        }
        $byte = ord($data[0]);
        if (0x40 === $byte) { // positive infinity
            throw new \RuntimeException('PLUS-INFINITY not supported.');
        }
        if (0x41 === $byte) { // negative infinity
            throw new \RuntimeException('MINUS-INFINITY not supported.');
        }
        throw new DecodeException('Invalid SpecialRealValue encoding.');
    }

    /**
     * Convert decimal number string to NR3 form.
     *
     * @param string $str
     *
     * @return string
     */
    private static function _decimalToNR3(string $str): string
    {
        // if number is in exponent form
        /** @var string[] $match */
        if (preg_match(self::PHP_EXPONENT_DNUM, $str, $match)) {
            $parts = explode('.', $match[1]);
            $m = ltrim($parts[0], '0');
            $e = intval($match[2]);
            // if mantissa had decimals
            if (2 === count($parts)) {
                $d = rtrim($parts[1], '0');
                $e -= strlen($d);
                $m .= $d;
            }
        } else {
            // explode from decimal
            $parts = explode('.', $str);
            $m = ltrim($parts[0], '0');
            // if number had decimals
            if (2 === count($parts)) {
                // exponent is negative number of the decimals
                $e = -strlen($parts[1]);
                // append decimals to the mantissa
                $m .= $parts[1];
            } else {
                $e = 0;
            }
            // shift trailing zeroes from the mantissa to the exponent
            while ('0' === substr($m, -1)) {
                ++$e;
                $m = substr($m, 0, -1);
            }
        }
        /* if exponent is zero, it must be prefixed with a "+" sign
         (X.690 07-2002, section 11.3.2.6) */
        if (0 === $e) {
            $es = '+';
        } else {
            $es = $e < 0 ? '-' : '';
        }
        return sprintf('%s.E%s%d', $m, $es, abs($e));
    }

    /**
     * Convert NR3 form number to decimal.
     *
     * @param string $str
     *
     * @throws \UnexpectedValueException
     *
     * @return float
     */
    private static function _nr3ToDecimal(string $str): float
    {
        /** @var string[] $match */
        if (!preg_match(self::NR3_REGEX, $str, $match)) {
            throw new \UnexpectedValueException(
                "'{$str}' is not a valid NR3 form real.");
        }
        $m = $match[2];
        // if number started with minus sign
        $inv = '-' === $match[1];
        $e = intval($match[3]);
        // positive exponent
        if ($e > 0) {
            // pad with trailing zeroes
            $num = $m . str_repeat('0', $e);
        } elseif ($e < 0) {
            // pad with leading zeroes
            if (strlen($m) < abs($e)) {
                $m = str_repeat('0', intval(abs($e)) - strlen($m)) . $m;
            }
            // insert decimal point
            $num = substr($m, 0, $e) . '.' . substr($m, $e);
        } else {
            $num = empty($m) ? '0' : $m;
        }
        // if number is negative
        if ($inv) {
            $num = "-{$num}";
        }
        return floatval($num);
    }

    /**
     * Test that number is valid for this context.
     *
     * @param mixed $num
     *
     * @return bool
     */
    private static function _validateNumber($num): bool
    {
        if (!preg_match(self::NR3_REGEX, $num)) {
            return false;
        }
        return true;
    }
}