Перенос функции с++ на lua

#include<iostream>  
 
using namespace std;
void pri() {
    cout <<"hi " << endl;
}
int main(int args, char* argv[]) {
 
    pri();
    return 0;
    system("pause");
}

int main(int argc, char *argv[]) {
lua_State *lua = luaL_newstate();/*Функция создает новое Lua состояние. Она вызывает lua_newstate с функцией-*/
lua_pushnumber(lua, 10);// отправить в стек число.
lua_pushnumber(lua, 20);// отправить в стек число.
lua_pushnumber(lua, 30);// отправить в стек число.
int number = lua_tonumber(lua, 1);// получить 10 из стека 1 
cout << number << endl;
int number1 = lua_tonumber(lua, 2);// получить 20 из стека 2
cout << number1 << endl; 
int number2 = lua_tonumber(lua, 3);// получить 30 из стека 3
cout << number2 << endl;
 
return 0;
}
 
 
#include<iostream>
#include<string>
#include <stdio.h>
#include <string>
#include"lua/lua.hpp"
using namespace std;
 
int main(int argc, char *argv[]) {
lua_State *lua = luaL_newstate();/*Функция создает новое Lua состояние. Она вызывает lua_newstate с функцией 
 выделения памяти на основе стандартной функции C realloc и затем устанавливает "тревожную" (panic) функцию, 
 которая печатает сообщение об ошибке к стандартному выводу ошибки в случае фатальных (неустранимых) ошибок.
 Возвращает новое состояние или значение NULL, если есть ошибка выделения памяти.*/
    luaL_dostring(lua, "x = 2");/*отправляет строку- переменную = 2 в стек. Функция определяется как следующий макрос */
    lua_getglobal(lua, "x");// получить значение x
    if (lua_isnumber(lua, 1)) {//  если 1 позиция в стеке число.
        int number = lua_tonumber(lua, 1);
        cout <<"x = "<< number;
    }
    return 0;
}
 
#include<iostream>
#include"lua/lua.hpp"
using namespace std;
int main() {
    lua_State *S = luaL_newstate();
    luaL_openlibs(S);
    luaL_loadfile(S, "man.lua");
    lua_call(S, 0, 0);
    cin.get();
    return 0;
}
lua
--print(2362)
Добавление новой функцией в lua.
 
int lua_sq(lua_State *L) {// передаем указатель на состояние.
    int x = lua_tonumber(L, 1); // получаем 1 элемент из стека.
    lua_pushnumber(L, x*x);// умножаем x и отправляет в стек.
    return 1;// вернуть 1.
}
int main() {
    lua_State *L = luaL_newstate();
    luaL_openlibs(L);//открыть все стандартные библиотеки lua.
    lua_register(L, "sq", lua_sq);// регистрируем функцию- имя состояние, имя функ в lua, имя функ тут.
    luaL_dofile(L, "main.lua");// Загружает и запускает заданный файл. файл в которым все происходит.
    lua_pcall(L, 0, 0, 0);// вызов функции, передаем 2 параметра, возвращаем 1.
    lua_close(L);// закрыть состояние
    cin.get();//ожидает ввода символа программа завершается.
return 0;}
 
на Lua.
 
print(sq(2))
 
struct st
{
    int x;
 
};
 
int getst(lua_State *L) {// передаем указатель на состояние
    st* sp = (st*)lua_newuserdata(L, sizeof(sp));// выделяет памяти с заданным размером, 
    //помещает в стек пользовательские данные и возвращает этот адрес.
    int x1;
    if (lua_isnumber(L, 1)) {//  если 1 позиция в стеке число.
         x1 = lua_tonumber(L, 1);} // получаем 1 элемент из стека.
    else x1 = 0;// что мы передам в getst(2), то будет в структуре
    sp->x = x1;
    return 1;// вернуть 1.
}
int main() {
    lua_State *L = luaL_newstate();
    luaL_openlibs(L);//открыть все стандартные библиотеки lua.
    lua_pushcfunction(L, getst);//уст указатель на функцию C++ и создает внутри Lua
    lua_setglobal(L, "getst"); //получает значение из стека и уст значение global name.
    luaL_dofile(L, "main.lua");// Загружает и запускает заданный файл. файл в которым все происходит.
    //lua_pcall(L, 0, 0, 0);// вызов функции в lua файле.
    lua_getglobal(L, "sp");// получить значение глобальной переменной.
    st* sp = (st*)lua_touserdata(L, -1);// получить значение поля структруры из стека. 
    cout << sp->x  << endl;//   
    lua_close(L);// закрыть состояние
    cin.get();//ожидает ввода символа программа завершается.
return 0;}
 
lua
sp=getst()
print(sp)—адрес памяти выводится
 
 
 
#include<iostream>
#include<string>
#include <stdio.h>
#include"lua/lua.hpp"
using namespace std;
 
