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

Timestamp:

05/29/05 03:40:42 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* first cut at $hash.keys for perl5.

Files:

• src/Pugs/Types/Hash.hs (modified) (1 diff)

src/Pugs/Types/Hash.hs

@@ -130 +130 @@
         evalPerl5Sub "sub { $_[0]->{$_[1]} = $_[2] }" [sv, keySV, valSV]
         return ()
+    hash_fetchKeys sv = do
+        keysSV  <- evalPerl5Sub "sub { join $/, keys %{$_[0]} }" [sv]
+        keysStr <- fromVal keysSV
+        return $ lines keysStr
     hash_storeElem _ _ _ = retConstError undef
     hash_deleteElem _ _ = retConstError undef