<?php

namespace App\Http\Api;

use Illuminate\Support\Str;
use mustache\mustache;
use App\Models\DhammaTerm;
use App\Models\PaliText;
use App\Models\Channel;
use App\Http\Controllers\CorpusController;
use Illuminate\Support\Facades\Cache;
use App\Tools\RedisClusters;
use Illuminate\Support\Facades\Log;
use App\Tools\Markdown;

define("STACK_DEEP", 8);

class MdRender
{
    /**
     * 文字渲染模式
     * read 阅读模式
     * edit 编辑模式
     */
    protected $options = [
        'mode' => 'read',
        'channelType' => 'translation',
        'contentType' => "markdown",
        'format' => 'react',
        'debug' => [],
        'studioId' => null,
        'lang' => 'zh-Hans',
        'footnote' => false,
        'paragraph' => false,
    ];

    public function __construct($options = [])
    {
        foreach ($options as $key => $value) {
            $this->options[$key] = $value;
        }
    }

    /**
     * 将句子模版组成的段落复制一份，为了实现巴汉逐段对读
     */
    private function preprocessingForParagraph($input)
    {
        if (!$this->options['paragraph']) {
            return $input;
        }
        $paragraphs = explode("\n\n", $input);
        $output = [];
        foreach ($paragraphs as $key => $paragraph) {
            # 判断是否是纯粹的句子模版
            $pattern = "/\{\{sent\|id=([0-9].+?)\}\}/";
            $replacement = '';
            $space = preg_replace($pattern, $replacement, $paragraph);
            $space = str_replace('>', '', $space);
            if (empty(trim($space))) {
                $output[] = str_replace('}}', '|text=origin}}', $paragraph);
                $output[] = str_replace('}}', '|text=translation}}', $paragraph);
            } else {
                $output[] = $paragraph;
            }
        }

        return implode("\n\n", $output);
    }

    /**
     * 按照{{}}把字符串切分成三个部分。模版之前的，模版，和模版之后的
     */
    private function tplSplit($tpl)
    {
        $before = strpos($tpl, '{{');
        if ($before === FALSE) {
            //未找到
            return ['data' => [$tpl, '', ''], 'error' => 0];
        } else {
            $pointer = $before;
            $stack = array();
            $stack[] = $pointer;
            $after = substr($tpl, $pointer + 2);
            while (!empty($after) && count($stack) > 0 && count($stack) < STACK_DEEP) {
                $nextBegin = strpos($after, "{{");
                $nextEnd = strpos($after, "}}");
                if ($nextBegin !== FALSE) {
                    if ($nextBegin < $nextEnd) {
                        //有嵌套找到最后一个}}
                        $pointer = $pointer + 2 + $nextBegin;
                        $stack[] = $pointer;
                        $after = substr($tpl, $pointer + 2);
                    } else if ($nextEnd !== FALSE) {
                        //无嵌套有结束
                        $pointer = $pointer + 2 + $nextEnd;
                        array_pop($stack);
                        $after = substr($tpl, $pointer + 2);
                    } else {
                        //无结束符 没找到
                        break;
                    }
                } else if ($nextEnd !== FALSE) {
                    $pointer = $pointer + 2 + $nextEnd;
                    array_pop($stack);
                    $after = substr($tpl, $pointer + 2);
                } else {
                    //没找到
                    break;
                }
            }
            if (count($stack) > 0) {
                if (count($stack) === STACK_DEEP) {
                    return ['data' => [$tpl, '', ''], 'error' => 2];
                } else {
                    //未关闭
                    return ['data' => [$tpl, '', ''], 'error' => 1];
                }
            } else {
                return [
                    'data' =>
                    [
                        substr($tpl, 0, $before),
                        substr($tpl, $before, $pointer - $before + 2),
                        substr($tpl, $pointer + 2)
                    ],
                    'error' => 0
                ];
            }
        }
    }

