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

Timestamp:

05/27/05 05:22:52 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* Perl 5 Array and Hash are now accessible from Perl 6.

Files:

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

src/Pugs/Types/Hash.hs

@@ -120 +120 @@
 instance HashClass PerlSV where
     hash_iType = const $ mkType "Hash::Perl"
+    hash_fetchVal sv key = do
+        keySV   <- fromVal $ castV key
+        evalPerl5Sub "sub { $_[0]->{$_[1]} }" [sv, keySV]
     hash_clear _ = retConstError undef
     hash_store _ _ = retConstError undef
-    hash_storeVal _ _ _ = retConstError undef
+    hash_storeVal sv key val = do
+        keySV   <- fromVal $ castV key
+        valSV   <- fromVal val
+        evalPerl5Sub "sub { $_[0]->{$_[1]} = $_[2] }" [sv, keySV, valSV]
+        return ()
     hash_storeElem _ _ _ = retConstError undef
     hash_deleteElem _ _ = retConstError undef