hyung-hwan/hak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enhanced sys.stime to use settimeofday if available

Browse Source
This commit is contained in:
hyung-hwan
2019-04-17 06:28:18 +00:00
parent b776cccecf
commit 8348b712db
1 changed files with 23 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
hcl/mod/sys.c
View File

@ -27,7 +27,13 @@
#include "_sys.h" #include "_sys.h"
#include <stdlib.h> #include <stdlib.h>
#if defined(HAVE_SYS_TIME_H)
# include <sys/time.h>
#endif
#if defined(HAVE_TIME_H)
# include <time.h> # include <time.h>
#endif
static hcl_pfrc_t pf_sys_time (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs) static hcl_pfrc_t pf_sys_time (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{ {
@ -44,7 +50,6 @@ static hcl_pfrc_t pf_sys_stime (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{ {
hcl_oop_t t; hcl_oop_t t;
hcl_ooi_t ti; hcl_ooi_t ti;
time_t tv;
t = HCL_STACK_GETARG(hcl, nargs, 0); t = HCL_STACK_GETARG(hcl, nargs, 0);
if (hcl_inttoooi(hcl, t, &ti) == 0) if (hcl_inttoooi(hcl, t, &ti) == 0)
@ -54,8 +59,22 @@ static hcl_pfrc_t pf_sys_stime (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
return HCL_PF_FAILURE; return HCL_PF_FAILURE;
} }
/* ---------------------------------------------------------------- */
#if defined(HAVE_SETTIMEOFDAY)
{
struct timeval tv;
tv.tv_sec = ti;
tv.tv_usec = 0;
settimeofday (&tv, HCL_NULL);
}
#else
{
time_t tv;
tv = ti; tv = ti;
stime (&tv); stime (&tv);
}
#endif
/* ---------------------------------------------------------------- */
HCL_STACK_SETRET (hcl, nargs, hcl->_nil); HCL_STACK_SETRET (hcl, nargs, hcl->_nil);
return HCL_PF_SUCCESS; return HCL_PF_SUCCESS;