#include "stdafx.h"
#define LUA_LIB
#define LUA_BUILD_AS_DLL
extern "C" {
#include "lauxlib.h"
#include "lua.h"
#include "lauxlib.h"
}
// стандартная точка входа для DLL
BOOL APIENTRY DllMain(HANDLE hModule,
   DWORD  ul_reason_for_call,
   LPVOID lpReserved
)
{
   return TRUE;
}
static int getQuote3(lua_State* L) {
   // t = getQuoteLevel2(c_code, s_code)
   lua_getglobal(L, "getQuoteLevel2"); //поместить на стек функцию 
   lua_pushstring(L, "SPBFUT"); //дальше идут параметры
   lua_pushstring(L, "RIU8");
   int num_args = 2, num_ret = 1;
   lua_pcall(L, num_args, num_ret, 0); //вызываем функцию, на стеке окажется таблица   
   lua_getfield(L, -1, "bid_count"); //из таблицы по индексу -1 взять значение ключа "bid_count" и поместить на стек
   int bid_count = lua_tointeger(L, -1);
   if (bid_count < 3) {
      return 0;
   }
   //на стеке -2 = t(table), -1 = bid_count(int)
   lua_getfield(L, -2, "bid"); //на стек положит таблицу со значениями стакана(bid)
   //на стеке -3 = t(table), -2 = bid_count(int), -1 = bid(table)
   lua_rawgeti(L, -1, 3); //из таблицы по индексу -1 взять значение ключа [3] и поместить на стек(еще 1 таблица=bid3)
   //на стеке -4 = t(table), -3 = bid_count(int), -2 = bid(table), -1 = bid3(table)
   //ну и из последней таблицы получаем необходимы значения
   lua_getfield(L, -1, "price");
   lua_getfield(L, -2, "quantity");
   const char * quantity = lua_tostring(L, -1);
   const char * price = lua_tostring(L, -2);
   //на стеке -6 = t(table), -5 = bid_count(int), -4 = bid(table), -3 = bid3(table), -2 = price(string), -1 = quantity(string)
   lua_pop(L, 6); //чистим стек
   return 0;
}

static const struct luaL_Reg mylib[] = {
{"l_getQuote3", getQuote3},
{NULL, NULL} /* sentinel */
};

extern "C" LUALIB_API int luaopen_Stakan(lua_State *L) {
   luaL_openlib(L, "Stakan", mylib, 0);
   return 0;
}

static int forLua_SumArray(lua_State* L) {
    getQuote3(L);
    /* остальное */ 
}

lua_CFunction=int(lua_State*)

lua_pop(L,6); //чистим стек (забыли букву L)

static const struct luaL_Reg Stakan[] = {
{"getQuote3", getQuote3},
{NULL, NULL} /* sentinel */
};

extern "C" LUALIB_API int luaopen_Stakan(lua_State *L) {
   luaL_openlib(L, "Stakan", Stakan, 0);
   return 0;
}

#include "stdafx.h"
#define LUA_LIB
#define LUA_BUILD_AS_DLL
extern "C" {
#include "lauxlib.h"
#include "lua.h"
#include "lauxlib.h"
}
// стандартная точка входа для DLL
BOOL APIENTRY DllMain(HANDLE hModule,
   DWORD  ul_reason_for_call,
   LPVOID lpReserved
)
{
   return TRUE;
}

static int forLua_OnQuoteC(lua_State* L) {
   lua_pushnil(L);
   int s = 0;
   while (lua_next(L, -2))
   {
      s = s + 1;
      const char* key = lua_tostring(L, -2);
      double val = lua_tonumber(L, -1);
      lua_pop(L, 1);
   }
   return 1;
}

void getQuote3(lua_State* L) {
    // t = getQuoteLevel2(c_code, s_code)
    lua_getglobal(L, "getQuoteLevel2"); //поместить на стек функцию 
    lua_pushstring(L, "SPBFUT"); //дальше идут параметры
    lua_pushstring(L, "RIM8"); 
    int num_args = 2, num_ret = 1;
    lua_pcall(L, num_args, num_ret, 0); //вызываем функцию, на стеке окажется таблица    
    
    lua_getfield(L, -1, "bid_count"); //из таблицы по индексу -1 взять значение ключа "bid_count" и поместить на стек
    int bid_count = lua_tointeger(L, -1);
    
    if (bid_count < 3) return;
    //на стеке -2 = t(table), -1 = bid_count(int)

    lua_getfield(L, -2, "bid"); //на стек положит таблицу со значениями стакана(bid)
    //на стеке -3 = t(table), -2 = bid_count(int), -1 = bid(table)
    lua_rawgeti(L, -1, 3); //из таблицы по индексу -1 взять значение ключа [3] и поместить на стек(еще 1 таблица=bid3)
    //на стеке -4 = t(table), -3 = bid_count(int), -2 = bid(table), -1 = bid3(table)

    //ну и из последней таблицы получаем необходимы значения
    lua_getfield(L, -1, "price");
    lua_getfield(L, -2, "quantity");
    const char * quantity = lua_tostring(L, -1);
    const char * price = lua_tostring(L, -2);
    //на стеке -6 = t(table), -5 = bid_count(int), -4 = bid(table), -3 = bid3(table), -2 = price(string), -1 = quantity(string)
    lua_pop(6); //чистим стек
}

void OnMain(lua::qlua q)
{
    lua::table t = q.getQuoteLevel2("SPBFUT", "RIM8");
    int bid_count = t["bid_count"];    
    if (bid_count < 3) return;
    lua::table bid = t["bid"];
    if (bid == nil) return;
    lua::table bid3 = bid[3];
    const char* price = bid3["price"];     
    const char* quantity = bid3["quantity"]; 
}
extern "C" __declspec(dllexport) int luaopen_testlib(lua_State *L)
{    
    lua::qlua q(L);
    q["main"] = OnMain; //все что нужно для регистрации колбека (шаблон сам раскрывает параметры со стека исходя из сигнатуры функции и передает их в функцию выше. 
}

qt=getQuoteLevel2(class, sec)

static int forLua_SumArray(lua_State* L) {
   // Get the length of the table (same as # operator in Lua)
   int n = lua_objlen(L, 1);
   double sum = 0.0;

   // For each index from 1 to n, get the table value as a number and add to sum
   for (int i = 1; i <= n; ++i) {
      lua_rawgeti(L, 1, i);
      sum += lua_tonumber(L, -1);
      lua_pop(L, 1);
   }

   lua_pushnumber(L, sum);
   return 1;
}