Login   Register  
PHP Classes
elePHPant
Icontem

File: src/eMacros/Runtime/Regex/RegexMatch.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/Regex/RegexMatch.php  >  Download  
File: src/eMacros/Runtime/Regex/RegexMatch.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: 1,590 bytes
 

Contents

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

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

class 
RegexMatch implements Applicable {
    
/**
     * Returns the amount of matches found on the given subject
     * Usage: (Regex::match "/([\d]{4})-([\d]{2})-([\d]{2})/" "2013-11-20" _matches Regex::OFFSET_CAPTURE 4)
     * Returns: int
     * (non-PHPdoc)
     * @see \eMacros\Runtime\GenericFunction::apply()
     */
    
public function apply(Scope $scopeGenericList $arguments) {
        
$nargs count($arguments);
        
        if (
$nargs 2) {
            throw new \
BadFunctionCallException("RegexMatch: Function expects at least 2 parameters.");
        }
        
        if (
$nargs == 2) {
            return 
preg_match($arguments[0]->evaluate($scope), $arguments[1]->evaluate($scope));
        }
        else {
            
$target $arguments[2];
            
            if (!(
$target instanceof Symbol)) {
                throw new \
InvalidArgumentException(sprintf("RegexMatch: Expected symbol as third argument but %s was found instead."substr(strtolower(strstr(get_class($arguments[2]), '\\')), 1)));
            }
            
            
$ref $target->symbol;
            
            if (
$nargs == 3) {
                return 
preg_match($arguments[0]->evaluate($scope), $arguments[1]->evaluate($scope), $scope->symbols[$ref]);
            }
            elseif (
$nargs == 4) {
                return 
preg_match($arguments[0]->evaluate($scope), $arguments[1]->evaluate($scope), $scope->symbols[$ref], $arguments[3]->evaluate($scope));
            }
            else {
                return 
preg_match($arguments[0]->evaluate($scope), $arguments[1]->evaluate($scope), $scope->symbols[$ref], $arguments[3]->evaluate($scope), $arguments[4]->evaluate($scope));
            }
        }
    }
}
?>