Implement support for named arguments

Author: thekid

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

@@ -34,20 +34,20 @@ protected function emitCallable($result, $callable) {
     if ([Placeholder::$VARIADIC] !== $callable->arguments) {
       $sig= '';
       $pass= $init= [];
-      foreach ($callable->arguments as $argument) {
+      foreach ($callable->arguments as $name => $argument) {
         if (Placeholder::$VARIADIC === $argument) {
           $t= $result->temp();
           $sig.= ',...'.$t;
-          $pass[]= new UnpackExpression(new Variable(substr($t, 1)));
+          $pass[$name]= new UnpackExpression(new Variable(substr($t, 1)));
         } else if (Placeholder::$ARGUMENT === $argument) {
           $t= $result->temp();
           $sig.= ','.$t;
-          $pass[]= new Variable(substr($t, 1));
+          $pass[$name]= new Variable(substr($t, 1));
         } else if ($this->isConstant($result, $argument)) {
-          $pass[]= $argument;
+          $pass[$name]= $argument;
         } else {
           $t= $result->temp();
-          $pass[]= new Variable(substr($t, 1));
+          $pass[$name]= new Variable(substr($t, 1));
           $init[$t]= $argument;
         }
       }

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

@@ -335,4 +335,38 @@ public function run() {
     }');
     Assert::equals(['hi world'], $r);
   }
+
+  #[Test]
+  public function partial_function_application_pass_named() {
+    $f= $this->run('class %T {
+
+      public function run() {
+        return str_replace(search: "test", replace: "ok", subject: ?);
+      }
+    }');
+    Assert::equals('ok.', $f('test.'));
+  }
+
+  #[Test, Runtime(php: '>=8.0.0')]
+  public function partial_function_application_named_arguments_out_of_order() {
+    $f= $this->run('class %T {
+
+      public function run() {
+        return str_replace(subject: ?, replace: "ok", search: "test");
+      }
+    }');
+    Assert::equals('ok.', $f('test.'));
+  }
+
+  #[Test, Runtime(php: '>=8.5.0')]
+  public function partial_function_application_with_named() {
+    $r= $this->run('class %T {
+
+      public function run() {
+        $f= str_replace("test", "ok", ?);
+        return $f(subject: "test.");
+      }
+    }');
+    Assert::equals('ok.', $r);
+  }
 }