Lua передача таблицы в программу на C++

@Karim2 · Регистрация: 01.10.2015

Студворк — интернет-сервис помощи студентам

Пытаюсь передать таблицу из скрипта на Lua в программу на С++. Если таблица - одномерный массив, то все нормально.
Код на Lua:

Lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function main()
  IsRun = true
  while IsRun do    
 
    Table = {}
    for i=1, 2, 1 do
        --Table[i] = {["one"]=i*10+1,["two"]=i*10+2,["three"]=i*10+3, ["four"]=i*10+4}
    end 
    Table={11,22,33,111,222,333}
    r=wind.Test(Table)      --функция С++
    
    sleep(3000)
    
   if r then
        IsRun = false
    end
  end
end

Код на С++

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
wchar_t  str[100];
 
    if(lua_istable(L,1))            // если в стеке указатель на массив
    {       
        lua_pushnil(L); //Добавляем в стек первый ключ равный нулю, ссылка на таблицу на втором месте по индексу -2
        //lua_next(L, 1);   //ссылка на таблицу в стеке на месте -3
                        //ключ в стеке на месте -2
                        //ссылка на строку в таблице t на месте -1. Или что ????
        //lua_pushnil(L);   //Добавляем в стек ключ равный нулю для второй ссылки
 
 
 
        swprintf(BUF,sizeof(BUF),L"");  // очищаем BUF
        while (lua_next(L, 1) != 0) //берет ключ из стека и помещает туда пару "значение-ключ" из таблицы (следующую после данного ключа). 
               {                    //Если не имеется больше элементов, то функция возвращает 0 (и не помещает в стек ничего)
                                    // в паре "ключ" находится по индексу -2, "значение" находится по индексу -1
                
        //          MessageBox(0,L" zzzz",L"Сообщение",MB_OK);
                    
                      // формирование строки
                      swprintf(str,sizeof(str),L"-1=%d  -2=%d  -3%s\n",lua_tointeger(L, -1), lua_tointeger(L, -2),lua_tointeger(L, -3));//,lua_tointeger(L, -4),lua_tointeger(L, -5));
            
                      // добавить строку в BUF
                      wcscat(BUF,str);  
                     
                                  
                  lua_pop(L, 1);        // освобождает стек для следующей итерации
                                        //снимает со стека 1 элемент, это "значение", ключ становится на первой позиции по индексу -1                                     
               }                        // конец while (lua_next(L, 1) != 0)   
    }

Выводит:
-1=11 -2=1 -3[null]
-1=22 -2=2 -3[nul]
-1=33 -2=3 -3[nul]
-1=111 -2=4 -3[nul]
-1=222 -2=5 -3=[nul]
-1=333 -2=6 -3=[nul]

Все как надо, вопросов нет. Теперь пытаюсь передать такую таблицу:

Lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function main()
  IsRun = true
  while IsRun do    
 
    Table = {}
    for i=1, 2, 1 do
        Table[i] = {["one"]=i*10+1,["two"]=i*10+2,["three"]=i*10+3, ["four"]=i*10+4}
    end 
    --Table={11,22,33,111,222,333}
    r=wind.Test(Table)      --функция С++
    
    sleep(3000)
    
   if r then
        IsRun = false
    end
  end
end

