Changeset 4270 for src/Pugs/Types

Timestamp:

06/01/05 17:46:40 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

5861

Message:

Hackish Code.body support (presently useless as well, as there aren't any
methods on Code::Exp, but that should change soon).

Location:

src/Pugs/Types

Files:

• Array.hs (modified) (1 diff)
• Code.hs (modified) (2 diffs)

src/Pugs/Types/Array.hs

@@ -247 +247 @@
     array_fetchVal pv 1    = return . snd =<< readIVar pv
     array_fetchVal _  _    = return undef
-    array_storeVal _ _ _   = retConstError undef
-    array_storeElem _ _ _  = retConstError undef
-    array_deleteElem _ _   = retConstError undef
+    array_storeVal a _ _   = retConstError $ VStr $ show a
+    array_storeElem a _ _  = retConstError $ VStr $ show a
+    array_deleteElem a _   = retConstError $ VStr $ show a
 
 evalPerl5Sub :: String -> [PerlSV] -> Eval Val

src/Pugs/Types/Code.hs

@@ -1 +1 @@
 
 class (Typeable a) => CodeClass a where
-    code_iType :: a -> Type
+    code_iType    :: a -> Type
     code_iType = const $ mkType "Code"
     code_fetch    :: a -> Eval VCode
@@ -30 +30 @@
         _           -> mkType "Sub"
     code_fetch    = return
-    code_store _ _= retConstError undef
+    code_store c _= retConstError $ VStr $ show c
     code_assuming c [] [] = return c
     code_assuming _ _ _   = error "assuming"