idx  =  luaL_ref(L, LUA_REGISTRYINDEX) ,  

  lua_pop(L,  1 ),   

  lua_rawgeti(L, LUA_REGISTRYINDEX, idx) ,  

  lua_setglobal(L,  "myDS" );  

idx = luaL_ref(L, LUA_REGISTRYINDEX) ,

lua_pop(L, 1), 

lua_rawgeti(L, LUA_REGISTRYINDEX, idx) ,

lua_setglobal(L, "myDS");

• idx = luaL_ref(L, LUA_REGISTRYINDEX)
  
• luaL_unref(L, LUA_REGISTRYINDEX, idx)
  
• lua_rawgeti(L, LUA_REGISTRYINDEX, idx)
  

message(type(DS),1);

message(type(DS),1);

  int myfunction(lua_State *  L) {
   // DS  =   CreateDataSource ( "SPBFUT" ,  "RIM6" , INTERVAL_M1); // Работает

   lua_getglobal(L,  "CreateDataSource" );
   lua_pushstring(L,  "SPBFUT" );
   lua_pushstring(L,  "RIM6" );
   lua_getglobal(L,  "INTERVAL_M1" );
   lua_call(L,  3 ,  1 );

   // результат на стеке
   int DS  =  lua_gettop(L);

   // C  =  DS:C( 1 ); // Не получается
   lua_getfield(L, DS,  "C" );
   lua_pushvalue(L, DS);
   lua_pushnumber(L,  1 );
   lua_call(L,  2 ,  1 );

   // результат на стеке
   int C  =  lua_gettop(L);

   // DS: Close (); // Не получается
   lua_getfield(L, DS,  "Close" );
   lua_pushvalue(L, DS);
   lua_call(L,  1 ,  0 );

   // В Lua 
   // obj:func(param);
   // это то же самое что
   //  obj.func (obj, param);

        // как - то так
    return   0 ;
}
  

• Перед "return 0;" на стеке останутся лежать DS и С ( который = DS:C(1) ).
  
• Можно стек не чистить, если myfunction вызывалась из Lua-кода.
  
• Если планируете на стеке хранить много аргументов ( > LUA_MINSTACK), то гляньте документацию к lua_checkstack.
  

int myfunction(lua_State* L) {
   // DS = CreateDataSource("SPBFUT", "RIM6", INTERVAL_M1); // Работает

   lua_getglobal(L, "CreateDataSource");
   lua_pushstring(L, "SPBFUT");
   lua_pushstring(L, "RIM6");
   lua_getglobal(L, "INTERVAL_M1");
   lua_call(L, 3, 1);

   // результат на стеке
   int DS = lua_gettop(L);

   // C = DS:C(1); // Не получается
   lua_getfield(L, DS, "C");
   lua_pushvalue(L, DS);
   lua_pushnumber(L, 1);
   lua_call(L, 2, 1);

   // результат на стеке
   int C = lua_gettop(L);

   // DS:Close(); // Не получается
   lua_getfield(L, DS, "Close");
   lua_pushvalue(L, DS);
   lua_call(L, 1, 0);

   // В Lua 
   // obj:func(param);
   // это то же самое что
   // obj.func(obj, param);

        // как-то так
   return 0;
}

DS = CreateDataSource("SPBFUT", "RIM6", INTERVAL_M1); // Работает

...

C = DS:C(1); // Не получается

...

DS:Close(); // Не получается

  lua_CFunction  Close Handle;

//Создаём источник данных

lua_getglobal(L,  "CreateDataSource" );
lua_pushstring(L, class_code); //class_code
lua_pushstring(L, sec_code); //sec_code
lua_pushinteger(L, interval); //interval
lua_call(L,  3 ,  2 );

 if (lua_istable(L, 1 ))
{
   lua_push nil (L);
    while  (lua_next(L,  1 )  !  =   0 )
   {
       if (strcmp(lua_tostring(L,  -  2 ),  "Close" )  =  =   0 ) //Проверяем название поля
      {
          Close Handle  =  lua_tocfunction(L,  -  1 );
      }

      lua_pop(L,  1 );
   }
}

bool err  =  lua_isstring(L, 2 );

//Закрываем источник данных

 if ( Close Handle)
{
   lua_pushcfunction(L,  Close Handle);
   lua_call (L,  0 ,  1 );
    if (lua_isboolean(L,  1 ))
   {
      result  =  lua_toboolean(L,  1 )
   }
}
 return  result;  

lua_CFunction CloseHandle;

//Создаём источник данных

lua_getglobal(L, "CreateDataSource");
lua_pushstring(L, class_code); //class_code
lua_pushstring(L, sec_code); //sec_code
lua_pushinteger(L, interval); //interval
lua_call(L, 3, 2);

if(lua_istable(L,1))
{
   lua_pushnil(L);
   while (lua_next(L, 1) != 0)
   {
      if(strcmp(lua_tostring(L, -2), "Close") == 0) //Проверяем название поля
      {
         CloseHandle = lua_tocfunction(L, -1);
      }

      lua_pop(L, 1);
   }
}

bool err = lua_isstring(L,2);

//Закрываем источник данных

if(CloseHandle)
{
   lua_pushcfunction(L, CloseHandle);
   lua_call (L, 0, 1);
   if(lua_isboolean(L, 1))
   {
      result = lua_toboolean(L, 1)
   }
}
return result;