Login   Register  
PHP Classes
elePHPant
Icontem

File: src/eMacros/Runtime/Type/IsA.php

Recommend this page to a friend!
Stumble It! Stumble It! Bookmark in del.icio.us Bookmark in del.icio.us
  Classes of Emmanuel Antico  >  eMacros  >  src/eMacros/Runtime/Type/IsA.php  >  Download  
File: src/eMacros/Runtime/Type/IsA.php
Role: Class source
Content type: text/plain
Description: Class source
Class: eMacros
PHP LISP language interpreter
Author: By
Last change:
Date: 2014-01-13 05:23
Size: 904 bytes
 

Contents

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

use 
eMacros\Runtime\GenericFunction;

class 
IsA extends GenericFunction {
    
/**
     * Determines if a given value is an instance of a specified class
     * Usage: (is-a "ArrayObject" _value)
     * Returns: boolean 
     * (non-PHPdoc)
     * @see \eMacros\Runtime\GenericFunction::execute()
     */
    
public function execute(array $arguments) {
        if (empty(
$arguments)) {
            throw new \
BadFunctionCallException("IsA: No parameters found.");
        }
        
        if (!
array_key_exists(1$arguments)) {
            throw new \
BadFunctionCallException("IsA: No classname has been specified.");
        }
        
        if (!
is_string($arguments[1])) {
            throw new \
InvalidArgumentException(sprintf("IsA: Expected a value of type string as second argument, %s found instead."gettype($arguments[1])));
        }
        
        if (!
is_object($arguments[0])) {
            return 
false;
        }
        
        return 
is_a($arguments[0], $arguments[1]);
    }
}
?>