Support clone with unpacking

Author: thekid

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

@@ -1,6 +1,6 @@
 <?php namespace lang\ast\emit;
 
-use lang\ast\nodes\{Signature, Parameter};
+use lang\ast\nodes\{Signature, Parameter, UnpackExpression};
 
 /** @see https://wiki.php.net/rfc/clone_with_v2 */
 trait RewriteCloneWith {
@@ -20,6 +20,11 @@ protected function emitClone($result, $clone) {
     } else if (isset($clone->arguments['object'])) {
       $result->out->write('clone ');
       $this->emitOne($result, $expr);
+    } else if ($expr instanceof UnpackExpression) {
+      $result->out->write('(function($u) { $c= clone $u["object"] ?? $u[0];');
+      $result->out->write('foreach ($u["withProperties"] ?? $u[1] ?? [] as $p=>$v) { $c->$p= $v; } return $c;})(');
+      $this->emitOne($result, $expr->expression);
+      $result->out->write(')');
     } else {
       return parent::emitClone($result, $clone);
     }

src/test/php/lang/ast/unittest/emit/CloningTest.class.php

@@ -86,6 +86,18 @@ public function run($in) { return '.$expression.'; }
     );
   }
 
+  #[Test]
+  public function clone_unpack() {
+    $clone= $this->run('class %T {
+      public function run($in) {
+        $args= ["object" => $in];
+        return clone(...$args);
+      }
+    }', $this->fixture);
+
+    Assert::true($clone instanceof $this->fixture && $this->fixture !== $clone);
+  }
+
   #[Test]
   public function clone_with_named_argument() {
     $clone= $this->run('class %T {