Emit callable expressions as regular function closures for PHP < 7.4

Author: thekid

src/main/php/lang/ast/emit/CallablesAsClosures.class.php

@@ -0,0 +1,33 @@
+<?php namespace lang\ast\emit;
+
+/**
+ * Rewrites callable expressions to regular closures
+ *
+ * @see  https://wiki.php.net/rfc/first_class_callable_syntax
+ */
+trait CallablesAsClosures {
+
+  protected function emitCallable($result, $callable) {
+
+    // Use variables in the following cases:
+    //
+    // $closure(...);                => use ($closure)
+    // $obj->method(...);            => use ($obj)
+    // $obj->$method(...);           => use ($obj, $method)
+    // ($obj->property)(...);        => use ($obj)
+    // $class::$method(...);         => use ($class, $method)
+    // [$obj, 'method'](...);        => use ($obj)
+    // [Foo::class, $method](...);   => use ($method)
+    $use= [];
+    foreach ($result->codegen->search($callable, 'variable') as $var) {
+      'this' === $var->name || $use[$var->name]= true;
+    }
+
+    $t= $result->temp();
+    $result->out->write('function(...'.$t.')');
+    $use && $result->out->write('use($'.implode(', $', array_keys($use)).')');
+    $result->out->write('{ return ');
+    $this->emitOne($result, $callable->expression);
+    $result->out->write('(... '.$t.'); }');
+  }
+}

src/main/php/lang/ast/emit/PHP70.class.php

@@ -8,7 +8,7 @@
  * @see  https://wiki.php.net/rfc#php_70
  */
 class PHP70 extends PHP {
-  use OmitPropertyTypes, OmitConstModifiers;
+  use OmitPropertyTypes, OmitConstModifiers, CallablesAsClosures;
   use RewriteNullCoalesceAssignment, RewriteLambdaExpressions, RewriteMultiCatch, RewriteClassOnObjects, RewriteExplicitOctals;
 
   /** Sets up type => literal mappings */

src/main/php/lang/ast/emit/PHP71.class.php

@@ -8,7 +8,7 @@
  * @see  https://wiki.php.net/rfc#php_71
  */
 class PHP71 extends PHP {
-  use OmitPropertyTypes;
+  use OmitPropertyTypes, CallablesAsClosures;
   use RewriteNullCoalesceAssignment, RewriteLambdaExpressions, RewriteClassOnObjects, RewriteExplicitOctals;
 
   /** Sets up type => literal mappings */

src/main/php/lang/ast/emit/PHP72.class.php

@@ -8,7 +8,7 @@
  * @see  https://wiki.php.net/rfc#php_72
  */
 class PHP72 extends PHP {
-  use OmitPropertyTypes;
+  use OmitPropertyTypes, CallablesAsClosures;
   use RewriteNullCoalesceAssignment, RewriteLambdaExpressions, RewriteClassOnObjects, RewriteExplicitOctals;
 
   /** Sets up type => literal mappings */