Changeset 19810 for src/Pugs/AST.hs

Timestamp:

02/05/08 07:08:09 (10 months ago)

Author:

lwall

Message:

[pugs] simplified assignment parsing

Files:

• src/Pugs/AST.hs (modified) (1 diff)

src/Pugs/AST.hs

@@ -229 +229 @@
 isScalarLValue x = case x of
     Ann Parens _    -> False
-    Ann _ exp       -> isScalarLValue exp
-    Sym _ _ _ _ exp -> isScalarLValue exp
     Var var | SScalar <- v_sigil var -> True
     Syn "${}" _     -> True -- XXX - Change tp App("&prefix:<$>") later
     Syn "$::()" _   -> True
-    Syn "[]" [_, y] -> isSIMPLE y
-    Syn "{}" [_, y] -> isSIMPLE y
-    Val VList{}     -> False
-    Val{}           -> True
     _               -> False
-    where
-    isSIMPLE x = case unwrap x of
-        App (Var var) Nothing [y]
-            | C_prefix <- v_categ var
-            -> var `Set.member` coercePrefixOps
-                || (var `Set.member` simplePrefixOps && isSIMPLE y)
-            | C_postfix <- v_categ var
-            -> var `Set.member` simplePostfixOps && isSIMPLE y
-        App (Var var) (Just y) []
-            | C_prefix <- v_categ var
-            -> var `Set.member` coercePrefixOps
-                || (var `Set.member` simplePrefixOps && isSIMPLE y)
-            | C_postfix <- v_categ var
-            -> var `Set.member` simplePostfixOps && isSIMPLE y
-        App (Var var) Nothing [x, y]
-            | C_infix <- v_categ var
-            -> var `Set.member` simpleInfixOps && isSIMPLE x && isSIMPLE y
-        App (Var var) (Just x) [y]
-            | C_infix <- v_categ var
-            -> var `Set.member` simpleInfixOps && isSIMPLE x && isSIMPLE y
-        _               -> isScalarLValue x
 
 opSet :: VarCateg -> [String] -> Set Var