    private function wiki2xml(string $wiki, $channelId = []): string
    {
        /**
         * 渲染markdown里面的模版
         */
        $remain = $wiki;
        $buffer = array();
        do {
            $arrWiki = $this->tplSplit($remain);
            $buffer[] = $arrWiki['data'][0];
            $tpl = $arrWiki['data'][1];
            if (!empty($tpl)) {
                /**
                 * 处理模版 提取参数
                 */
                $tpl = str_replace("|\n", "|", $tpl);
                $pattern = "/\{\{(.+?)\|/";
                $replacement = '<MdTpl class="tpl" name="$1"><param>';
                $tpl = preg_replace($pattern, $replacement, $tpl);
                $tpl = str_replace("}}", "</param></MdTpl>", $tpl);
                $tpl = str_replace("|", "</param><param>", $tpl);
                /**
                 * 替换变量名
                 */
                $pattern = "/<param>([a-z]+?)=/";
                $replacement = '<param name="$1">';
                $tpl = preg_replace($pattern, $replacement, $tpl);
                //tpl to react
                $tpl = str_replace('<param', '<span class="param"', $tpl);
                $tpl = str_replace('</param>', '</span>', $tpl);
                $tpl = $this->xml2tpl($tpl, $channelId);
                $buffer[] = $tpl;
            }
            $remain = $arrWiki['data'][2];
        } while (!empty($remain));

        $html = implode('', $buffer);

        return $html;
    }
    private function xmlQueryId(string $xml, string $id): string
    {
        try {
            $dom = simplexml_load_string($xml);
        } catch (\Exception $e) {
            Log::error($e);
            return "<div></div>";
        }
        $tpl_list = $dom->xpath('//MdTpl');
        foreach ($tpl_list as $key => $tpl) {
            foreach ($tpl->children() as  $param) {
                # 处理每个参数
                if ($param->getName() === "param") {
                    foreach ($param->attributes() as $pa => $pa_value) {
                        $pValue = $pa_value->__toString();
                        if ($pa === "name" && $pValue === "id") {
                            if ($param->__toString() === $id) {
                                return $tpl->asXML();
                            }
                        }
                    }
                }
            }
        }
        return "<div></div>";
    }
    public static function take_sentence(string $xml): array
    {
        $output = [];
        try {
            $dom = simplexml_load_string($xml);
        } catch (\Exception $e) {
            Log::error($e);
            return $output;
        }
        $tpl_list = $dom->xpath('//MdTpl');
        foreach ($tpl_list as $key => $tpl) {
            foreach ($tpl->attributes() as $a => $a_value) {
                if ($a === "name") {
                    if ($a_value->__toString() === "sent") {
                        foreach ($tpl->children() as  $param) {
                            # 处理每个参数
                            if ($param->getName() === "param") {
                                $sent = $param->__toString();
                                if (!empty($sent)) {
                                    $output[] = $sent;
                                    break;
                                }
                            }
                        }
                    }
                }
            }
        }
        return $output;
    }
    private function xml2tpl(string $xml, $channelId = []): string
    {
        /**
         * 解析xml
         * 获取模版参数
         * 生成react 组件参数
         */
        try {
            //$dom = simplexml_load_string($xml);
            $doc = new \DOMDocument();
            $xml = str_replace('MdTpl', 'dfn', $xml);
            $xml = mb_convert_encoding($xml, 'HTML-ENTITIES', "UTF-8");
            $ok = $doc->loadHTML($xml, LIBXML_NOERROR  | LIBXML_HTML_NOIMPLIED | LIBXML_HTML_NODEFDTD);
        } catch (\Exception $e) {
            Log::error($e);
            Log::error($xml);
            return "<span>xml解析错误{$e}</span>";
        }

        if (!$ok) {
            return "<span>xml解析错误</span>";
        }
        /*
        if(!$dom){
            Log::error($xml);
            return "<span>xml解析错误</span>";
        }
        */

        $tpl_list = $doc->getElementsByTagName('dfn');

        foreach ($tpl_list as $key => $tpl) {
            /**
             * 遍历 MdTpl 处理参数
             */
            $props = [];
            $tpl_name = '';
            foreach ($tpl->attributes as $a => $a_value) {
                if ($a_value->nodeName === "name") {
                    $tpl_name = $a_value->nodeValue;
                    break;
                }
            }
            $param_id = 0;
            $child = $tpl->firstChild;
            while ($child) {
                # 处理每个参数
                if ($child->nodeName === "span") {
                    $param_id++;
                    $paramName = "";
                    foreach ($child->attributes as $pa => $pa_value) {
                        if ($pa_value->nodeName === "name") {
                            $nodeText = $pa_value->nodeValue;
                            $props["{$nodeText}"] = $child->nodeValue;
                            $paramName = $pa_value;
                        }
                    }
                    if (empty($paramName)) {
                        foreach ($child->childNodes as $param_child) {
                            # code...
                            if ($param_child->nodeType === 3) {
                                $props["{$param_id}"] = $param_child->nodeValue;
                            }
                        }
                    }
                }
                $child = $child->nextSibling;
            }
            /**
             * 生成模版参数
             *
             */
            //TODO 判断$channelId里面的是否都是uuid
            $channelInfo = [];
            foreach ($channelId as $key => $id) {
                $channelInfo[] = Channel::where('uid', $id)->first();
            }
            $tplRender = new TemplateRender(
                $props,
                $channelInfo,
                $this->options['mode'],
                $this->options['format'],
                $this->options['studioId'],
                $this->options['debug'],
                $this->options['lang'],
            );
            $tplRender->options($this->options);
            $tplProps = $tplRender->render($tpl_name);
            if ($this->options['format'] === 'react' && $tplProps) {
                $props = $doc->createAttribute("props");
                $props->nodeValue = $tplProps['props'];
                $tpl->appendChild($props);
                $attTpl = $doc->createAttribute("tpl");
                $attTpl->nodeValue = $tplProps['tpl'];
                $tpl->appendChild($attTpl);
                $htmlElement = $doc->createElement($tplProps['tag']);
                $htmlElement->nodeValue = $tplProps['html'];
                $tpl->appendChild($htmlElement);
            }
        }
        $html = $doc->saveHTML();
        $html = str_replace(['<dfn', '</dfn>'], ['<MdTpl', '</MdTpl>'], $html);
        switch ($this->options['format']) {
            case 'react':
                return trim($html);
                break;
            case 'unity':
                if ($tplProps) {
                    return "{{" . "{$tplProps['tpl']}|{$tplProps['props']}" . "}}";
                } else {
                    return '';
                }
                break;
            case 'html':
                if (isset($tplProps)) {
                    if (is_array($tplProps)) {
                        return '';
                    } else {
                        return $tplProps;
                    }
                } else {
                    Log::error('tplProps undefine');
                    return '';
                }
                break;
            case 'tex':
                if (isset($tplProps)) {
                    if (is_array($tplProps)) {
                        return '';
                    } else {
                        return $tplProps;
                    }
                } else {
                    Log::error('tplProps undefine');
                    return '';
                }
                break;
            default:
                /**text simple markdown */
                if (isset($tplProps)) {
                    if (is_array($tplProps)) {
                        return '';
                    } else {
                        return $tplProps;
                    }
                } else {
                    Log::error('tplProps undefine');
                    return '';
                }
                break;
        }
    }

