[svn:parrot] r26067 - trunk/languages/lua/pmc

[fperrad]

Author: fperrad
Date: Tue Feb 26 02:26:22 2008
New Revision: 26067

Modified:
   trunk/languages/lua/pmc/luaany.pmc
   trunk/languages/lua/pmc/luathread.pmc

Log:
[Lua]
 - PCM LuaThread : add getfenv/setfenv methods

Modified: trunk/languages/lua/pmc/luaany.pmc
==============================================================================
--- trunk/languages/lua/pmc/luaany.pmc  (original)
+++ trunk/languages/lua/pmc/luaany.pmc  Tue Feb 26 02:26:22 2008
@@ -38,7 +38,7 @@
  LuaNumber              nil             -               -
  LuaString              yes (common)    -               -
  LuaTable               yes             -               -
- LuaThread              nil             todo            -
+ LuaThread              nil             yes             -
  LuaUserdata            yes             yes             yes
 
 The metatable supports the OO mecanism.

Modified: trunk/languages/lua/pmc/luathread.pmc
==============================================================================
--- trunk/languages/lua/pmc/luathread.pmc       (original)
+++ trunk/languages/lua/pmc/luathread.pmc       Tue Feb 26 02:26:22 2008
@@ -22,6 +22,21 @@
 
 #include "lua_private.h"
 
+static PMC* curr_func(PARROT_INTERP) {
+    parrot_context_t *ctx = CONTEXT(interp->ctx);
+    PMC *sub = ctx->current_sub;
+    return sub;
+}
+
+static PMC* getcurrenv(PARROT_INTERP) {
+    PMC *env = NULL;
+    PMC *sub = curr_func(interp);
+    if (sub) {
+        env = PMC_metadata(sub);
+    }
+    return env;
+}
+
 
 pmclass LuaThread
     extends LuaAny
@@ -63,6 +78,7 @@
         VTABLE_set_pmc_keyed_str(INTERP, init_args,
                                  const_string(INTERP, "initial_sub"), sub);
         PMC_pmc_val(SELF) = VTABLE_instantiate(INTERP, classobj, init_args);
+        PMC_metadata(SELF) = getcurrenv(INTERP);
         PObj_custom_mark_SET(SELF);
     }
 
@@ -78,6 +94,8 @@
     void mark() {
         if (PMC_pmc_val(SELF))
             pobject_lives(INTERP, PMC_pmc_val(SELF));
+        if (PMC_metadata(SELF))
+            pobject_lives(INTERP, (PObj *)PMC_metadata(SELF));
     }
 
 /*
@@ -170,6 +188,22 @@
 
 =over 4
 
+=item C<PMC *getfenv()>
+
+=cut
+
+*/
+    METHOD PMC* getfenv() {
+        PMC *retval = PMC_metadata(SELF);
+
+        if (retval)
+            return retval;
+
+        return pmc_new(INTERP, dynpmc_LuaNil);
+    }
+
+/*
+
 =item C<PMC* rawequal(PMC *value)>
 
 =cut
@@ -186,6 +220,17 @@
         return retval;
     }
 
+/*
+
+=item C<void setfenv(PMC *env)>
+
+=cut
+
+*/
+    METHOD void setfenv(PMC *env) {
+        PMC_metadata(SELF) = env;
+    }
+
 }
 
 /*