Implement missing sub want.

Raku · May 2, 2013 · 6a561fc · 6a561fc
1 parent 907a86c
commit 6a561fc
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
@@ -2669,6 +2669,19 @@ class QAST::CompilerJAST {
         }
     }
 
+    my %want_char := nqp::hash($RT_INT, 'I', $RT_NUM, 'N', $RT_STR, 'S');
+    sub want($node, $type) {
+        my @possibles := nqp::clone($node.list);
+        my $best := @possibles.shift;
+        my $char := %want_char{$type};
+        for @possibles -> $sel, $ast {
+            if nqp::index($sel, $char) >= 0 {
+                $best := $ast;
+            }
+        }
+        $best
+    }
+
     multi method as_jast(QAST::CompUnit $cu, :$want) {
         # A compilation-unit-wide source of IDs for handlers.
         my $*EH_IDX := 1;