    /**
     * 将markdown文件中的模版转换为标准的wiki模版
     */
    private function markdown2wiki(string $markdown): string
    {
        //$markdown = mb_convert_encoding($markdown,'UTF-8','UTF-8');
        $markdown = iconv('UTF-8', 'UTF-8//IGNORE', $markdown);
        /**
         * nissaya
         * aaa=bbb\n
         * {{nissaya|aaa|bbb}}
         */
        if ($this->options['channelType'] === 'nissaya') {
            if ($this->options['contentType'] === "json") {
                $json = json_decode($markdown);
                $nissayaWord = [];
                if (is_array($json)) {
                    foreach ($json as $word) {
                        if (count($word->sn) === 1) {
                            //只输出第一层级
                            $str = "{{nissaya|";
                            if (isset($word->word->value)) {
                                $str .= $word->word->value;
                            }
                            $str .= "|";
                            if (isset($word->meaning->value)) {
                                $str .= $word->meaning->value;
                            }
                            $str .= "}}";
                            $nissayaWord[] = $str;
                        }
                    }
                } else {
                    Log::error('json data is not array', ['data' => $markdown]);
                }

                $markdown = implode('', $nissayaWord);
            } else if ($this->options['contentType'] === "markdown") {
                $lines = explode("\n", $markdown);
                $newLines = array();
                foreach ($lines as  $line) {
                    if (strstr($line, '=') === FALSE) {
                        $newLines[] = $line;
                    } else {
                        $nissaya = explode('=', $line);
                        $meaning = array_slice($nissaya, 1);
                        $meaning = implode('=', $meaning);
                        $newLines[] = "{{nissaya|{$nissaya[0]}|{$meaning}}}";
                    }
                }
                $markdown = implode("\n", $newLines);
            }
        }
        //$markdown = preg_replace("/\n\n/","<div></div>",$markdown);

        /**
         * 处理 mermaid
         */
        if (strpos($markdown, "```mermaid") !== false) {
            $lines = explode("\n", $markdown);
            $newLines = array();
            $mermaidBegin = false;
            $mermaidString = array();
            foreach ($lines as  $line) {
                if ($line === "```mermaid") {
                    $mermaidBegin = true;
                    $mermaidString = [];
                    continue;
                }
                if ($mermaidBegin) {
                    if ($line === "```") {
                        $newLines[] = "{{mermaid|" . base64_encode(\json_encode($mermaidString)) . "}}";
                        $mermaidBegin = false;
                    } else {
                        $mermaidString[] = $line;
                    }
                } else {
                    $newLines[] = $line;
                }
            }
            $markdown = implode("\n", $newLines);
        }

        /**
         * 替换换行符
         * react 无法处理 <br> 替换为<div></div>代替换行符作用
         */
        //$markdown = str_replace('<br>','<div></div>',$markdown);

        /**
         * markdown -> html
         */
        /*

        $html = MdRender::fixHtml($html);
        */

        #替换术语
        $pattern = "/\[\[(.+?)\]\]/";
        $replacement = '{{term|$1}}';
        $markdown = preg_replace($pattern, $replacement, $markdown);

        #替换句子模版
        $pattern = "/\{\{([0-9].+?)\}\}/";
        $replacement = '{{sent|id=$1}}';
        $markdown = preg_replace($pattern, $replacement, $markdown);

        /**
         * 替换多行注释
         * ```
         * bla
         * bla
         * ```
         * {{note|
         * bla
         * bla
         * }}
         */
        if (strpos($markdown, "```\n") !== false) {
            $lines = explode("\n", $markdown);
            $newLines = array();
            $noteBegin = false;
            $noteString = array();
            foreach ($lines as  $line) {

                if ($noteBegin) {
                    if ($line === "```") {
                        $newLines[] = "}}";
                        $noteBegin = false;
                    } else {
                        $newLines[] = $line;
                    }
                } else {
                    if ($line === "```") {
                        $noteBegin = true;
                        $newLines[] = "{{note|";
                        continue;
                    } else {
                        $newLines[] = $line;
                    }
                }
            }
            if ($noteBegin) {
                $newLines[] = "}}";
            }
            $markdown = implode("\n", $newLines);
        }

        /**
         * 替换单行注释
         * `bla bla`
         * {{note|bla}}
         */
        $pattern = "/`(.+?)`/";
        $replacement = '{{note|$1}}';
        $markdown = preg_replace($pattern, $replacement, $markdown);

        return $markdown;
    }

