Initial implemntation of evaluation methods

parse.php

@@ -250,7 +250,11 @@ class ElementInstance {
  } else {
  $values = array();
  foreach ($this->args() as $arg) {
- $values[] = $arg->evaluate();
+ if ($arg instanceof ElementInstance) {
+ $values[] = $arg->evaluate();
+ } else {
+ $values[] = $arg;
+ }
  }
  return $this->definition()->evaluate($values);
  }
@@ -582,27 +586,6 @@ class ElementDefinition {
  }
 }
 
-$T_AT = new TokenDefinition('@', 'AT');
-$T_EXCL = new TokenDefinition('!', 'EXCL');
-$T_AND = new TokenDefinition('&&', 'AND');
-$T_OR = new TokenDefinition('||', 'OR');
-$T_OPEN_PAREN = new TokenDefinition('(', 'OPENP');
-$T_CLOSE_PAREN = new TokenDefinition(')', 'CLOSEP');
-$T_LITERAL = new TokenDefinition(null, 'LIT', '/\w+/');
-$T_SPACE = new TokenDefinition(' ', 'SPC', '/\s+/');
-
-$ALL_TOKENS = array($T_AT, $T_EXCL, $T_AND, $T_OR, $T_OPEN_PAREN, $T_CLOSE_PAREN, $T_LITERAL, $T_SPACE);
-$IGNORE_TOKENS = array($T_SPACE);
-
-$ELM_LITERAL = new ElementDefinition('Literal', Fixing::None, $T_LITERAL, 0);
-$ELM_SUBEXPR = new ElementDefinition('Subexpr', Fixing::Wrap, array($T_OPEN_PAREN, $T_CLOSE_PAREN), 1, null, true);
-$ELM_GROUP = new ElementDefinition('InGroup', Fixing::Prefix, $T_AT, 2);
-$ELM_NEG = new ElementDefinition('Not', Fixing::Prefix, $T_EXCL, 3);
-$ELM_AND = new ElementDefinition('And', Fixing::Infix, $T_AND, 4);
-$ELM_OR = new ElementDefinition('Or', Fixing::Infix, $T_OR, 5);
-
-$ALL_ELEMENTS = array($ELM_LITERAL, $ELM_SUBEXPR, $ELM_GROUP, $ELM_NEG, $ELM_AND, $ELM_OR);
-
 function tokenize(string $text, array $tokDefs, array $stripTokDefs) {
  $tokInsts = array();
  $foundTokInst = null;
@@ -636,8 +619,135 @@ function parse(array $tokInsts, array $elmDefs) {
  return $root;
 }
 
+
+class Literal extends ElementDefinition {
+ public function __construct() {
+ $T_LITERAL = new TokenDefinition(null, 'LIT', '/\w+/');
+ parent::__construct('Literal', Fixing::None, $T_LITERAL, 0);
+ }
+ public function evaluate($argValues) {
+ if (count($argValues) != 1
+ || !($argValues[0] instanceof TokenInstance)
+ || $argValues[0]->definition() != $this->tokenDefs()[0]
+ ) {
+ throw new InvalidArgumentException();
+ }
+ return $argValues[0]->match();
+ }
+}
+
+class SubExpr extends ElementDefinition {
+ public function __construct() {
+ $T_OPEN_PAREN = new TokenDefinition('(', 'OPENP');
+ $T_CLOSE_PAREN = new TokenDefinition(')', 'CLOSEP');
+ parent::__construct('SubExpr', Fixing::Wrap, array($T_OPEN_PAREN, $T_CLOSE_PAREN), 1, null, true);
+ }
+ public function evaluate($argValues) {
+ if (count($argValues) != 1
+ || !is_bool($argValues[0])
+ ) {
+ throw new InvalidArgumentException();
+ }
+ return $argValues[0];
+ }
+}
+
+class OpInGroup extends ElementDefinition {
+ public function __construct() {
+ $T_AT = new TokenDefinition('@', 'AT');
+ parent::__construct('InGroup', Fixing::Prefix, $T_AT, 2);
+ }
+ public function evaluate($argValues) {
+ if (count($argValues) != 1
+ || !($argValues[0] instanceof string)
+ ) {
+ throw new InvalidArgumentException();
+ }
+ global $INFO;
+ if (is_array($INFO['userinfo'])) {
+ return in_array($argValues[0], $INFO['userinfo']['grps']);
+ }
+ }
+}
+
+class OpNot extends ElementDefinition {
+ public function __construct() {
+ $T_EXCL = new TokenDefinition('!', 'EXCL');
+ parent::__construct('Not', Fixing::Prefix, $T_EXCL, 3);
+ }
+ public function evaluate($argValues) {
+ var_dump($argValues);
+ if (count($argValues) != 1
+ || !is_bool($argValues[0])
+ ) {
+ throw new InvalidArgumentException();
+ }
+ return !$argValues[0];
+ }
+}
+
+class OpAnd extends ElementDefinition {
+ public function __construct() {
+ $T_AND = new TokenDefinition('&&', 'AND');
+ parent::__construct('And', Fixing::Infix, $T_AND, 4);
+ }
+ public function evaluate($argValues) {
+ if (count($argValues) == 0) {
+ throw new InvalidArgumentException();
+ }
+ foreach ($argValues as $arg) {
+ if (!is_bool($arg)) {
+ throw new InvalidArgumentException();
+ }
+ if (!$arg) {
+ return false;
+ }
+ }
+ return true;
+ }
+}
+
+class OpOr extends ElementDefinition {
+ public function __construct() {
+ $T_OR = new TokenDefinition('||', 'OR');
+ parent::__construct('Or', Fixing::Infix, $T_OR, 5);
+ }
+ public function evaluate($argValues) {
+ if (count($argValues) == 0) {
+ throw new InvalidArgumentException();
+ }
+ foreach ($argValues as $arg) {
+ if (!is_bool($arg)) {
+ throw new InvalidArgumentException();
+ }
+ if (!$arg) {
+ return false;
+ }
+ }
+ return true;
+ }
+}
+
+$ALL_ELEMENTS = array(
+ new Literal(),
+ new SubExpr(),
+ new OpInGroup(),
+ new OpNot(),
+ new OpAnd(),
+ new OpOr()
+);
+
+$IGNORE_TOKENS = array(new TokenDefinition(' ', 'SPC', '/\s+/'));
+$ALL_TOKENS = array_merge($IGNORE_TOKENS);
+foreach ($ALL_ELEMENTS as $ELM) {
+ $ALL_TOKENS = array_merge($ALL_TOKENS, $ELM->tokenDefs());
+}
+
+
 $text = 'usr1 ||(!usr2&&@group || !usr3)';
 echo 'Parsing "' . $text . '".' . "\n";
-parse(tokenize($text, $ALL_TOKENS, $IGNORE_TOKENS), $ALL_ELEMENTS)->print();
+$expr = parse(tokenize($text, $ALL_TOKENS, $IGNORE_TOKENS), $ALL_ELEMENTS);
+$expr->print();
+var_dump($expr->evaluate());
 
 ?>
\ No newline at end of file