Changeset 19198 for src/Pugs/Parser

Show
Ignore:
Timestamp:
12/12/07 20:43:02 (12 months ago)
Author:
ferreira
Message:

r185@dracma: perl | 2007-12-12 17:36:17 -0200
added boolean xor infix operator

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Parser/Operator.hs

    r18681 r19198  
    7575symbLevel = preSyn (Set.singleton (MkOpName (cast "|"))) ++ preOps symbPreops 
    7676multLevel = leftOps (opWords " * / % +& +< +> ~& ~< ~> ?& ") 
    77 addiLevel = leftOps (opWords " + - +| +^ ~| ~^ ?| ") 
     77addiLevel = leftOps (opWords " + - +| +^ ~| ~^ ?| ?^ ") 
    7878replLevel = leftOps (opWords " x xx ") 
    7979concLevel = leftOps (opWords " ~ ") 
    … …  
    713713defaultInfixOps = opWords $ concat 
    714714    [ " ** * / % x xx +& +< +> ~& ~< ~> " 
    715     , " + - ~ +| +^ ~| ~^ ?| , Z X minmax " 
     715    , " + - ~ +| +^ ~| ~^ ?| ?^ , Z X minmax " 
    716716    , " & ^ | " 
    717717    , " => = "