1/*- 2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD 3 * 4 * Copyright (C) 1996 5 * David L. Nugent. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY DAVID L. NUGENT AND CONTRIBUTORS ``AS IS'' AND 17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 19 * ARE DISCLAIMED. IN NO EVENT SHALL DAVID L. NUGENT OR CONTRIBUTORS BE LIABLE 20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 26 * SUCH DAMAGE. 27 */ 28 29#ifndef lint 30static const char rcsid[] = 31 "$FreeBSD$"; 32#endif /* not lint */ 33 34#include <ctype.h> 35#include <err.h> 36#include <stdlib.h> 37#include <string.h> 38#include <xlocale.h> 39 40#include "psdate.h" 41 42 43int 44numerics(char const * str) 45{ 46 47 return (str[strspn(str, "0123456789x")] == '\0'); 48} 49 50static int 51aindex(char const * arr[], char const ** str, int len) 52{ 53 int l, i; 54 char mystr[32]; 55 56 mystr[len] = '\0'; 57 l = strlen(strncpy(mystr, *str, len)); 58 for (i = 0; i < l; i++) 59 mystr[i] = (char) tolower((unsigned char)mystr[i]); 60 for (i = 0; arr[i] && strcmp(mystr, arr[i]) != 0; i++); 61 if (arr[i] == NULL) 62 i = -1; 63 else { /* Skip past it */ 64 while (**str && isalpha((unsigned char)**str)) 65 ++(*str); 66 /* And any following whitespace */ 67 while (**str && (**str == ',' || isspace((unsigned char)**str))) 68 ++(*str); 69 } /* Return index */ 70 return i; 71} 72 73static int 74weekday(char const ** str) 75{ 76 static char const *days[] = 77 {"sun", "mon", "tue", "wed", "thu", "fri", "sat", NULL}; 78 79 return aindex(days, str, 3); 80} 81 82static void 83parse_datesub(char const * str, struct tm *t) 84{ 85 struct tm tm; 86 locale_t l; 87 int i; 88 char *ret; 89 const char *valid_formats[] = { 90 "%d-%b-%y", 91 "%d-%b-%Y", 92 "%d-%m-%y", 93 "%d-%m-%Y", 94 "%H:%M %d-%b-%y", 95 "%H:%M %d-%b-%Y", 96 "%H:%M %d-%m-%y", 97 "%H:%M %d-%m-%Y", 98 "%H:%M:%S %d-%b-%y", 99 "%H:%M:%S %d-%b-%Y", 100 "%H:%M:%S %d-%m-%y", 101 "%H:%M:%S %d-%m-%Y", 102 "%d-%b-%y %H:%M", 103 "%d-%b-%Y %H:%M", 104 "%d-%m-%y %H:%M", 105 "%d-%m-%Y %H:%M", 106 "%d-%b-%y %H:%M:%S", 107 "%d-%b-%Y %H:%M:%S", 108 "%d-%m-%y %H:%M:%S", 109 "%d-%m-%Y %H:%M:%S", 110 "%H:%M\t%d-%b-%y", 111 "%H:%M\t%d-%b-%Y", 112 "%H:%M\t%d-%m-%y", 113 "%H:%M\t%d-%m-%Y", 114 "%H:%M\t%S %d-%b-%y", 115 "%H:%M\t%S %d-%b-%Y", 116 "%H:%M\t%S %d-%m-%y", 117 "%H:%M\t%S %d-%m-%Y", 118 "%d-%b-%y\t%H:%M", 119 "%d-%b-%Y\t%H:%M", 120 "%d-%m-%y\t%H:%M", 121 "%d-%m-%Y\t%H:%M", 122 "%d-%b-%y\t%H:%M:%S", 123 "%d-%b-%Y\t%H:%M:%S", 124 "%d-%m-%y\t%H:%M:%S", 125 "%d-%m-%Y\t%H:%M:%S", 126 NULL, 127 }; 128 129 l = newlocale(LC_ALL_MASK, "C", NULL); 130 131 memset(&tm, 0, sizeof(tm)); 132 for (i=0; valid_formats[i] != NULL; i++) { 133 ret = strptime_l(str, valid_formats[i], &tm, l); 134 if (ret && *ret == '\0') { 135 t->tm_mday = tm.tm_mday; 136 t->tm_mon = tm.tm_mon; 137 t->tm_year = tm.tm_year; 138 t->tm_hour = tm.tm_hour; 139 t->tm_min = tm.tm_min; 140 t->tm_sec = tm.tm_sec; 141 freelocale(l); 142 return; 143 } 144 } 145 146 freelocale(l); 147 148 errx(EXIT_FAILURE, "Invalid date"); 149} 150 151 152/*- 153 * Parse time must be flexible, it handles the following formats: 154 * nnnnnnnnnnn UNIX timestamp (all numeric), 0 = now 155 * 0xnnnnnnnn UNIX timestamp in hexadecimal 156 * 0nnnnnnnnn UNIX timestamp in octal 157 * 0 Given time 158 * +nnnn[smhdwoy] Given time + nnnn hours, mins, days, weeks, months or years 159 * -nnnn[smhdwoy] Given time - nnnn hours, mins, days, weeks, months or years 160 * dd[ ./-]mmm[ ./-]yy Date } 161 * hh:mm:ss Time } May be combined 162 */ 163 164time_t 165parse_date(time_t dt, char const * str) 166{ 167 char *p; 168 int i; 169 long val; 170 struct tm *T; 171 172 if (dt == 0) 173 dt = time(NULL); 174 175 while (*str && isspace((unsigned char)*str)) 176 ++str; 177 178 if (numerics(str)) { 179 dt = strtol(str, &p, 0); 180 } else if (*str == '+' || *str == '-') { 181 val = strtol(str, &p, 0); 182 switch (*p) { 183 case 'h': 184 case 'H': /* hours */ 185 dt += (val * 3600L); 186 break; 187 case '\0': 188 case 'm': 189 case 'M': /* minutes */ 190 dt += (val * 60L); 191 break; 192 case 's': 193 case 'S': /* seconds */ 194 dt += val; 195 break; 196 case 'd': 197 case 'D': /* days */ 198 dt += (val * 86400L); 199 break; 200 case 'w': 201 case 'W': /* weeks */ 202 dt += (val * 604800L); 203 break; 204 case 'o': 205 case 'O': /* months */ 206 T = localtime(&dt); 207 T->tm_mon += (int) val; 208 i = T->tm_mday; 209 goto fixday; 210 case 'y': 211 case 'Y': /* years */ 212 T = localtime(&dt); 213 T->tm_year += (int) val; 214 i = T->tm_mday; 215 fixday: 216 dt = mktime(T); 217 T = localtime(&dt); 218 if (T->tm_mday != i) { 219 T->tm_mday = 1; 220 dt = mktime(T); 221 dt -= (time_t) 86400L; 222 } 223 default: /* unknown */ 224 break; /* leave untouched */ 225 } 226 } else { 227 char *q, tmp[64]; 228 229 /* 230 * Skip past any weekday prefix 231 */ 232 weekday(&str); 233 strlcpy(tmp, str, sizeof(tmp)); 234 str = tmp; 235 T = localtime(&dt); 236 237 /* 238 * See if we can break off any timezone 239 */ 240 while ((q = strrchr(tmp, ' ')) != NULL) { 241 if (strchr("(+-", q[1]) != NULL) 242 *q = '\0'; 243 else { 244 int j = 1; 245 246 while (q[j] && isupper((unsigned char)q[j])) 247 ++j; 248 if (q[j] == '\0') 249 *q = '\0'; 250 else 251 break; 252 } 253 } 254 255 parse_datesub(tmp, T); 256 dt = mktime(T); 257 } 258 return dt; 259} 260