Changeset 22807 for v6

Timestamp:

10/28/08 20:14:51 (2 months ago)

Author:

ruoso

Message:

[mildew] dotty->postop->postcircumfix implemented

Location:

v6/mildew

Files:

• P6Meta.pm (modified) (1 diff)
• mildew (modified) (2 diffs)
• t/pure_prototype_how.t (modified) (1 diff)

v6/mildew/P6Meta.pm

@@ -4 +4 @@
     $OUT.print("add_method not implemented yet\n");
 };
-$p6meta.add_method($p6meta,'HOW',sub {
+$p6meta.^!how.add_method($p6meta,'HOW',sub {
 });

v6/mildew/mildew

@@ -20 +20 @@
 
 sub XXX {
-    confess 'unimplemented'
+    confess join ' ', 'unimplemented: ', @_;
 }
 sub FETCH {
@@ -246 +246 @@
             );
         } else {
-            XXX
-        }
-    } else {
-        XXX;
+            XXX('unknown methodop');
+        }
+    } elsif (my $postop = $m->{dottyop}{postop}) {
+        if (my $postcircumfix = $postop->{postcircumfix}) {
+            my $positional = $methodop->{semilist}[0]{statement}[0];
+            my @positional = $positional ? $positional->emit_m0ld : ();
+            AST::Call->new(
+                identifier => string 'postcircumfix:'.$postcircumfix->{FIRST}.' '.$postcircumfix->{LAST},
+                capture => AST::Capture->new(invocant=>FETCH($noun),positional=>[@positional]),
+            );
+        } else {
+            XXX('unknown postop');
+        }
+    } else {
+        XXX('unknown dotty');
     }
 }

v6/mildew/t/pure_prototype_how.t

@@ -4 +4 @@
 $object = ::p6opaque.^!CREATE;
 $object.^!how() = ::PurePrototypeHow;
-$object.^!methods.postcircumfix:<{ }>("foo") = sub {
+$object.^!methods.{"foo"} = sub {
     #say "ok 1 #method call";
     $OUT.print("ok 1 #method call\n");