Changeset 12204 for src/Pugs/Prim/Keyed.hs

Timestamp:

08/14/06 08:21:50 (2 years ago)

Author:

cmarcelo

Message:

* Integrate judy and HsJudy? on Pugs' build process. Make IArray and IHash
use HsJudy?.

Files:

• src/Pugs/Prim/Keyed.hs (modified) (3 diffs)

src/Pugs/Prim/Keyed.hs

@@ -4 +4 @@
   -- keyed values (Val)
   pairsFromVal, keysFromVal, valuesFromVal,
+  sizeFromVal,
 
   -- keyed references (VRef)
@@ -47 +48 @@
     return . VList $ Map.elems pairs
 valuesFromVal v = retError "Not a keyed reference" v
+
+sizeFromVal :: Val -> Eval Val
+sizeFromVal v = do
+    size <- doArray v array_fetchSize
+    sz <- size
+    return $ castV sz
 
 
@@ -135 +142 @@
         _           -> return undef
 deleteFromRef ref _ = retError "Not a keyed reference" ref
+
+sizeFromRef :: VRef -> Eval Val
+sizeFromRef (MkRef (IArray arr)) = do
+    --liftIO $ putStrLn "here"
+    size <- array_fetchSize arr
+    return $ castV size
+sizeFromRef ref = retError "Not a sizeable reference" ref
+