Let_it_go (Все сообщения пользователя)

package.path=package.path..';C:\\Program Files (x86)\\Lua\\5.1\\rocks;'

** In Windows, any exclamation mark ('!') in the path is replaced by the
** path of the directory of the executable file of the current process.
*/
#define LUA_LDIR   "!\\lua\\"
#define LUA_CDIR   "!\\"
#define LUA_PATH_DEFAULT  \
      ".\\?.lua;"  LUA_LDIR"?.lua;"  LUA_LDIR"?\\init.lua;" \
                   LUA_CDIR"?.lua;"  LUA_CDIR"?\\init.lua"
#define LUA_CPATH_DEFAULT \
   ".\\?.dll;"  ".\\?51.dll;"  LUA_CDIR"?.dll;" LUA_CDIR"?51.dll;" LUA_CDIR"clibs\\?.dll;" LUA_CDIR"clibs\\?51.dll;" LUA_CDIR"loadall.dll;" LUA_CDIR"clibs\\loadall.dll"

#else
#define LUA_ROOT   "/usr/local/"
#define LUA_LDIR   LUA_ROOT "share/lua/5.1/"
#define LUA_CDIR   LUA_ROOT "lib/lua/5.1/"
#define LUA_PATH_DEFAULT  \
      "./?.lua;"  LUA_LDIR"?.lua;"  LUA_LDIR"?/init.lua;" \
                  LUA_CDIR"?.lua;"  LUA_CDIR"?/init.lua"
#define LUA_CPATH_DEFAULT \
   "./?.so;"  "./lib?51.so;"  LUA_CDIR"?.so;" LUA_CDIR"lib?51.so;" LUA_CDIR"loadall.so"
#endif

function main()
   while is_run do
   pcall(foo("privet"))
   mm(t)--печать в виде message таблицы из файла.
   sleep(1000)
   end
end

function foo(slovo)
   a=slovo
   dofile ("C:\\1.lua")--здесь сидит таблица t
end

function main()
   while is_run do
   pcall(foo)
   mm(t)--печать в виде message таблицы из файла.
   sleep(1000)
   end
end

function foo()
   dofile ("C:\\1.lua")--здесь сидит таблица t
end

t={
a=100
b=200
}

#include <iostream>#include <map>
#include <string>

int main ()
{
  std::map<std::string, int> period_muvinga;

  period_muvinga["GAZP"] = 23;
  period_muvinga["SBER"] = 19;
  period_muvinga["GMKN"] = 20;

  //  Iterate over all the key,value pairs in map
  //
  for (const auto & p: period_muvinga)
    {
      // Extract key from pair
      std::string ticker = p.first;

      // Extract value from pair
      int period = p.second;

      std::cout << ticker << " = " << period << std::endl;
    }
  return 0;
}

ticker_list="GAZP,SBER,GMKN"
period_muvinga={}
period_muvinga.GAZP=23
period_muvinga.SBER=19
period_muvinga.GMKN=20
for sec in string.gmatch(ticker_list,"%a+") do
   local period=period_muvinga[sec]
end

// стандартная точка входа для DLL
BOOL APIENTRY DllMain(HANDLE hModule,
   DWORD  ul_reason_for_call,
   LPVOID lpReserved
)
{
        //ОБЪЯВЛЕНИЕ ГЛОБАЛЬНЫХ ПЕРЕМЕННЫХ
   return TRUE;
}

lua_remove(L, -1);
lua_remove(L, -1);

for (int i = 1; i<=4; i++){            
printf("%i", i);
printf("\n");   
//lua_rawgeti(L, -2, i); закомментировано   
//lua_getfield(L, -1, "quantity"); закомментировано
//auto q = lua_tonumber(L, -1); закомментировано
}

А этот цикл обрывается на второй итерации:
for (int i = 1; i<=4; i++){            
printf("%i", i);
printf("\n");   
lua_rawgeti(L, -2, i); 
lua_getfield(L, -1, "quantity"); 
auto q = lua_tonumber(L, -1); 
}

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

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

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

function sum_new(t)--функция Алексея Ч.
    local sum = 0
    for x=1, #t do
        sum = sum + t[x]
    end
    return sum
end
iterations=1000000
function main ()
   t={}
   for i=1,20 do
      table.insert(t,i)
   end
   start=os.clock()
   for i=1,iterations do
      s=runfast.SumArray(t)--функция из dll
   end
   finish_dll=os.clock()-start
   mm("dll:"..finish_dll)
   start=os.clock()
   for i=1,iterations do
      s=sum(t)--старая функция на Луа с for... pairs
   end
   finish_lua=os.clock()-start
   mm("Lua:"..finish_lua)   
   
   start=os.clock()
   for i=1,iterations do
      s=sum_new(t)--новая функция без pairs
   end
   finish_lua_new=os.clock()-start   
   mm("Lua new:"..finish_lua_new)
   mm("Lua old slower:"..math_round((finish_lua/finish_dll),1))
   mm("Lua new slower:"..math_round((finish_lua_new/finish_dll),1))   
end

function sum(t)
    local sum = 0
    for k,v in pairs(t) do
        sum = sum + v
    end
    return sum
end

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

iterations=1000000
function main ()
   t={}
   for i=1,20 do--вставляем в таблицу 20 элементов
      table.insert(t,i)
   end
--гоняем цикл миллион раз
   start=os.clock()
   for i=1,iterations do
      s=runfast.SumArray(t)
   end
   finish_dll=os.clock()-start
   mm("dll:"..finish_dll)
--гоняем цикл миллион раз
   start=os.clock()
   for i=1,iterations do
      s=sum(t)
   end
   finish_lua=os.clock()-start
   mm("Lua:"..finish_lua)
   mm("Lua slower:"..math_round((finish_lua/finish_dll),1))
end

        t={}
   for i=1,40 do
      table.insert(t,i)
   end

static int forLua_SumArray (lua_State* L) {    // Get the length of the table (same as # operator in Lua)
    int n = luaL_len(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; 
}

function time_to_number(t)    return (math.floor(t / 10000) * 60 * 60) + ((math.floor(t / 100) % 100) * 60) + (t % 100)
    -- you can also use % 10000 if the hours are limited to two digits
end

function time_split(t)    
    local hour = math.floor(t / 3600)
    local min = math.floor((t % 3600) / 60)
    local sec = (t % 3600) % 60
    return hour, min, sec  
end

static int onQuote(lua_State *L) {

static int forLua_onQuote(lua_State *L) {

   for i=1,10000000 do     
          r = i+i
   end

   for i=1,iterations do
      r = runfast.AddTwoNumbers(i, i)   
  end

static int forLua_AddCircle(lua_State *L) {
   double d1 = luaL_checknumber(L, 1); //с чего начинать цикл
   double d2 = luaL_checknumber(L, 2); //количество итераций
   double r;
   double i;
   for (i = d1; i <= d2; i++)
   {
      r = i + i;
   }
   return(1);
}

package.cpath = "C:\\runfast.dll"
require("runfast")
iterations=100000000
function main()
   start=os.clock()
   for i=1,iterations do
      r = runfast.AddTwoNumbers(i, i)
   end
   finish=os.clock()-start
   message ("C dll:"..tostring(finish), 1)
   start=os.clock()
   for i=1,iterations do
      r = i+i
   end
   finish=os.clock()-start
   message ("Lua:"..tostring(finish), 1)

   start=os.clock()
   r = runfast.AddCircle(1,iterations)
   finish=os.clock()-start
   message ("C dll circle:"..tostring(finish), 1)   
end