[svn:parrot] r18955 - trunk/languages/abc/src

[pmichaud]

Author: pmichaud
Date: Tue Jun 12 11:47:02 2007
New Revision: 18955

Modified:
   trunk/languages/abc/src/abc.pg

Log:
[abc]:
* Updated abc.pg to use infix:<+> instead of 'infix:+'.


Modified: trunk/languages/abc/src/abc.pg
==============================================================================
--- trunk/languages/abc/src/abc.pg      (original)
+++ trunk/languages/abc/src/abc.pg      Tue Jun 12 11:47:02 2007
@@ -71,64 +71,64 @@
     is parsed(&term)
     { ... }
 
-proto 'circumfix:( )'  is equiv('term:')
+proto circumfix:<( )>  is equiv('term:')
     is pirop('set')
     { ... }
 
 ## autoincrement
-proto 'postfix:++'  is looser('term:')     is lvalue(1) { ... }
-proto 'postfix:--'  is equiv('postfix:++') is lvalue(1) { ... }
-proto 'prefix:++'   is equiv('postfix:++') is lvalue(1) { ... }
-proto 'prefix:--'   is equiv('postfix:++') is lvalue(1) { ... }
+proto postfix:<++>  is looser('term:')     is lvalue(1) { ... }
+proto postfix:<-->  is equiv(postfix:<++>) is lvalue(1) { ... }
+proto prefix:<++>   is equiv(postfix:<++>) is lvalue(1) { ... }
+proto prefix:<-->   is equiv(postfix:<++>) is lvalue(1) { ... }
 
 ## negation
-proto 'prefix:-'    is looser('postfix:++')
+proto prefix:<->    is looser(postfix:<++>)
     is pirop('neg')
     { ... }
 
 ## exponentiation
-proto 'infix:^'     is looser('prefix:-')  { ... }
+proto infix:<^>     is looser(prefix:<->)  { ... }
 
 ## multiplicative
-proto 'infix:*'     is looser('infix:^')
+proto infix:<*>     is looser(infix:<^>)
     is pirop('mul')
     { ... }
 
-proto 'infix:/'     is equiv('infix:*')
+proto infix:</>     is equiv(infix:<*>)
     is pirop('div')
     { ... }
 
-proto 'infix:%'     is equiv('infix:*')
+proto infix:<%>     is equiv(infix:<*>)
     is pirop('mod')
     { ... }
 
 ## additive
-proto 'infix:+'     is looser('infix:*')
+proto infix:<+>     is looser(infix:<*>)
     is pirop('add')
     { ... }
 
-proto 'infix:-'     is equiv('infix:+')
+proto infix:<->     is equiv(infix:<+>)
     is pirop('sub')
     { ... }
 
 ## assignment
-proto 'infix:='     is looser('infix:+')
+proto infix:<=>     is looser(infix:<+>)
     is assoc('right')
     is past('assign')
     is lvalue(1)
     { ... }
 
 ## relational
-proto 'infix:=='    is looser('infix:=')  is assoc('non')  { ... }
-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 looser(infix:<=>)  is assoc('non')  { ... }
+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:<==>) { ... }
 
 ## boolean
-proto 'prefix:!'    is looser('infix:==') is pirop('not') is 
returns('.Integer') { ... }
-proto 'infix:&&'    is looser('prefix:!') is assoc('left') { ... }
-proto 'infix:||'    is looser('infix:&&') is assoc('left') { ... }
+proto prefix:<!>    is looser(infix:<==>) is pirop('not') is 
returns('.Integer') { ... }
+proto infix:<&&>    is looser(prefix:<!>) is assoc('left') { ... }
+proto infix:<||>    is looser(infix:<&&>) is assoc('left') { ... }
 
 ## vim: expandtab sw=4