# DExTer : Debugging Experience Tester
# ~~~~~~   ~         ~~         ~   ~~
#
# Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
# See https://llvm.org/LICENSE.txt for license information.
# SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
"""Provides formatted/colored console output on both Windows and Linux.

Do not use this module directly, but instead use via the appropriate platform-
specific module.
"""

import abc
import re
import sys
import threading
import unittest

from io import StringIO

from dex.utils.Exceptions import Error


class _NullLock(object):
    def __enter__(self):
        return None

    def __exit__(self, *params):
        pass


_lock = threading.Lock()
_null_lock = _NullLock()


class PreserveAutoColors(object):
    def __init__(self, pretty_output):
        self.pretty_output = pretty_output
        self.orig_values = {}
        self.properties = ["auto_reds", "auto_yellows", "auto_greens", "auto_blues"]

    def __enter__(self):
        for p in self.properties:
            self.orig_values[p] = getattr(self.pretty_output, p)[:]
        return self

    def __exit__(self, *args):
        for p in self.properties:
            setattr(self.pretty_output, p, self.orig_values[p])


class Stream(object):
    def __init__(self, py_, os_=None):
        self.py = py_
        self.os = os_
        self.orig_color = None
        self.color_enabled = self.py.isatty()


class PrettyOutputBase(object, metaclass=abc.ABCMeta):
    stdout = Stream(sys.stdout)
    stderr = Stream(sys.stderr)

    def __init__(self):
        self.auto_reds = []
        self.auto_yellows = []
        self.auto_greens = []
        self.auto_blues = []
        self._stack = []

    def __enter__(self):
        return self

    def __exit__(self, *args):
        pass

    def _set_valid_stream(self, stream):
        if stream is None:
            return self.__class__.stdout
        return stream

    def _write(self, text, stream):
        text = str(text)

        # Users can embed color control tags in their output
        # (e.g. <r>hello</> <y>world</> would write the word 'hello' in red and
        # 'world' in yellow).
        # This function parses these tags using a very simple recursive
        # descent.
        colors = {
            "r": self.red,
            "y": self.yellow,
            "g": self.green,
            "b": self.blue,
            "d": self.default,
            "a": self.auto,
        }

        # Find all tags (whether open or close)
        tags = [t for t in re.finditer("<([{}/])>".format("".join(colors)), text)]

        if not tags:
            # No tags.  Just write the text to the current stream and return.
            # 'unmangling' any tags that have been mangled so that they won't
            # render as colors (for example in error output from this
            # function).
            stream = self._set_valid_stream(stream)
            stream.py.write(text.replace(r"\>", ">"))
            return

        open_tags = [i for i in tags if i.group(1) != "/"]
        close_tags = [i for i in tags if i.group(1) == "/"]

        if len(open_tags) != len(close_tags) or any(
            o.start() >= c.start() for (o, c) in zip(open_tags, close_tags)
        ):
            raise Error(
                'open/close tag mismatch in "{}"'.format(text.rstrip()).replace(
                    ">", r"\>"
                )
            )

        open_tag = open_tags.pop(0)

        # We know that the tags balance correctly, so figure out where the
        # corresponding close tag is to the current open tag.
        tag_nesting = 1
        close_tag = None
        for tag in tags[1:]:
            if tag.group(1) == "/":
                tag_nesting -= 1
            else:
                tag_nesting += 1
            if tag_nesting == 0:
                close_tag = tag
                break
        else:
            assert False, text

        # Use the method on the top of the stack for text prior to the open
        # tag.
        before = text[: open_tag.start()]
        if before:
            self._stack[-1](before, lock=_null_lock, stream=stream)

        # Use the specified color for the tag itself.
        color = open_tag.group(1)
        within = text[open_tag.end() : close_tag.start()]
        if within:
            colors[color](within, lock=_null_lock, stream=stream)

        # Use the method on the top of the stack for text after the close tag.
        after = text[close_tag.end() :]
        if after:
            self._stack[-1](after, lock=_null_lock, stream=stream)

    def flush(self, stream):
        stream = self._set_valid_stream(stream)
        stream.py.flush()

    def auto(self, text, stream=None, lock=_lock):
        text = str(text)
        stream = self._set_valid_stream(stream)
        lines = text.splitlines(True)

        with lock:
            for line in lines:
                # This is just being cute for the sake of cuteness, but why
                # not?
                line = line.replace("DExTer", "<r>D<y>E<g>x<b>T</></>e</>r</>")

                # Apply the appropriate color method if the expression matches
                # any of
                # the patterns we have set up.
                for fn, regexs in (
                    (self.red, self.auto_reds),
                    (self.yellow, self.auto_yellows),
                    (self.green, self.auto_greens),
                    (self.blue, self.auto_blues),
                ):
                    if any(re.search(regex, line) for regex in regexs):
                        fn(line, stream=stream, lock=_null_lock)
                        break
                else:
                    self.default(line, stream=stream, lock=_null_lock)

    def _call_color_impl(self, fn, impl, text, *args, **kwargs):
        try:
            self._stack.append(fn)
            return impl(text, *args, **kwargs)
        finally:
            fn = self._stack.pop()

    @abc.abstractmethod
    def red_impl(self, text, stream=None, **kwargs):
        pass

    def red(self, *args, **kwargs):
        return self._call_color_impl(self.red, self.red_impl, *args, **kwargs)

    @abc.abstractmethod
    def yellow_impl(self, text, stream=None, **kwargs):
        pass

    def yellow(self, *args, **kwargs):
        return self._call_color_impl(self.yellow, self.yellow_impl, *args, **kwargs)

    @abc.abstractmethod
    def green_impl(self, text, stream=None, **kwargs):
        pass

    def green(self, *args, **kwargs):
        return self._call_color_impl(self.green, self.green_impl, *args, **kwargs)

    @abc.abstractmethod
    def blue_impl(self, text, stream=None, **kwargs):
        pass

    def blue(self, *args, **kwargs):
        return self._call_color_impl(self.blue, self.blue_impl, *args, **kwargs)

    @abc.abstractmethod
    def default_impl(self, text, stream=None, **kwargs):
        pass

    def default(self, *args, **kwargs):
        return self._call_color_impl(self.default, self.default_impl, *args, **kwargs)

    def colortest(self):
        from itertools import combinations, permutations

        fns = (
            (self.red, "rrr"),
            (self.yellow, "yyy"),
            (self.green, "ggg"),
            (self.blue, "bbb"),
            (self.default, "ddd"),
        )

        for l in range(1, len(fns) + 1):
            for comb in combinations(fns, l):
                for perm in permutations(comb):
                    for stream in (None, self.__class__.stderr):
                        perm[0][0]("stdout " if stream is None else "stderr ", stream)
                        for fn, string in perm:
                            fn(string, stream)
                        self.default("\n", stream)

        tests = [
            (self.auto, "default1<r>red2</>default3"),
            (self.red, "red1<r>red2</>red3"),
            (self.blue, "blue1<r>red2</>blue3"),
            (self.red, "red1<y>yellow2</>red3"),
            (self.auto, "default1<y>yellow2<r>red3</></>"),
            (self.auto, "default1<g>green2<r>red3</></>"),
            (self.auto, "default1<g>green2<r>red3</>green4</>default5"),
            (self.auto, "default1<g>green2</>default3<g>green4</>default5"),
            (self.auto, "<r>red1<g>green2</>red3<g>green4</>red5</>"),
            (self.auto, "<r>red1<y><g>green2</>yellow3</>green4</>default5"),
            (self.auto, "<r><y><g><b><d>default1</></><r></></></>red2</>"),
            (self.auto, "<r>red1</>default2<r>red3</><g>green4</>default5"),
            (self.blue, "<r>red1</>blue2<r><r>red3</><g><g>green</></></>"),
            (self.blue, "<r>r<r>r<y>y<r><r><r><r>r</></></></></></></>b"),
        ]

        for fn, text in tests:
            for stream in (None, self.__class__.stderr):
                stream_name = "stdout" if stream is None else "stderr"
                fn("{} {}\n".format(stream_name, text), stream)


