Changeset 4102 for src/Pugs/Types/Array.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/Array.hs (modified) (2 diffs)

src/Pugs/Types/Array.hs

@@ -264 +264 @@
         idxSV   <- fromVal $ castV idx
         evalPerl5Sub "sub { $_[0]->[$_[1]] }" [sv, idxSV]
+    array_clear sv = do
+        evalPerl5Sub "sub { undef @{$_[0]} }" [sv]
+        return ()
     array_storeVal sv idx val = do
         idxSV   <- fromVal $ castV idx
@@ -269 +272 @@
         evalPerl5Sub "sub { $_[0]->[$_[1]] = $_[2] }" [sv, idxSV, valSV]
         return ()
-    array_storeElem _ _ _  = retConstError undef
-    array_deleteElem _ _   = retConstError undef
+    array_deleteElem sv idx = do
+        idxSV   <- fromVal $ castV idx
+        evalPerl5Sub "sub { delete $_[0]->[$_[1]] }" [sv, idxSV]
+        return ()