rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

small changes (due to Rici Lake) to allow testing non-supported OS functions

This commit is contained in:
Roberto Ierusalimschy 2004-08-05 16:30:37 -03:00
parent 6bddbbde7a
commit 2430d3cb28
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
loslib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: loslib.c,v $ ** $Id: loslib.c,v 1.1 2004/07/09 15:47:48 roberto Exp roberto $
** Standard Operating System library ** Standard Operating System library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -38,7 +38,7 @@ static int pushresult (lua_State *L, int i, const char *filename) {
static int io_execute (lua_State *L) { static int io_execute (lua_State *L) {
lua_pushinteger(L, system(luaL_checkstring(L, 1))); lua_pushinteger(L, system(luaL_optstring(L, 1, NULL)));
return 1; return 1;
} }
@ -163,10 +163,10 @@ static int io_date (lua_State *L) {
static int io_time (lua_State *L) { static int io_time (lua_State *L) {
time_t t;
if (lua_isnoneornil(L, 1)) /* called without args? */ if (lua_isnoneornil(L, 1)) /* called without args? */
lua_pushnumber(L, time(NULL)); /* return current time */ t = time(NULL); /* get current time */
else { else {
time_t t;
struct tm ts; struct tm ts;
luaL_checktype(L, 1, LUA_TTABLE); luaL_checktype(L, 1, LUA_TTABLE);
lua_settop(L, 1); /* make sure table is at the top */ lua_settop(L, 1); /* make sure table is at the top */
@ -178,11 +178,11 @@ static int io_time (lua_State *L) {
ts.tm_year = getfield(L, "year", -1) - 1900; ts.tm_year = getfield(L, "year", -1) - 1900;
ts.tm_isdst = getboolfield(L, "isdst"); ts.tm_isdst = getboolfield(L, "isdst");
t = mktime(&ts); t = mktime(&ts);
if (t == (time_t)(-1))
lua_pushnil(L);
else
lua_pushnumber(L, t);
} }
if (t == (time_t)(-1))
lua_pushnil(L);
else
lua_pushnumber(L, t);
return 1; return 1;
} }