#include <sys/cdefs.h>
__FBSDID("$FreeBSD: src/usr.sbin/newsyslog/ptimes.c,v 1.5 2004/06/07 21:53:27 gad Exp $");
#include <ctype.h>
#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "extern.h"
#define SECS_PER_HOUR 3600
#define TSPEC_YEAR 0x0001
#define TSPEC_MONTHOFYEAR 0x0002
#define TSPEC_LDAYOFMONTH 0x0004
#define TSPEC_DAYOFMONTH 0x0008
#define TSPEC_DAYOFWEEK 0x0010
#define TSPEC_HOUROFDAY 0x0020
#define TNYET_ADJ4DST -10
struct ptime_data {
time_t basesecs;
time_t tsecs;
struct tm basetm;
struct tm tm;
int did_adj4dst;
int parseopts;
int tmspec;
};
static int days_pmonth(int month, int year);
static int parse8601(struct ptime_data *ptime, const char *str);
static int parseDWM(struct ptime_data *ptime, const char *str);
static int
days_pmonth(int month, int year)
{
static const int mtab[] = {31, 28, 31, 30, 31, 30, 31, 31,
30, 31, 30, 31};
int ndays;
ndays = mtab[month];
if (month == 1) {
if (year < 1900)
year += 1900;
if (year % 4 == 0) {
if (year % 100 != 0)
ndays++;
else if (year % 400 == 0)
ndays++;
}
}
return (ndays);
}
static int
parse8601(struct ptime_data *ptime, const char *s)
{
char *t;
long l;
struct tm tm;
l = strtol(s, &t, 10);
if (l < 0 || l >= INT_MAX || (*t != '\0' && *t != 'T'))
return (-1);
tm = ptime->tm;
ptime->tmspec = TSPEC_HOUROFDAY;
switch (t - s) {
case 8:
tm.tm_year = ((l / 1000000) - 19) * 100;
l = l % 1000000;
case 6:
ptime->tmspec |= TSPEC_YEAR;
tm.tm_year -= tm.tm_year % 100;
tm.tm_year += l / 10000;
l = l % 10000;
case 4:
ptime->tmspec |= TSPEC_MONTHOFYEAR;
tm.tm_mon = (l / 100) - 1;
l = l % 100;
case 2:
ptime->tmspec |= TSPEC_DAYOFMONTH;
tm.tm_mday = l;
case 0:
break;
default:
return (-1);
}
if (tm.tm_year < 70 || tm.tm_mon < 0 || tm.tm_mon > 12
|| tm.tm_mday < 1 || tm.tm_mday > 31)
return (-1);
if (*t != '\0') {
s = ++t;
l = strtol(s, &t, 10);
if (l < 0 || l >= INT_MAX || (*t != '\0' && !isspace(*t)))
return (-1);
switch (t - s) {
case 6:
tm.tm_sec = l % 100;
l /= 100;
case 4:
tm.tm_min = l % 100;
l /= 100;
case 2:
ptime->tmspec |= TSPEC_HOUROFDAY;
tm.tm_hour = l;
case 0:
break;
default:
return (-1);
}
if (tm.tm_sec < 0 || tm.tm_sec > 60 || tm.tm_min < 0
|| tm.tm_min > 59 || tm.tm_hour < 0 || tm.tm_hour > 23)
return (-1);
}
ptime->tm = tm;
return (0);
}
static int
parseDWM(struct ptime_data *ptime, const char *s)
{
int daysmon, Dseen, WMseen;
const char *endval;
char *tmp;
long l;
struct tm tm;
tm = ptime->tm;
daysmon = days_pmonth(tm.tm_mon, tm.tm_year);
WMseen = Dseen = 0;
ptime->tmspec = TSPEC_HOUROFDAY;
for (;;) {
endval = NULL;
switch (*s) {
case 'D':
if (Dseen)
return (-1);
Dseen++;
ptime->tmspec |= TSPEC_HOUROFDAY;
s++;
l = strtol(s, &tmp, 10);
if (l < 0 || l > 23)
return (-1);
endval = tmp;
tm.tm_hour = l;
break;
case 'W':
if (WMseen)
return (-1);
WMseen++;
ptime->tmspec |= TSPEC_DAYOFWEEK;
s++;
l = strtol(s, &tmp, 10);
if (l < 0 || l > 6)
return (-1);
endval = tmp;
if (l != tm.tm_wday) {
int save;
if (l < tm.tm_wday) {
save = 6 - tm.tm_wday;
save += (l + 1);
} else {
save = l - tm.tm_wday;
}
tm.tm_mday += save;
if (tm.tm_mday > daysmon) {
tm.tm_mon++;
tm.tm_mday = tm.tm_mday - daysmon;
}
}
break;
case 'M':
if (WMseen)
return (-1);
WMseen++;
ptime->tmspec |= TSPEC_DAYOFMONTH;
s++;
if (tolower(*s) == 'l') {
ptime->tmspec |= TSPEC_LDAYOFMONTH;
tm.tm_mday = daysmon;
endval = s + 1;
} else {
l = strtol(s, &tmp, 10);
if (l < 1 || l > 31)
return (-1);
if (l > daysmon)
return (-1);
endval = tmp;
tm.tm_mday = l;
}
break;
default:
return (-1);
break;
}
if (endval == NULL)
return (-1);
else if (*endval == '\0' || isspace(*endval))
break;
else
s = endval;
}
ptime->tm = tm;
return (0);
}
struct ptime_data *
ptime_init(const struct ptime_data *optsrc)
{
struct ptime_data *newdata;
newdata = malloc(sizeof(struct ptime_data));
if (optsrc != NULL) {
memcpy(newdata, optsrc, sizeof(struct ptime_data));
} else {
memset(newdata, '\0', sizeof(struct ptime_data));
newdata->did_adj4dst = TNYET_ADJ4DST;
}
return (newdata);
}
int
ptime_adjust4dst(struct ptime_data *ptime, const struct ptime_data *dstsrc)
{
struct ptime_data adjtime;
if (ptime == NULL)
return (-1);
adjtime = *ptime;
if ((adjtime.did_adj4dst != TNYET_ADJ4DST) &&
(adjtime.did_adj4dst == dstsrc->tm.tm_isdst))
return (0);
if (dstsrc->tm.tm_isdst != adjtime.tm.tm_isdst) {
if (adjtime.tm.tm_isdst == 1)
adjtime.tsecs -= SECS_PER_HOUR;
else if (adjtime.tm.tm_isdst == 0)
adjtime.tsecs += SECS_PER_HOUR;
adjtime.tm = *(localtime(&adjtime.tsecs));
adjtime.did_adj4dst = dstsrc->tm.tm_isdst;
}
*ptime = adjtime;
return (0);
}
int
ptime_relparse(struct ptime_data *ptime, int parseopts, time_t basetime,
const char *str)
{
int dpm, pres;
struct tm temp_tm;
ptime->parseopts = parseopts;
ptime->basesecs = basetime;
ptime->basetm = *(localtime(&ptime->basesecs));
ptime->tm = ptime->basetm;
ptime->tm.tm_hour = ptime->tm.tm_min = ptime->tm.tm_sec = 0;
if (parseopts & PTM_PARSE_DWM)
pres = parseDWM(ptime, str);
else
pres = parse8601(ptime, str);
if (pres < 0) {
ptime->tsecs = (time_t)pres;
return (pres);
}
dpm = days_pmonth(ptime->tm.tm_mon, ptime->tm.tm_year);
if ((parseopts & PTM_PARSE_MATCHDOM) &&
(ptime->tmspec & TSPEC_DAYOFMONTH) &&
(ptime->tm.tm_mday> dpm)) {
if (verbose && dbg_at_times > 1)
fprintf(stderr,
"\t-- dom fixed: %4d/%02d/%02d %02d:%02d (%02d)",
ptime->tm.tm_year, ptime->tm.tm_mon,
ptime->tm.tm_mday, ptime->tm.tm_hour,
ptime->tm.tm_min, dpm);
temp_tm = ptime->tm;
ptime->tsecs = mktime(&temp_tm);
if (ptime->tsecs > (time_t)-1)
ptimeset_nxtime(ptime);
if (verbose && dbg_at_times > 1)
fprintf(stderr,
" to: %4d/%02d/%02d %02d:%02d\n",
ptime->tm.tm_year, ptime->tm.tm_mon,
ptime->tm.tm_mday, ptime->tm.tm_hour,
ptime->tm.tm_min);
}
ptime->tsecs = mktime(&ptime->tm);
if (ptime->tsecs == (time_t)-1) {
ptime->tsecs = (time_t)-2;
return (-2);
}
return (0);
}
int
ptime_free(struct ptime_data *ptime)
{
if (ptime == NULL)
return (-1);
free(ptime);
return (0);
}
const char *
ptimeget_ctime(const struct ptime_data *ptime)
{
if (ptime == NULL)
return ("Null time in ptimeget_ctime()\n");
return (ctime(&ptime->tsecs));
}
double
ptimeget_diff(const struct ptime_data *minuend, const struct
ptime_data *subtrahend)
{
if (minuend == NULL || subtrahend == NULL)
return (0.0);
return (difftime(minuend->tsecs, subtrahend->tsecs));
}
time_t
ptimeget_secs(const struct ptime_data *ptime)
{
if (ptime == NULL)
return (-1);
return (ptime->tsecs);
}
int
ptimeset_nxtime(struct ptime_data *ptime)
{
int moredays, tdpm, tmon, tyear;
struct ptime_data nextmatch;
if (ptime == NULL)
return (-1);
nextmatch = *ptime;
if (ptime->tmspec & TSPEC_YEAR)
return (-1);
moredays = 0;
if (ptime->tmspec & TSPEC_MONTHOFYEAR) {
if (ptime->tm.tm_mon == 1 && ptime->tm.tm_mday == 29) {
nextmatch.tm.tm_year += 4;
if (days_pmonth(1, nextmatch.tm.tm_year) < 29)
nextmatch.tm.tm_year += 4;
} else {
nextmatch.tm.tm_year += 1;
}
nextmatch.tm.tm_isdst = -1;
nextmatch.tsecs = mktime(&nextmatch.tm);
} else if (ptime->tmspec & TSPEC_LDAYOFMONTH) {
if (ptime->tm.tm_mon < 11)
moredays = days_pmonth(ptime->tm.tm_mon + 1,
ptime->tm.tm_year);
else
moredays = days_pmonth(0, ptime->tm.tm_year + 1);
} else if (ptime->tmspec & TSPEC_DAYOFMONTH) {
moredays = days_pmonth(ptime->tm.tm_mon, ptime->tm.tm_year);
tmon = ptime->tm.tm_mon;
tyear = ptime->tm.tm_year;
for (;;) {
if (tmon < 11)
tmon += 1;
else {
tmon = 0;
tyear += 1;
}
tdpm = days_pmonth(tmon, tyear);
if (tdpm >= ptime->tm.tm_mday)
break;
moredays += tdpm;
}
} else if (ptime->tmspec & TSPEC_DAYOFWEEK) {
moredays = 7;
} else if (ptime->tmspec & TSPEC_HOUROFDAY) {
moredays = 1;
}
if (moredays != 0) {
nextmatch.tsecs += SECS_PER_HOUR * 24 * moredays;
nextmatch.tm = *(localtime(&nextmatch.tsecs));
}
ptime_adjust4dst(&nextmatch, ptime);
*ptime = nextmatch;
return (0);
}
int
ptimeset_time(struct ptime_data *ptime, time_t secs)
{
if (ptime == NULL)
return (-1);
ptime->tsecs = secs;
ptime->tm = *(localtime(&ptime->tsecs));
ptime->parseopts = 0;
return (0);
}