commit 3b30ba1ac95502e1d0f86f19cbec82092ae72141
author Jan Kundrát <jan.kundrat@cesnet.cz> Sat Dec 11 00:46:58 2021 +0100
committer Michal Vasko <mvasko@cesnet.cz> Thu Dec 16 12:12:03 2021 +0100
tree d9ae1dfe00fce43b778a0bdf235ba0625ef221b6
parent a5a7e29d46ceda09e5e1af5b3dff3deebc5f33c3

compat: strptime: lobotomize to not depend on nl_langinfo

...which is not available on Windows, and neither is <strings.h>.

compat/strptime.c

diff --git a/compat/strptime.c b/compat/strptime.c
index 3177b92..47f9564 100644
--- a/compat/strptime.c
+++ b/compat/strptime.c
@@ -3,21 +3,20 @@
  *
  * Downloaded from https://git.musl-libc.org/cgit/musl/plain/src/time/strptime.c,
  * commit 98e688a9da5e7b2925dda17a2d6820dddf1fb287.
+ *
+ * Lobotomized to remove references to nl_langinfo().
  * */
 
+#include <stdio.h>
 #include <stdlib.h>
-#include <langinfo.h>
 #include <time.h>
 #include <ctype.h>
 #include <stddef.h>
 #include <string.h>
-#include <strings.h>
 
 char *strptime(const char *restrict s, const char *restrict f, struct tm *restrict tm)
 {
 	int i, w, neg, adj, min, range, *dest, dummy;
-	const char *ex;
-	size_t len;
 	int want_century = 0, century = 0, relyear = 0;
 	while (*f) {
 		if (*f != '%') {
@@ -39,19 +38,9 @@
 		adj=0;
 		switch (*f++) {
 		case 'a': case 'A':
-			dest = &tm->tm_wday;
-			min = ABDAY_1;
-			range = 7;
-			goto symbolic_range;
 		case 'b': case 'B': case 'h':
-			dest = &tm->tm_mon;
-			min = ABMON_1;
-			range = 12;
-			goto symbolic_range;
 		case 'c':
-			s = strptime(s, nl_langinfo(D_T_FMT), tm);
-			if (!s) return 0;
-			break;
+			goto fail_nl_langinfo;
 		case 'C':
 			dest = &century;
 			if (w<0) w=2;
@@ -97,26 +86,8 @@
 			for (; *s && isspace(*s); s++);
 			break;
 		case 'p':
-			ex = nl_langinfo(AM_STR);
-			len = strlen(ex);
-			if (!strncasecmp(s, ex, len)) {
-				tm->tm_hour %= 12;
-				s += len;
-				break;
-			}
-			ex = nl_langinfo(PM_STR);
-			len = strlen(ex);
-			if (!strncasecmp(s, ex, len)) {
-				tm->tm_hour %= 12;
-				tm->tm_hour += 12;
-				s += len;
-				break;
-			}
-			return 0;
 		case 'r':
-			s = strptime(s, nl_langinfo(T_FMT_AMPM), tm);
-			if (!s) return 0;
-			break;
+			goto fail_nl_langinfo;
 		case 'R':
 			s = strptime(s, "%H:%M", tm);
 			if (!s) return 0;
@@ -143,13 +114,8 @@
 			range = 7;
 			goto numeric_range;
 		case 'x':
-			s = strptime(s, nl_langinfo(D_FMT), tm);
-			if (!s) return 0;
-			break;
 		case 'X':
-			s = strptime(s, nl_langinfo(T_FMT), tm);
-			if (!s) return 0;
-			break;
+			goto fail_nl_langinfo;
 		case 'y':
 			dest = &relyear;
 			w = 2;
@@ -188,17 +154,6 @@
 			if (neg) *dest = -*dest;
 			*dest -= adj;
 			goto update;
-		symbolic_range:
-			for (i=2*range-1; i>=0; i--) {
-				ex = nl_langinfo(min+i);
-				len = strlen(ex);
-				if (strncasecmp(s, ex, len)) continue;
-				s += len;
-				*dest = i % range;
-				break;
-			}
-			if (i<0) return 0;
-			goto update;
 		update:
 			//FIXME
 			;
@@ -210,4 +165,7 @@
 		else if (tm->tm_year <= 68) tm->tm_year += 100;
 	}
 	return (char *)s;
+fail_nl_langinfo:
+	fprintf(stderr, "strptime: nl_langinfo not available");
+	return NULL;
 }