File: src/eMacros/Runtime/String/StringReplace.php

Recommend this page to a friend!
  Classes of Emmanuel Antico  >  eMacros  >  src/eMacros/Runtime/String/StringReplace.php  >  Download  
File: src/eMacros/Runtime/String/StringReplace.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,422 bytes
 

Contents

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

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

class
StringReplace implements Applicable {
   
/**
     * Callback to invoke
     * @var callable
     */
   
public $callback;
   
    public function
__construct($callback) {
       
$this->callback = $callback;
    }
   
   
/**
     * Replace ocurrences of a tring in another
     * Usage: (String::replace _str1 _str2 _subject) (String::ireplace _str1 _str2 _subject)
     * Returns: string
     * (non-PHPdoc)
     * @see \eMacros\Applicable::apply()
     */
   
public function apply(Scope $scope, GenericList $arguments) {
       
$nargs = count($arguments);
       
        if (
$nargs < 3) {
            throw new \
BadFunctionCallException("StringReplace: Function expects at least 3 parameters.");
        }
       
        if (
$nargs == 3) {
            return
call_user_func($this->callback, $arguments[0]->evaluate($scope), $arguments[1]->evaluate($scope), $arguments[2]->evaluate($scope));
        }
        else {
           
$target = $arguments[3];
           
            if (!(
$target instanceof Symbol)) {
                throw new \
InvalidArgumentException(sprintf("StringReplace: Expected symbol as fourth argument but %s was found instead.", substr(strtolower(strstr(get_class($arguments[3]), '\\')), 1)));
            }
           
           
$ref = $target->symbol;
           
           
$func = $this->callback;
            return
$func($arguments[0]->evaluate($scope), $arguments[1]->evaluate($scope), $arguments[2]->evaluate($scope), $scope->symbols[$ref]);
        }
    }
}
?>

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