Add. easy/multi handle support user values.

```Lua
  f = io.open(...)
  e = curl.easy():setdata(f)
  ...
  -- when easy done
  e:getdata():close()
```

Author: moteus

src/lceasy.c

@@ -100,6 +100,10 @@ static int lcurl_easy_cleanup(lua_State *L){
     p->lists[i] = LUA_NOREF;
   }
 
+  lua_settop(L, 1);
+  lua_pushnil(L);
+  lua_rawset(L, LCURL_USERVALUES);
+
   return 0;
 }
 
@@ -941,6 +945,22 @@ static int lcurl_easy_pause(lua_State *L){
   return 1;
 }
 
+static int lcurl_easy_setdata(lua_State *L){
+  lcurl_easy_t *p = lcurl_geteasy(L);
+  lua_settop(L, 2);
+  lua_pushvalue(L, 1);
+  lua_insert(L, 2);
+  lua_rawset(L, LCURL_USERVALUES);
+  return 1;
+}
+
+static int lcurl_easy_getdata(lua_State *L){
+  lcurl_easy_t *p = lcurl_geteasy(L);
+  lua_settop(L, 1);
+  lua_rawget(L, LCURL_USERVALUES);
+  return 1;
+}
+
 //}
 
 static const struct luaL_Reg lcurl_easy_methods[] = {
@@ -982,6 +1002,9 @@ static const struct luaL_Reg lcurl_easy_methods[] = {
   { "close",    lcurl_easy_cleanup        },
   { "__gc",     lcurl_easy_cleanup        },
 
+  { "setdata",  lcurl_easy_setdata        },
+  { "getdata",  lcurl_easy_getdata        },
+
   {NULL,NULL}
 };
 

src/lcmulti.c

@@ -78,6 +78,11 @@ static int lcurl_multi_cleanup(lua_State *L){
   luaL_unref(L, LCURL_LUA_REGISTRY, p->sc.ud_ref);
   p->tm.cb_ref = p->tm.ud_ref = LUA_NOREF;
   p->sc.cb_ref = p->sc.ud_ref = LUA_NOREF;
+
+  lua_settop(L, 1);
+  lua_pushnil(L);
+  lua_rawset(L, LCURL_USERVALUES);
+
   return 0;
 }
 
@@ -441,6 +446,22 @@ static int lcurl_multi_setopt(lua_State *L){
   return lcurl_fail_ex(L, p->err_mode, LCURL_ERROR_MULTI, CURLM_UNKNOWN_OPTION);
 }
 
+static int lcurl_multi_setdata(lua_State *L){
+  lcurl_multi_t *p = lcurl_getmulti(L);
+  lua_settop(L, 2);
+  lua_pushvalue(L, 1);
+  lua_insert(L, 2);
+  lua_rawset(L, LCURL_USERVALUES);
+  return 1;
+}
+
+static int lcurl_multi_getdata(lua_State *L){
+  lcurl_multi_t *p = lcurl_getmulti(L);
+  lua_settop(L, 1);
+  lua_rawget(L, LCURL_USERVALUES);
+  return 1;
+}
+
 //}
 
 static const struct luaL_Reg lcurl_multi_methods[] = {
@@ -459,6 +480,9 @@ static const struct luaL_Reg lcurl_multi_methods[] = {
   OPT_ENTRY(socketfunction, SOCKETFUNCTION, TTT, 0)
 #undef OPT_ENTRY
 
+  { "setdata",         lcurl_multi_setdata          },
+  { "getdata",         lcurl_multi_getdata          },
+
   {"close",            lcurl_multi_cleanup          },
   {"__gc",             lcurl_multi_cleanup          },
 

src/lcurl.c

@@ -180,6 +180,7 @@ static const lcurl_const_t lcurl_flags[] = {
 static volatile int LCURL_INIT = 0;
 
 static const char* LCURL_REGISTRY = "LCURL Registry";
+static const char* LCURL_USERVAL  = "LCURL Uservalues";
 
 static int luaopen_lcurl_(lua_State *L, const struct luaL_Reg *func){
   if(!LCURL_INIT){
@@ -192,16 +193,24 @@ static int luaopen_lcurl_(lua_State *L, const struct luaL_Reg *func){
     lua_pop(L, 1);
     lua_newtable(L);
   }
+
+  lua_rawgetp(L, LUA_REGISTRYINDEX, LCURL_USERVAL);
+  if(!lua_istable(L, -1)){ /* usevalues */
+    lua_pop(L, 1);
+    lcurl_util_new_weak_table(L, "k");
+  }
+
   lua_newtable(L); /* library  */
 
-  lua_pushvalue(L, -2); luaL_setfuncs(L, func, 1);
-  lua_pushvalue(L, -2); lcurl_error_initlib(L, 1);
-  lua_pushvalue(L, -2); lcurl_hpost_initlib(L, 1);
-  lua_pushvalue(L, -2); lcurl_easy_initlib (L, 1);
-  lua_pushvalue(L, -2); lcurl_multi_initlib(L, 1);
-  lua_pushvalue(L, -2); lcurl_share_initlib(L, 1);
+  lua_pushvalue(L, -3); lua_pushvalue(L, -3); luaL_setfuncs(L, func, 2);
+  lua_pushvalue(L, -3); lua_pushvalue(L, -3); lcurl_error_initlib(L, 2);
+  lua_pushvalue(L, -3); lua_pushvalue(L, -3); lcurl_hpost_initlib(L, 2);
+  lua_pushvalue(L, -3); lua_pushvalue(L, -3); lcurl_easy_initlib (L, 2);
+  lua_pushvalue(L, -3); lua_pushvalue(L, -3); lcurl_multi_initlib(L, 2);
+  lua_pushvalue(L, -3); lua_pushvalue(L, -3); lcurl_share_initlib(L, 2);
 
-  lua_pushvalue(L, -2); lua_rawsetp(L, LUA_REGISTRYINDEX, LCURL_REGISTRY);
+  lua_pushvalue(L, -3); lua_rawsetp(L, LUA_REGISTRYINDEX, LCURL_REGISTRY);
+  lua_pushvalue(L, -2); lua_rawsetp(L, LUA_REGISTRYINDEX, LCURL_USERVAL);
 
   lua_remove(L, -2); /* registry */
 

src/lcurl.h

@@ -23,5 +23,6 @@
 
 #define LCURL_LUA_REGISTRY lua_upvalueindex(1)
 
+#define LCURL_USERVALUES lua_upvalueindex(2)
 
 #endif

test/test_easy.lua

@@ -796,4 +796,36 @@ end
 
 end
 
+local _ENV = TEST_CASE'setopt_user_data'     if ENABLE then
+
+local c
+
+function setup()
+  if c then c:close() end
+  c = nil
+end
+
+function test_data()
+  c = assert(curl.easy())
+  assert_nil(c:getdata())
+  c:setdata("hello")
+  assert_equal("hello", c:getdata())
+end
+
+function test_cleanup()
+  local ptr do
+    local t = {}
+    local e = curl.easy():setdata(t)
+    ptr = weak_ptr(t)
+    gc_collect()
+
+    assert_equal(t, ptr.value)
+  end
+
+  gc_collect()
+  assert_nil(ptr.value)
+end
+
+end
+
 RUN()