Binder support for named parameters

sorear · Aug 18, 2010 · 1ad3b55 · 1ad3b55
1 parent c766146
commit 1ad3b55
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 2 deletions.
diff --git a/CodeGen.pm b/CodeGen.pm
@@ -55,6 +55,7 @@ use 5.010;
               lex          => [f => 'Dictionary<string,object>'],
               ExecutingLine=> [m => 'Int32'],
               ExecutingFile=> [m => 'String'],
+              ExtractNamed => [m => 'Variable'],
               LexicalFind  => [m => 'Variable'] },
         'Niecza.FatalException' =>
             { SearchForHandler => [c => 'Void'] },

diff --git a/Kernel.cs b/Kernel.cs
@@ -153,6 +153,16 @@ public class Frame: IP6 {
             return c;
         }
 
+        public Variable ExtractNamed(string n) {
+            Variable r;
+            if (named != null && named.TryGetValue(n, out r)) {
+                named.Remove(n);
+                return r;
+            } else {
+                return null;
+            }
+        }
+
         public string GetTypeName() { return "Frame"; }
         public bool IsDefined() { return true; }
         public IP6 GetTypeObject() { return Kernel.CallFrameMO.typeObject; }

diff --git a/Sig.pm b/Sig.pm
@@ -82,9 +82,14 @@ use 5.010;
 
     sub _named_get {
         my ($self, $name, $fb) = @_;
-        # TODO: implement named parameters
 
-        $fb;
+        CgOp::letn('!v', CgOp::rawcall(CgOp::callframe, 'ExtractNamed',
+                CgOp::clr_string($name)),
+            CgOp::ternary(
+                CgOp::compare('!=', CgOp::null('Variable'),
+                    CgOp::letvar('!v')),
+                CgOp::letvar('!v'),
+                $fb));
     }
 
     sub single_get {