Added the ability of overriding the evaluation context.

In this way it is possible to test the expression value.

lib/grammar.php

@@ -10,12 +10,34 @@ use \AST\InvalidExpressionException;
 use \AST\MalformedExpressionException;
 use \AST\Fixing;
 
-class Literal extends ElementDefinition {
- public function __construct() {
- $T_LITERAL = new TokenDefinition(null, 'LIT', '/\w+/');
- parent::__construct('Literal', Fixing::None, $T_LITERAL, 0);
+
+class EvaluationContext {
+ public $SIMULATE_IN_GROUPS = null;
+ public $SIMULATE_USERS = null;
+
+ public function belongToGroup($group) {
+ if (is_array($this->SIMULATE_IN_GROUPS)) {
+ if (in_array($group, $this->SIMULATE_IN_GROUPS)) {
+ return true;
+ }
+ }
+ global $INFO;
+ $key1 = 'userinfo';
+ $key2 = 'grps';
+ if (is_array($INFO) && array_key_exists($key1, $INFO)) {
+ if (is_array($INFO[$key1]) && array_key_exists($key2, $INFO[$key1])) {
+ return in_array($groupName, $INFO[$key1][$key2]);
+ }
+ }
+ return false;
  }
- public function _evaluateWellFormed($elmInstance) {
+
+ public function isUser($user) {
+ if (is_array($this->SIMULATE_USERS)) {
+ if (in_array($user, $this->SIMULATE_USERS)) {
+ return true;
+ }
+ }
  $key = 'REMOTE_USER';
  if (array_key_exists($key, $_SERVER)) {
  return $_SERVER[$key] == $elmInstance->getStringValue();
@@ -24,6 +46,26 @@ class Literal extends ElementDefinition {
  }
 }
 
+function auth_expr_evaluation_context() {
+ static $ctx = null;
+ if ($ctx === null) {
+ $ctx = new EvaluationContext();
+ }
+ return $ctx;
+}
+
+
+class Literal extends ElementDefinition {
+ public function __construct() {
+ $T_LITERAL = new TokenDefinition(null, 'LIT', '/\w+/');
+ parent::__construct('Literal', Fixing::None, $T_LITERAL, 0);
+ }
+ public function _evaluateWellFormed($elmInstance) {
+ $userName = $elmInstance->getStringValue();
+ return auth_expr_evaluation_context()->isUser($userName);
+ }
+}
+
 class SubExpr extends ElementDefinition {
  public function __construct() {
  $T_OPEN_PAREN = new TokenDefinition('(', 'OPENP');
@@ -54,15 +96,7 @@ class OpInGroup extends ElementDefinition {
  }
  public function _evaluateWellFormed($elmInstance) {
  $groupName = $elmInstance->args()[0]->getStringValue();
- global $INFO;
- $key1 = 'userinfo';
- $key2 = 'grps';
- if (is_array($INFO) && array_key_exists($key1, $INFO)) {
- if (is_array($INFO[$key1]) && array_key_exists($key2, $INFO[$key1])) {
- return in_array($groupName, $INFO[$key1][$key2]);
- }
- }
- return false;
+ return auth_expr_evaluation_context()->belongToGroup($groupName);
  }
 }