class TestPrettyOutput(unittest.TestCase):
    class MockPrettyOutput(PrettyOutputBase):
        def red_impl(self, text, stream=None, **kwargs):
            self._write("[R]{}[/R]".format(text), stream)

        def yellow_impl(self, text, stream=None, **kwargs):
            self._write("[Y]{}[/Y]".format(text), stream)

        def green_impl(self, text, stream=None, **kwargs):
            self._write("[G]{}[/G]".format(text), stream)

        def blue_impl(self, text, stream=None, **kwargs):
            self._write("[B]{}[/B]".format(text), stream)

        def default_impl(self, text, stream=None, **kwargs):
            self._write("[D]{}[/D]".format(text), stream)

    def test_red(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.red("hello", stream)
            self.assertEqual(stream.py.getvalue(), "[R]hello[/R]")

    def test_yellow(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.yellow("hello", stream)
            self.assertEqual(stream.py.getvalue(), "[Y]hello[/Y]")

    def test_green(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.green("hello", stream)
            self.assertEqual(stream.py.getvalue(), "[G]hello[/G]")

    def test_blue(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.blue("hello", stream)
            self.assertEqual(stream.py.getvalue(), "[B]hello[/B]")

    def test_default(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.default("hello", stream)
            self.assertEqual(stream.py.getvalue(), "[D]hello[/D]")

    def test_auto(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.auto_reds.append("foo")
            o.auto("bar\n", stream)
            o.auto("foo\n", stream)
            o.auto("baz\n", stream)
            self.assertEqual(
                stream.py.getvalue(), "[D]bar\n[/D][R]foo\n[/R][D]baz\n[/D]"
            )

            stream = Stream(StringIO())
            o.auto("bar\nfoo\nbaz\n", stream)
            self.assertEqual(
                stream.py.getvalue(), "[D]bar\n[/D][R]foo\n[/R][D]baz\n[/D]"
            )

            stream = Stream(StringIO())
            o.auto("barfoobaz\nbardoobaz\n", stream)
            self.assertEqual(
                stream.py.getvalue(), "[R]barfoobaz\n[/R][D]bardoobaz\n[/D]"
            )

            o.auto_greens.append("doo")
            stream = Stream(StringIO())
            o.auto("barfoobaz\nbardoobaz\n", stream)
            self.assertEqual(
                stream.py.getvalue(), "[R]barfoobaz\n[/R][G]bardoobaz\n[/G]"
            )

    def test_PreserveAutoColors(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            o.auto_reds.append("foo")
            with PreserveAutoColors(o):
                o.auto_greens.append("bar")
                stream = Stream(StringIO())
                o.auto("foo\nbar\nbaz\n", stream)
                self.assertEqual(
                    stream.py.getvalue(), "[R]foo\n[/R][G]bar\n[/G][D]baz\n[/D]"
                )

            stream = Stream(StringIO())
            o.auto("foo\nbar\nbaz\n", stream)
            self.assertEqual(
                stream.py.getvalue(), "[R]foo\n[/R][D]bar\n[/D][D]baz\n[/D]"
            )

            stream = Stream(StringIO())
            o.yellow("<a>foo</>bar<a>baz</>", stream)
            self.assertEqual(
                stream.py.getvalue(),
                "[Y][Y][/Y][R]foo[/R][Y][Y]bar[/Y][D]baz[/D][Y][/Y][/Y][/Y]",
            )

    def test_tags(self):
        with TestPrettyOutput.MockPrettyOutput() as o:
            stream = Stream(StringIO())
            o.auto("<r>hi</>", stream)
            self.assertEqual(stream.py.getvalue(), "[D][D][/D][R]hi[/R][D][/D][/D]")

            stream = Stream(StringIO())
            o.auto("<r><y>a</>b</>c", stream)
            self.assertEqual(
                stream.py.getvalue(),
                "[D][D][/D][R][R][/R][Y]a[/Y][R]b[/R][/R][D]c[/D][/D]",
            )

            with self.assertRaisesRegex(Error, "tag mismatch"):
                o.auto("<r>hi", stream)

            with self.assertRaisesRegex(Error, "tag mismatch"):
                o.auto("hi</>", stream)

            with self.assertRaisesRegex(Error, "tag mismatch"):
                o.auto("<r><y>hi</>", stream)

            with self.assertRaisesRegex(Error, "tag mismatch"):
                o.auto("<r><y>hi</><r></>", stream)

            with self.assertRaisesRegex(Error, "tag mismatch"):
                o.auto("</>hi<r>", stream)