logo

utils-std

Collection of commonly available Unix tools git clone https://anongit.hacktivis.me/git/utils-std.git

iso_parse.c (3679B)

    

  1. // utils-std: Collection of commonly available Unix tools
  2. // SPDX-FileCopyrightText: 2017 Haelwenn (lanodan) Monnier <contact+utils@hacktivis.me>
  3. // SPDX-License-Identifier: MPL-2.0
  5. #define _DEFAULT_SOURCE         // tm_gmtoff/tm_zone
  6. #define _XOPEN_SOURCE 700       // strptime (NetBSD)
  7. #define _POSIX_C_SOURCE 200809L // st_atim/st_mtim
  9. #include "./iso_parse.h"
  11. #include <assert.h>
  12. #include <ctype.h>    /* isdigit */
  13. #include <errno.h>    /* errno */
  14. #include <inttypes.h> /* PRId16 */
  15. #include <limits.h>   /* TZNAME_MAX */
  16. #include <stdio.h>    /* perror, sscanf */
  17. #include <stdlib.h>   /* strtol */
  18. #include <string.h>   /* memset */
  19. #include <time.h>     /* strptime, tm */
  21. // Sets errstr on failure
  22. // YYYY-MM-DD[T ]hh:mm:SS([,\.]frac)?(Z|[+\-]hh:?mm)?
  23. char *
  24. iso_parse(char *arg, struct tm *time, long *nsec, const char **errstr)
  25. {
  26. 	// For Alpine's abuild compatibility
  27. 	if(arg[0] == '@')
  28. 	{
  29. 		arg++;
  31. 		assert(errno == 0);
  32. 		char *endptr = NULL;
  33. 		time_t now = strtol(arg, &endptr, 10);
  34. 		if(errno != 0)
  35. 		{
  36. 			*errstr = strerror(errno);
  37. 			errno = 0;
  38. 			return NULL;
  39. 		}
  41. 		nsec = 0;
  42. 		gmtime_r(&now, time);
  44. 		return endptr;
  45. 	}
  47. 	// No %F in POSIX
  48. 	char *s = strptime(arg, "%Y-%m-%d", time);
  50. 	if(s == NULL)
  51. 	{
  52. 		*errstr = "strptime(…, \"%Y-%m-%d\", …) returned NULL";
  53. 		errno = 0;
  54. 		return NULL;
  55. 	}
  56. 	if(s[0] != 'T' && s[0] != ' ')
  57. 	{
  58. 		*errstr = "Couldn't find time-separator (T or space) after date (Y-m-d)";
  59. 		errno = 0;
  60. 		return NULL;
  61. 	}
  62. 	s++;
  64. 	s = strptime(s, "%H:%M:%S", time);
  65. 	if(s == NULL)
  66. 	{
  67. 		*errstr = "strptime(…, \"%H:%M:%S\", …) returned NULL";
  68. 		errno = 0;
  69. 		return NULL;
  70. 	}
  72. 	if(s[0] == ',' || s[0] == '.')
  73. 	{
  74. 		double fraction = 0.0;
  75. 		int parsed = 0;
  77. 		if(s[0] == ',') s[0] = '.';
  79. 		assert(errno == 0);
  80. 		if(sscanf(s, "%10lf%n", &fraction, &parsed) < 1)
  81. 		{
  82. 			if(errno == 0)
  83. 			{
  84. 				*errstr = "Failed to parse fractional seconds";
  85. 			}
  86. 			else
  87. 			{
  88. 				*errstr = strerror(errno);
  89. 				errno = 0;
  90. 			}
  91. 			return NULL;
  92. 		}
  94. 		*nsec = (long)(fraction * 1000000000);
  95. 		s += parsed;
  97. 		// too many digits
  98. 		if(isdigit(s[0]))
  99. 		{
  100. 			*errstr = "Too many digits (> 10) for fractional seconds";
  101. 			return NULL;
  102. 		}
  103. 	}
  105. 	if(s != NULL && s[0] != '\0')
  106. 	{
  107. 		if(s[0] == 'Z' && s[1] == '\0')
  108. 		{
  109. 			time->tm_gmtoff = 0;
  110. 			time->tm_zone = "UTC";
  111. 		}
  112. 		else
  113. 		{
  114. 			int neg;
  115. 			if(*s == '+')
  116. 				neg = 0;
  117. 			else if(*s == '-')
  118. 				neg = 1;
  119. 			else
  120. 			{
  121. 				*errstr = "Invalid timezone offset, must start with + or -";
  122. 				return NULL;
  123. 			}
  125. 			char *o = s + 1;
  127. 			if(isdigit(o[0]) && isdigit(o[1]))
  128. 			{
  129. 				time->tm_gmtoff = (o[0] - '0') * 36000 + (o[1] - '0') * 3600;
  130. 				o += 2;
  131. 			}
  132. 			else
  133. 			{
  134. 				*errstr = "Invalid timezone offset, no digits after [+|-]";
  135. 				return NULL;
  136. 			}
  138. 			if(o[0] == ':') o++;
  140. 			if(isdigit(o[0]) && isdigit(o[1]))
  141. 			{
  142. 				time->tm_gmtoff += (o[0] - '0') * 600 + (o[1] - '0') * 60;
  143. 				o += 2;
  144. 			}
  145. 			else
  146. 			{
  147. 				*errstr = "Invalid timezone offset, no digits after [+|-]";
  148. 				return NULL;
  149. 			}
  151. 			if(neg) time->tm_gmtoff = -time->tm_gmtoff;
  153. #ifndef TZNAME_MAX
  154. #define TZNAME_MAX _POSIX_TZNAME_MAX
  155. #endif
  156. 			static char offname[TZNAME_MAX + 1] = "";
  157. 			assert(o - s < TZNAME_MAX);
  158. 			memcpy(offname, s, o - s);
  159. 			time->tm_zone = offname;
  160. 		}
  161. 	}
  163. 	assert(errno == 0);
  165. 	return s;
  166. }
  168. // Because mktime() messes with tm_gmtoff yet doesn't applies it, even in POSIX.1-2024
  169. // Returns (time_t)-1 on failure
  170. time_t
  171. mktime_tz(struct tm *tm)
  172. {
  173. 	long gmtoff = tm->tm_gmtoff;
  174. 	const char *zone = tm->tm_zone;
  176. 	time_t res = mktime(tm);
  177. 	tm->tm_gmtoff = gmtoff;
  178. 	tm->tm_zone = zone;
  180. 	if(res == (time_t)-1) return res;
  182. 	// 12:00+02:00 corresponds to 10:00Z so needs to be reversed
  183. 	res += -gmtoff;
  185. 	return res;
  186. }