#include <ctype.h>
#include <err.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "calendar.h"
#include "basics.h"
#include "days.h"
#include "gregorian.h"
#include "io.h"
#include "nnames.h"
#include "parsedata.h"
#include "utils.h"
struct dateinfo {
int flags;
int sday_id;
int year;
int month;
int dayofmonth;
int dayofweek;
int offset;
int index;
};
static bool check_dayofweek(const char *s, size_t *len, int *dow);
static bool check_month(const char *s, size_t *len, int *month);
static bool determine_style(const char *date, struct dateinfo *di);
static bool is_onlydigits(const char *s, bool endstar);
static bool parse_angle(const char *s, double *result);
static const char *parse_int_ranged(const char *s, size_t len, int min,
int max, int *result);
static bool parse_index(const char *s, int *index);
static void show_dateinfo(struct dateinfo *di);
static bool
determine_style(const char *date, struct dateinfo *di)
{
static char date2[128];
struct specialday *sday;
char *p, *p1, *p2;
size_t len;
snprintf(date2, sizeof(date2), "%s", date);
if ((p = strchr(date2, ' ')) == NULL &&
(p = strchr(date2, '/')) == NULL) {
for (size_t i = 0; specialdays[i].id != SD_NONE; i++) {
sday = &specialdays[i];
if (strncasecmp(date2, sday->name, sday->len) == 0) {
len = sday->len;
} else if (sday->n_len > 0 && strncasecmp(
date2, sday->n_name, sday->n_len) == 0) {
len = sday->n_len;
} else {
continue;
}
di->flags |= (F_SPECIALDAY | F_VARIABLE);
di->sday_id = sday->id;
if (strlen(date2) == len)
return true;
di->offset = (int)strtol(date2+len, NULL, 10);
di->flags |= F_OFFSET;
return true;
}
if (check_dayofweek(date2, &len, &di->dayofweek)) {
di->flags |= (F_DAYOFWEEK | F_VARIABLE);
if (strlen(date2) == len)
return true;
if (parse_index(date2+len, &di->index)) {
di->flags |= F_INDEX;
return true;
}
}
goto error;
}
*p = '\0';
p1 = date2;
p2 = p + 1;
if ((p = strchr(p2, ' ')) != NULL ||
(p = strchr(p2, '/')) != NULL) {
di->flags |= F_YEAR;
di->year = (int)strtol(p1, NULL, 10);
*p = '\0';
p1 = p2;
p2 = p + 1;
}
if (is_onlydigits(p1, false) && is_onlydigits(p2, true)) {
di->flags |= (F_MONTH | F_DAYOFMONTH);
if (strchr(p2, '*') != NULL)
di->flags |= F_VARIABLE;
int m = (int)strtol(p1, NULL, 10);
int d = (int)strtol(p2, NULL, 10);
if (m > 12 && d > 12) {
warnx("%s: invalid month |%d| in date: |%s|",
__func__, m, date);
goto error;
}
if (m > 12)
swap(&m, &d);
di->month = m;
di->dayofmonth = d;
return true;
}
if ((strcmp(p1, "*") == 0 && is_onlydigits(p2, false)) ||
(strcmp(p2, "*") == 0 && is_onlydigits(p1, false) && (p2 = p1))) {
di->flags |= (F_ALLMONTH | F_DAYOFMONTH);
di->dayofmonth = (int)strtol(p2, NULL, 10);
return true;
}
if (is_onlydigits(p1, false) &&
check_dayofweek(p2, &len, &di->dayofweek)) {
di->flags |= (F_MONTH | F_DAYOFWEEK | F_VARIABLE);
di->month = (int)strtol(p1, NULL, 10);
if (strlen(p2) == len)
return true;
if (parse_index(p2+len, &di->index)) {
di->flags |= F_INDEX;
return true;
}
warnx("%s: invalid weekday part |%s| in date |%s|",
__func__, p2, date);
goto error;
}
if (check_month(p1, &len, &di->month) ||
(check_month(p2, &len, &di->month) && (p2 = p1))) {
di->flags |= F_MONTH;
if (strcmp(p2, "*") == 0) {
di->flags |= F_ALLDAY;
return true;
}
if (is_onlydigits(p2, false)) {
di->dayofmonth = (int)strtol(p2, NULL, 10);
di->flags |= F_DAYOFMONTH;
return true;
}
if (check_dayofweek(p2, &len, &di->dayofweek)) {
di->flags |= (F_DAYOFWEEK | F_VARIABLE);
if (strlen(p2) == len)
return true;
if (parse_index(p2+len, &di->index)) {
di->flags |= F_INDEX;
return true;
}
}
warnx("%s: invalid non-month part |%s| in date |%s|",
__func__, p2, date);
goto error;
}
error:
warnx("%s: unrecognized date: |%s|", __func__, date);
return false;
}
static void
show_dateinfo(struct dateinfo *di)
{
struct specialday *sday;
fprintf(stderr, "flags: 0x%x -", di->flags);
if ((di->flags & F_YEAR) != 0)
fprintf(stderr, " year(%d)", di->year);
if ((di->flags & F_MONTH) != 0)
fprintf(stderr, " month(%d)", di->month);
if ((di->flags & F_DAYOFWEEK) != 0)
fprintf(stderr, " dayofweek(%d)", di->dayofweek);
if ((di->flags & F_DAYOFMONTH) != 0)
fprintf(stderr, " dayofmonth(%d)", di->dayofmonth);
if ((di->flags & F_INDEX) != 0)
fprintf(stderr, " index(%d)", di->index);
if ((di->flags & F_SPECIALDAY) != 0) {
fprintf(stderr, " specialday");
for (size_t i = 0; specialdays[i].id != SD_NONE; i++) {
sday = &specialdays[i];
if (di->sday_id == sday->id)
fprintf(stderr, "(%s)", sday->name);
}
}
if ((di->flags & F_OFFSET) != 0)
fprintf(stderr, " offset(%d)", di->offset);
if ((di->flags & F_ALLMONTH) != 0)
fprintf(stderr, " allmonth");
if ((di->flags & F_ALLDAY) != 0)
fprintf(stderr, " allday");
if ((di->flags & F_VARIABLE) != 0)
fprintf(stderr, " variable");
fprintf(stderr, "\n");
fflush(stderr);
}
int
parse_cal_date(const char *date, int *flags, struct cal_day **dayp, char **edp)
{
struct specialday *sday;
struct dateinfo di;
int index, offset;
memset(&di, 0, sizeof(di));
di.flags = F_NONE;
if (!determine_style(date, &di)) {
if (Options.debug)
show_dateinfo(&di);
return -1;
}
if (Options.debug >= 3)
show_dateinfo(&di);
*flags = di.flags;
index = (di.flags & F_INDEX) ? di.index : 0;
offset = (di.flags & F_OFFSET) ? di.offset : 0;
if ((di.flags & ~F_VARIABLE) == (F_YEAR | F_MONTH | F_DAYOFMONTH) &&
Calendar->find_days_ymd != NULL) {
return (Calendar->find_days_ymd)(di.year, di.month,
di.dayofmonth, dayp, edp);
}
if ((di.flags & ~F_VARIABLE) == (F_MONTH | F_DAYOFMONTH) &&
Calendar->find_days_ymd != NULL) {
return (Calendar->find_days_ymd)(-1, di.month, di.dayofmonth,
dayp, edp);
}
if (di.flags == (F_ALLMONTH | F_DAYOFMONTH) &&
Calendar->find_days_dom != NULL) {
return (Calendar->find_days_dom)(di.dayofmonth, dayp, edp);
}
if (di.flags == (F_ALLDAY | F_MONTH) &&
Calendar->find_days_month != NULL) {
return (Calendar->find_days_month)(di.month, dayp, edp);
}
if ((di.flags & ~F_INDEX) == (F_MONTH | F_DAYOFWEEK | F_VARIABLE) &&
Calendar->find_days_mdow != NULL) {
return (Calendar->find_days_mdow)(di.month, di.dayofweek,
index, dayp, edp);
}
if ((di.flags & ~F_INDEX) == (F_DAYOFWEEK | F_VARIABLE) &&
Calendar->find_days_mdow != NULL) {
return (Calendar->find_days_mdow)(-1, di.dayofweek, index,
dayp, edp);
}
if ((di.flags & F_SPECIALDAY) != 0) {
for (size_t i = 0; specialdays[i].id != SD_NONE; i++) {
sday = &specialdays[i];
if (di.sday_id == sday->id && sday->find_days != NULL)
return (sday->find_days)(offset, dayp, edp);
}
}
warnx("%s: Unsupported date |%s| in '%s' calendar",
__func__, date, Calendar->name);
if (Options.debug)
show_dateinfo(&di);
return -1;
}
static bool
check_month(const char *s, size_t *len, int *month)
{
struct nname *nname;
for (int i = 0; month_names[i].name != NULL; i++) {
nname = &month_names[i];
if (nname->fn_name &&
strncasecmp(s, nname->fn_name, nname->fn_len) == 0) {
*len = nname->fn_len;
*month = nname->value;
return (true);
}
if (nname->n_name &&
strncasecmp(s, nname->n_name, nname->n_len) == 0) {
*len = nname->n_len;
*month = nname->value;
return (true);
}
if (nname->f_name &&
strncasecmp(s, nname->f_name, nname->f_len) == 0) {
*len = nname->f_len;
*month = nname->value;
return (true);
}
if (strncasecmp(s, nname->name, nname->len) == 0) {
*len = nname->len;
*month = nname->value;
return (true);
}
}
return (false);
}
static bool
check_dayofweek(const char *s, size_t *len, int *dow)
{
struct nname *nname;
for (int i = 0; dow_names[i].name != NULL; i++) {
nname = &dow_names[i];
if (nname->fn_name &&
strncasecmp(s, nname->fn_name, nname->fn_len) == 0) {
*len = nname->fn_len;
*dow = nname->value;
return (true);
}
if (nname->n_name &&
strncasecmp(s, nname->n_name, nname->n_len) == 0) {
*len = nname->n_len;
*dow = nname->value;
return (true);
}
if (nname->f_name &&
strncasecmp(s, nname->f_name, nname->f_len) == 0) {
*len = nname->f_len;
*dow = nname->value;
return (true);
}
if (strncasecmp(s, nname->name, nname->len) == 0) {
*len = nname->len;
*dow = nname->value;
return (true);
}
}
return (false);
}
static bool
is_onlydigits(const char *s, bool endstar)
{
for (int i = 0; s[i] != '\0'; i++) {
if (endstar && i > 0 && s[i] == '*' && s[i+1] == '\0')
return (true);
if (!isdigit((unsigned char)s[i]))
return (false);
}
return (true);
}
static bool
parse_index(const char *s, int *index)
{
struct nname *nname;
bool parsed = false;
if (s[0] == '+' || s[0] == '-') {
char *endp;
int v = (int)strtol(s, &endp, 10);
if (*endp != '\0')
return false;
if (v == 0 || v <= -6 || v >= 6) {
warnx("%s: invalid value: %d", __func__, v);
return false;
}
*index = v;
parsed = true;
}
for (int i = 0; !parsed && sequence_names[i].name != NULL; i++) {
nname = &sequence_names[i];
if (strcasecmp(s, nname->name) == 0 ||
(nname->n_name && strcasecmp(s, nname->n_name) == 0)) {
*index = nname->value;
parsed = true;
}
}
DPRINTF2("%s: |%s| -> %d (status=%s)\n",
__func__, s, *index, (parsed ? "ok" : "fail"));
return parsed;
}
static const char *
parse_int_ranged(const char *s, size_t len, int min, int max, int *result)
{
if (strlen(s) < len)
return NULL;
const char *end = s + len;
int v = 0;
while (s < end) {
if (isdigit((unsigned char)*s) == 0)
return NULL;
v = 10 * v + (*s - '0');
s++;
}
if (v < min || v > max)
return NULL;
*result = v;
return end;
}
bool
parse_timezone(const char *s, int *result)
{
if (*s != '+' && *s != '-')
return false;
char sign = *s++;
int hh = 0;
int mm = 0;
if ((s = parse_int_ranged(s, 2, 0, 23, &hh)) == NULL)
return false;
if (*s != '\0') {
if (*s == ':')
s++;
if ((s = parse_int_ranged(s, 2, 0, 59, &mm)) == NULL)
return false;
}
if (*s != '\0')
return false;
int offset = hh * 3600 + mm * 60;
*result = (sign == '+') ? offset : -offset;
DPRINTF("%s: parsed |%s| -> %d seconds\n", __func__, s, *result);
return true;
}
static bool
parse_angle(const char *s, double *result)
{
char sign = '+';
if (*s == '+' || *s == '-')
sign = *s++;
char *endp;
double v;
v = strtod(s, &endp);
if (s == endp || *endp != '\0') {
int deg = 0;
int min = 0;
double sec = 0.0;
switch (sscanf(s, "%d:%d:%lf", °, &min, &sec)) {
case 3:
case 2:
case 1:
if (min < 0 || min >= 60 || sec < 0 || sec >= 60)
return false;
v = deg + min / 60.0 + sec / 3600.0;
break;
default:
return false;
}
}
*result = (sign == '+') ? v : -v;
return true;
}
bool
parse_location(const char *s, double *latitude, double *longitude,
double *elevation)
{
char *ds = xstrdup(s);
const char *sep = ",";
char *p;
double v;
p = strtok(ds, sep);
if (parse_angle(p, &v) && fabs(v) <= 90) {
*latitude = v;
} else {
warnx("%s: invalid latitude: |%s|", __func__, p);
return false;
}
p = strtok(NULL, sep);
if (p == NULL) {
warnx("%s: missing longitude", __func__);
return false;
}
if (parse_angle(p, &v) && fabs(v) <= 180) {
*longitude = v;
} else {
warnx("%s: invalid longitude: |%s|", __func__, p);
return false;
}
p = strtok(NULL, sep);
if (p != NULL) {
char *endp;
v = strtod(p, &endp);
if (p == endp || *endp != '\0' || v < 0) {
warnx("%s: invalid elevation: |%s|", __func__, p);
return false;
}
*elevation = v;
}
if ((p = strtok(NULL, sep)) != NULL) {
warnx("%s: unknown value: |%s|", __func__, p);
return false;
}
return true;
}
bool
parse_date(const char *date, int *rd_out)
{
size_t len;
time_t now;
struct tm tm;
struct date gdate;
now = time(NULL);
tzset();
localtime_r(&now, &tm);
date_set(&gdate, tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday);
len = strlen(date);
if (len < 2)
return false;
if (!parse_int_ranged(date+len-2, 2, 1, 31, &gdate.day))
return false;
if (len >= 4) {
if (!parse_int_ranged(date+len-4, 2, 1, 12, &gdate.month))
return false;
}
if (len >= 6) {
if (!parse_int_ranged(date, len-4, 0, 9999, &gdate.year))
return false;
if (gdate.year < 69)
gdate.year += 2000;
else if (gdate.year < 100)
gdate.year += 1900;
}
*rd_out = fixed_from_gregorian(&gdate);
DPRINTF("%s: parsed |%s| -> %d-%02d-%02d\n",
__func__, date, gdate.year, gdate.month, gdate.day);
return true;
}
bool
parse_time(const char *time, double *t_out)
{
int hh = 0;
int mm = 0;
int ss = 0;
switch (sscanf(time, "%d:%d:%d", &hh, &mm, &ss)) {
case 3:
case 2:
break;
default:
return false;
}
if (hh < 0 || hh >= 24 || mm < 0 || mm >= 60 || ss < 0 || ss > 60)
return false;
*t_out = (hh + mm/60.0 + ss/3600.0) / 24.0;
DPRINTF("%s: parsed |%s| -> %.3lf day\n", __func__, time, *t_out);
return true;
}
