Load tab completion hash from CORE

rakudo · Apr 24, 2015 · fbf24c7 · fbf24c7
1 parent 188863b
commit fbf24c7
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -62,6 +62,24 @@ class Perl6::Compiler is HLL::Compiler {
 
             $!completions := nqp::hash();
 
+            my $core_keys := self.eval('CORE::.keys');
+
+            my $i := 0;
+            my $core_elems := $core_keys.elems();
+
+            while $i < $core_elems {
+                my $e := $core_keys.AT-POS($i);
+                $i := $i + 1;
+
+                my $m := $e ~~ /^ "&" $<word>=[\w+] $/;
+                if $m {
+                    my $word := $m<word>;
+                    unless $word ~~ /^ "&" <.upper>+ $/ {
+                        nqp::bindkey($!completions, $word, 1);
+                    }
+                }
+            }
+
             $linenoise_set_completion_callback(sub ($line, $c) {
                 my $m := $line ~~ /^ $<prefix>=[.*?] <|w>$<last_word>=[\w*]$/;