    private function markdownToHtml($markdown)
    {
        $markdown = str_replace('MdTpl', 'mdtpl', $markdown);
        $markdown = str_replace(['<param', '</param>'], ['<span', '</span>'], $markdown);

        $html = Markdown::render($markdown);
        if ($this->options['format'] === 'react') {
            $html = $this->fixHtml($html);
        }
        $html = str_replace('<hr>', '<hr />', $html);
        //给H1-6 添加uuid
        for ($i = 1; $i < 7; $i++) {
            if (strpos($html, "<h{$i}>") === false) {
                continue;
            }
            $output = array();
            $input = $html;
            $hPos = strpos($input, "<h{$i}>");
            while ($hPos !== false) {
                $output[] = substr($input, 0, $hPos);
                $output[] = "<h{$i} id='" . Str::uuid() . "'>";
                $input = substr($input, $hPos + 4);
                $hPos = strpos($input, "<h{$i}>");
            }
            $output[] = $input;
            $html = implode('', $output);
        }
        $html = str_replace('mdtpl', 'MdTpl', $html);
        return $html;
    }
    private function  fixHtml($html)
    {
        $doc = new \DOMDocument();
        libxml_use_internal_errors(true);
        $html = mb_convert_encoding($html, 'HTML-ENTITIES', "UTF-8");
        $doc->loadHTML('<span>' . $html . '</span>', LIBXML_NOERROR  | LIBXML_HTML_NOIMPLIED | LIBXML_HTML_NODEFDTD);
        $fixed = $doc->saveHTML();
        $fixed = mb_convert_encoding($fixed, "UTF-8", 'HTML-ENTITIES');
        return $fixed;
    }
    public static function init()
    {
        $GLOBALS["MdRenderStack"] = 0;
    }
    public function convert($markdown, $channelId = [], $queryId = null)
    {
        if (isset($GLOBALS["MdRenderStack"]) && is_numeric($GLOBALS["MdRenderStack"])) {
            $GLOBALS["MdRenderStack"]++;
        } else {
            $GLOBALS["MdRenderStack"] = 1;
        }
        if ($GLOBALS["MdRenderStack"] < 3) {
            $output  =  $this->_convert($markdown, $channelId, $queryId);
        } else {
            $output  = $markdown;
        }
        $GLOBALS["MdRenderStack"]--;
        return $output;
    }
    private function _convert($markdown, $channelId = [], $queryId = null)
    {
        if (empty($markdown)) {
            switch ($this->options['format']) {
                case 'react':
                    return "<span></span>";
                    break;
                default:
                    return "";
                    break;
            }
        }
        $wiki = $this->markdown2wiki($markdown);
        $wiki = $this->preprocessingForParagraph($wiki);
        $markdownWithTpl = $this->wiki2xml($wiki, $channelId);
        if (!is_null($queryId)) {
            $html = $this->xmlQueryId($markdownWithTpl, $queryId);
        }
        $html = $this->markdownToHtml($markdownWithTpl);

        //后期处理
        $output = '';
        switch ($this->options['format']) {
            case 'react':
                //生成可展开组件
                $html = str_replace("<div/>", "<div></div>", $html);
                $pattern = '/<li><div>(.+?)<\/div><\/li>/';
                $replacement = '<li><MdTpl name="toggle" tpl="toggle" props=""><div>$1</div></MdTpl></li>';
                $output = preg_replace($pattern, $replacement, $html);
                break;
            case 'text':
            case 'simple':
            case 'prompt':
                $html = strip_tags($html);
                $output = htmlspecialchars_decode($html, ENT_QUOTES);
                //$output = html_entity_decode($html);
                break;
            case 'tex':
                $html = strip_tags($html);
                $output = htmlspecialchars_decode($html, ENT_QUOTES);
                //$output = html_entity_decode($html);
                break;
            case 'unity':
                $html = str_replace(['<strong>', '</strong>', '<em>', '</em>'], ['[%b%]', '[%/b%]', '[%i%]', '[%/i%]'], $html);
                $html = strip_tags($html);
                $html = str_replace(['[%b%]', '[%/b%]', '[%i%]', '[%/i%]'], ['<b>', '</b>', '<i>', '</i>'], $html);
                $output = htmlspecialchars_decode($html, ENT_QUOTES);
                break;
            case 'html':
                $output = htmlspecialchars_decode($html, ENT_QUOTES);
                //处理脚注
                if ($this->options['footnote'] && isset($GLOBALS['note']) && count($GLOBALS['note']) > 0) {
                    $output .= '<div><h1>endnote</h1>';
                    foreach ($GLOBALS['note'] as $footnote) {
                        $output .= '<p><a name="footnote-' . $footnote['sn'] . '">[' . $footnote['sn'] . ']</a> ' . $footnote['content'] . '</p>';
                    }
                    $output .= '</div>';
                    unset($GLOBALS['note']);
                }
                //处理图片链接
                $output = str_replace('<img src="', '<img src="' . config('app.url'), $output);
                break;
            case 'markdown':
                //处理脚注
                $footnotes = array();
                if ($this->options['footnote'] && isset($GLOBALS['note']) && count($GLOBALS['note']) > 0) {
                    foreach ($GLOBALS['note'] as $footnote) {
                        $footnotes[] = '[^' . $footnote['sn'] . ']: ' . $footnote['content'];
                    }
                    unset($GLOBALS['note']);
                }
                //处理图片链接
                $output = str_replace('/attachments/', config('app.url') . "/attachments/", $markdownWithTpl);
                $output = $output . "\n\n" . implode("\n\n", $footnotes);
                break;
        }
        return $output;
    }


    /**
     * string[] $channelId
     */
    public static function render($markdown, $channelId, $queryId = null, $mode = 'read', $channelType = 'translation', $contentType = "markdown", $format = 'react')
    {

        $mdRender = new MdRender(
            [
                'mode' => $mode,
                'channelType' => $channelType,
                'contentType' => $contentType,
                'format' => $format
            ]
        );

        $output  = $mdRender->convert($markdown, $channelId, $queryId);

        return $output;
    }
}