2013-01-07 08:19:31 +00:00
< ? php
/*
* This file is part of the Symfony package .
*
* ( c ) Fabien Potencier < fabien @ symfony . com >
*
* For the full copyright and license information , please view the LICENSE
* file that was distributed with this source code .
*/
namespace Symfony\Component\PropertyAccess ;
2016-03-22 09:19:04 +00:00
use Symfony\Component\PropertyAccess\Exception\InvalidArgumentException ;
2013-01-07 08:19:31 +00:00
use Symfony\Component\PropertyAccess\Exception\NoSuchPropertyException ;
use Symfony\Component\PropertyAccess\Exception\UnexpectedTypeException ;
/**
* Default implementation of { @ link PropertyAccessorInterface } .
*
* @ author Bernhard Schussek < bschussek @ gmail . com >
2016-03-17 14:00:21 +00:00
* @ author Nicolas Grekas < p @ tchwork . com >
2013-01-07 08:19:31 +00:00
*/
class PropertyAccessor implements PropertyAccessorInterface
{
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2013-01-07 08:19:31 +00:00
const VALUE = 0 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2016-03-17 14:00:21 +00:00
const REF = 1 ;
2015-12-04 23:04:49 +00:00
2016-03-22 09:19:04 +00:00
/**
* @ internal
*/
const IS_REF_CHAINED = 2 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_HAS_PROPERTY = 0 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_TYPE = 1 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_NAME = 2 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_REF = 3 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_ADDER = 4 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_REMOVER = 5 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_TYPE_METHOD = 0 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_TYPE_PROPERTY = 1 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_TYPE_MAGIC = 2 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_TYPE_ADDER_AND_REMOVER = 3 ;
2015-12-04 23:04:49 +00:00
/**
* @ internal
*/
2015-10-20 09:40:31 +01:00
const ACCESS_TYPE_NOT_FOUND = 4 ;
2013-01-07 08:19:31 +00:00
2016-03-22 09:19:04 +00:00
/**
* @ var bool
*/
2013-03-04 22:59:45 +00:00
private $magicCall ;
2016-03-22 09:19:04 +00:00
/**
* @ var array
*/
2015-10-20 09:40:31 +01:00
private $readPropertyCache = array ();
2016-03-22 09:19:04 +00:00
/**
* @ var array
*/
2015-10-20 09:40:31 +01:00
private $writePropertyCache = array ();
2016-03-22 09:19:04 +00:00
private static $previousErrorHandler = false ;
2016-03-17 14:00:21 +00:00
private static $errorHandler = array ( __CLASS__ , 'handleError' );
private static $resultProto = array ( self :: VALUE => null );
2013-03-04 22:59:45 +00:00
2013-01-07 08:19:31 +00:00
/**
* Should not be used by application code . Use
2015-01-02 16:09:32 +00:00
* { @ link PropertyAccess :: createPropertyAccessor ()} instead .
2016-03-22 09:19:04 +00:00
*
* @ param bool $magicCall
2013-01-07 08:19:31 +00:00
*/
2013-03-04 22:59:45 +00:00
public function __construct ( $magicCall = false )
2013-01-07 08:19:31 +00:00
{
2013-03-04 22:59:45 +00:00
$this -> magicCall = $magicCall ;
2013-01-07 08:19:31 +00:00
}
/**
* { @ inheritdoc }
*/
public function getValue ( $objectOrArray , $propertyPath )
{
2015-02-19 12:40:39 +00:00
if ( ! $propertyPath instanceof PropertyPathInterface ) {
2013-01-07 08:19:31 +00:00
$propertyPath = new PropertyPath ( $propertyPath );
}
2016-03-17 14:00:21 +00:00
$zval = array (
self :: VALUE => $objectOrArray ,
);
$propertyValues = $this -> readPropertiesUntil ( $zval , $propertyPath , $propertyPath -> getLength ());
2013-01-07 08:19:31 +00:00
return $propertyValues [ count ( $propertyValues ) - 1 ][ self :: VALUE ];
}
/**
* { @ inheritdoc }
*/
public function setValue ( & $objectOrArray , $propertyPath , $value )
{
2015-02-19 12:40:39 +00:00
if ( ! $propertyPath instanceof PropertyPathInterface ) {
2013-01-07 08:19:31 +00:00
$propertyPath = new PropertyPath ( $propertyPath );
}
2016-03-17 14:00:21 +00:00
$zval = array (
self :: VALUE => $objectOrArray ,
self :: REF => & $objectOrArray ,
);
$propertyValues = $this -> readPropertiesUntil ( $zval , $propertyPath , $propertyPath -> getLength () - 1 );
2013-01-07 08:19:31 +00:00
$overwrite = true ;
2016-03-17 08:10:46 +00:00
try {
2016-03-22 09:19:04 +00:00
if ( PHP_VERSION_ID < 70000 && false === self :: $previousErrorHandler ) {
2016-03-17 14:00:21 +00:00
self :: $previousErrorHandler = set_error_handler ( self :: $errorHandler );
2016-03-17 08:10:46 +00:00
}
2013-01-07 08:19:31 +00:00
2016-03-17 14:00:21 +00:00
for ( $i = count ( $propertyValues ) - 1 ; 0 <= $i ; -- $i ) {
$zval = $propertyValues [ $i ];
unset ( $propertyValues [ $i ]);
2013-01-07 08:19:31 +00:00
2016-03-22 09:19:04 +00:00
// You only need set value for current element if:
// 1. it's the parent of the last index element
// OR
// 2. its child is not passed by reference
//
// This may avoid uncessary value setting process for array elements.
// For example:
// '[a][b][c]' => 'old-value'
// If you want to change its value to 'new-value',
// you only need set value for '[a][b][c]' and it's safe to ignore '[a][b]' and '[a]'
//
2016-03-17 08:10:46 +00:00
if ( $overwrite ) {
$property = $propertyPath -> getElement ( $i );
if ( $propertyPath -> isIndex ( $i )) {
2016-03-17 14:00:21 +00:00
if ( $overwrite = ! isset ( $zval [ self :: REF ])) {
$ref = & $zval [ self :: REF ];
}
$this -> writeIndex ( $zval , $property , $value );
if ( $overwrite ) {
$zval [ self :: VALUE ] = $zval [ self :: REF ];
}
2016-03-17 08:10:46 +00:00
} else {
2016-03-17 14:00:21 +00:00
$this -> writeProperty ( $zval , $property , $value );
2016-03-17 08:10:46 +00:00
}
2016-03-22 09:19:04 +00:00
// if current element is an object
// OR
// if current element's reference chain is not broken - current element
// as well as all its ancients in the property path are all passed by reference,
// then there is no need to continue the value setting process
if ( is_object ( $zval [ self :: VALUE ]) || isset ( $zval [ self :: IS_REF_CHAINED ])) {
2016-03-23 09:13:06 +00:00
break ;
2016-03-22 09:19:04 +00:00
}
2012-07-31 12:15:57 +01:00
}
2016-03-17 08:10:46 +00:00
2016-03-17 14:00:21 +00:00
$value = $zval [ self :: VALUE ];
2016-03-17 08:10:46 +00:00
}
} catch ( \TypeError $e ) {
try {
2016-03-22 09:19:04 +00:00
self :: throwInvalidArgumentException ( $e -> getMessage (), $e -> getTrace (), 0 );
} catch ( InvalidArgumentException $e ) {
2013-01-07 08:19:31 +00:00
}
2016-03-17 08:10:46 +00:00
} catch ( \Exception $e ) {
} catch ( \Throwable $e ) {
}
2013-01-07 08:19:31 +00:00
2016-03-22 09:19:04 +00:00
if ( PHP_VERSION_ID < 70000 && false !== self :: $previousErrorHandler ) {
2016-03-17 08:10:46 +00:00
restore_error_handler ();
2016-03-22 09:19:04 +00:00
self :: $previousErrorHandler = false ;
2016-03-17 08:10:46 +00:00
}
if ( isset ( $e )) {
throw $e ;
}
}
/**
* @ internal
*/
public static function handleError ( $type , $message , $file , $line , $context )
{
if ( E_RECOVERABLE_ERROR === $type ) {
2016-03-22 09:19:04 +00:00
self :: throwInvalidArgumentException ( $message , debug_backtrace ( false ), 1 );
2016-03-17 08:10:46 +00:00
}
return null !== self :: $previousErrorHandler && false !== call_user_func ( self :: $previousErrorHandler , $type , $message , $file , $line , $context );
}
2016-03-22 09:19:04 +00:00
private static function throwInvalidArgumentException ( $message , $trace , $i )
2016-03-17 08:10:46 +00:00
{
if ( isset ( $trace [ $i ][ 'file' ]) && __FILE__ === $trace [ $i ][ 'file' ]) {
$pos = strpos ( $message , $delim = 'must be of the type ' ) ? : strpos ( $message , $delim = 'must be an instance of ' );
$pos += strlen ( $delim );
2016-03-22 09:19:04 +00:00
$type = $trace [ $i ][ 'args' ][ 0 ];
$type = is_object ( $type ) ? get_class ( $type ) : gettype ( $type );
2016-03-17 08:10:46 +00:00
2016-03-22 09:19:04 +00:00
throw new InvalidArgumentException ( sprintf ( 'Expected argument of type "%s", "%s" given' , substr ( $message , $pos , strpos ( $message , ',' , $pos ) - $pos ), $type ));
2013-01-07 08:19:31 +00:00
}
}
/**
* Reads the path from an object up to a given path index .
*
2016-03-17 14:00:21 +00:00
* @ param array $zval The array containing the object or array to read from
* @ param PropertyPathInterface $propertyPath The property path to read
* @ param int $lastIndex The index up to which should be read
2013-01-07 08:19:31 +00:00
*
* @ return array The values read in the path .
*
* @ throws UnexpectedTypeException If a value within the path is neither object nor array .
*/
2016-03-17 14:00:21 +00:00
private function readPropertiesUntil ( $zval , PropertyPathInterface $propertyPath , $lastIndex )
2013-01-07 08:19:31 +00:00
{
2016-03-17 14:00:21 +00:00
if ( ! is_object ( $zval [ self :: VALUE ]) && ! is_array ( $zval [ self :: VALUE ])) {
throw new UnexpectedTypeException ( $zval [ self :: VALUE ], 'object or array' );
2015-02-18 20:52:22 +00:00
}
2016-03-17 14:00:21 +00:00
// Add the root object to the list
$propertyValues = array ( $zval );
2013-01-07 08:19:31 +00:00
2012-07-31 12:15:57 +01:00
for ( $i = 0 ; $i < $lastIndex ; ++ $i ) {
2013-01-07 08:19:31 +00:00
$property = $propertyPath -> getElement ( $i );
$isIndex = $propertyPath -> isIndex ( $i );
2016-03-17 14:00:21 +00:00
if ( $isIndex ) {
// Create missing nested arrays on demand
2016-03-22 09:19:04 +00:00
if (( $zval [ self :: VALUE ] instanceof \ArrayAccess && ! $zval [ self :: VALUE ] -> offsetExists ( $property )) ||
2016-03-17 14:00:21 +00:00
( is_array ( $zval [ self :: VALUE ]) && ! isset ( $zval [ self :: VALUE ][ $property ]) && ! array_key_exists ( $property , $zval [ self :: VALUE ]))
2016-03-22 09:19:04 +00:00
) {
if ( $i + 1 < $propertyPath -> getLength ()) {
$zval [ self :: VALUE ][ $property ] = array ();
2016-03-17 14:00:21 +00:00
2016-03-22 09:19:04 +00:00
if ( isset ( $zval [ self :: REF ])) {
$zval [ self :: REF ] = $zval [ self :: VALUE ];
}
2016-03-17 14:00:21 +00:00
}
2015-10-02 22:43:46 +01:00
}
2013-01-07 08:19:31 +00:00
2016-03-17 14:00:21 +00:00
$zval = $this -> readIndex ( $zval , $property );
2012-07-31 12:15:57 +01:00
} else {
2016-03-17 14:00:21 +00:00
$zval = $this -> readProperty ( $zval , $property );
2012-07-31 12:15:57 +01:00
}
2015-02-18 20:52:22 +00:00
// the final value of the path must not be validated
2016-03-17 14:00:21 +00:00
if ( $i + 1 < $propertyPath -> getLength () && ! is_object ( $zval [ self :: VALUE ]) && ! is_array ( $zval [ self :: VALUE ])) {
throw new UnexpectedTypeException ( $zval [ self :: VALUE ], 'object or array' );
2015-02-18 20:52:22 +00:00
}
2016-03-22 09:19:04 +00:00
if ( isset ( $zval [ self :: REF ]) && ( 0 === $i || isset ( $propertyValues [ $i - 1 ][ self :: IS_REF_CHAINED ]))) {
// Set the IS_REF_CHAINED flag to true if:
// current property is passed by reference and
// it is the first element in the property path or
// the IS_REF_CHAINED flag of its parent element is true
// Basically, this flag is true only when the reference chain from the top element to current element is not broken
$zval [ self :: IS_REF_CHAINED ] = true ;
}
2016-03-17 14:00:21 +00:00
$propertyValues [] = $zval ;
2013-01-07 08:19:31 +00:00
}
return $propertyValues ;
}
2012-07-31 12:15:57 +01:00
/**
* Reads a key from an array - like structure .
*
2016-03-17 14:00:21 +00:00
* @ param array $zval The array containing the array or \ArrayAccess object to read from
* @ param string | int $index The key to read
2012-07-31 12:15:57 +01:00
*
2016-03-17 14:00:21 +00:00
* @ return array The array containing the value of the key
2012-07-31 12:15:57 +01:00
*
2013-03-27 22:40:36 +00:00
* @ throws NoSuchPropertyException If the array does not implement \ArrayAccess or it is not an array
2012-07-31 12:15:57 +01:00
*/
2016-03-17 14:00:21 +00:00
private function readIndex ( $zval , $index )
2012-07-31 12:15:57 +01:00
{
2016-03-17 14:00:21 +00:00
if ( ! $zval [ self :: VALUE ] instanceof \ArrayAccess && ! is_array ( $zval [ self :: VALUE ])) {
throw new NoSuchPropertyException ( sprintf ( 'Index "%s" cannot be read from object of type "%s" because it doesn\'t implement \ArrayAccess' , $index , get_class ( $zval [ self :: VALUE ])));
2012-07-31 12:15:57 +01:00
}
2016-03-17 14:00:21 +00:00
$result = self :: $resultProto ;
2012-07-31 12:15:57 +01:00
2016-03-17 14:00:21 +00:00
if ( isset ( $zval [ self :: VALUE ][ $index ])) {
$result [ self :: VALUE ] = $zval [ self :: VALUE ][ $index ];
if ( ! isset ( $zval [ self :: REF ])) {
// Save creating references when doing read-only lookups
} elseif ( is_array ( $zval [ self :: VALUE ])) {
$result [ self :: REF ] = & $zval [ self :: REF ][ $index ];
} elseif ( is_object ( $result [ self :: VALUE ])) {
$result [ self :: REF ] = $result [ self :: VALUE ];
2012-07-31 12:15:57 +01:00
}
}
return $result ;
}
2013-01-07 08:19:31 +00:00
/**
2016-03-17 14:00:21 +00:00
* Reads the a property from an object .
2013-01-07 08:19:31 +00:00
*
2016-03-17 14:00:21 +00:00
* @ param array $zval The array containing the object to read from
2012-07-31 12:15:57 +01:00
* @ param string $property The property to read .
2013-01-07 08:19:31 +00:00
*
2016-03-17 14:00:21 +00:00
* @ return array The array containing the value of the property
2013-01-07 08:19:31 +00:00
*
2016-03-17 14:00:21 +00:00
* @ throws NoSuchPropertyException If the property does not exist or is not public .
2013-01-07 08:19:31 +00:00
*/
2016-03-17 14:00:21 +00:00
private function readProperty ( $zval , $property )
2013-01-07 08:19:31 +00:00
{
2016-03-17 14:00:21 +00:00
if ( ! is_object ( $zval [ self :: VALUE ])) {
2012-07-31 12:15:57 +01:00
throw new NoSuchPropertyException ( sprintf ( 'Cannot read property "%s" from an array. Maybe you should write the property path as "[%s]" instead?' , $property , $property ));
}
2013-01-07 08:19:31 +00:00
2016-03-17 14:00:21 +00:00
$result = self :: $resultProto ;
$object = $zval [ self :: VALUE ];
$access = $this -> getReadAccessInfo ( get_class ( $object ), $property );
2015-10-20 09:40:31 +01:00
if ( self :: ACCESS_TYPE_METHOD === $access [ self :: ACCESS_TYPE ]) {
$result [ self :: VALUE ] = $object -> { $access [ self :: ACCESS_NAME ]}();
} elseif ( self :: ACCESS_TYPE_PROPERTY === $access [ self :: ACCESS_TYPE ]) {
2016-03-17 14:00:21 +00:00
$result [ self :: VALUE ] = $object -> { $access [ self :: ACCESS_NAME ]};
if ( $access [ self :: ACCESS_REF ] && isset ( $zval [ self :: REF ])) {
$result [ self :: REF ] = & $object -> { $access [ self :: ACCESS_NAME ]};
2015-10-20 09:40:31 +01:00
}
} elseif ( ! $access [ self :: ACCESS_HAS_PROPERTY ] && property_exists ( $object , $property )) {
2013-04-18 15:39:54 +01:00
// Needed to support \stdClass instances. We need to explicitly
// exclude $classHasProperty, otherwise if in the previous clause
// a *protected* property was found on the class, property_exists()
// returns true, consequently the following line will result in a
// fatal error.
2015-10-20 09:40:31 +01:00
2016-03-17 14:00:21 +00:00
$result [ self :: VALUE ] = $object -> $property ;
if ( isset ( $zval [ self :: REF ])) {
$result [ self :: REF ] = & $object -> $property ;
}
2015-10-20 09:40:31 +01:00
} elseif ( self :: ACCESS_TYPE_MAGIC === $access [ self :: ACCESS_TYPE ]) {
2013-03-04 22:59:45 +00:00
// we call the getter and hope the __call do the job
2015-10-20 09:40:31 +01:00
$result [ self :: VALUE ] = $object -> { $access [ self :: ACCESS_NAME ]}();
2013-01-07 08:19:31 +00:00
} else {
2015-10-20 09:40:31 +01:00
throw new NoSuchPropertyException ( $access [ self :: ACCESS_NAME ]);
2013-01-07 08:19:31 +00:00
}
// Objects are always passed around by reference
2016-03-17 14:00:21 +00:00
if ( isset ( $zval [ self :: REF ]) && is_object ( $result [ self :: VALUE ])) {
$result [ self :: REF ] = $result [ self :: VALUE ];
2013-01-07 08:19:31 +00:00
}
return $result ;
}
2015-10-20 09:40:31 +01:00
/**
* Guesses how to read the property value .
*
2016-03-17 14:00:21 +00:00
* @ param string $class
2015-10-20 09:40:31 +01:00
* @ param string $property
*
* @ return array
*/
2016-03-17 14:00:21 +00:00
private function getReadAccessInfo ( $class , $property )
2015-10-20 09:40:31 +01:00
{
2016-03-17 14:00:21 +00:00
$key = $class . '::' . $property ;
2015-10-20 09:40:31 +01:00
if ( isset ( $this -> readPropertyCache [ $key ])) {
$access = $this -> readPropertyCache [ $key ];
} else {
$access = array ();
2016-03-17 14:00:21 +00:00
$reflClass = new \ReflectionClass ( $class );
2015-10-20 09:40:31 +01:00
$access [ self :: ACCESS_HAS_PROPERTY ] = $reflClass -> hasProperty ( $property );
$camelProp = $this -> camelize ( $property );
$getter = 'get' . $camelProp ;
$isser = 'is' . $camelProp ;
$hasser = 'has' . $camelProp ;
$classHasProperty = $reflClass -> hasProperty ( $property );
if ( $reflClass -> hasMethod ( $getter ) && $reflClass -> getMethod ( $getter ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_METHOD ;
$access [ self :: ACCESS_NAME ] = $getter ;
} elseif ( $reflClass -> hasMethod ( $isser ) && $reflClass -> getMethod ( $isser ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_METHOD ;
$access [ self :: ACCESS_NAME ] = $isser ;
} elseif ( $reflClass -> hasMethod ( $hasser ) && $reflClass -> getMethod ( $hasser ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_METHOD ;
$access [ self :: ACCESS_NAME ] = $hasser ;
} elseif ( $reflClass -> hasMethod ( '__get' ) && $reflClass -> getMethod ( '__get' ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_PROPERTY ;
$access [ self :: ACCESS_NAME ] = $property ;
$access [ self :: ACCESS_REF ] = false ;
} elseif ( $classHasProperty && $reflClass -> getProperty ( $property ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_PROPERTY ;
$access [ self :: ACCESS_NAME ] = $property ;
$access [ self :: ACCESS_REF ] = true ;
} elseif ( $this -> magicCall && $reflClass -> hasMethod ( '__call' ) && $reflClass -> getMethod ( '__call' ) -> isPublic ()) {
// we call the getter and hope the __call do the job
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_MAGIC ;
$access [ self :: ACCESS_NAME ] = $getter ;
} else {
$methods = array ( $getter , $isser , $hasser , '__get' );
if ( $this -> magicCall ) {
$methods [] = '__call' ;
}
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_NOT_FOUND ;
$access [ self :: ACCESS_NAME ] = sprintf (
'Neither the property "%s" nor one of the methods "%s()" ' .
'exist and have public access in class "%s".' ,
$property ,
implode ( '()", "' , $methods ),
$reflClass -> name
);
}
$this -> readPropertyCache [ $key ] = $access ;
}
return $access ;
}
2013-01-07 08:19:31 +00:00
/**
2016-03-22 09:19:04 +00:00
* Sets the value of an index in a given array - accessible value .
2013-01-07 08:19:31 +00:00
*
2016-03-17 14:00:21 +00:00
* @ param array $zval The array containing the array or \ArrayAccess object to write to
* @ param string | int $index The index to write at
* @ param mixed $value The value to write
2012-07-31 12:15:57 +01:00
*
2013-03-27 22:40:36 +00:00
* @ throws NoSuchPropertyException If the array does not implement \ArrayAccess or it is not an array
2012-07-31 12:15:57 +01:00
*/
2016-03-17 14:00:21 +00:00
private function writeIndex ( $zval , $index , $value )
2012-07-31 12:15:57 +01:00
{
2016-03-17 14:00:21 +00:00
if ( ! $zval [ self :: VALUE ] instanceof \ArrayAccess && ! is_array ( $zval [ self :: VALUE ])) {
throw new NoSuchPropertyException ( sprintf ( 'Index "%s" cannot be modified in object of type "%s" because it doesn\'t implement \ArrayAccess' , $index , get_class ( $zval [ self :: VALUE ])));
2012-07-31 12:15:57 +01:00
}
2016-03-17 14:00:21 +00:00
$zval [ self :: REF ][ $index ] = $value ;
2012-07-31 12:15:57 +01:00
}
/**
2016-03-22 09:19:04 +00:00
* Sets the value of a property in the given object .
2012-07-31 12:15:57 +01:00
*
2016-03-17 14:00:21 +00:00
* @ param array $zval The array containing the object to write to
* @ param string $property The property to write
* @ param mixed $value The value to write
2013-01-07 08:19:31 +00:00
*
2016-03-17 08:10:46 +00:00
* @ throws NoSuchPropertyException If the property does not exist or is not public .
2013-01-07 08:19:31 +00:00
*/
2016-03-17 14:00:21 +00:00
private function writeProperty ( $zval , $property , $value )
2013-01-07 08:19:31 +00:00
{
2016-03-17 14:00:21 +00:00
if ( ! is_object ( $zval [ self :: VALUE ])) {
2012-07-31 12:15:57 +01:00
throw new NoSuchPropertyException ( sprintf ( 'Cannot write property "%s" to an array. Maybe you should write the property path as "[%s]" instead?' , $property , $property ));
}
2013-01-07 08:19:31 +00:00
2016-03-17 14:00:21 +00:00
$object = $zval [ self :: VALUE ];
$access = $this -> getWriteAccessInfo ( get_class ( $object ), $property , $value );
2015-10-20 09:40:31 +01:00
if ( self :: ACCESS_TYPE_METHOD === $access [ self :: ACCESS_TYPE ]) {
2016-03-17 08:10:46 +00:00
$object -> { $access [ self :: ACCESS_NAME ]}( $value );
2015-10-20 09:40:31 +01:00
} elseif ( self :: ACCESS_TYPE_PROPERTY === $access [ self :: ACCESS_TYPE ]) {
$object -> { $access [ self :: ACCESS_NAME ]} = $value ;
} elseif ( self :: ACCESS_TYPE_ADDER_AND_REMOVER === $access [ self :: ACCESS_TYPE ]) {
2016-03-22 09:19:04 +00:00
$this -> writeCollection ( $zval , $property , $value , $access [ self :: ACCESS_ADDER ], $access [ self :: ACCESS_REMOVER ]);
2015-10-20 09:40:31 +01:00
} elseif ( ! $access [ self :: ACCESS_HAS_PROPERTY ] && property_exists ( $object , $property )) {
2013-04-18 15:39:54 +01:00
// Needed to support \stdClass instances. We need to explicitly
// exclude $classHasProperty, otherwise if in the previous clause
// a *protected* property was found on the class, property_exists()
// returns true, consequently the following line will result in a
// fatal error.
2015-10-20 09:40:31 +01:00
2015-11-03 18:17:55 +00:00
$object -> $property = $value ;
2015-10-20 09:40:31 +01:00
} elseif ( self :: ACCESS_TYPE_MAGIC === $access [ self :: ACCESS_TYPE ]) {
2016-03-17 08:10:46 +00:00
$object -> { $access [ self :: ACCESS_NAME ]}( $value );
2013-01-07 08:19:31 +00:00
} else {
2015-10-20 09:40:31 +01:00
throw new NoSuchPropertyException ( $access [ self :: ACCESS_NAME ]);
2013-01-07 08:19:31 +00:00
}
}
2016-03-22 09:19:04 +00:00
/**
* Adjusts a collection - valued property by calling add * () and remove * () methods .
*
* @ param array $zval The array containing the object to write to
* @ param string $property The property to write
* @ param array | \Traversable $collection The collection to write
* @ param string $addMethod The add * () method
* @ param string $removeMethod The remove * () method
*/
private function writeCollection ( $zval , $property , $collection , $addMethod , $removeMethod )
{
// At this point the add and remove methods have been found
$previousValue = $this -> readProperty ( $zval , $property );
$previousValue = $previousValue [ self :: VALUE ];
if ( $previousValue instanceof \Traversable ) {
$previousValue = iterator_to_array ( $previousValue );
}
if ( $previousValue && is_array ( $previousValue )) {
if ( is_object ( $collection )) {
$collection = iterator_to_array ( $collection );
}
foreach ( $previousValue as $key => $item ) {
if ( ! in_array ( $item , $collection , true )) {
unset ( $previousValue [ $key ]);
$zval [ self :: VALUE ] -> { $removeMethod }( $item );
}
}
} else {
$previousValue = false ;
}
foreach ( $collection as $item ) {
if ( ! $previousValue || ! in_array ( $item , $previousValue , true )) {
$zval [ self :: VALUE ] -> { $addMethod }( $item );
}
}
}
2015-10-20 09:40:31 +01:00
/**
* Guesses how to write the property value .
*
2016-03-17 14:00:21 +00:00
* @ param string $class
* @ param string $property
* @ param mixed $value
2015-10-20 09:40:31 +01:00
*
* @ return array
*/
2016-03-17 14:00:21 +00:00
private function getWriteAccessInfo ( $class , $property , $value )
2015-10-20 09:40:31 +01:00
{
2016-03-17 14:00:21 +00:00
$key = $class . '::' . $property ;
2015-10-20 09:40:31 +01:00
$guessedAdders = '' ;
if ( isset ( $this -> writePropertyCache [ $key ])) {
$access = $this -> writePropertyCache [ $key ];
} else {
$access = array ();
2016-03-17 14:00:21 +00:00
$reflClass = new \ReflectionClass ( $class );
2015-10-20 09:40:31 +01:00
$access [ self :: ACCESS_HAS_PROPERTY ] = $reflClass -> hasProperty ( $property );
$plural = $this -> camelize ( $property );
// Any of the two methods is required, but not yet known
2016-03-17 14:00:21 +00:00
$singulars = ( array ) StringUtil :: singularify ( $plural );
2015-10-20 09:40:31 +01:00
if ( is_array ( $value ) || $value instanceof \Traversable ) {
$methods = $this -> findAdderAndRemover ( $reflClass , $singulars );
if ( null === $methods ) {
// It is sufficient to include only the adders in the error
// message. If the user implements the adder but not the remover,
// an exception will be thrown in findAdderAndRemover() that
// the remover has to be implemented as well.
$guessedAdders = '"add' . implode ( '()", "add' , $singulars ) . '()", ' ;
} else {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_ADDER_AND_REMOVER ;
$access [ self :: ACCESS_ADDER ] = $methods [ 0 ];
$access [ self :: ACCESS_REMOVER ] = $methods [ 1 ];
}
}
if ( ! isset ( $access [ self :: ACCESS_TYPE ])) {
$setter = 'set' . $this -> camelize ( $property );
$classHasProperty = $reflClass -> hasProperty ( $property );
if ( $reflClass -> hasMethod ( $setter ) && $reflClass -> getMethod ( $setter ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_METHOD ;
$access [ self :: ACCESS_NAME ] = $setter ;
} elseif ( $reflClass -> hasMethod ( '__set' ) && $reflClass -> getMethod ( '__set' ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_PROPERTY ;
$access [ self :: ACCESS_NAME ] = $property ;
} elseif ( $classHasProperty && $reflClass -> getProperty ( $property ) -> isPublic ()) {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_PROPERTY ;
$access [ self :: ACCESS_NAME ] = $property ;
} elseif ( $this -> magicCall && $reflClass -> hasMethod ( '__call' ) && $reflClass -> getMethod ( '__call' ) -> isPublic ()) {
// we call the getter and hope the __call do the job
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_MAGIC ;
$access [ self :: ACCESS_NAME ] = $setter ;
} else {
$access [ self :: ACCESS_TYPE ] = self :: ACCESS_TYPE_NOT_FOUND ;
$access [ self :: ACCESS_NAME ] = sprintf (
'Neither the property "%s" nor one of the methods %s"%s()", ' .
'"__set()" or "__call()" exist and have public access in class "%s".' ,
$property ,
$guessedAdders ,
$setter ,
$reflClass -> name
);
}
}
$this -> writePropertyCache [ $key ] = $access ;
}
return $access ;
}
2013-01-07 08:19:31 +00:00
/**
* Camelizes a given string .
*
2014-11-30 13:33:44 +00:00
* @ param string $string Some string
2013-01-07 08:19:31 +00:00
*
2013-03-27 22:40:36 +00:00
* @ return string The camelized version of the string
2013-01-07 08:19:31 +00:00
*/
private function camelize ( $string )
{
return preg_replace_callback ( '/(^|_|\.)+(.)/' , function ( $match ) { return ( '.' === $match [ 1 ] ? '_' : '' ) . strtoupper ( $match [ 2 ]); }, $string );
}
/**
* Searches for add and remove methods .
*
* @ param \ReflectionClass $reflClass The reflection class for the given object
2013-03-27 22:40:36 +00:00
* @ param array $singulars The singular form of the property name or null
2013-01-07 08:19:31 +00:00
*
2013-03-27 22:40:36 +00:00
* @ return array | null An array containing the adder and remover when found , null otherwise
2013-01-07 08:19:31 +00:00
*
2013-03-27 22:40:36 +00:00
* @ throws NoSuchPropertyException If the property does not exist
2013-01-07 08:19:31 +00:00
*/
private function findAdderAndRemover ( \ReflectionClass $reflClass , array $singulars )
{
foreach ( $singulars as $singular ) {
2013-04-02 10:39:57 +01:00
$addMethod = 'add' . $singular ;
$removeMethod = 'remove' . $singular ;
2013-01-07 08:19:31 +00:00
$addMethodFound = $this -> isAccessible ( $reflClass , $addMethod , 1 );
$removeMethodFound = $this -> isAccessible ( $reflClass , $removeMethod , 1 );
if ( $addMethodFound && $removeMethodFound ) {
return array ( $addMethod , $removeMethod );
}
if ( $addMethodFound xor $removeMethodFound ) {
throw new NoSuchPropertyException ( sprintf (
2013-04-18 15:39:54 +01:00
'Found the public method "%s()", but did not find a public "%s()" on class %s' ,
2013-01-07 08:19:31 +00:00
$addMethodFound ? $addMethod : $removeMethod ,
$addMethodFound ? $removeMethod : $addMethod ,
$reflClass -> name
));
}
}
}
/**
2016-03-22 09:19:04 +00:00
* Returns whether a method is public and has the number of required parameters .
2013-01-07 08:19:31 +00:00
*
2014-11-30 13:33:44 +00:00
* @ param \ReflectionClass $class The class of the method
* @ param string $methodName The method name
* @ param int $parameters The number of parameters
2013-01-07 08:19:31 +00:00
*
2016-03-17 14:00:21 +00:00
* @ return bool Whether the method is public and has $parameters required parameters
2013-01-07 08:19:31 +00:00
*/
private function isAccessible ( \ReflectionClass $class , $methodName , $parameters )
{
if ( $class -> hasMethod ( $methodName )) {
$method = $class -> getMethod ( $methodName );
if ( $method -> isPublic () && $method -> getNumberOfRequiredParameters () === $parameters ) {
return true ;
}
}
return false ;
}
}