Changeset 21601 for perl5

Timestamp:

07/28/08 22:47:27 (4 months ago)

Author:

fglock

Message:

[v6.pm] more operators

Location:

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar

Files:

• Expression.pm (modified) (1 diff)
• Infix.pm (modified) (1 diff)
• Term.pm (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm

@@ -456 +456 @@
         $m = undef;
         if ( $m1 && $m2 ) {
-            if ( exists $m2->()->{bare_sigil} && $m2->tail =~ /^[\,\)]/ ) {
+            if ( exists $m2->()->{bare_sigil} && $m2->tail =~ /^\s*[\,\)\}\]]/ ) {
                 $m = $m2
             }

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm

@@ -110 +110 @@
         other => '||',
     );
-    __PACKAGE__->add_same_precedence_ops({ assoc => 'right'}, qw(= := ::= => += -= **= xx= x= .= ~= =~) );
-
-
+    __PACKAGE__->add_same_precedence_ops({ assoc => 'right'}, qw(
+        = := ::= => += -= 
+        *= **= 
+        /= //= 
+        %= 
+        xx= x= .= ~= =~ 
+        ^= ^^= +^= ~^= ?^= 
+        &= &&= +&= ~&= ?&= 
+        |= ||= +|= ~|= ?|= 
+    ) );
     __PACKAGE__->add_rule( 
         name => 'Z',

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm

@@ -355 +355 @@
                 { return { code  => "\&" . $_[0]->() ,} }
               | { return { bare_sigil => '&' ,} }
+            ),
+        '*' => q(
+                { return { bare_sigil => '*' ,} }
             ),
         '(' => q(