Implement locale-independent strftime function.

* include/mailutils/util.h (mu_c_streamftime): New prototype.
* libmailutils/base/date.c (mu_c_streamftime): New function.
* libmailutils/tests/.gitignore: Update.
* libmailutils/tests/strftime.at: New test script.
* libmailutils/tests/strftime.c: New test program.
* libmailutils/tests/Makefile.am (noinst_PROGRAMS): Add strftime.
(TESTSUITE_AT): Add strftime.at.
* libmailutils/tests/testsuite.at: Include strftime.at.

@@ -71,6 +71,9 @@ time_t mu_tm2time (struct tm *timeptr, mu_timezone *tz);
 size_t mu_strftime (char *s, size_t max, const char *format,
 size_t mu_strftime (char *s, size_t max, const char *format,
 		    const struct tm *tm);
 		    const struct tm *tm);
 
 
+int mu_c_streamftime (mu_stream_t str, const char *fmt, struct tm *tm,
+		      struct mu_timezone *tz);
+  
   /* ----------------------- */
   /* ----------------------- */
   /* File & path names.      */
   /* File & path names.      */
   /* ----------------------- */
   /* ----------------------- */

@@ -16,6 +16,7 @@ imapio
 listop
 listop
 mailcap
 mailcap
 prop
 prop
+strftime
 url-comp
 url-comp
 url-parse
 url-parse
 wicket
 wicket

@@ -51,6 +51,7 @@ noinst_PROGRAMS = \
  listop\
  listop\
  mailcap\
  mailcap\
  prop\
  prop\
+ strftime\
  tempfile\
  tempfile\
  url-comp\
  url-comp\
  url-parse\
  url-parse\
@@ -81,6 +82,7 @@ TESTSUITE_AT = \
  list.at\
  list.at\
  mailcap.at\
  mailcap.at\
  prop.at\
  prop.at\
+ strftime.at\
  testsuite.at\
  testsuite.at\
  url.at\
  url.at\
  url-comp.at\
  url-comp.at\

+/* GNU Mailutils -- a suite of utilities for electronic mail
+   Copyright (C) 1999, 2000, 2001, 2007, 2009, 2010, 2011 Free Software
+   Foundation, Inc.
+
+   GNU Mailutils 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, or (at your option)
+   any later version.
+
+   GNU Mailutils 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <mailutils/error.h>
+#include <mailutils/errno.h>
+#include <mailutils/util.h>
+#include <mailutils/stream.h>
+#include <mailutils/cctype.h>
+#include <mailutils/cstr.h>
+#include <mailutils/stdstream.h>
+
+void
+usage ()
+{
+  mu_stream_printf (mu_strout, "usage: %s [-format=FMT] [-tz=TZ]\n",
+		    mu_program_name);
+  exit (0);
+}
+
+int
+main (int argc, char **argv)
+{
+  int rc, i;
+  char *format = "%c";
+  char *buf = NULL;
+  size_t size = 0;
+  size_t n;
+  struct mu_timezone tz, *tzp = NULL;
+  
+  mu_set_program_name (argv[0]);
+  mu_stdstream_setup (MU_STDSTREAM_RESET_NONE);
+
+  memset (&tz, 0, sizeof tz);
+  for (i = 1; i < argc; i++)
+    {
+      char *opt = argv[i];
+
+      if (strncmp (opt, "-format=", 8) == 0)
+	format = opt + 8;
+      else if (strncmp (opt, "-tz=", 4) == 0)
+	{
+	  int sign;
+	  int n = atoi (opt + 4);
+	  if (n < 0)
+	    {
+	      sign = -1;
+	      n = - n;
+	    }
+	  else
+	    sign = 1;
+	  tz.utc_offset = sign * ((n / 100 * 60) + n % 100) * 60;
+	  tzp = &tz;
+	}
+      else if (strcmp (opt, "-h") == 0)
+	usage ();
+      else
+	{
+	  mu_error ("%s: unrecognized argument", opt);
+	  exit (1);
+	}
+    }
+
+  while ((rc = mu_stream_getline (mu_strin, &buf, &size, &n)) == 0 && n > 0)
+    {
+      char *p;
+      struct tm *tm;
+      time_t t;
+
+      mu_rtrim_class (buf, MU_CTYPE_ENDLN);
+
+      if (*buf == ';')
+	{
+	  mu_printf ("%s\n", buf);
+	  continue;
+	}
+      t = strtoul (buf, &p, 10);
+      if (*p)
+	{
+	  mu_error ("bad input line near %s", p);
+	  continue;
+	}
+
+      tm = gmtime (&t);
+      mu_c_streamftime (mu_strout, format, tm, tzp);
+      mu_printf ("\n");
+    }
+  
+  if (rc)
+    {
+      mu_error ("%s", mu_strerror (rc));
+      return 1;
+    }
+  return 0;
+}

@@ -83,4 +83,6 @@ m4_include([debugspec.at])
 AT_BANNER([IMAP IO])
 AT_BANNER([IMAP IO])
 m4_include([imapio.at])
 m4_include([imapio.at])
 
 
+m4_include([strftime.at])
+
 m4_include([fsaf.at])
 m4_include([fsaf.at])
\ No newline at end of file