Код функции на С++

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
wchar_t  str[100];
 
    if(lua_istable(L,1))            // если в стеке указатель на массив
    {       
        lua_pushnil(L); //Добавляем в стек первый ключ равный нулю, ссылка на таблицу на втором месте по индексу -2
        lua_next(L, 1); //ссылка на таблицу в стеке на месте -3
                        //ключ в стеке на месте -2
                        //ссылка на строку в таблице t на месте -1. Или что ????
        lua_pushnil(L); //Добавляем в стек ключ равный нулю для второй ссылки
 
 
 
        swprintf(BUF,sizeof(BUF),L"");  // очищаем BUF
        while (lua_next(L, 1) != 0) //берет ключ из стека и помещает туда пару "значение-ключ" из таблицы (следующую после данного ключа). 
               {                    //Если не имеется больше элементов, то функция возвращает 0 (и не помещает в стек ничего)
                                    // в паре "ключ" находится по индексу -2, "значение" находится по индексу -1   
                    
                      // формирование строки
                      swprintf(str,sizeof(str),L"-1=%d  -2=%d  -3=%d  -4=%d  -5=%d\n",lua_tointeger(L, -1), lua_tointeger(L, -2),lua_tointeger(L, -3),lua_tointeger(L, -4),lua_tointeger(L, -5));
            
                      // добавить строку в BUF
                      wcscat(BUF,str);                       
                                  
                  lua_pop(L, 1);        // освобождает стек для следующей итерации
                                        //снимает со стека 1 элемент, это "значение", ключ становится на первой позиции по индексу -1                                     
               }                        // конец while (lua_next(L, 1) != 0)   
    }

Выводит:

-1=0 -2=1 -3=0 -4=1 -5=0
-1=0 -2=2 -3=0 -4=1 -5=0

Помогите разобраться, как достать данные из таблицы, или в какую сторону копать.

@Avazart · 04.10.2015, 11:12

Code
1
Table[i] = {["one"]=i*10+1,["two"]=i*10+2,["three"]=i*10+3, ["four"]=i*10+4}

А что это? Это ведь по прежнему обычная таблица со строковыми ключами.

Добавлено через 8 минут

Code
1
lua_pushnil(L);

Вообще непонятно зачем используется.

Используй:

Code
1
lua_getfield(L,-1,key);

Где key строковый ключ.

Смотри: Роберту Иерузалимски "Программирование на языке LUA" [3-е издание] (2014) стр 301(304)

@ProgJ · 04.10.2015, 15:25

Karim2,
Ошибка во втором вызове lua_next, вы опять обращаетесь к первой таблице

@Karim2 · 04.10.2015, 17:24 **[ТС]**

при втором вызове lua_next(L, 1) состояние стека:
-1 nil
-2 ссылка на строку в таблице T[1] (должна быть по идее)
-3 ключ к первой таблице
-4 ссылка на таблицу T

Добавлено через 14 минут
Разобрался, всем огромное спасибо!!!
Вот рабочий код:

C++
1
2
3
4
5
6
7
8
9
                                            // стек: -1 ссылка на Т
                lua_pushinteger(L,1);       // стек: -1 ключ=1; -2 ссылка на Т
                lua_gettable(L,-2);         // стек: -1 T[1]; -2 ключ=1; -3 ссылка на Т
                lua_getfield(L,-1,"three"); // стек: -1 значение -2 T[1]; -3 ключ=1; -4 ссылка на Т
                
                // формирование строки
                swprintf(str,sizeof(str),L"-1=%d  \n",lua_tointeger(L, -1));            
                // добавить строку в BUF
                wcscat(BUF,str);

@Avazart · 04.10.2015, 21:03

Сообщение от Karim2

wcscat(BUF,str);

используй std::string.

Сообщение от Karim2

wchar_t str[100];

Кстати странно как это вы пытаетесь работать с двухбайтовыми символами?
Lua C Api вроде как предоставляет возможность работать только с однобайтовыми строками или я ошибаюсь?

@Karim2 · 05.10.2015, 09:17 **[ТС]**

Lua да, но мне для вывода в окна в С++ нужны wchar_t

@ProgJ · 05.10.2015, 09:18

Karim2, вы пишите

при втором вызове lua_next(L, 1) состояние стека:
-1 nil
-2 ссылка на строку в таблице T[1] (должна быть по идее)

т.е. при втором вызове lua_next, нужно передавать аргументы (L, -2) (или (L, 3))

@Karim2 · 05.10.2015, 09:41 **[ТС]**

Да, согласен, ошибочка вышла. Нужно будет попробовать.

@Avazart · 05.10.2015, 09:50

Сообщение от Karim2

Lua да, но мне для вывода в окна в С++ нужны wchar_t

