Changeset 3947 for src/Pugs/Types

Timestamp:

05/27/05 03:41:51 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* PerlSV now does Hash and Array

Location:

src/Pugs/Types

Files:

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

src/Pugs/Types/Array.hs

@@ -251 +251 @@
     array_deleteElem _ _   = retConstError undef
 
+instance ArrayClass PerlSV where
+    array_iType = const $ mkType "Array::Perl"
+    array_fetchVal _  _    = return undef
+    array_storeVal _ _ _   = retConstError undef
+    array_storeElem _ _ _  = retConstError undef
+    array_deleteElem _ _   = retConstError undef

src/Pugs/Types/Hash.hs

@@ -117 +117 @@
             svMap <- readTVar hv
             return $ Map.member idx svMap
+
+instance HashClass PerlSV where
+    hash_iType = const $ mkType "Hash::Perl"
+    hash_clear _ = retConstError undef
+    hash_store _ _ = retConstError undef
+    hash_storeVal _ _ _ = retConstError undef
+    hash_storeElem _ _ _ = retConstError undef
+    hash_deleteElem _ _ = retConstError undef