Changeset 15198 for src/Pugs/Parser

Timestamp:

02/06/07 21:22:31 (22 months ago)

Author:

audreyt

Message:

* Pugs.Parser.Operator: Add postfix "i" form

Files:

• src/Pugs/Parser/Operator.hs (modified) (4 diffs)

src/Pugs/Parser/Operator.hs

@@ -69 +69 @@
 termLevel = circumOps (Set.singleton (MkOpName (cast "\\( )")))
 methLevel = methOps (opWords " . .+ .? .* .+ .() .[] .{} .<<>> .= ")
-incrLevel = postOps incrOps ++ preOps incrOps
+incrLevel = postOps incrOpsPost ++ preOps incrOpsPre
 expoLevel = rightOps (opWords " ** ")
 symbLevel = preSyn (Set.singleton (MkOpName (cast "|"))) ++ preOps symbPreops
@@ -79 +79 @@
 symbPreops :: Set OpName
 symbPreops = opWords " = ! + - ~ ? +^ ~^ ?^ \\ ^"
-incrOps :: Set OpName
-incrOps = opWords " ++ -- "
+
+incrOpsPre :: Set OpName
+incrOpsPre = opWords " ++ -- "
+
+incrOpsPost :: Set OpName
+incrOpsPost = opWords " ++ -- i "
 
 -- The lower levels of immutable ops.  This will be replaced once we have
@@ -354 +358 @@
         | otherwise
         = sigil ++ name
-    makeFileTestOp ch = conOp ("&prefix:-" ++ [ch])
     conOp name = return $ \x -> case x of
         Syn "" []   -> con name []
@@ -649 +652 @@
         parseFull   = expRule (buildExpressionParser opsFull tightExprs)
         parseLit    = expRule (buildExpressionParser opsLoose tightExprs)
-        parsePost   = pp "&postfix:" $ incrOps `Set.union` r_post tights
+        parsePost   = pp "&postfix:" $ incrOpsPost `Set.union` r_post tights
      -- parsePre    = pp "&prefix:"  $ symbPreops `Set.union` r_pre tights
      -- parsePreNam = pp "&"         $ r_named tights `Set.union` r_opt tights