160 lines
3.6 KiB
C
Executable File
160 lines
3.6 KiB
C
Executable File
|
|
/*
|
|
* tcl_clock.c
|
|
*
|
|
* Implements the clock command
|
|
*/
|
|
|
|
/* For strptime() */
|
|
#ifndef _XOPEN_SOURCE
|
|
#define _XOPEN_SOURCE 500
|
|
#endif
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
#include <time.h>
|
|
#include <sys/time.h>
|
|
|
|
#include "jim.h"
|
|
#include "jimautoconf.h"
|
|
#include "jim-subcmd.h"
|
|
|
|
static int clock_cmd_format(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
|
|
{
|
|
/* How big is big enough? */
|
|
char buf[100];
|
|
time_t t;
|
|
long seconds;
|
|
|
|
const char *format = "%a %b %d %H:%M:%S %Z %Y";
|
|
|
|
if (argc == 2 || (argc == 3 && !Jim_CompareStringImmediate(interp, argv[1], "-format"))) {
|
|
return -1;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
format = Jim_String(argv[2]);
|
|
}
|
|
|
|
if (Jim_GetLong(interp, argv[0], &seconds) != JIM_OK) {
|
|
return JIM_ERR;
|
|
}
|
|
t = seconds;
|
|
|
|
strftime(buf, sizeof(buf), format, localtime(&t));
|
|
|
|
Jim_SetResultString(interp, buf, -1);
|
|
|
|
return JIM_OK;
|
|
}
|
|
|
|
#ifdef HAVE_STRPTIME
|
|
static int clock_cmd_scan(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
|
|
{
|
|
char *pt;
|
|
struct tm tm;
|
|
time_t now = time(0);
|
|
|
|
if (!Jim_CompareStringImmediate(interp, argv[1], "-format")) {
|
|
return -1;
|
|
}
|
|
|
|
/* Initialise with the current date/time */
|
|
localtime_r(&now, &tm);
|
|
|
|
pt = strptime(Jim_String(argv[0]), Jim_String(argv[2]), &tm);
|
|
if (pt == 0 || *pt != 0) {
|
|
Jim_SetResultString(interp, "Failed to parse time according to format", -1);
|
|
return JIM_ERR;
|
|
}
|
|
|
|
/* Now convert into a time_t */
|
|
Jim_SetResultInt(interp, mktime(&tm));
|
|
|
|
return JIM_OK;
|
|
}
|
|
#endif
|
|
|
|
static int clock_cmd_seconds(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
|
|
{
|
|
Jim_SetResultInt(interp, time(NULL));
|
|
|
|
return JIM_OK;
|
|
}
|
|
|
|
static int clock_cmd_micros(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
|
|
{
|
|
struct timeval tv;
|
|
|
|
gettimeofday(&tv, NULL);
|
|
|
|
Jim_SetResultInt(interp, (jim_wide) tv.tv_sec * 1000000 + tv.tv_usec);
|
|
|
|
return JIM_OK;
|
|
}
|
|
|
|
static int clock_cmd_millis(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
|
|
{
|
|
struct timeval tv;
|
|
|
|
gettimeofday(&tv, NULL);
|
|
|
|
Jim_SetResultInt(interp, (jim_wide) tv.tv_sec * 1000 + tv.tv_usec / 1000);
|
|
|
|
return JIM_OK;
|
|
}
|
|
|
|
static const jim_subcmd_type clock_command_table[] = {
|
|
{ .cmd = "seconds",
|
|
.function = clock_cmd_seconds,
|
|
.minargs = 0,
|
|
.maxargs = 0,
|
|
.description = "Returns the current time as seconds since the epoch"
|
|
},
|
|
{ .cmd = "clicks",
|
|
.function = clock_cmd_micros,
|
|
.minargs = 0,
|
|
.maxargs = 0,
|
|
.description = "Returns the current time in 'clicks'"
|
|
},
|
|
{ .cmd = "microseconds",
|
|
.function = clock_cmd_micros,
|
|
.minargs = 0,
|
|
.maxargs = 0,
|
|
.description = "Returns the current time in microseconds"
|
|
},
|
|
{ .cmd = "milliseconds",
|
|
.function = clock_cmd_millis,
|
|
.minargs = 0,
|
|
.maxargs = 0,
|
|
.description = "Returns the current time in milliseconds"
|
|
},
|
|
{ .cmd = "format",
|
|
.args = "seconds ?-format format?",
|
|
.function = clock_cmd_format,
|
|
.minargs = 1,
|
|
.maxargs = 3,
|
|
.description = "Format the given time"
|
|
},
|
|
#ifdef HAVE_STRPTIME
|
|
{ .cmd = "scan",
|
|
.args = "str -format format",
|
|
.function = clock_cmd_scan,
|
|
.minargs = 3,
|
|
.maxargs = 3,
|
|
.description = "Determine the time according to the given format"
|
|
},
|
|
#endif
|
|
{ 0 }
|
|
};
|
|
|
|
int Jim_clockInit(Jim_Interp *interp)
|
|
{
|
|
if (Jim_PackageProvide(interp, "clock", "1.0", JIM_ERRMSG))
|
|
return JIM_ERR;
|
|
|
|
Jim_CreateCommand(interp, "clock", Jim_SubCmdProc, (void *)clock_command_table, NULL);
|
|
return JIM_OK;
|
|
}
|