File dsl/ast/DslFunctionCall.class.php

Last commit: Tue Jul 19 00:10:39 2022 +0200	Jan Dankert	Fetched from upstream.


     1 <?php
     2 
     3 namespace dsl\ast;
     4 
     5 use dsl\DslRuntimeException;
     6 use dsl\DslToken;
     7 use dsl\executor\DslInterpreter;
     8 use dsl\standard\NumberInstance;
     9 use dsl\standard\ArrayInstance;
    10 use dsl\standard\StringInstance;
    11 
    12 class DslFunctionCall implements DslStatement
    13 {
    14 	public $name;
    15 	private $parameters;
    16 
    17 	/**
    18 	 * DslFunctionCall constructor.
    19 	 * @param $name
    20 	 * @param $parameters DslToken[][]
    21 	 */
    22 	public function __construct($name, $parameters)
    23 	{
    24 		$this->name       = $name;
    25 		$this->parameters = $parameters;
    26 	}
    27 
    28 
    29 	/**
    30 	 * @throws DslRuntimeException
    31 	 */
    32 	public function execute(& $context ) {
    33 
    34 		$function = $this->name->execute( $context );
    35 
    36 		if   ( $this->parameters == null )
    37 			$parameterValues = []; // parameterless functions.
    38 		else
    39 			$parameterValues = $this->parameters->execute( $context );
    40 
    41 		// if there is only 1 parameter it must be converted to an array.
    42 		// if there are more than 1 parameter, it is already a sequence
    43 		if   ( ! is_array($parameterValues)) $parameterValues = array($parameterValues);
    44 
    45 
    46 		if   ( $function instanceof DslFunction ) {
    47 			// inscript custom function
    48 			$parameters = $function->parameters;
    49 
    50 			if   ( sizeof($parameters) > sizeof($parameterValues) )
    51 				throw new DslRuntimeException('function call has '.sizeof($parameterValues).' parameters but the function has '.sizeof($parameters).' parameters');
    52 
    53 			// Put all function parameters to the function context.
    54 			$parameterContext = array_combine( $parameters, array_slice($parameterValues,0,sizeof($parameters)) );
    55 			$subContext = array_merge( $context,$parameterContext );
    56 
    57 			return $function->execute( $subContext );
    58 
    59 		}
    60 		elseif   ( is_callable($function) ) {
    61 
    62 			return DslExpression::convertValueToStandardObject( call_user_func_array( $function, $this->toPrimitiveValues($parameterValues)) );
    63 		}
    64 		else
    65 			throw new DslRuntimeException('function is not callable'.var_export($function));
    66 	}
    67 
    68 	public function parse($tokens)
    69 	{
    70 		$this->statements[] = $tokens;
    71 	}
    72 
    73 
    74 	/**
    75 	 * Converts variables to its primitives, because external objects in applications will not be able to handle things like "StandardString".
    76 	 * @param $parameterValues
    77 	 * @return array
    78 	 */
    79 	private function toPrimitiveValues( $parameterValues )
    80 	{
    81 		return array_map( function( $val ) {
    82 			if   ( $val instanceof ArrayInstance )
    83 				return $val->getInternalValue();
    84 			if   ( $val instanceof NumberInstance )
    85 				return $val->toNumber();
    86 			if   ( $val instanceof StringInstance )
    87 				return (string)$val;
    88 
    89 			return $val;
    90 
    91 		},$parameterValues );
    92 	}
    93 }



Download dsl/ast/DslFunctionCall.class.php


History
Tue, 19 Jul 2022 00:10:39 +0200	Jan Dankert	Fetched from upstream.
Mon, 27 Jun 2022 00:41:50 +0200	Jan Dankert	Fetched from upstream.
Sun, 26 Jun 2022 15:47:05 +0200	Jan Dankert	Fetched from upstream.
Mon, 6 Jun 2022 14:06:46 +0200	Jan Dankert	First commit after fetching from upstream repo.