| 95 | #undef setprogdir |
| 96 | |
| 97 | static void setprogdir (lua_State *L) { |
| 98 | char buff[MAX_PATH + 1]; |
| 99 | char *lb; |
| 100 | DWORD nsize = sizeof(buff)/sizeof(char); |
| 101 | DWORD n = GetModuleFileNameA(NULL, buff, nsize); |
| 102 | if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) |
| 103 | luaL_error(L, "unable to get ModuleFileName"); |
| 104 | else { |
| 105 | *lb = '\0'; |
| 106 | luaL_gsub(L, lua_tostring(L, -1), LUA_EXECDIR, buff); |
| 107 | lua_remove(L, -2); /* remove original string */ |
| 108 | } |
| 109 | } |
| 110 | |
| 111 | |
| 112 | static void pusherror (lua_State *L) { |
no test coverage detected