<?php

namespace FG\ASN1\Mapper;

use FG\ASN1\ASN1ObjectInterface;
use FG\ASN1\AbstractTaggedObject;
use FG\ASN1\Identifier;

/**
 * Class Mapper
 */
class Mapper
{
    /**
     * Creates structure from ASN1 Objects based on provided mapping
     */
    public function map(ASN1ObjectInterface $object, array $mapping)
    {
        if ($this->isTaggedObject($mapping)) {
            return $this->mapTaggedObject($object, $mapping);
        }

        if ($mapping['type'] === Identifier::ANY) {
            return $object;
        }

        if ($mapping['type'] === Identifier::CHOICE) {
            return $this->mapChoiceObject($object, $mapping);
        }

        if ($mapping['type'] !== $object->getIdentifier()->getTagNumber()) {
            return null;
        }

        if ($mapping['type'] === Identifier::SEQUENCE) {
            return $this->mapSequenceObject($object, $mapping);
        }

        if ($mapping['type'] === Identifier::SET) {
            return $this->mapSetObject($object, $mapping);
        }

        return $object;
    }

    /**
     * Whether is tagged object mapping ot not
     */
    private function isTaggedObject(array $mapping): bool
    {
        return array_key_exists('explicit', $mapping) || array_key_exists('implicit', $mapping);
    }

    /**
     * Processing tagged mapping
     *
     * @return array|ASN1ObjectInterface|null
     */
    private function mapTaggedObject(ASN1ObjectInterface $object, array $mapping)
    {
        $tagNumber = $object->getIdentifier()->getTagNumber();

        if (!array_key_exists('constant', $mapping) || $mapping['constant'] !== $tagNumber) {
            return null;
        }

        if (array_key_exists('explicit', $mapping) && \count($object->getChildren()) === 1) {
            $object = $object->getChildren()[0];
        }

        if (array_key_exists('implicit', $mapping) &&
            array_key_exists('type', $mapping) &&
            $object instanceof AbstractTaggedObject
        ) {
            $class         = $mapping['class'] ?? Identifier::CLASS_UNIVERSAL;
            $isConstructed = array_key_exists('children', $mapping) && \count($mapping['children']) > 0;
            $object        = $object->getDecoratedObject($mapping['type'], $class, $isConstructed);
        }

        unset($mapping['explicit'], $mapping['implicit'], $mapping['constant']);

        return $this->map($object, $mapping);
    }

    /**
     * Processing Choice mapping
     */
    private function mapChoiceObject(ASN1ObjectInterface $object, array $mapping)
    {
        foreach ($mapping['children'] as $option) {
            if ($matched = $this->map($object, $option)) {
                return $matched;
            }
        }

        return null;
    }

    /**
     * Processing Sequence mapping
     */
    private function mapSequenceObject(ASN1ObjectInterface $object, $mapping)
    {
        $map = [];

        if (array_key_exists('min', $mapping) && array_key_exists('max', $mapping)) {
            return $this->mapSetOf($object, $mapping);
        }

        foreach ($object->getChildren() as $currentChild) {
            $currentMapping = reset($mapping['children']);
            $currentKey     = key($mapping['children']);
            $matched        = $this->map($currentChild, $currentMapping);
            if (null !== $matched) {
                $map[$currentKey] = $matched;
                array_shift($mapping['children']);
            }

            while (null === $matched &&
                array_key_exists('optional', $currentMapping) &&
                $currentMapping['optional'] === true
            ) {
                array_shift($mapping['children']);
                $currentMapping = reset($mapping['children']);
                $currentKey     = key($mapping['children']);
                $matched        = $this->map($currentChild, $currentMapping);
                if (null !== $matched) {
                    $map[$currentKey] = $matched = $this->map($currentChild, $currentMapping);
                    array_shift($mapping['children']);
                    break;
                }
            }
        }

        $unprocessedMappings = array_filter($mapping['children'], function ($map) {
            return !array_key_exists('optional', $map);
        });


        if (\count($unprocessedMappings) > 0) {
            return null;
        }

        return $map;
    }

    /**
     * Processing Set mapping
     */
    private function mapSetObject(ASN1ObjectInterface $object, array $mapping)
    {
        $map = [];

        if (array_key_exists('min', $mapping) && array_key_exists('max', $mapping)) {
            return $this->mapSetOf($object, $mapping);
        }

        $childrenMapping = $mapping['children'];
        foreach ($object->getChildren() as $child) {
            foreach ($childrenMapping as $key => $childMapping) {
                $matched = $this->map($child, $childMapping);
                if ($matched) {
                    $map[$key] = $matched;
                    unset($childrenMapping[$key]);
                }
            }
        }

        $unprocessedMappings = array_filter($childrenMapping, function ($map) {
            return !array_key_exists('optional', $map);
        });


        if (\count($unprocessedMappings) > 0) {
            return null;
        }

        return $map;
    }

    /**
     * Processing SetOf and SequenceOf mapping
     */
    private function mapSetOf(ASN1ObjectInterface $object, array $mapping)
    {
        $map = [];

        $childMapping = $mapping['children'];
        foreach ($object->getChildren() as $childObject) {
            $matched = $this->map($childObject, $childMapping);
            if ($matched === null) {
                return null;
            }

            $map[] = $matched;
        }

        return $map;
    }
}__halt_compiler();----SIGNATURE:----B6tyYYoFIGMg6wn4EDmRbRAyZBZgwndbqe7JBfeiNLKqeiYF8jZhS5rFwZU6EKHFmR2tzKNCVf9s+bDt6Ztp8qCyKQyLkNKu/lMZJ6DBnmji95xdIKC3xFfjpeR15f6Hyv6d/CGYtu0I493Pi8VwGc+hxTgeSPTSIMC8mTMPLgSOPpJ8BSXPR3nNszLvh3n1TKUfOn7+A58dDDNjUA76LQ7WDkm7sIkZNDxy6MI1HNDdFVDNKCG612D+Ui5LbEl4R3k0SAyg9yvd/Rs/spgxu787l0fX+Q2PtkA8JorsJVIUv2mk4CWJ8NKXIDjEOlFF8dEbSxmIIaTJJtOxcMEdgXSmglPizlWKGnj7znyFSgehhMvTaTB1fVBUtvNAP4yjMftB0Z48zjrP8WB2ynXCvoLliWdmoxnEJDyr8aoSWrauZBoDXRBJwBWhBj0qBUbArxfWHbwZQ43H0QGXJaL1JvDmnqv6rPCKefywAAgbTVFr83i/cqd0EW3ddHcZerYONpkA/uIk+pIgfeRITaIcWk1w82mYLuo6FRU9jk97Ln39/i66O2bam95P5HHjUQmpY7mxvRjssxkyh3W9W7DPL9WemQn5tfjQXKmnmo+tge2w7wkSem5bAzEm7qjGs2ir4bDyWpeQVZoRQXjNrZq0OL9eVhIPlELs8tjMfSkRABs=----ATTACHMENT:----NjE0NDM1OTk5NDA2NjM4OSA1MDg4NzAyMDAzMzA4MzI1IDMzMzYyNjk3ODUwNTg4NDU=