Changeset 1121 for trunk/src/kmk/function.c

Timestamp:

Sep 25, 2007, 7:57:57 AM (18 years ago)

Author:

bird

Message:

Added $(date ) and $(date-utc ) function as simple wrappers around strftime.

File:

• trunk/src/kmk/function.c (modified) (2 diffs)

trunk/src/kmk/function.c

@@ -2673 +2673 @@
 #endif
 
+#ifdef CONFIG_WITH_DATE
+static char *
+func_date (char *o, char **argv, const char *funcname)
+{
+  char *buf;
+  size_t buf_size;
+  time_t tval;
+  const char *format = !strcmp (funcname, "date-utc")
+                     ? "%Y-%m-%dT%H:%M:%SZ" 
+                     : "%Y-%m-%dT%H:%M:%S";
+  if (argv[0]) 
+    {
+      buf = argv[0];
+      while (isspace ((unsigned char)*buf))
+        buf++;
+      if (*buf)
+        format = buf;
+    }
+
+  if (argv[1])
+    {
+      /* FIXME */
+      fatal (NILF, _("The reverse strftime aspect of the $(date*) functions isn't implemented yet.\n"));
+    }
+  else
+    time(&tval);
+
+  buf_size = 64;
+  buf = xmalloc (buf_size);
+  while (strftime (buf, buf_size, format, 
+                   !strcmp (funcname, "date-utc") 
+                   ? gmtime (&tval) : localtime (&tval)) == 0)
+    buf = xrealloc (buf, buf_size <<= 1);
+  o = variable_buffer_output (o, buf, strlen (buf));
+  free (buf);
+  return o;
+}
+#endif
+
 
 #ifdef CONFIG_WITH_STACK
@@ -3153 +3192 @@
   { STRING_SIZE_TUPLE("comp-cmds"),     3,  3,  1,  func_comp_vars},
 #endif
+#ifdef CONFIG_WITH_DATE
+  { STRING_SIZE_TUPLE("date"),          0,  1,  1,  func_date},
+  { STRING_SIZE_TUPLE("date-utc"),      0,  1,  1,  func_date},
+#endif
 #ifdef CONFIG_WITH_STACK
   { STRING_SIZE_TUPLE("stack-push"),    2,  2,  1,  func_stack_push},