228 lines
5.6 KiB
C
228 lines
5.6 KiB
C
/*
|
|
* time.c - Builtin functions that provide time-related functions.
|
|
*/
|
|
|
|
/*
|
|
* Copyright (C) 2012, 2013, 2014, 2018, 2022
|
|
* the Free Software Foundation, Inc.
|
|
*
|
|
* This file is part of GAWK, the GNU implementation of the
|
|
* AWK Programming Language.
|
|
*
|
|
* GAWK is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* GAWK is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <assert.h>
|
|
#include <errno.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdbool.h>
|
|
#include <unistd.h>
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
|
|
#ifdef __VMS
|
|
#define HAVE_NANOSLEEP
|
|
#define HAVE_GETTIMEOFDAY
|
|
#ifdef gettimeofday
|
|
#undef gettimeofday
|
|
#endif
|
|
#ifdef __ia64__
|
|
/* nanosleep not working correctly on IA64 */
|
|
static int
|
|
vms_fake_nanosleep(struct timespec *rqdly, struct timespec *rmdly)
|
|
{
|
|
int result;
|
|
struct timespec mtime1, mtime2;
|
|
|
|
result = nanosleep(rqdly, &mtime1);
|
|
if (result == 0)
|
|
return 0;
|
|
|
|
/* On IA64 it returns 100 nanoseconds early with an error */
|
|
if ((mtime1.tv_sec == 0) && (mtime1.tv_nsec <= 100)) {
|
|
mtime1.tv_nsec += 100;
|
|
result = nanosleep(&mtime1, &mtime2);
|
|
if (result == 0)
|
|
return 0;
|
|
if ((mtime2.tv_sec == 0) && (mtime2.tv_nsec <= 100)) {
|
|
return 0;
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
#define nanosleep(x,y) vms_fake_nanosleep(x, y)
|
|
#endif
|
|
#endif
|
|
|
|
#include "gawkapi.h"
|
|
|
|
#include "gettext.h"
|
|
#define _(msgid) gettext(msgid)
|
|
#define N_(msgid) msgid
|
|
|
|
static const gawk_api_t *api; /* for convenience macros to work */
|
|
static awk_ext_id_t ext_id;
|
|
static const char *ext_version = "time extension: version 1.1";
|
|
static awk_bool_t issue_warning(void);
|
|
static awk_bool_t (*init_func)(void) = issue_warning;
|
|
|
|
int plugin_is_GPL_compatible;
|
|
|
|
#include <time.h>
|
|
#if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
|
|
#include <sys/time.h>
|
|
#endif
|
|
#if defined(HAVE_SELECT) && defined(HAVE_SYS_SELECT_H)
|
|
#include <sys/select.h>
|
|
#endif
|
|
#if defined(HAVE_GETSYSTEMTIMEASFILETIME)
|
|
#define WIN32_LEAN_AND_MEAN
|
|
#include <windows.h>
|
|
#endif
|
|
|
|
/* issue_warning --- issue a warning that this extension is obsolete */
|
|
|
|
static awk_bool_t
|
|
issue_warning(void)
|
|
{
|
|
warning(ext_id, _("The time extension is obsolete. Use the timex extension from gawkextlib instead."));
|
|
|
|
return awk_true;
|
|
}
|
|
|
|
/*
|
|
* Returns time since 1/1/1970 UTC as a floating point value; should
|
|
* have sub-second precision, but the actual precision will vary based
|
|
* on the platform
|
|
*/
|
|
static awk_value_t *
|
|
do_gettimeofday(int nargs, awk_value_t *result, struct awk_ext_func *unused)
|
|
{
|
|
double curtime;
|
|
|
|
assert(result != NULL);
|
|
|
|
#if defined(HAVE_GETTIMEOFDAY)
|
|
{
|
|
struct timeval tv;
|
|
gettimeofday(&tv,NULL);
|
|
curtime = tv.tv_sec+(tv.tv_usec/1000000.0);
|
|
}
|
|
#elif defined(HAVE_GETSYSTEMTIMEASFILETIME)
|
|
/* based on perl win32/win32.c:win32_gettimeofday() implementation */
|
|
{
|
|
union {
|
|
unsigned __int64 ft_i64;
|
|
FILETIME ft_val;
|
|
} ft;
|
|
|
|
/* # of 100-nanosecond intervals since January 1, 1601 (UTC) */
|
|
GetSystemTimeAsFileTime(&ft.ft_val);
|
|
#ifdef __GNUC__
|
|
#define Const64(x) x##LL
|
|
#else
|
|
#define Const64(x) x##i64
|
|
#endif
|
|
/* Number of 100 nanosecond units from 1/1/1601 to 1/1/1970 */
|
|
#define EPOCH_BIAS Const64(116444736000000000)
|
|
curtime = (ft.ft_i64 - EPOCH_BIAS)/10000000.0;
|
|
#undef Const64
|
|
}
|
|
#else
|
|
/* no way to retrieve system time on this platform */
|
|
curtime = -1;
|
|
update_ERRNO_string(_("gettimeofday: not supported on this platform"));
|
|
#endif
|
|
|
|
return make_number(curtime, result);
|
|
}
|
|
|
|
/*
|
|
* Returns 0 if successful in sleeping the requested time;
|
|
* returns -1 if there is no platform support, or if the sleep request
|
|
* did not complete successfully (perhaps interrupted)
|
|
*/
|
|
static awk_value_t *
|
|
do_sleep(int nargs, awk_value_t *result, struct awk_ext_func *unused)
|
|
{
|
|
awk_value_t num;
|
|
double secs;
|
|
int rc;
|
|
|
|
assert(result != NULL);
|
|
|
|
if (! get_argument(0, AWK_NUMBER, &num)) {
|
|
update_ERRNO_string(_("sleep: missing required numeric argument"));
|
|
return make_number(-1, result);
|
|
}
|
|
secs = num.num_value;
|
|
|
|
if (secs < 0) {
|
|
update_ERRNO_string(_("sleep: argument is negative"));
|
|
return make_number(-1, result);
|
|
}
|
|
|
|
#if defined(HAVE_NANOSLEEP)
|
|
{
|
|
struct timespec req;
|
|
|
|
req.tv_sec = secs;
|
|
req.tv_nsec = (secs-(double)req.tv_sec)*1000000000.0;
|
|
if ((rc = nanosleep(&req,NULL)) < 0)
|
|
/* probably interrupted */
|
|
update_ERRNO_int(errno);
|
|
}
|
|
#elif defined(HAVE_SELECT)
|
|
{
|
|
struct timeval timeout;
|
|
|
|
timeout.tv_sec = secs;
|
|
timeout.tv_usec = (secs-(double)timeout.tv_sec)*1000000.0;
|
|
if ((rc = select(0,NULL,NULL,NULL,&timeout)) < 0)
|
|
/* probably interrupted */
|
|
update_ERRNO_int(errno);
|
|
}
|
|
#elif defined(HAVE_GETSYSTEMTIMEASFILETIME)
|
|
{
|
|
DWORD milliseconds = secs * 1000;
|
|
|
|
Sleep (milliseconds);
|
|
rc = 0;
|
|
}
|
|
#else
|
|
/* no way to sleep on this platform */
|
|
rc = -1;
|
|
update_ERRNO_string(_("sleep: not supported on this platform"));
|
|
#endif
|
|
|
|
return make_number(rc, result);
|
|
}
|
|
|
|
static awk_ext_func_t func_table[] = {
|
|
{ "gettimeofday", do_gettimeofday, 0, 0, awk_false, NULL },
|
|
{ "sleep", do_sleep, 1, 1, awk_false, NULL },
|
|
};
|
|
|
|
/* define the dl_load function using the boilerplate macro */
|
|
|
|
dl_load_func(func_table, time, "")
|