<?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:----UGWLmljlkVenmdMVZXzeLjJJCSLQ5Ub9z0Iu2t76LgAWZekmUIPSsIR86lE7xk6Jv6GkrHau6Mq3bu7qj8v9sBdMQiQCPHrFNTmj55E4MqyWwdLBsm96RMrBpF3TtkyUWQpbhcC1kyaJW3/7CrQG/mhJsKqkprA7CJbtRWiFeyM/9IOzfr1ZeeZ7rxETRHXZD+hD++tMWq/ao8PDcWdCQYDcCuykNoRWI93ePL5iqvCVnkw+bMNzlgA+CHWfkuyhYqIW9DYRqY87g0+wWXEec4LzdGDZvynPunny5++xuX33p4xiEdd33K608jpV5lb5MbjSQ+f+/e7bSvpHUqMdLB7y4WYI+cc47BtzUIpFqBna7dsuK0pPif7VDRrg1aTU2qyCFfW0qk7C9TTIDZCTJMVQxvZlsM2SgELIUr9cQ33/zINHYcxz1YoMrDtTLKJMBCPQ0SffwCItcRad5ITpqKaENLXV3GkSYk8+hwLvAwq2Lur5m/nuVZklPDuAG00A2CNYhEKCfmoATEz8w8mWln6Wc8vOJ/mdzCg/XYINFVEqkqZPBXbBvdGm/6CP9F9jv0kcXujorGBKoNQJKHxFUgx+pyfXs+doUOU/ofsb+1ikkhZjxNb8DihpXEgcBsSReXvb8uuPm2Jsik3XEsfmjjzBNacl6XjP0IaT/Gw0KGQ=----ATTACHMENT:----MzA0MzExNjM0NjQ5MTQ4MyA2ODA2MTI2MTU4NTUxMTAzIDg5NDM1MzAxMDA1ODQ4NDU=