Implement $obj.Foo::bar() method calls. Patch courtesy of John Harris…

…on (__ash__++).
rakudo · Aug 19, 2009 · 8924df4 · 8924df4
1 parent 9520b46
commit 8924df4
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 2 deletions.
diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -106,9 +106,12 @@ Does an indirect method dispatch.
     .param pmc pos_args  :slurpy
     .param pmc name_args :slurpy :named
 
+    $I0 = isa methodish, 'P6Invocation'
+    if $I0 goto ready_to_dispatch
     $P0 = get_hll_global 'Callable'
     $I0 = $P0.'ACCEPTS'(methodish)
     unless $I0 goto candidate_list
+  ready_to_dispatch:
     .tailcall methodish(obj, pos_args :flat, name_args :flat :named)
 
   candidate_list:

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -1393,7 +1393,7 @@ method dotty($/, $key) {
 
         # We actually need to send dispatches for named method calls (other than .*)
         # through the.dispatcher.
-        if $<dottyop><methodop><variable> {
+        if $past<indirect_call> {
             $past.name('!dispatch_method_indirect');
             $past.pasttype('call');
         }
@@ -1422,10 +1422,27 @@ method methodop($/, $key) {
     $past.node($/);
 
     if $<name> {
-        $past.name(~$<name>);
+        my @ns := Perl6::Compiler.parse_name(~$<name>);
+        my $short_name := ~@ns.pop();
+
+        if @ns {
+            $past.name('');
+            $past.unshift(PAST::Op.new(
+                :inline('    %r = find_method %0, "' ~ $short_name ~ '"'),
+                PAST::Var.new(
+                    :scope('package'),
+                    :name(@ns.pop),
+                    :namespace(@ns)
+                )));
+            $past<indirect_call> := 1;
+        }
+        else {
+            $past.name(~$<name>);
+        }
     }
     elsif $<variable> {
         $past.unshift( $<variable>.ast );
+        $past<indirect_call> := 1;
     }
     else {
         $past.name( $<quote>.ast );