`time' does not need to correct its table argument (use `date' for that)

This commit is contained in:
Roberto Ierusalimschy 2000-12-22 14:57:13 -02:00
parent af97be026b
commit 1db05793a0
1 changed files with 11 additions and 18 deletions

View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 1.93 2000/12/04 18:33:40 roberto Exp roberto $ ** $Id: liolib.c,v 1.94 2000/12/18 13:42:19 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -506,19 +506,6 @@ static int getfield (lua_State *L, const char *key, int d) {
} }
static void tm2table (lua_State *L, struct tm *stm) {
setfield(L, "sec", stm->tm_sec);
setfield(L, "min", stm->tm_min);
setfield(L, "hour", stm->tm_hour);
setfield(L, "day", stm->tm_mday);
setfield(L, "month", stm->tm_mon+1);
setfield(L, "year", stm->tm_year+1900);
setfield(L, "wday", stm->tm_wday+1);
setfield(L, "yday", stm->tm_yday+1);
setfield(L, "isdst", stm->tm_isdst);
}
static int io_date (lua_State *L) { static int io_date (lua_State *L) {
const char *s = luaL_opt_string(L, 1, "%c"); const char *s = luaL_opt_string(L, 1, "%c");
time_t t = (time_t)luaL_opt_number(L, 2, -1); time_t t = (time_t)luaL_opt_number(L, 2, -1);
@ -535,7 +522,15 @@ static int io_date (lua_State *L) {
lua_pushnil(L); lua_pushnil(L);
else if (strcmp(s, "*t") == 0) { else if (strcmp(s, "*t") == 0) {
lua_newtable(L); lua_newtable(L);
tm2table(L, stm); setfield(L, "sec", stm->tm_sec);
setfield(L, "min", stm->tm_min);
setfield(L, "hour", stm->tm_hour);
setfield(L, "day", stm->tm_mday);
setfield(L, "month", stm->tm_mon+1);
setfield(L, "year", stm->tm_year+1900);
setfield(L, "wday", stm->tm_wday+1);
setfield(L, "yday", stm->tm_yday+1);
setfield(L, "isdst", stm->tm_isdst);
} }
else { else {
char b[256]; char b[256];
@ -566,11 +561,9 @@ static int io_time (lua_State *L) {
t = mktime(&ts); t = mktime(&ts);
if (t == (time_t)-1) if (t == (time_t)-1)
lua_pushnil(L); lua_pushnil(L);
else { else
tm2table(L, &ts); /* copy back updated values */
lua_pushnumber(L, t); lua_pushnumber(L, t);
} }
}
return 1; return 1;
} }