From 4dc40e77841d2101c4ebb05756186232d84a46e6 Mon Sep 17 00:00:00 2001 From: Adrien Destugues Date: Sat, 24 Sep 2011 13:38:54 +0000 Subject: [PATCH] Add lua getfilename function (that also returns the path). git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1826 416bcca6-2ee7-4201-b75f-2eb2f807beb1 --- src/factory.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/factory.c b/src/factory.c index 41cfe6fa..160f926d 100644 --- a/src/factory.c +++ b/src/factory.c @@ -1311,6 +1311,18 @@ int L_FinalizePicture(lua_State* L) return 0; } + +int L_GetFileName(lua_State* L) +{ + int nb_args=lua_gettop(L); + + LUA_ARG_LIMIT (0, "getfilename"); + + lua_pushstring(L, Main_backups->Pages->Filename); + lua_pushstring(L, Main_backups->Pages->File_directory); + return 2; +} + // Handlers for window internals T_Fileselector Scripts_selector; @@ -1575,6 +1587,7 @@ void Run_script(const char *script_subdirectory, const char *script_filename) lua_register(L,"waitinput",L_WaitInput); lua_register(L,"updatescreen",L_UpdateScreen); lua_register(L,"finalizepicture",L_FinalizePicture); + lua_register(L,"getfilename",L_GetFileName); // Load all standard libraries luaL_openlibs(L);