71 lines
2.2 KiB
C
71 lines
2.2 KiB
C
#include <lua5.3/lua.h>
|
|
#include <lua5.3/lualib.h>
|
|
#include <lua5.3/lauxlib.h>
|
|
|
|
lua_State * engine_lua_state;
|
|
|
|
// TIME
|
|
int engine_luaf_time_get(lua_State *L) {
|
|
lua_pushinteger(L,engine_time_get());
|
|
return 1;
|
|
}
|
|
int engine_luaf_time_sleep(lua_State *L) {
|
|
int time = luaL_checkinteger(L,1);
|
|
engine_time_sleep(time);
|
|
return 0;
|
|
}
|
|
|
|
|
|
// TEXTURES
|
|
int engine_luaf_texture_create(lua_State *L) {
|
|
int width = luaL_checkinteger(L,1);
|
|
int height = luaL_checkinteger(L,2);
|
|
struct ENGINE_TEXTURE * texture = engine_texture_create(width,height);
|
|
lua_pushlightuserdata(L,texture);
|
|
return 1;
|
|
}
|
|
int engine_luaf_texture_destroy(lua_State *L) {
|
|
struct ENGINE_TEXTURE * texture = (struct ENGINE_TEXTURE *)lua_touserdata(L,1);
|
|
engine_texture_destroy(texture);
|
|
return 0;
|
|
}
|
|
int engine_luaf_texture_render_2d(lua_State *L) {
|
|
struct ENGINE_TEXTURE * texture = (struct ENGINE_TEXTURE *)lua_touserdata(L,1);
|
|
int x = luaL_checkinteger(L,2);
|
|
int y = luaL_checkinteger(L,3);
|
|
engine_texture_render_2d(texture,x,y);
|
|
return 0;
|
|
}
|
|
int engine_luaf_texture_from_file(lua_State *L) {
|
|
struct ENGINE_TEXTURE * texture = (struct ENGINE_TEXTURE *)lua_touserdata(L,1);
|
|
char * fpath = (char *)luaL_checkstring(L,2);
|
|
engine_texture_from_file(texture,fpath);
|
|
return 0;
|
|
}
|
|
|
|
void engine_luaInit() {
|
|
engine_lua_state = luaL_newstate();
|
|
luaL_openlibs(engine_lua_state);
|
|
|
|
// // FUNCTIONS
|
|
// TIME
|
|
lua_pushcfunction(engine_lua_state,engine_luaf_time_get);
|
|
lua_setglobal (engine_lua_state,"engine_time_get");
|
|
lua_pushcfunction(engine_lua_state,engine_luaf_time_sleep);
|
|
lua_setglobal (engine_lua_state,"engine_time_sleep");
|
|
|
|
// TEXTURES
|
|
lua_pushcfunction(engine_lua_state,engine_luaf_texture_create);
|
|
lua_setglobal (engine_lua_state,"engine_texture_create");
|
|
lua_pushcfunction(engine_lua_state,engine_luaf_texture_destroy);
|
|
lua_setglobal (engine_lua_state,"engine_texture_destroy");
|
|
lua_pushcfunction(engine_lua_state,engine_luaf_texture_render_2d);
|
|
lua_setglobal (engine_lua_state,"engine_texture_render_2d");
|
|
lua_pushcfunction(engine_lua_state,engine_luaf_texture_from_file);
|
|
lua_setglobal (engine_lua_state,"engine_texture_from_file");
|
|
|
|
// // USER SCRIPT
|
|
luaL_loadfile(engine_lua_state,"assets/scripts/main.lua");
|
|
lua_call(engine_lua_state,0,0);
|
|
}
|