Changeset 14716 for src/Pugs/Eval.hs

Timestamp:

11/10/06 20:02:03 (2 years ago)

Author:

audreyt

Message:

* Pugs.Eval: Binding for array and hash elements.

Files:

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

src/Pugs/Eval.hs

@@ -670 +670 @@
             [v] -> v
             vs  -> VList vs
+
+reduceSyn ":=" [Syn "{}" [conExp, keyExp], valExp] = enterLValue $ do
+    ref     <- fromVal =<< enterEvalContext cxtItemAny valExp
+    con     <- enterEvalContext (cxtItem "Hash") conExp
+    key     <- fromVal =<< enterEvalContext (cxtItem "Str") keyExp
+    doBind  <- doHash con hash_storeElem
+    doBind key ref
+    return (castV ref)
+
+reduceSyn ":=" [Syn "[]" [conExp, keyExp], valExp] = enterLValue $ do
+    ref     <- fromVal =<< enterEvalContext cxtItemAny valExp
+    con     <- enterEvalContext (cxtItem "Array") conExp
+    key     <- fromVal =<< enterEvalContext (cxtItem "Int") keyExp
+    doBind  <- doArray con array_storeElem
+    doBind key ref
+    return (castV ref)
 
 reduceSyn ":=" [var, vexp] = do