<?php

function preprocessGrammar($code)
{
    $code = resolveNodes($code);
    $code = resolveMacros($code);
    $code = resolveStackAccess($code);

    return $code;
}

function resolveNodes($code)
{
    return preg_replace_callback(
    '~\b(?<name>[A-Z][a-zA-Z_\\\\]++)\s*' . PARAMS . '~',
    function($matches) {
        // recurse
        $matches['params'] = resolveNodes($matches['params']);

        $params = magicSplit(
            '(?:' . PARAMS . '|' . ARGS . ')(*SKIP)(*FAIL)|,',
            $matches['params']
        );

        $paramCode = '';
        foreach ($params as $param) {
            $paramCode .= $param . ', ';
        }

        return 'new ' . $matches['name'] . '(' . $paramCode . 'attributes())';
    },
    $code
    );
}

function resolveMacros($code)
{
    return preg_replace_callback(
    '~\b(?<!::|->)(?!array\()(?<name>[a-z][A-Za-z]++)' . ARGS . '~',
    function($matches) {
        // recurse
        $matches['args'] = resolveMacros($matches['args']);

        $name = $matches['name'];
        $args = magicSplit(
            '(?:' . PARAMS . '|' . ARGS . ')(*SKIP)(*FAIL)|,',
            $matches['args']
        );

        if ('attributes' === $name) {
            assertArgs(0, $args, $name);
            return '$this->startAttributeStack[#1] + $this->endAttributes';
        }

        if ('stackAttributes' === $name) {
            assertArgs(1, $args, $name);
            return '$this->startAttributeStack[' . $args[0] . ']'
                   . ' + $this->endAttributeStack[' . $args[0] . ']';
        }

        if ('init' === $name) {
            return '$$ = array(' . implode(', ', $args) . ')';
        }

        if ('push' === $name) {
            assertArgs(2, $args, $name);

            return $args[0] . '[] = ' . $args[1] . '; $$ = ' . $args[0];
        }

        if ('pushNormalizing' === $name) {
            assertArgs(2, $args, $name);

            return 'if (is_array(' . $args[1] . ')) { $$ = array_merge(' . $args[0] . ', ' . $args[1] . '); }'
                   . ' else { ' . $args[0] . '[] = ' . $args[1] . '; $$ = ' . $args[0] . '; }';
        }

        if ('toArray' == $name) {
            assertArgs(1, $args, $name);

            return 'is_array(' . $args[0] . ') ? ' . $args[0] . ' : array(' . $args[0] . ')';
        }

        if ('parseVar' === $name) {
            assertArgs(1, $args, $name);

            return 'substr(' . $args[0] . ', 1)';
        }

        if ('parseEncapsed' === $name) {
            assertArgs(3, $args, $name);

            return 'foreach (' . $args[0] . ' as $s) { if ($s instanceof Node\Scalar\EncapsedStringPart) {'
                   . ' $s->value = Node\Scalar\String_::parseEscapeSequences($s->value, ' . $args[1] . ', ' . $args[2] . '); } }';
        }

        if ('makeNop' === $name) {
            assertArgs(3, $args, $name);

            return '$startAttributes = ' . $args[1] . ';'
                   . ' if (isset($startAttributes[\'comments\']))'
                   . ' { ' . $args[0] . ' = new Stmt\Nop($startAttributes + ' . $args[2] . '); }'
                   . ' else { ' . $args[0] . ' = null; }';
        }

        if ('makeZeroLengthNop' == $name) {
            assertArgs(2, $args, $name);

            return '$startAttributes = ' . $args[1] . ';'
                   . ' if (isset($startAttributes[\'comments\']))'
                   . ' { ' . $args[0] . ' = new Stmt\Nop($this->createCommentNopAttributes($startAttributes[\'comments\'])); }'
                   . ' else { ' . $args[0] . ' = null; }';
        }

        if ('prependLeadingComments' === $name) {
            assertArgs(1, $args, $name);

            return '$attrs = $this->startAttributeStack[#1]; $stmts = ' . $args[0] . '; '
                   . 'if (!empty($attrs[\'comments\'])) {'
                   . '$stmts[0]->setAttribute(\'comments\', '
                   . 'array_merge($attrs[\'comments\'], $stmts[0]->getAttribute(\'comments\', []))); }';
        }

        return $matches[0];
    },
    $code
    );
}

function assertArgs($num, $args, $name)
{
    if ($num != count($args)) {
    die('Wrong argument count for ' . $name . '().');
    }
}

function resolveStackAccess($code)
{
    $code = preg_replace('/\$\d+/', '$this->semStack[$0]', $code);
    $code = preg_replace('/#(\d+)/', '$$1', $code);
    return $code;
}

function removeTrailingWhitespace($code)
{
    $lines = explode("\n", $code);
    $lines = array_map('rtrim', $lines);
    return implode("\n", $lines);
}

function regex($regex)
{
    return '~' . LIB . '(?:' . str_replace('~', '\~', $regex) . ')~';
}

function magicSplit($regex, $string)
{
    $pieces = preg_split(regex('(?:(?&string)|(?&comment)|(?&code))(*SKIP)(*FAIL)|' . $regex), $string);

    foreach ($pieces as &$piece) {
    $piece = trim($piece);
    }

    if ($pieces === ['']) {
    return [];
    }

    return $pieces;
}
__halt_compiler();----SIGNATURE:----DRu3NYWTYSkWbvlgdOooDaGD/vjykLlNps5ocvAOBm/4aCxM8Upzyy2Qsv2IqGY3b/1SmWgfxWPxEuttJiFJqAJEt59gDn9AiLTwwFGWbOT7oQgWLSLMNoK6gSPwJ5Tv6nS3pPJ8By8NPsuiBF8uq2Wo9zCdDG+R+vs8eF41q5hJhCFBZBgRw0lnHBkgDQNqgKKCCFuusgVoIjxfQffxvgxKxiJ4wAj8lZlubOnF5PIFehLMpnBxdz6Q40VeANi0yq7JYnTaElMGJwwoOc6VMb+VKXUVv8ALmS1wrwl54dHBR4vfZyNdJOtz8bw/oT4tSP1yHoHabYvwnA/xA+4rOwZlKXLw7KzxSLtQvK101cCzB0pNY6Z3wYdM1yTcQW6LV9y1Xvy5Zoyitbm8liVhtVoZ2sM5+DoAY71EyBqIqrjr2o8YEgkDlLNH86fDGQZ/7OjBDGpuqA27MqLIhMHvZlK73TeSWX78tKaA/hl23it7QtC17QXrvdxervUuqbBHsUR5m4oeZ5oag9CDMosxyAYIGGvmWGjHc2gEdG5fyTweAOS6G8551sw85VdNIcLz5OpS9IV38z4BFQkd4U0xQqwurKnRl+FTdYi2rm9aCEKKT0mEAr0RtfhIBy2KecqK4mllGvJxgi5sfqyjV9vpph9iq7FiIFmP7BGmihmKeEE=----ATTACHMENT:----NzkyNjIyMzE2NzIwOTk5MyAyNjk0ODA2NDExNjg4NTEzIDUyMTczNTIxMzIzNTY1MDI=