Changeset 2541 for src/Pugs/Types

Timestamp:

05/01/05 06:40:46 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4052

Message:

* %hash.pairs now returns a list of lvaluable pairs.
* beginning of moving all castfails into Eval monad.

Location:

src/Pugs/Types

Files:

• Array.hs (modified) (1 diff)
• Pair.hs (modified) (1 diff)

src/Pugs/Types/Array.hs

@@ -201 +201 @@
     array_fetchSize = return . length
     array_fetchVal av idx = getIndex idx (Just undef) (return av) Nothing
+    array_fetchElem av idx = do
+        val <- array_fetchVal av idx
+        return $ constScalar val
     array_storeVal _ _ _ = retConstError undef
     array_storeElem _ _ _ = retConstError undef

src/Pugs/Types/Pair.hs

@@ -32 +32 @@
     pair_fetchElem pv = do
         return $ proxyScalar (pair_fetchVal pv) (pair_storeVal pv)
+
+instance PairClass IPairHashSlice where
+    pair_iType = const $ mkType "Pair::HashSlice"
+    pair_fetchKey  = return . VStr . fst
+    pair_fetchElem = return . snd