Ну так тупо копировать не выйдет, нужно преобразовывать.

@Karim2 · 05.10.2015, 10:06 **[ТС]**

Пока выходит. Делаю потом так:

C++
1
DrawText(hDC, BUF, -1, &rect, DT_LEFT|DT_TOP|DT_WORDBREAK);

BUF объявлен так

C++
1
wchar_t BUF[1000]

В таблице только цифры, поэтому, наверное, и получается. С текстом сложнее.
Скорее всего придется использовать так:

C++
1
MultiByteToWideChar(CP_ACP, 0, Params, -1, BUF, sizeof(BUF));   // преобразуем ANSI в UNICODE и заносим в BUF

Добавлено через 6 минут

C++
1
const char *Params = lua_tostring(L, 1);    // берем строку из стека

@Avazart · 05.10.2015, 10:56

Сообщение от Karim2

Скорее всего придется использовать так:

Да нужно использовать MultiByteToWideChar или к примеру iconv библиотеку или еще что, но не тупое копирование.

@Karim2 · 05.10.2015, 12:21 **[ТС]**

Попробовал с lua_next(L,-2)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
if(lua_istable(L,-1))               // если в стеке указатель на таблицу Т
    {       
        swprintf(BUF,sizeof(BUF),L"");  // очищаем BUF   
        lua_pushnil(L);                 //стек: -1=ключ равный нулю, -2=ссылка на таблицу Т 
        for(int i=1; i<3;i++)
    //  while(lua_next(L, -2) !=0); //стек: -1=ссылка на таблицу Т[1], -2=ключ=2, -3=ссылка на таблицу Т 
        {                       
            lua_next(L, -2);
            lua_pushnil(L);             //стек: -1=ключ равный нулю, -2=ссылка на таблицу Т[1], -3=ключ=2, -4=ссылка на таблицу Т             
            
            while (lua_next(L, -2) != 0) //стек: -1=значение, -2=ключ равный нулю, -3=ссылка на таблицу Т[1], -4=ключ=1, -5=ссылка на таблицу Т 
               {                        //Если не имеется больше элементов, то функция возвращает 0 (и не помещает в стек ничего)
                    
                    // формирование строки
                    swprintf(str,sizeof(str),L"-1=%d  ",lua_tointeger(L, -1));          
                    // добавить строку в BUF
                    wcscat(BUF,str);
                    lua_pop(L, 1);      // освобождает стек для следующей итерации
                                        //снимает со стека 1 элемент, это "значение", ключ становится на первой позиции по индексу -1                                     
                }                   
            swprintf(str,sizeof(str),L"\n");
            wcscat(BUF,str);    
            lua_pop(L, 2);
            lua_pushinteger(L,i);   
        }
    }

Выводит в странном порядке:
11 14 13 12
21 24 23 22

и с while(lua_next(L, -2) !=0); не работает, только с for.
Поэтому нужно знать размер таблицы Table.

@Avazart · 05.10.2015, 12:43

Сообщение от Karim2

Поэтому нужно знать размер таблицы Table.

C++
1
int n= luaL_len(L,1)

@Karim2 · 05.10.2015, 13:05 **[ТС]**

Такой функции у меня нет (Lua 5.1)
Есть и работает

C++
1
lua_objlen(L,-1)

Спасибо за подсказку.

@ProgJ · 06.10.2015, 09:40

Сообщение от Karim2

Выводит в странном порядке:
11 14 13 12
21 24 23 22

это у вас ключи такие, почему "one" должно быть меньше "four"? И вообще next имеет право выводить в произвольном порядке

Сообщение от Karim2

и с while(lua_next(L, -2) !=0); не работает, только с for.

Если написать аккуратно, заработает. Приведите код

И не проще ли написать C-функцию и вызывать её из Lua? Вместо того, что лазить в C по Lua-таблицам?

@Karim2 · 06.10.2015, 10:07 **[ТС]**

С ключами я "ступил", спасибо за подсказку.

