Basic dispatch table to hold first class citizens

Author: haskellcamargo

src/Core/DispatchTable.php

@@ -0,0 +1,71 @@
+<?php
+
+namespace Rawr\Core;
+
+final class DispatchTable {
+  private static $table = [];
+
+  static function tableExists($table) {
+    return array_key_exists($table, static::$table);
+  }
+
+  static function createTable($table) {
+    if (!static::tableExists($table)) {
+      static::$table[$table] = [];
+    } else {
+      throw new \Exception("[rawr-core] Table [{$table}] already exists");
+    }
+  }
+
+  static function clearTable($table) {
+    if (static::tableExists($table)) {
+      static::$table[$table] = [];
+    } else {
+      throw new \Exception("[rawr-core] Unable to clear inexistent table [{$table}]");
+    }
+  }
+
+  static function deleteTable($table) {
+    if (static::tableExists($table)) {
+      unset(static::$table[$table]);
+    } else {
+      throw new \Exception("[rawr-core] Unable to delete inexistent table [{$table}]");
+    }
+  }
+
+  static function tableHasKey($table, $key) {
+    return static::tableExists($table) && array_key_exists($key, static::$table[$table]);
+  }
+
+  static function addToTable($table, $key, $value) {
+    if (static::tableExists($table)) {
+      if (!static::tableHasKey($table, $key)) {
+        static::$table[$table][$key] = $value;
+      } else {
+        throw new \Exception("[rawr-core] Duplicated key [{$key}] on table [{$table}]");
+      }
+    } else {
+      throw new \Exception("[rawr-core] Inexistent table [{$table}]");
+    }
+  }
+
+  static function getFromTable($table, $key) {
+    // TODO
+  }
+
+  static function removeFromTable($table, $key) {
+    // TODO
+  }
+
+  static function debugTable($table) {
+    if (array_key_exists($table, static::$table)) {
+      var_dump(static::$table[$table]);
+    } else {
+      throw new \Exception("[rawr-core] Table [{$table}] not found");
+    }
+  }
+
+  static function __GET__() {
+    return static::$table;
+  }
+}

src/DataType/Action.php

@@ -131,11 +131,11 @@ public function boundPointer()
   /**
    * Returns the number of remaining parameters for this action.
    * @author Marcelo Camargo
-   * @return Int
+   * @return rawr<Int>
    */
   public function getRemainingParameters()
   {
-    return new Int($this->remaining_size);
+    return rawr_from_primitive($this->remaining_size, rawr_integer);
   }
 
   /**
@@ -175,5 +175,56 @@ public function ·($fn)
       return call_user_func_array($left, [call_user_func_array($right, $arguments)]);
     });
   }
+
+  /**
+   * Returns the documentation comment above the function.
+   * @author Marcelo Camargo
+   * @return rawr<String>
+   */
+  public function getDocComment()
+  {
+    return rawr_from_primitive($this->reflection->getDocComment(), rawr_string);
+  }
+
+  /**
+   * The line number where the function ends.
+   * @author Marcelo Camargo
+   * @return rawr<Int>
+   */
+  public function getEndLine()
+  {
+    return rawr_from_primitive($this->reflection->getEndLine(), rawr_integer);
+  }
+
+  /**
+   * Returns informations about the extension of a function.
+   * @author Marcelo Camargo
+   * @return ReflectionExtension
+   */
+  public function getExtension()
+  {
+    return $this->reflection->getExtension();
+  }
+
+  /**
+   * Returns the name of the function's extension.
+   * @author Marcelo Camargo
+   * @return rawr<String>
+   */
+  public function getExtensionName()
+  {
+    return rawr_from_primitive($this->reflection->getExtensionName(), rawr_string);
+  }
+
+  /**
+   * Gets the filename from a user-defined function.
+   * @author Marcelo Camargo
+   * @return rawr<String>
+   */
+  public function getFileName()
+  {
+    return rawr_from_primitive($this->reflection->getFileName(), rawr_string);
+  }
 }
 
+

src/DataType/BaseType.php

@@ -1,6 +1,7 @@
 <?php
 
 namespace Rawr\DataType;
+use \Rawr\Core\DispatchTable;
 
 class BaseType
 {
@@ -10,4 +11,19 @@ final public function value()
   {
     return $this->value;
   }
+
+  static function __callStatic($name, $arguments)
+  {
+    var_dump(["name" => $name, "args" => $arguments]);
+  }
+
+  static function defStatic($name, $closure) {
+    $table = get_called_class();
+
+    if (!DispatchTable::tableExists($table)) {
+      DispatchTable::createTable($table);
+    }
+
+    DispatchTable::addToTable($table, $name, rawr_reduce($closure, rawr_callable));
+  }
 }

test.php

@@ -1,23 +1,24 @@
 <?php
 
 require_once 'src/Core/rawr_core_functions.php';
+require_once 'src/Core/DispatchTable.php';
+
 require_once 'src/DataType/BaseType.php';
 require_once 'src/DataType/Action.php';
 require_once 'src/DataType/Bool.php';
 require_once 'src/DataType/Int.php';
 
+
+use \Rawr\Core\DispatchTable;
+
+use \Rawr\DataType\BaseType;
 use \Rawr\DataType\Action;
 use \Rawr\DataType\Bool;
 use \Rawr\DataType\Int;
 
-$add10 = new Action(function($x, Int $y) {
-  return $x + $y->value();
-}, 10);
-
-$multiply = new Action(function($x, $y) {
-  return $x + $y * 3;
-}, 5);
 
-$add_and_double = $add10->·($multiply);
+Action::defStatic("helloWorld", function($name) {
+  echo "Hello {$name}", PHP_EOL;
+});
 
-var_dump($add_and_double(20)); // => Int(70)
+var_dump(DispatchTable::__GET__());