diff --git a/premake4.lua b/premake4.lua
index 16181fc9cac7c1d75d938213ea567ccb50752725..6e27489766dbca1ec832ba966542a657b345deb6 100644
--- a/premake4.lua
+++ b/premake4.lua
@@ -10,19 +10,20 @@ newoption {
}
newoption {
trigger = "force32bits",
- value = "VM_Type",
description = "Forces compilation in 32bits mode, allowing to use the lua jit",
}
newoption {
trigger = "relpath",
- value = "VM_Type",
description = "Links libraries relative to the application path for redistribution",
}
newoption {
trigger = "luaassert",
- value = "VM_Type",
description = "Enable lua asserts to debug lua C code",
}
+newoption {
+ trigger = "pedantic",
+ description = "Enables compiling with all pedantic options",
+}
_OPTIONS.lua = _OPTIONS.lua or "default"
@@ -75,6 +76,7 @@ configuration "Debug"
buildoptions { "-ggdb" }
targetdir "bin/Debug"
if _OPTIONS.luaassert then defines {"LUA_USE_APICHECK"} end
+ if _OPTIONS.pedantic then buildoptions { "-Wall" } end
configuration "Release"
defines { "NDEBUG=1" }
diff --git a/src/core_lua.c b/src/core_lua.c
index 3aebf0d78d2ab6825c3be8e2539ce5c11b2f825f..aced6a4c4a0c02f078758583b7d288848089e0e7 100644
--- a/src/core_lua.c
+++ b/src/core_lua.c
@@ -1406,7 +1406,7 @@ static int get_text_aa(lua_State *L)
return 1;
}
-static sdl_get_modes_list(lua_State *L)
+static int sdl_get_modes_list(lua_State *L)
{
SDL_PixelFormat format;
SDL_Rect **modes;
diff --git a/src/lua/loadlib.c b/src/lua/loadlib.c
index c60bf4216e3022cf05cff84621a4bbbc07e5a7c7..7e1f2a431786bfc356fdeb332d8996741affef21 100644
--- a/src/lua/loadlib.c
+++ b/src/lua/loadlib.c
@@ -394,6 +394,7 @@ static int loader_Physfs (lua_State *L) {
return 1; /* library loaded successfully */
}
+#if 0 // UNUSED
static int loader_Lua (lua_State *L) {
const char *filename;
const char *name = luaL_checkstring(L, 1);
@@ -403,7 +404,7 @@ static int loader_Lua (lua_State *L) {
loaderror(L, filename);
return 1; /* library loaded successfully */
}
-
+#endif
static const char *mkfuncname (lua_State *L, const char *modname) {
const char *funcname;
diff --git a/src/lua/ltablib.c b/src/lua/ltablib.c
index 61e88922dd04e83d4ee2fc78a97683d5ade2a346..64051fc5bb93c65230a351eb7805b93143fec59f 100644
--- a/src/lua/ltablib.c
+++ b/src/lua/ltablib.c
@@ -169,28 +169,6 @@ static int tconcat (lua_State *L) {
** Addison-Wesley, 1993.)
*/
-static void stackDump (lua_State *L) {
- int i=lua_gettop(L);
- printf(" ---------------- Stack Dump ----------------\n" );
- while( i ) {
- int t = lua_type(L, i);
- switch (t) {
- case LUA_TSTRING:
- printf("%d:`%s'\n", i, lua_tostring(L, i));
- break;
- case LUA_TBOOLEAN:
- printf("%d: %s\n",i,lua_toboolean(L, i) ? "true" : "false");
- break;
- case LUA_TNUMBER:
- printf("%d: %g\n", i, lua_tonumber(L, i));
- break;
- default: printf("%d: %s\n", i, lua_typename(L, t)); break;
- }
- i--;
- }
- printf("--------------- Stack Dump Finished ---------------\n" );
-}
-
static void set2 (lua_State *L, int i, int j) {
lua_rawseti(L, 1, i);
lua_rawseti(L, 1, j);
diff --git a/src/lua_externs.h b/src/lua_externs.h
index aa96960b0577eee327046a9c626bbd8cc3d811df..b0504d87bce5fb4455311c626c8f126f43a53400 100644
--- a/src/lua_externs.h
+++ b/src/lua_externs.h
@@ -4,6 +4,8 @@ int luaopen_mime_core(lua_State *L);
int luaopen_profiler(lua_State *L);
int luaopen_lpeg(lua_State *L);
int luaopen_map(lua_State *L);
+int luaopen_fov(lua_State *L);
+int luaopen_gas(lua_State *L);
int luaopen_particles(lua_State *L);
int luaopen_sound(lua_State *L);
int luaopen_lanes(lua_State *L);
diff --git a/src/lualanes/lanes.c b/src/lualanes/lanes.c
index de4e1235005f4aae125052b34b5084de3eeed85b..ddd183ee83909eb22f837a231ad79baf53065e4c 100644
--- a/src/lualanes/lanes.c
+++ b/src/lualanes/lanes.c
@@ -1,3 +1,4 @@
+ #include <pthread.h>
/*
* LANES.C Copyright (c) 2007-08, Asko Kauppi
*
diff --git a/src/luaprofiler/lua50_profiler.c b/src/luaprofiler/lua50_profiler.c
index 2fe49e3064e411d8ae08673a3617e7888c8056e5..a679a1aee728c174e5f1953e48eff45849197161 100644
--- a/src/luaprofiler/lua50_profiler.c
+++ b/src/luaprofiler/lua50_profiler.c
@@ -200,7 +200,7 @@ static float calcCallTime(lua_State *L) {
";
lprofC_start_timer(&timer);
- luaL_dostring(L, lua_code);
+ (void)luaL_dostring(L, lua_code);
return lprofC_get_seconds(timer) / (float) 100000;
}
diff --git a/src/main.c b/src/main.c
index 56424101dbdf253e41529be2a09a9911aa22a3f9..fed455ca59160af3babe3cd754e1efff58d07784 100644
--- a/src/main.c
+++ b/src/main.c
@@ -82,6 +82,28 @@ static int traceback (lua_State *L) {
return 1;
}
+static void stackDump (lua_State *L) {
+ int i=lua_gettop(L);
+ printf(" ---------------- Stack Dump ----------------\n" );
+ while( i ) {
+ int t = lua_type(L, i);
+ switch (t) {
+ case LUA_TSTRING:
+ printf("%d:`%s'\n", i, lua_tostring(L, i));
+ break;
+ case LUA_TBOOLEAN:
+ printf("%d: %s\n",i,lua_toboolean(L, i) ? "true" : "false");
+ break;
+ case LUA_TNUMBER:
+ printf("%d: %g\n", i, lua_tonumber(L, i));
+ break;
+ default: printf("%d: %s\n", i, lua_typename(L, t)); break;
+ }
+ i--;
+ }
+ printf("--------------- Stack Dump Finished ---------------\n" );
+}
+
int docall (lua_State *L, int narg, int nret)
{
// printf("<===%d\n", lua_gettop(L));
@@ -92,8 +114,13 @@ int docall (lua_State *L, int narg, int nret)
status = lua_pcall(L, narg, nret, base);
lua_remove(L, base); /* remove traceback function */
/* force a complete garbage collection in case of errors */
- if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0);
+ if (status != 0) { lua_pop(L, 1); lua_gc(L, LUA_GCCOLLECT, 0); }
// printf(">===%d\n", lua_gettop(L));
+ if (lua_gettop(L) != nret)
+ {
+ stackDump(L);
+// assert(0);
+ }
return status;
}
@@ -103,16 +130,6 @@ int noprint(lua_State *L)
return 0;
}
-void display_utime()
-{
- struct timeval tv;
- struct timezone tz;
- struct tm *tm;
- gettimeofday(&tv, &tz);
- tm=localtime(&tv.tv_sec);
- printf(" %d:%02d:%02d %d \n", tm->tm_hour, tm->tm_min, tm->tm_sec, tv.tv_usec);
-}
-
// define our data that is passed to our redraw function
typedef struct {
Uint32 color;
@@ -650,14 +667,17 @@ void boot_lua(int state, bool rebooting, int argc, char *argv[])
// Could not load bootstrap! Try to mount the engine from working directory as last resort
else
{
+ lua_pop(L, 1);
printf("WARNING: No bootstrap code found, defaulting to working directory for engine code!\n");
PHYSFS_mount("game/thirdparty", "/", 1);
PHYSFS_mount("game/", "/", 1);
}
// And run the lua engine pre init scripts
- luaL_loadfile(L, "/loader/pre-init.lua");
- docall(L, 0, 0);
+ if (!luaL_loadfile(L, "/loader/pre-init.lua"))
+ docall(L, 0, 0);
+ else
+ lua_pop(L, 1);
}
else if (state == 2)
{
@@ -667,15 +687,21 @@ void boot_lua(int state, bool rebooting, int argc, char *argv[])
luaopen_lanes(L);
// And run the lua engine scripts
- luaL_loadfile(L, "/loader/init.lua");
- if (reboot_engine) lua_pushstring(L, reboot_engine); else lua_pushnil(L);
- if (reboot_engine_version) lua_pushstring(L, reboot_engine_version); else lua_pushnil(L);
- if (reboot_module) lua_pushstring(L, reboot_module); else lua_pushnil(L);
- if (reboot_name) lua_pushstring(L, reboot_name); else lua_pushnil(L);
- lua_pushboolean(L, reboot_new);
- if (reboot_einfo) lua_pushstring(L, reboot_einfo); else lua_pushnil(L);
- if (request_profile) lua_pushstring(L, request_profile); else lua_pushnil(L);
- docall(L, 7, 0);
+ if (!luaL_loadfile(L, "/loader/init.lua"))
+ {
+ if (reboot_engine) lua_pushstring(L, reboot_engine); else lua_pushnil(L);
+ if (reboot_engine_version) lua_pushstring(L, reboot_engine_version); else lua_pushnil(L);
+ if (reboot_module) lua_pushstring(L, reboot_module); else lua_pushnil(L);
+ if (reboot_name) lua_pushstring(L, reboot_name); else lua_pushnil(L);
+ lua_pushboolean(L, reboot_new);
+ if (reboot_einfo) lua_pushstring(L, reboot_einfo); else lua_pushnil(L);
+ if (request_profile) lua_pushstring(L, request_profile); else lua_pushnil(L);
+ docall(L, 7, 0);
+ }
+ else
+ {
+ lua_pop(L, 1);
+ }
}
}
diff --git a/src/map.c b/src/map.c
index d9eb6e724b80b2c83ed3e8e1a4e4d17fe9f91b2e..d8a82b8e110b5f0b2bfd3af2ffa790f4bbafafcf 100644
--- a/src/map.c
+++ b/src/map.c
@@ -167,6 +167,7 @@ static int map_object_reset_move_anim(lua_State *L)
{
map_object *obj = (map_object*)auxiliar_checkclass(L, "core{mapobj}", 1);
obj->move_max = 0;
+ return 0;
}
static int map_object_set_move_anim(lua_State *L)
diff --git a/src/music.c b/src/music.c
index cc33c88369d9e023bf7fdef37bbf2b7790192e96..36092bdb483238e9ea7671975fb39a27549ac083 100644
--- a/src/music.c
+++ b/src/music.c
@@ -66,7 +66,6 @@ static int music_play(lua_State *L)
int loop = lua_isnumber(L, 2) ? lua_tonumber(L, 2) : 1;
int fadein = lua_isnumber(L, 3) ? lua_tonumber(L, 3) : 0;
- printf("play music %x %d %d\n", (unsigned int)(*m), loop, fadein);
lua_pushboolean(L, (Mix_FadeInMusic(*m, loop, fadein) == -1) ? FALSE : TRUE);
return 1;
}
diff --git a/src/particles.c b/src/particles.c
index 62a233c2b37ffb4213751a35f25f253b169fc77b..e05be6597520a150ed1c00fdff462f446cd6545f 100644
--- a/src/particles.c
+++ b/src/particles.c
@@ -282,7 +282,6 @@ static int particles_to_screen(lua_State *L)
int y = luaL_checknumber(L, 3);
bool show = lua_toboolean(L, 4);
float zoom = luaL_checknumber(L, 5);
- int kf;
int w = 0;
int i, j;
bool alive = FALSE;
@@ -383,7 +382,6 @@ static int particles_update(lua_State *L)
{
particles_type *ps = (particles_type*)auxiliar_checkclass(L, "core{particles}", 1);
int w = 0;
- int i, j;
bool alive = FALSE;
for (w = 0; w < ps->nb; w++)
diff --git a/src/particles_gas.c b/src/particles_gas.c
index 0480195bfd618b4d92b885615c8c713cc91ad7a5..793f2fc2a94fe625131fd140b58a6b29027db778 100644
--- a/src/particles_gas.c
+++ b/src/particles_gas.c
@@ -31,26 +31,6 @@
#define rng(x, y) (x + rand_div(1 + y - x))
-static void getinitfield(lua_State *L, const char *key, int *min, int *max)
-{
- lua_pushstring(L, key);
- lua_gettable(L, -2);
-
- lua_pushnumber(L, 1);
- lua_gettable(L, -2);
- *min = (int)lua_tonumber(L, -1);
- lua_pop(L, 1);
-
- lua_pushnumber(L, 2);
- lua_gettable(L, -2);
- *max = (int)lua_tonumber(L, -1);
- lua_pop(L, 1);
-
-// printf("%s :: %d %d\n", key, (int)*min, (int)*max);
-
- lua_pop(L, 1);
-}
-
static void getparticulefield(lua_State *L, const char *k, float *v)
{
lua_pushstring(L, k);
@@ -64,7 +44,7 @@ static int gas_new(lua_State *L)
{
int w = luaL_checknumber(L, 1);
int h = luaL_checknumber(L, 2);
- int density = luaL_checknumber(L, 3);
+// int density = luaL_checknumber(L, 3);
GLuint *t = (GLuint*)auxiliar_checkclass(L, "gl{texture}", 5);
int t_ref = luaL_ref(L, LUA_REGISTRYINDEX);
int p_ref = luaL_ref(L, LUA_REGISTRYINDEX);
@@ -343,7 +323,7 @@ void update(gaszone_type *gz, float elapsed) {
static int gas_emit(lua_State *L)
{
- gaszone_type *gz = (gaszone_type*)auxiliar_checkclass(L, "core{gas}", 1);
+// gaszone_type *gz = (gaszone_type*)auxiliar_checkclass(L, "core{gas}", 1);
return 0;
}
@@ -353,9 +333,8 @@ static int gas_to_screen(lua_State *L)
gaszone_type *gz = (gaszone_type*)auxiliar_checkclass(L, "core{gas}", 1);
int x = luaL_checknumber(L, 2);
int y = luaL_checknumber(L, 3);
- bool show = lua_toboolean(L, 4);
- float zoom = luaL_checknumber(L, 5);
- int w = 0;
+// bool show = lua_toboolean(L, 4);
+// float zoom = luaL_checknumber(L, 5);
int i, j, dx, dy;
int vert_idx = 0, col_idx = 0;
diff --git a/src/physfs/zlib123/mzip.c b/src/physfs/zlib123/mzip.c
index e9f783ce92e225f0fd62841acda482c3f64d7172..1eecda23036295c7afefbb9f35ccdbb72be35623 100644
--- a/src/physfs/zlib123/mzip.c
+++ b/src/physfs/zlib123/mzip.c
@@ -189,13 +189,14 @@ local void init_linkedlist(ll)
ll->first_block = ll->last_block = NULL;
}
+/* UNUSED
local void free_linkedlist(ll)
linkedlist_data* ll;
{
free_datablock(ll->first_block);
ll->first_block = ll->last_block = NULL;
}
-
+*/
local int add_data_in_datablock(ll,buf,len)
linkedlist_data* ll;