int main() {
    lua_State *L = luaL_newstate();
    luaL_openlibs(L);//открыть все стандартные библиотеки lua.
luaL_dofile(L, "main.lua");// Загружает и запускает заданный файл. файл в которым все происходит.
    //lua_pcall(L, 0, 0, 0);// вызов функции в lua файле.
    lua_getglobal(L, "t");// получить значение глобальной переменной, таблица.
    lua_assert(lua_istable(L, 1));// проверить является 1 элемент стека таблицей
    lua_pushstring(L, "x");// отправить ключ x в стек.
    lua_gettable(L, 1);// получить значение по ключу из стека.
    lua_assert(lua_isnumber(L, 2));// проверить является значение 2 элемента стека число.  
    int x = lua_tonumber(L, 2);
    lua_getglobal(L, "t");// получить значение глобальной переменной таблица.
    lua_pushstring(L, "y"); 
    lua_gettable(L, 1);
    lua_assert(lua_isstring(L, 4));
    string y = lua_tostring(L, 4);
    lua_getglobal(L, "t");// получить значение глобальной переменной, таблицей.
    lua_getfield(L, 5, "z");// отправить ключ в таблицу.
    lua_assert(lua_isboolean(L, 5));
    bool z = lua_toboolean(L, 5);// получить булевое значение по ключу.
    lua_getglobal(L, "t");// получить значение глобальной переменной, таблицей.
    lua_pushstring(L, "dog");// отправить значение в таблицу.
    lua_setfield(L, 5, "a");// уст ключ для него.
    lua_getglobal(L, "t");// получить значение глобальной переменной, таблицей.
    lua_getfield(L, 5, "a");// отправить ключ в таблицу.
    lua_assert(lua_isstring(L, 5));
    string a = lua_tostring(L, -1);
    cout <<"x = "<<x <<"\ny = "<<y<<"\nz = "<< z << "\na = " << a <<endl;
    lua_close(L);// закрыть состояние
    cin.get();//ожидает ввода символа программа завершается.
return 0;}
lua
 
t= {x=23,y="yes",z=true}
 
#include<iostream>
#include<string>
#include"lua/lua.hpp"
using namespace std;
int main() {
    lua_State *l = luaL_newstate();
    luaL_openlibs(l);
    luaL_dofile(l, "man.lua");
    lua_getglobal(l, "x");
    lua_getglobal(l, "y");
    lua_getglobal(l, "z");
    int x = lua_tonumber(l, 1);
    cout << x << endl;
    string y = lua_tostring(l, 2);
    cout << y << endl;
    bool z = lua_toboolean(l, 3);
    cout << z << endl;
    lua_close(l);
    return 0;
 
lua
x=3
y="jh"
z =false
 
struct strlua
{   int x;
strlua(int x){
    this->x = x;
}
void st(int x){
    this->x = x;
}
 
};
int LUA_new(lua_State *S) {
    strlua *p = new strlua(lua_tonumber(S, 1));
    lua_pushlightuserdata(S,p);
    return 0; 
}
int LUA_set(lua_State *S){
  strlua *p = (strlua*)lua_touserdata(S,1);
  p->st(lua_tonumber(S, 1 ));
    return 0;
}
int main() {
    lua_State *S = luaL_newstate();
    luaL_openlibs(S);
    lua_register(S, "new", LUA_new);
    lua_register(S,"set", LUA_set);
    luaL_loadfile(S, "man.lua");
    lua_call(S, 0, 0);
    cin.get();
    return 0;
 
a=new(2)
b=set(3) 
print(a)
print(b)
struct color{ char r,g,b;
};
void LUA_set(lua_State *S, string str, color *& pal) {
    lua_getglobal(S, str.c_str());
    lua_pushstring(S, "co");
    lua_gettable(S, -2);
    lua_call(S, 0, 4);
    pal[0] = *(color*)lua_touserdata(S, -4);
    pal[1] = *(color*)lua_touserdata(S, -3);
    pal[2] = *(color*)lua_touserdata(S, -2);
    pal[3] = *(color*)lua_touserdata(S, -1);
    lua_pop(S, 5);
}
int LUA_make(lua_State *S) {
    color *p = (color*)lua_newuserdata(S, sizeof(color));
    new (p) color;
    p->r = lua_tointeger(S, 1);
    p->g = lua_tointeger(S, 2);
    p->b = lua_tointeger(S, 3);
    return 1;
}
int main() {
    lua_State *S = luaL_newstate();
    luaL_openlibs(S);
    lua_register(S,"make", LUA_set);
    lua_register(S, "make", LUA_make);
    luaL_loadfile(S, "man.lua");
    lua_call(S, 0, 0);
    cin.get();
    return 0;
}
 
int main() {
    lua_State *l = luaL_newstate();
    luaL_openlibs(l);
    luaL_dofile(l, "man.lua");
    lua_close(l);
    return 0;
}
 
int main() {
    lua_State *l = luaL_newstate();
    luaL_openlibs(l);
    luaL_dofile(l, "man.lua");
    lua_getglobal(l, "pri");
    lua_pushfstring(l, "lua");
    lua_pushnumber(l, 5);
    lua_pcall(l, 2, 0, 0);
    lua_close(l);
    return 0;
}
 
Lua
 
function pri(ms,x)
for i=1,x do
print(ms) end
end
 
это вызывается в lua.
#include<iostream>
#include<string>
#include <stdio.h>
#include <string>
#include"lua/lua.hpp"
using namespace std;
 
int main() {
    lua_State *L = luaL_newstate();
    luaL_openlibs(L);//открыть все стандартные библиотеки lua.
    luaL_dofile(L, "main.lua");// Загружает и запускает заданный файл. файл в которым все происходит.
    lua_getglobal(L, "pri");// имя функции, которую вызываем в main.lua.
    lua_pushnumber(L, 3);// отправляем в стек число.
    lua_pushnumber(L, 5);
    lua_pcall(L, 2, 1, 0);// вызов функции, передаем 2 параметра, возвращаем 1.
    cout << lua_tonumber(L, 1) << endl;// получаем из стека возвращаемое значение из функции.
    lua_close(L);// закрыть состояние
 
return 0;
}
 
lua
 
function pri(x,y)
sum = x+y
return sum
end