jeremy/callisto
1
Fork 0
Code Releases Activity

Remove warnings from lcl.c and lfile.c by fixing some issues

Browse source
This commit is contained in:
Jeremy Baxter 2023-07-09 16:19:37 +12:00
parent f2ff542bcb
commit 612a22678b
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lcl.c
View file

@ -24,15 +24,15 @@ static void
fmesg(lua_State *L, FILE* f, int shift) fmesg(lua_State *L, FILE* f, int shift)
{ {
int paramc, i; int paramc, i;
const char *progname; /* argv[0] */ char *progname; /* argv[0] */
paramc = lua_gettop(L); /* get parameter count */ paramc = lua_gettop(L); /* get parameter count */
lua_geti(L, 1 + shift, 0); /* get index 0 of table at index 1 (argv) */ lua_geti(L, 1 + shift, 0); /* get index 0 of table at index 1 (argv) */
if (lua_type(L, -1) != LUA_TSTRING) { /* if argv[0] is not a string... */ if (lua_type(L, -1) != LUA_TSTRING) { /* if argv[0] is not a string... */
luaL_error(L, "invalid argument table passed (must have an string in index [0])"); luaL_argerror(L, 1, "must have a string in index 0)");
} }
progname = lua_tostring(L, -1); /* set progname to argv[0] */ progname = (char *)lua_tostring(L, -1); /* set progname to argv[0] */
/* format using string.format */ /* format using string.format */
lua_getglobal(L, "string"); lua_getglobal(L, "string");

8
lfile.c
View file

@ -38,10 +38,10 @@
static int static int
file_basename(lua_State *L) file_basename(lua_State *L)
{ {
const char *path; /* parameter 1 (string) */
const char *ret; const char *ret;
char *path; /* parameter 1 (string) */
path = luaL_checkstring(L, 1); path = strndup(luaL_checkstring(L, 1), lua_rawlen(L, 1));
ret = basename(path); ret = basename(path);
if (ret == NULL && errno == ENAMETOOLONG) /* check if path is too long */ if (ret == NULL && errno == ENAMETOOLONG) /* check if path is too long */
@ -70,10 +70,10 @@ file_basename(lua_State *L)
static int static int
file_dirname(lua_State *L) file_dirname(lua_State *L)
{ {
const char *path; /* parameter 1 (string) */
const char *ret; const char *ret;
char *path; /* parameter 1 (string) */
path = luaL_checkstring(L, 1); path = strndup(luaL_checkstring(L, 1), lua_rawlen(L, 1));
ret = dirname(path); ret = dirname(path);
if (ret == NULL && errno == ENAMETOOLONG) /* check if path is too long */ if (ret == NULL && errno == ENAMETOOLONG) /* check if path is too long */