Implement calls of postcircumfix operators

sorear · Aug 7, 2010 · ed4b778 · ed4b778
1 parent 8c9188f
commit ed4b778
Show file tree

Hide file tree

Showing 2 changed files with 40 additions and 0 deletions.
diff --git a/Niecza/Actions.pm b/Niecza/Actions.pm
@@ -525,6 +525,11 @@ sub POSTFIX { my ($cl, $M) = @_;
         $M->{_ast} = Op::CallSub->new(node($M),
             invocant => Op::Lexical->new(name => '&postfix:<' . $op->{postfix} . '>'),
             positionals => [ $arg ]);
+    } elsif ($op->{postcircumfix}) {
+        $M->{_ast} = Op::CallSub->new(node($M),
+            invocant => Op::Lexical->new(name => '&postcircumfix:<' .
+                $op->{postcircumfix} . '>'),
+            positionals => [ $arg, @{ $op->{args} } ]);
     } elsif ($op->{name} && $op->{name} =~ /^(?:HOW|WHAT)$/) {
         if ($op->{args}) {
             $M->sorry("Interrogative operator " . $op->{name} .
@@ -581,6 +586,31 @@ sub postcircumfix__S_Paren_Thesis { my ($cl, $M) = @_;
     $M->{_ast} = { postcall => $M->{semiarglist}{_ast} };
 }
 
+sub semilist_to_args { my ($cl, $M) = @_;
+    if (@{ $M->{_ast} } > 1) {
+        $M->sorry('Slice lookups NYI');
+        return;
+    }
+    my ($al) = @{ $M->{_ast} };
+
+    if (!defined $al) {
+        return [];
+    } elsif ($al && $al->splittable_parcel) {
+        return $al->positionals;
+    } else {
+        return [$al];
+    }
+}
+
+sub postcircumfix__S_Bra_Ket { my ($cl, $M) = @_;
+    $M->{_ast} = { postcircumfix => '[ ]',
+        args => $cl->semilist_to_args($M->{semilist}) };
+}
+sub postcircumfix__S_Cur_Ly { my ($cl, $M) = @_;
+    $M->{_ast} = { postcircumfix => '{ }',
+        args => $cl->semilist_to_args($M->{semilist}) };
+}
+
 sub postop { my ($cl, $M) = @_;
     $M->{_ast} = $M->{postcircumfix} ? $M->{postcircumfix}{_ast} :
         { postfix => $M->{sym} };

diff --git a/test2.pl b/test2.pl
@@ -45,6 +45,16 @@ sub postcircumfix:<[ ]> is rawcall {
         });
 }
 
+{
+    sub postcircumfix:<[ ]>($a, $b, $c) { $a ~ "|" ~ $b ~ "|" ~ $c }
+    is 1[2,3], "1|2|3", "can call postcircumfix [ ]";
+}
+
+{
+    sub postcircumfix:<{ }>($a, $b, $c) { $a ~ "|" ~ $b ~ "|" ~ $c }
+    is 1{2,3}, "1|2|3", 'can call postcircumfix { }';
+}
+
 my @arr = <a b c>;
 is @arr.join("|"), 'a|b|c', "word splitter works";