[svn:parrot] r18982 - trunk/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Wed Jun 13 11:46:47 2007
New Revision: 18982

Modified:
   trunk/languages/perl6/src/parser/grammar_optok.pg

Log:
[perl6]:
* Change grammar_optok.pg 'infix:<' to infix:«<» (part 2, conversion now 
complete).


Modified: trunk/languages/perl6/src/parser/grammar_optok.pg
==============================================================================
--- trunk/languages/perl6/src/parser/grammar_optok.pg   (original)
+++ trunk/languages/perl6/src/parser/grammar_optok.pg   Wed Jun 13 11:46:47 2007
@@ -77,11 +77,11 @@
     is post('band')                    # perl6-orig
     { ... }
 
-proto 'infix:+<' is equiv(infix:<*>)
+proto infix:«+<» is equiv(infix:<*>)
     is post('shl')                     # perl6-orig
     { ... }
 
-proto 'infix:+>' is equiv(infix:<*>)
+proto infix:«+>» is equiv(infix:<*>)
     is post('shr')                     # perl6-orig
     { ... }
 
@@ -89,8 +89,8 @@
     is pir("    %r = bands %0, %1")    # perl6-orig
     { ... }
 
-proto 'infix:~<' is equiv(infix:<*>) { ... }
-proto 'infix:~>' is equiv(infix:<*>) { ... }
+proto infix:«~<» is equiv(infix:<*>) { ... }
+proto infix:«~>» is equiv(infix:<*>) { ... }
 
 
 ## additive
@@ -164,23 +164,23 @@
 
 
 ## nonchaining binary
-proto 'infix:<=>' is precedence('12=') is assoc('non') { ... }
-proto infix:<cmp> is equiv('infix:<=>') { ... }
-proto infix:<is> is equiv('infix:<=>') { ... }
-proto infix:<but> is equiv('infix:<=>') { ... }
-proto infix:<does> is equiv('infix:<=>') { ... }
-proto infix:<..> is equiv('infix:<=>') { ... }
-proto infix:<^..> is equiv('infix:<=>') { ... }
-proto infix:<..^> is equiv('infix:<=>') { ... }
-proto infix:<^..^> is equiv('infix:<=>') { ... }
-proto infix:<ff> is equiv('infix:<=>') { ... }
-proto infix:<^ff> is equiv('infix:<=>') { ... }
-proto infix:<ff^> is equiv('infix:<=>') { ... }
-proto infix:<^ff^> is equiv('infix:<=>') { ... }
-proto infix:<fff> is equiv('infix:<=>') { ... }
-proto infix:<^fff> is equiv('infix:<=>') { ... }
-proto infix:<fff^> is equiv('infix:<=>') { ... }
-proto infix:<^fff^> is equiv('infix:<=>') { ... }
+proto infix:«<=>» is precedence('12=') is assoc('non') { ... }
+proto infix:<cmp> is equiv(infix:«<=>») { ... }
+proto infix:<is> is equiv(infix:«<=>») { ... }
+proto infix:<but> is equiv(infix:«<=>») { ... }
+proto infix:<does> is equiv(infix:«<=>») { ... }
+proto infix:<..> is equiv(infix:«<=>») { ... }
+proto infix:<^..> is equiv(infix:«<=>») { ... }
+proto infix:<..^> is equiv(infix:«<=>») { ... }
+proto infix:<^..^> is equiv(infix:«<=>») { ... }
+proto infix:<ff> is equiv(infix:«<=>») { ... }
+proto infix:<^ff> is equiv(infix:«<=>») { ... }
+proto infix:<ff^> is equiv(infix:«<=>») { ... }
+proto infix:<^ff^> is equiv(infix:«<=>») { ... }
+proto infix:<fff> is equiv(infix:«<=>») { ... }
+proto infix:<^fff> is equiv(infix:«<=>») { ... }
+proto infix:<fff^> is equiv(infix:«<=>») { ... }
+proto infix:<^fff^> is equiv(infix:«<=>») { ... }
 
 
 ## chaining binary
@@ -192,19 +192,19 @@
     is past('chain')
     { ... }
 
-proto 'infix:<' is equiv(infix:<==>)
+proto infix:«<» is equiv(infix:<==>)
     is past('chain')
     { ... }
 
-proto 'infix:<=' is equiv(infix:<==>)
+proto infix:«<=» is equiv(infix:<==>)
     is past('chain')
     { ... }
 
-proto 'infix:>' is equiv(infix:<==>)
+proto infix:«>» is equiv(infix:<==>)
     is past('chain')
     { ... }
 
-proto 'infix:>=' is equiv(infix:<==>)
+proto infix:«>=» is equiv(infix:<==>)
     is past('chain')
     { ... }
 
@@ -300,8 +300,8 @@
 proto infix:<&&=> is equiv(infix:<=>) { ... }
 proto infix:<//=> is equiv(infix:<=>) { ... }
 proto infix:<^^=> is equiv(infix:<=>) { ... }
-proto 'infix:+<=' is equiv(infix:<=>) { ... }
-proto 'infix:+>=' is equiv(infix:<=>) { ... }
+proto infix:«+<=» is equiv(infix:<=>) { ... }
+proto infix:«+>=» is equiv(infix:<=>) { ... }
 proto infix:<+|=> is equiv(infix:<=>) { ... }
 proto infix:<+&=> is equiv(infix:<=>) { ... }
 proto infix:<+^=> is equiv(infix:<=>) { ... }
@@ -323,9 +323,9 @@
 
 
 ## listop
-proto 'infix:<==' is precedence('05=') is assoc('right') { ... }
-proto prefix:<true> is equiv('infix:<==') { ... }
-proto prefix:<not> is equiv('infix:<==') { ... }
+proto infix:«<==» is precedence('05=') is assoc('right') { ... }
+proto prefix:<true> is equiv(infix:«<==») { ... }
+proto prefix:<not> is equiv(infix:«<==») { ... }
 
 ## TODO print push any all 
 ##    XXX: do these really belong here? ~particle
@@ -333,7 +333,7 @@
 
 
 ## pipe forward
-proto 'infix:==>' is precedence('04=') { ... }
+proto infix:«==>» is precedence('04=') { ... }
 
 
 ## loose and