2 files changed, 74 insertions, 6 deletions

diff --git a/deep_test/deep_test.c b/deep_test/deep_test.c
index abe9fdc..8f34fe5 100644
--- a/deep_test/deep_test.c
+++ b/deep_test/deep_test.c
@@ -1,4 +1,5 @@
 #include <malloc.h>
+#include <memory.h>
 
 #include "lua.h"
 #include "lualib.h"
@@ -12,6 +13,8 @@
 #define LANES_API
 #endif // (defined PLATFORM_WIN32) || (defined PLATFORM_POCKETPC)
 
+// ################################################################################################
+
 struct s_MyDeepUserdata
 {
         lua_Integer val;
@@ -33,7 +36,7 @@ static int deep_set( lua_State* L)
 static int deep_tostring( lua_State* L)
 {
         struct s_MyDeepUserdata* self = luaG_todeep( L, deep_test_id, 1);
-        lua_pushfstring( L, "deep_test(%d)", self->val);
+        lua_pushfstring( L, "deep(%d)", self->val);
         return 1;
 }
 
@@ -103,10 +106,68 @@ int luaD_new_deep( lua_State* L)
 }
 
 // ################################################################################################
+// ################################################################################################
+
+struct s_MyClonableUserdata
+{
+        lua_Integer val;
+};
+
+// ################################################################################################
+
+static int clonable_tostring(lua_State* L)
+{
+        struct s_MyClonableUserdata* self = (struct s_MyClonableUserdata*) lua_touserdata( L, 1);
+        lua_pushfstring( L, "clonable(%d)", self->val);
+        return 1;
+}
+
+// ################################################################################################
+
+static int clonable_lanesclone( lua_State* L)
+{
+        // no need to set the metatable, the Lane copying mechanism will take care of it
+        struct s_MyClonableUserdata* self = lua_touserdata( L, 1);
+        struct s_MyClonableUserdata* to = lua_newuserdata( L, sizeof( struct s_MyClonableUserdata));
+        memcpy( to, self, sizeof(struct s_MyClonableUserdata));
+        return 1;
+}
+
+// ################################################################################################
+
+static luaL_Reg const clonable_mt[] =
+{
+        { "__tostring", clonable_tostring},
+        //{ "__gc", deep_gc},
+        { "__lanesclone", clonable_lanesclone},
+        //{ "set", deep_set},
+        { NULL, NULL }
+};
+
+// ################################################################################################
+
+int luaD_new_clonable( lua_State* L)
+{
+        lua_newuserdata( L, sizeof( struct s_MyClonableUserdata));
+        if( luaL_getmetatable( L, "clonable") == LUA_TNIL)      // u mt?
+        {
+                lua_pop( L, 1);                                       // u
+                lua_newtable( L);                                     // u mt
+                luaL_setfuncs( L, clonable_mt, 0);
+                lua_pushvalue(L, -1);                                 // u mt mt
+                lua_setfield(L, -2, "__index");                       // u mt
+        }
+        lua_setmetatable( L, -2);                               // u
+        return 1;
+}
+
+// ################################################################################################
+// ################################################################################################
 
 static luaL_Reg const deep_module[] =
 {
         { "new_deep", luaD_new_deep},
+        { "new_clonable", luaD_new_clonable},
         { NULL, NULL}
 };
 
diff --git a/deep_test/deep_test.lua b/deep_test/deep_test.lua
index fd78115..3b514dd 100644
--- a/deep_test/deep_test.lua
+++ b/deep_test/deep_test.lua
@@ -4,12 +4,19 @@ local deep = dt.new_deep()
 deep:set(666)
 print( deep)
 
+local clonable = dt.new_clonable()
+
 -- now load Lanes and see if that userdata is transferable
 --[[
 local lanes = require("lanes").configure()
-
 local l = lanes.linda "my linda"
-l.put( "key", deep)
-local out = l.get( "key")
-print( out)
-]]
\ No newline at end of file
+
+l:set( "key", deep)
+local deep_out = l:get( "key")
+print( deep_out)
+
+lanes.register()
+l:set( "key", clonable)
+local clonable_out = l:get( "key")
+print( clonable_out)
+--]]
\ No newline at end of file