Changeset 4102 for src/Pugs/Types/Hash.hs

Timestamp:

05/29/05 18:05:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* Perl5Embed: .kv, .keys, .values, .pairs etc now works on Perl hashrefs.

Files:

• src/Pugs/Types/Hash.hs (modified) (2 diffs)

src/Pugs/Types/Hash.hs

@@ -123 +123 @@
         keySV   <- fromVal $ castV key
         evalPerl5Sub "sub { $_[0]->{$_[1]} }" [sv, keySV]
-    hash_clear _ = retConstError undef
-    hash_store _ _ = retConstError undef
+    hash_clear sv = do
+        evalPerl5Sub "sub { undef %{$_[0]} }" [sv]
+        return ()
     hash_storeVal sv key val = do
         keySV   <- fromVal $ castV key
@@ -134 +135 @@
         keysStr <- fromVal keysSV
         return $ lines keysStr
-    hash_storeElem _ _ _ = retConstError undef
-    hash_deleteElem _ _ = retConstError undef
+    hash_deleteElem sv key = do
+        keySV   <- fromVal $ castV key
+        evalPerl5Sub "sub { delete $_[0]->{$_[1]} }" [sv, keySV]
+        return ()
+    hash_isEmpty sv = do
+        fromVal =<< evalPerl5Sub "sub { !!%{$_[0]} }" [sv]