jim-clock.c

   1
   2 /*
   3  * tcl_clock.c
   4  *
   5  * Implements the clock command
   6  */
   7
   8 /* For strptime() */
   9 #ifndef _XOPEN_SOURCE
  10 #define _XOPEN_SOURCE 500
  11 #endif
  12
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <stdio.h>
  16 #include <time.h>
  17
  18 #include "jimautoconf.h"
  19 #include <jim-subcmd.h>
  20
  21 #ifdef HAVE_SYS_TIME_H
  22 #include <sys/time.h>
  23 #endif
  24
  25 static int clock_cmd_format(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
  26 {
  27     /* How big is big enough? */
  28     char buf[100];
  29     time_t t;
  30     long seconds;
  31
  32     const char *format = "%a %b  %d %H:%M:%S %Z %Y";
  33
  34     if (argc == 2 || (argc == 3 && !Jim_CompareStringImmediate(interp, argv[1], "-format"))) {
  35         return -1;
  36     }
  37
  38     if (argc == 3) {
  39         format = Jim_String(argv[2]);
  40     }
  41
  42     if (Jim_GetLong(interp, argv[0], &seconds) != JIM_OK) {
  43         return JIM_ERR;
  44     }
  45     t = seconds;
  46
  47     strftime(buf, sizeof(buf), format, localtime(&t));
  48
  49     Jim_SetResultString(interp, buf, -1);
  50
  51     return JIM_OK;
  52 }
  53
  54 #ifdef HAVE_STRPTIME
  55 static int clock_cmd_scan(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
  56 {
  57     char *pt;
  58     struct tm tm;
  59     time_t now = time(0);
  60
  61     if (!Jim_CompareStringImmediate(interp, argv[1], "-format")) {
  62         return -1;
  63     }
  64
  65     /* Initialise with the current date/time */
  66     localtime_r(&now, &tm);
  67
  68     pt = strptime(Jim_String(argv[0]), Jim_String(argv[2]), &tm);
  69     if (pt == 0 || *pt != 0) {
  70         Jim_SetResultString(interp, "Failed to parse time according to format", -1);
  71         return JIM_ERR;
  72     }
  73
  74     /* Now convert into a time_t */
  75     Jim_SetResultInt(interp, mktime(&tm));
  76
  77     return JIM_OK;
  78 }
  79 #endif
  80
  81 static int clock_cmd_seconds(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
  82 {
  83     Jim_SetResultInt(interp, time(NULL));
  84
  85     return JIM_OK;
  86 }
  87
  88 static int clock_cmd_micros(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
  89 {
  90     struct timeval tv;
  91
  92     gettimeofday(&tv, NULL);
  93
  94     Jim_SetResultInt(interp, (jim_wide) tv.tv_sec * 1000000 + tv.tv_usec);
  95
  96     return JIM_OK;
  97 }
  98
  99 static int clock_cmd_millis(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
 100 {
 101     struct timeval tv;
 102
 103     gettimeofday(&tv, NULL);
 104
 105     Jim_SetResultInt(interp, (jim_wide) tv.tv_sec * 1000 + tv.tv_usec / 1000);
 106
 107     return JIM_OK;
 108 }
 109
 110 static const jim_subcmd_type clock_command_table[] = {
 111     {   "seconds",
 112         NULL,
 113         clock_cmd_seconds,
 114         0,
 115         0,
 116         /* Description: Returns the current time as seconds since the epoch */
 117     },
 118     {   "clicks",
 119         NULL,
 120         clock_cmd_micros,
 121         0,
 122         0,
 123         /* Description: Returns the current time in 'clicks' */
 124     },
 125     {   "microseconds",
 126         NULL,
 127         clock_cmd_micros,
 128         0,
 129         0,
 130         /* Description: Returns the current time in microseconds */
 131     },
 132     {   "milliseconds",
 133         NULL,
 134         clock_cmd_millis,
 135         0,
 136         0,
 137         /* Description: Returns the current time in milliseconds */
 138     },
 139     {   "format",
 140         "seconds ?-format format?",
 141         clock_cmd_format,
 142         1,
 143         3,
 144         /* Description: Format the given time */
 145     },
 146 #ifdef HAVE_STRPTIME
 147     {   "scan",
 148         "str -format format",
 149         clock_cmd_scan,
 150         3,
 151         3,
 152         /* Description: Determine the time according to the given format */
 153     },
 154 #endif
 155     { NULL }
 156 };
 157
 158 int Jim_clockInit(Jim_Interp *interp)
 159 {
 160     if (Jim_PackageProvide(interp, "clock", "1.0", JIM_ERRMSG))
 161         return JIM_ERR;
 162
 163     Jim_CreateCommand(interp, "clock", Jim_SubCmdProc, (void *)clock_command_table, NULL);
 164     return JIM_OK;
 165 }