Код тот же самый. Вместо for ставлю while, который закомментирован, а в конце i++.

Мне из торгового терминала, где запущена Lua-машина нужно передать таблицы в программу торгового робота,
который написан на С++.

@Avazart · 06.10.2015, 11:17

Сообщение от ProgJ

это у вас ключи такие, почему "one" должно быть меньше "four"? И вообще next имеет право выводить в произвольном порядке

В обще-то порядок не произвольный, т.е. там скорее всего "внутри" хеш-таблица или дерево и соответственно и порядок такой.

@ProgJ · 07.10.2015, 08:38

Сообщение от Karim2

Код тот же самый. Вместо for ставлю while, который закомментирован, а в конце i++.

а должно быть так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
if(lua_istable(L,-1))               // если в стеке указатель на таблицу Т
    {       
        swprintf(BUF,sizeof(BUF),L"");  // очищаем BUF  
        lua_pushnil(L);                 //стек: -1=ключ равный нулю, -2=ссылка на таблицу Т 
        while(lua_next(L, -2) !=0); //стек: -1=ссылка на таблицу Т[1], -2=ключ=2, -3=ссылка на таблицу Т 
        {                       
            lua_pushnil(L);             //стек: -1=ключ равный нулю, -2=ссылка на таблицу Т[1], -3=ключ=2, -4=ссылка на таблицу Т           
            while (lua_next(L, -2) != 0) //стек: -1=значение, -2=ключ равный нулю, -3=ссылка на таблицу Т[1], -4=ключ=1, -5=ссылка на таблицу Т 
               {                        //Если не имеется больше элементов, то функция возвращает 0 (и не помещает в стек ничего)
                    
                    // формирование строки
                    swprintf(str,sizeof(str),L"-1=%d  ",lua_tointeger(L, -1));          
                    // добавить строку в BUF
                    wcscat(BUF,str);
                    lua_pop(L, 1);      // освобождает стек для следующей итерации
                                        //снимает со стека 1 элемент, это "значение", ключ становится на первой позиции по индексу -1                                       
                }                   
            swprintf(str,sizeof(str),L"\n");
            wcscat(BUF,str);    
            lua_pop(L, 1);
        }
    }

@Karim2 · 07.10.2015, 09:57 **[ТС]**

При таком варианте на втором заходе в стеке на -1 Т[1] а должен быть следующий ключ.
Код слетает, т.к. на третьем заходе lua_next не дает 0, хотя все строки в таблице кончились.

@ProgJ · 08.10.2015, 09:47

не может там быть T[1], т.к. как мы его удаляем в конце цикла строкой 20

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@ProgJ 90 / 87 / 11 Регистрация: 20.11.2008 Сообщений: 724
	04.10.2015, 15:25
	Karim2, Ошибка во втором вызове lua_next, вы опять обращаетесь к первой таблице 0

@Karim2 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 13
	05.10.2015, 09:17 [ТС]
	Lua да, но мне для вывода в окна в С++ нужны wchar_t 0

@Karim2 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 13
	05.10.2015, 09:41 [ТС]
	Да, согласен, ошибочка вышла. Нужно будет попробовать. 0

@Karim2 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 13
	06.10.2015, 10:07 [ТС]
	С ключами я "ступил", спасибо за подсказку. Код тот же самый. Вместо for ставлю while, который закомментирован, а в конце i++. Мне из торгового терминала, где запущена Lua-машина нужно передать таблицы в программу торгового робота, который написан на С++. 0

@Karim2 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 13
	07.10.2015, 09:57 [ТС]
	При таком варианте на втором заходе в стеке на -1 Т[1] а должен быть следующий ключ. Код слетает, т.к. на третьем заходе lua_next не дает 0, хотя все строки в таблице кончились. 0

@ProgJ 90 / 87 / 11 Регистрация: 20.11.2008 Сообщений: 724
	08.10.2015, 09:47
	не может там быть T[1], т.к. как мы его удаляем в конце цикла строкой 20 0