hyung-hwan/hcl
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 8c7979677f
commit bfc4364ec2
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mod/sys.c
View File

@ -27,7 +27,13 @@
#include "_sys.h"
#include <stdlib.h>
#if defined(HAVE_SYS_TIME_H)
# include <sys/time.h>
#endif
#if defined(HAVE_TIME_H)
# include <time.h>
#endif
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_ooi_t ti;
time_t tv;
t = HCL_STACK_GETARG(hcl, nargs, 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;
}
/* ---------------------------------------------------------------- */
#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;
stime (&tv);
}
#endif
/* ---------------------------------------------------------------- */
HCL_STACK_SETRET (hcl, nargs, hcl->_nil);
return HCL_PF_SUCCESS;