Changeset 21564 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm

Timestamp:

07/27/08 10:41:54 (6 months ago)

Author:

fglock

Message:

[v6.pm] added all(), any(), true(), not()

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm (modified) (2 diffs)

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

@@ -47 +47 @@
     );
     __PACKAGE__->add_same_precedence_ops( { assoc => 'left'}, 'prefix:<+>', qw(
-        - ? ~ | @ % $ & ! * : = \\
+        - ? ~ | @ % $ & ! * : = \\ 
     ) );
     __PACKAGE__->add_rule( 
@@ -68 +68 @@
         other => 'infix:<+>',
     );
+    __PACKAGE__->add_rule( 
+        name => 'true',
+        assoc => 'left',
+        precedence => 'looser',
+        other => 'infix:<eq>',
+    );
+    __PACKAGE__->add_rule( 
+        name => 'not',
+        assoc => 'left',
+        precedence => 'equal',
+        other => 'prefix:<true>',
+    );
 
     __PACKAGE__->recompile;