File: src/eMacros/Runtime/Property/PropertyAssign.php

Recommend this page to a friend!
  Classes of Emmanuel Antico  >  eMacros  >  src/eMacros/Runtime/Property/PropertyAssign.php  >  Download  
File: src/eMacros/Runtime/Property/PropertyAssign.php
Role: Class source
Content type: text/plain
Description: Class source
Class: eMacros
PHP LISP language interpreter
Author: By
Last change: Fixed: Setting values in private properties in PropertyAssign.
Date: 7 years ago
Size: 3,111 bytes
 

Contents

Class file image Download
<?php
namespace eMacros\Runtime\Property;

use
eMacros\Applicable;
use
eMacros\Scope;
use
eMacros\GenericList;
use
eMacros\Symbol;

class
PropertyAssign implements Applicable {
   
/**
     * Key/Property name
     * @var mixed
     */
   
public $property;
   
    public function
__construct($property = null) {
       
$this->property = $property;
    }
   
   
/**
     * Sets a key/property value
     * Usage: (#= 'name' _obj "emma") (#surname= _obj "doe")
     * Returns: the assigned value
     * (non-PHPdoc)
     * @see \eMacros\Applicable::apply()
     */
   
public function apply(Scope $scope, GenericList $arguments) {
       
$nargs = count($arguments);
       
        if (
is_null($this->property)) {
            if (
$nargs == 0) {
                throw new \
BadFunctionCallException("PropertyAssign: No key defined.");
            }
            elseif (
$nargs == 1) {
                throw new \
BadFunctionCallException("PropertyAssign: No target specified.");
            }
            elseif (
$nargs == 2) {
                throw new \
BadFunctionCallException("PropertyAssign: No value specified.");
            }
           
           
$target = $arguments[1];
           
            if (!(
$target instanceof Symbol)) {
                throw new \
InvalidArgumentException(sprintf("PropertyAssign: Expected symbol as second argument but %s was found instead.", substr(strtolower(strstr(get_class($arguments[1]), '\\')), 1)));
            }
           
           
$property = $arguments[0]->evaluate($scope);
           
$value = $arguments[2]->evaluate($scope);
           
$ref = $target->symbol;
        }
        else {
            if (
$nargs == 0) {
                throw new \
BadFunctionCallException("PropertyAssign: No target found.");
            }
            elseif (
$nargs == 1) {
                throw new \
BadFunctionCallException("PropertyAssign: No value specified.");
            }
           
           
$target = $arguments[0];
               
            if (!(
$target instanceof Symbol)) {
                throw new \
InvalidArgumentException(sprintf("PropertyAssign: Expected symbol as last argument but %s was found instead.", substr(strtolower(strstr(get_class($arguments[0]), '\\')), 1)));
            }
           
           
$property = $this->property;
           
$value = $arguments[1]->evaluate($scope);
           
$ref = $target->symbol;
        }
       
        if (
is_array($scope->symbols[$ref]) || $scope->symbols[$ref] instanceof \ArrayAccess || $scope->symbols[$ref] instanceof \ArrayObject) {
           
$scope->symbols[$ref][$property] = $value;
            return
$value;
        }
        elseif (
is_object($scope->symbols[$ref])) {
            if (!
property_exists($scope->symbols[$ref], $property)) {
                if (
$scope->symbols[$ref] instanceof \stdClass) {
                   
$scope->symbols[$ref]->$property = $value;
                    return
$value;
                }
               
                if (
method_exists($scope->symbols[$ref], '__set')) {
                   
$scope->symbols[$ref]->__set($property, $value);
                    return
$value;
                }
               
                throw new \
UnexpectedValueException(sprintf("PropertyAssign: Property '$property' not found on class %s.", get_class($scope->symbols[$ref])));
            }
           
           
$rp = new \ReflectionProperty($scope->symbols[$ref], $property);
           
            if (!
$rp->isPublic()) {
               
$rp->setAccessible(true);
            }
           
           
$rp->setValue($scope->symbols[$ref], $value);
            return
$value;
        }
       
        throw new \
InvalidArgumentException(sprintf("PropertyAssign: Expected array/object as last argument but %s was found instead.", gettype($scope->symbols[$ref])));
    }
}
?>

For more information send a message to info at phpclasses dot org.