Changeset 15373 for src/Pugs/Eval

Timestamp:

02/27/07 18:56:54 (21 months ago)

Author:

audreyt

Message:

* First step in MO bridge:

vv('12345').reverse # '54321' (newVal)
vv('12345').reverse.reverse # '12345' (newVal)

It's the only method defined (and works) at the moment.
More tomorrow.

Files:

• src/Pugs/Eval/Var.hs (modified) (2 diffs)

src/Pugs/Eval/Var.hs

@@ -17 +17 @@
 import Pugs.Config
 import Pugs.Monads
+import Pugs.Class
 import qualified Pugs.Val as Val
 import qualified Data.ByteString.Char8 as Buf
@@ -236 +237 @@
                 -- callMethod methName []
                 -- inv ./ meth = ivDispatch inv $ MkMethodInvocation meth (mkArgs [])
-                return . castV $ "CCall " ++ show methName ++ " " ++ show capt
+                case invVV of
+                    Val.VPure p -> return . runIdentity $ do
+                        obj <- mkObj p
+                        res <- fromObjBox =<< obj ./ cast methName
+                        return . castV $ Val.VPure (res `asTypeOf` p)
+                    _       -> do
+                        return . castV $ "CCall " ++ show methName ++ " " ++ show capt
             }