Вызов lua_CFunction из С++

  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;  

  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 ;
}
  

  idx  =  luaL_ref(L, LUA_REGISTRYINDEX) ,  

  lua_pop(L,  1 ),   

  lua_rawgeti(L, LUA_REGISTRYINDEX, idx) ,  

  lua_setglobal(L,  "myDS" );