* refactoring: split src/ into mu/ and lib/

lib/mu-date.c

@@ -0,0 +1,264 @@
+/*
+** Copyright (C) 2012  <djcb@djcbsoftware.nl>
+**
+** This program 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.
+**
+** This program 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.
+**
+*/
+
+#include <string.h>
+#include <stdlib.h>
+
+#include "mu-util.h"
+#include "mu-date.h"
+
+
+const char*
+mu_date_str_s (const char* frm, time_t t)
+{
+	struct tm *tmbuf;
+	static char buf[128];
+	static int is_utf8 = -1;
+
+	if (G_UNLIKELY(is_utf8 == -1))
+		is_utf8 = mu_util_locale_is_utf8 () ? 1 : 0;
+
+	g_return_val_if_fail (frm, NULL);
+
+	tmbuf = localtime(&t);
+	strftime (buf, sizeof(buf), frm, tmbuf);
+
+	if (!is_utf8) {
+		/* charset is _not_ utf8, so we need to convert it, so
+		 * the date could contain locale-specific characters*/
+		gchar *conv;
+		GError *err;
+		err = NULL;
+		conv = g_locale_to_utf8 (buf, -1, NULL, NULL, &err);
+		if (err) {
+			g_warning ("conversion failed: %s", err->message);
+			g_error_free (err);
+			strcpy (buf, "<error>");
+		} else
+			strncpy (buf, conv, sizeof(buf));
+
+		g_free (conv);
+	}
+
+	return buf;
+}
+
+char*
+mu_date_str (const char *frm, time_t t)
+{
+	return g_strdup (mu_date_str_s(frm, t));
+}
+
+
+const char*
+mu_date_display_s (time_t t)
+{
+	time_t now;
+	static const time_t SECS_IN_DAY = 24 * 60 * 60;
+
+	now = time (NULL);
+
+	if (ABS(now - t) > SECS_IN_DAY)
+		return mu_date_str_s ("%x", t);
+	else
+		return mu_date_str_s ("%X", t);
+}
+
+
+
+time_t
+mu_date_parse_hdwmy (const char *nptr)
+{
+	long int num;
+	char *endptr;
+	time_t now, delta;
+	time_t never = (time_t)-1;
+
+	g_return_val_if_fail (nptr, never);
+
+	num = strtol  (nptr, &endptr, 10);
+	if (num <= 0 || num > 9999)
+		return never;
+
+	if (endptr == NULL || *endptr == '\0')
+		return never;
+
+	switch (endptr[0]) {
+	case 'h': /* hour */
+		delta = num * 60 * 60; break;
+	case 'd': /* day */
+		delta = num * 24 * 60 * 60; break;
+	case 'w': /* week */
+		delta = num * 7 * 24 * 60 * 60; break;
+	case 'm': /* month */
+		delta = num * 30 * 24 * 60 * 60; break;
+	case 'y': /* year */
+		delta = num * 365 * 24 * 60 * 60; break;
+	default:
+		return never;
+	}
+
+	now = time(NULL);
+	return delta <= now ? now - delta : never;
+}
+
+
+const char*
+mu_date_complete_s (const char *date, gboolean is_begin)
+{
+	static char fulldate[14 + 1];
+
+	static const char* full_begin = "00000101000000";
+	static const char* full_end   = "99991231235959";
+
+	g_return_val_if_fail (date, NULL);
+
+	strncpy (fulldate, is_begin ? full_begin : full_end,
+		sizeof(fulldate));
+	memcpy (fulldate, date, strlen(date));
+
+	return fulldate;
+}
+
+
+char*
+mu_date_complete (const char *date, gboolean is_begin)
+{
+	const char *s;
+
+	g_return_val_if_fail (date, NULL);
+
+	s = mu_date_complete_s (date, is_begin);
+	return s ? g_strdup (s) : NULL;
+}
+
+
+const char*
+mu_date_interpret_s (const char *datespec, gboolean is_begin)
+{
+	static char fulldate[14 + 1];
+	time_t now;
+
+	g_return_val_if_fail (datespec, NULL);
+
+	now = time(NULL);
+	if (strcmp (datespec, "today") == 0) {
+		strftime(fulldate, sizeof(fulldate),
+			 is_begin ? "%Y%m%d000000" : "%Y%m%d235959",
+			 localtime(&now));
+		return fulldate;
+	}
+
+	if (strcmp (datespec, "now") == 0) {
+		strftime(fulldate, sizeof(fulldate), "%Y%m%d%H%M%S",
+			 localtime(&now));
+		return fulldate;
+	}
+
+	{
+		time_t t;
+		t = mu_date_parse_hdwmy (datespec);
+		if (t != (time_t)-1) {
+			strftime(fulldate, sizeof(fulldate), "%Y%m%d%H%M%S",
+				 localtime(&t));
+			return fulldate;
+		}
+	}
+
+	return datespec; /* nothing changed */
+}
+
+
+char*
+mu_date_interpret (const char *datespec, gboolean is_begin)
+{
+	char *s;
+
+	g_return_val_if_fail (datespec, NULL);
+
+	s = mu_date_interpret (datespec, is_begin);
+	return s ? g_strdup(s) : NULL;
+}
+
+
+time_t
+mu_date_str_to_time_t (const char* date, gboolean local)
+{
+	struct tm tm;
+	char mydate[14 + 1]; /* YYYYMMDDHHMMSS */
+	time_t t;
+	const char *tz;
+
+	memset (&tm, 0, sizeof(struct tm));
+	strncpy (mydate, date, 15);
+	mydate[sizeof(mydate)-1]='\0';
+
+	g_return_val_if_fail (date, (time_t)-1);
+
+	tm.tm_sec   = atoi (mydate + 12);     mydate[12] = '\0';
+	tm.tm_min   = atoi (mydate + 10);     mydate[10] = '\0';
+	tm.tm_hour  = atoi (mydate +  8);     mydate[8]  = '\0';
+	tm.tm_mday  = atoi (mydate +  6);     mydate[6]  = '\0';
+	tm.tm_mon   = atoi (mydate +  4) - 1; mydate[4]  = '\0';
+	tm.tm_year  = atoi (mydate) - 1900;
+	tm.tm_isdst = -1; /* figure out the dst */
+
+	if (!local) { /* temporarily switch to UTC */
+		tz = getenv ("TZ");
+		setenv ("TZ", "", 1);
+		tzset ();
+	}
+
+	t = mktime (&tm);
+
+	if (!local) { /* switch back */
+		if (tz)
+			setenv("TZ", tz, 1);
+		else
+			unsetenv("TZ");
+		tzset();
+	}
+
+	return t;
+}
+
+const char*
+mu_date_time_t_to_str_s (time_t t, gboolean local)
+{
+	/* static char datestr[14 + 1]; /\* YYYYMMDDHHMMSS *\/ */
+	static char datestr[14+1]; /* YYYYMMDDHHMMSS */
+
+	static const char *frm = "%Y%m%d%H%M%S";
+
+	strftime (datestr, sizeof(datestr), frm,
+		  local ? localtime (&t) : gmtime(&t));
+
+	return datestr;
+}
+
+
+char*
+mu_date_time_t_to_str (time_t t, gboolean local)
+{
+	const char* str;
+
+	str = mu_date_time_t_to_str_s (t, local);
+
+	return str ? g_strdup(str): NULL;
+}