File: src/eMacros/Runtime/Environment/EnvironmentUse.php

Recommend this page to a friend!
  Classes of Emmanuel Antico  >  eMacros  >  src/eMacros/Runtime/Environment/EnvironmentUse.php  >  Download  
File: src/eMacros/Runtime/Environment/EnvironmentUse.php
Role: Class source
Content type: text/plain
Description: Class source
Class: eMacros
PHP LISP language interpreter
Author: By
Last change:
Date: 7 years ago
Size: 1,538 bytes
 

Contents

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

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

class
EnvironmentUse implements Applicable {
   
/**
     * Imports a function into current environment
     * Usage: (use utf8_decode) (use utf8_encode utf8enc)
     * (non-PHPdoc)
     * @see \eMacros\Applicable::apply()
     */
   
public function apply(Scope $scope, GenericList $arguments) {
        foreach (
$arguments as $name) {
            if (
$name instanceof Symbol) {
               
$func = $alias = $name->symbol;
            }
            elseif (
$name instanceof GenericList) {
               
//obtain symbol pair
               
list($func, $alias) = $name;
               
                if (!(
$func instanceof Symbol)) {
                    throw new \
InvalidArgumentException(sprintf("Use: Expected symbol as first argument, %s found instead.", substr(strtolower(strstr(get_class($func), '\\')), 1)));
                }
               
                if (!(
$alias instanceof Symbol)) {
                    throw new \
InvalidArgumentException(sprintf("Use: Expected symbol as second argument, %s found instead.", substr(strtolower(strstr(get_class($alias), '\\')), 1)));
                }
               
               
$func = $func->symbol;
               
$alias = $alias->symbol;
            }
            else {
                throw new \
InvalidArgumentException(sprintf("Use: Unexpected %s %s as argument.", substr(strtolower(strstr(get_class($name), '\\')), 1), $name->__toString()));
            }
           
            if (!
function_exists($func)) {
                throw new \
UnexpectedValueException("Use: Function $func not found.");
            }
           
           
$scope->symbols[$alias] = new PHPFunction($func);
        }
       
        return
null;
    }
}
?>

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