VLF\Interpreter::run()

Complexity

Conditions	42
Paths	235

Size

Total Lines	173
Code Lines	96

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
    public static function run (AST $tree, Node $parent = null): array
    {
        foreach ($tree->getNodes () as $id => $node)
        {
            switch ($node->type)
            {
                case OBJECT_DEFINITION:
                    $class = $node->args['class'];
                    $name  = $node->args['name'];
                    $args  = [];

                    if (isset (self::$objects[$name]))
                        break;

                    if (isset ($node->args['args']))
                    {
                        $args = $node->args['args'];

                        foreach ($args as $arg_id => $arg)
                            $args[$arg_id] = self::formatLine ($arg, self::$objects);
                    }

                    try
                    {
                        self::$objects[$name] = eval ("namespace VoidEngine; return new $class (". implode (', ', $args) .");");

The use of eval() is discouraged.

                        try
                        {
                            self::$objects[$name]->name = $name;
                        }

                        catch (\Throwable $e) {}

Consider adding a comment why this CATCH block is empty.

                    }

                    catch (\Throwable $e)
                    {
                        if (self::$throw_errors)
                            throw new \Exception ('Interpeter couldn\'t create object "'. $class .'" with name "'. $name .'" at line "'. $node->line .'". Exception info:'. "\n\n". (string) $e, 0, $e);
                    }
                break;

                case PROPERTY_SET:
                    if ($parent !== null)
                    {
                        $name = $parent->args['name'];

                        $propertyName  = $node->args['name'];
                        $propertyValue = $node->args['value'];
                        $preset        = '';

                        if (preg_match ('/function \((.*)\) use \((.*)\)/', $propertyValue))
                        {
                            $use = substr ($propertyValue, strpos ($propertyValue, 'use'));
                            $use = $ouse = substr ($use, ($pos = strpos ($use, '(') + 1), strpos ($use, ')') - $pos);
                            $use = explode (' ', $use);

                            foreach ($use as $id => $useParam)  

$id is overwriting a variable from outer foreach loop.

                                if (isset (self::$objects[$useParam]) && $use[$id + 1][0] == '$')
                                {
                                    $fname = $use[$id + 1];

                                    if (substr ($fname, strlen ($fname) - 1) == ',')
                                        $fname = substr ($fname, 0, -1);

                                    $preset .= "$fname = $useParam; ";

                                    unset ($use[$id]);
                                }

                            $preset        = self::formatLine ($preset, self::$objects);
                            $propertyValue = self::formatLine (str_replace ($ouse, implode (' ', $use), $propertyValue), self::$objects);
                        }

                        else $propertyValue = self::formatLine ($propertyValue, self::$objects);

                        try
                        {
							if (strpos ($propertyName, '->') !== false && self::$allow_multimethods_calls)
                                eval ('namespace VoidEngine; '. $preset .' _c('. self::$objects[$name]->selector .')->'. $propertyName .' = '. $propertyValue .';');

The use of eval() is discouraged.

                            
                            else self::$objects[$name]->$propertyName = eval ("namespace VoidEngine; $preset return $propertyValue;");

The use of eval() is discouraged.

                        }

                        catch (\Throwable $e)
                        {
                            if (self::$throw_errors)
                                throw new \Exception ('Interpeter couldn\'t set property "'. $propertyName .'" with value "'. $propertyValue .'" at line "'. $node->line .'". Exception info:'. "\n\n". (string) $e, 0, $e);
                        }
                    }

                    elseif (self::$throw_errors)
                        throw new \Exception ('Setting property to an non-object at line "'. $node->line);
                break;

                case METHOD_CALL:
                    if ($parent !== null)
                    {
                        $name = $parent->args['name'];

                        $methodName = $node->args['name'];
                        $methodArgs = $node->args['args'];

                        foreach ($methodArgs as $arg_id => $arg)
                            $methodArgs[$arg_id] = self::formatLine ($arg, self::$objects);

                        try
                        {
                            if (strpos ($methodName, '->') !== false && self::$allow_multimethods_calls)
                                eval ('namespace VoidEngine; _c('. self::$objects[$name]->selector .')->'. $methodName .' ('. implode (', ', $methodArgs) .');');

The use of eval() is discouraged.

                            elseif (sizeof ($methodArgs) > 0)
                                self::$objects[$name]->$methodName (...eval ('namespace VoidEngine; return ['. implode (', ', $methodArgs) .'];'));

The use of eval() is discouraged.

                            else self::$objects[$name]->$methodName ();
                        }

                        catch (\Throwable $e)
                        {
                            if (self::$throw_errors)
                                throw new \Exception ('Interpeter couldn\'t call method "'. $methodName .'" with arguments '. json_encode ($methodArgs) .' at line "'. $node->line .'". Exception info:'. "\n\n". (string) $e, 0, $e);
                        }
                    }

                    elseif (self::$throw_errors)
                        throw new \Exception ('Calling method to an non-object at line "'. $node->line .'"');
                break;

                case STYLES_IMPORTING:
                    foreach ($node->args['imports'] as $style)
                    {
                        $path = eval ('namespace VoidEngine; return '. self::formatLine ($style, self::$objects) .';');

The use of eval() is discouraged.

                        if (!file_exists ($path))
                        {
                            if (self::$throw_errors)
                                throw new \Exception ('Trying to import nonexistent style at line "'. $node->line .'"');
                        }
                        
                        elseif (!isset (self::$imported_styles[$path]))
                        {
                            \VLF\VST\Interpreter::run (\VLF\VST\Parser::parse (file_get_contents ($path)));

                            self::$imported_styles[$path] = true;
                        }
                    }
                break;

                case RUNTIME_EXECUTION:
                    eval (self::formatLine ($node->args['code'], self::$objects));

The use of eval() is discouraged.

                break;
            }

            $nodes = $node->getNodes ();

            if ($node->type == OBJECT_DEFINITION)
            {
                if (isset (\VLF\VST\Interpreter::$default_styles[$node->args['class']]))
                    $nodes = array_merge ($nodes, \VLF\VST\Interpreter::$default_styles[$node->args['class']]);

                if (isset ($node->args['styles']))
                    foreach ($node->args['styles'] as $style)
                        if (isset (\VLF\VST\Interpreter::$styles[$style]))
                            $nodes = array_merge ($nodes, \VLF\VST\Interpreter::$styles[$style]);

                        elseif (self::$throw_errors)
                            throw new \Exception ('Trying to set undefined style "'. $style .'" to object at line "'. $node->line .'"');
            }

            self::$objects = self::run (new AST (array_map (
                fn ($node) => $node->export (), $nodes)), $node);
        }

        return self::$objects;
    }