/***************************************************************
* STRPTIME.C -- strptime() for IRIX *
* -- Michael Jennings *
* -- 2 April 1997 *
***************************************************************/
/*
* This file is original work by Michael Jennings <mej@eterm.org>.
*
* Copyright (C) 1997, Michael Jennings
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
*/
static const char cvs_ident[] = "$Id: strptime.c,v 1.1 2001/01/15 09:46:18 bazsi Exp $";
#include <config.h>
#include "strptime.h"
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#define sizeofone(s) (sizeof(s) / sizeof((s)[0]))
#define NUM_MONTHS 12
#define NUM_DAYS 7
typedef struct dtmap_struct {
char *Months[NUM_MONTHS];
char *MonthsAbbrev[NUM_MONTHS];
char *Days[NUM_DAYS];
char *DaysAbbrev[NUM_DAYS];
char *DateFormat;
char *TimeFormat;
char *DateTimeFormat;
char *LocaleDateFormat;
char *AM;
char *PM;
} DTMap;
static DTMap USMap = {
{ "January", "February", "March", "April",
"May", "June", "July", "August",
"September", "October", "November", "December" },
{ "Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec" },
{ "Sunday", "Monday", "Tuesday", "Wednesday",
"Thursday", "Friday", "Saturday" },
{ "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" },
"%m/%d/%y",
"%H:%M:%S",
"%a %b %e %T %Z %Y",
"%A, %B, %e, %Y",
"AM",
"PM"
};
char *
strptime(const char *buf, const char *format, struct tm *tm)
{
register char c;
register const char *tmp;
register int i, len;
for (tmp = format; *tmp;) {
if (!(*buf))
break;
if ((c = *tmp++) != '%') {
if (!isspace(*buf) && c != *buf++)
return ((char *) NULL);
for (; *buf != 0 && isspace(*buf); buf++);
continue;
}
switch ((c = *tmp++)) {
case 0:
case '%':
if (*buf++ != '%')
return ((char *) NULL);
break;
case 'C':
buf = strptime(buf, USMap.LocaleDateFormat, tm);
if (!buf)
return ((char *) NULL);
break;
case 'c':
buf = strptime(buf, "%x %X", tm);
if (!buf)
return ((char *) NULL);
break;
case 'D':
buf = strptime(buf, "%m/%d/%y", tm);
if (!buf)
return ((char *) NULL);
break;
case 'R':
buf = strptime(buf, "%H:%M", tm);
if (!buf)
return ((char *) NULL);
break;
case 'r':
buf = strptime(buf, "%I:%M:%S %p", tm);
if (!buf)
return ((char *) NULL);
break;
case 'T':
buf = strptime(buf, "%H:%M:%S", tm);
if (!buf)
return ((char *) NULL);
break;
case 'X':
buf = strptime(buf, USMap.TimeFormat, tm);
if (!buf)
return ((char *) NULL);
break;
case 'x':
buf = strptime(buf, USMap.DateFormat, tm);
if (!buf)
return ((char *) NULL);
break;
case 'j':
if (!isdigit(*buf))
return ((char *) NULL);
for (i = 0; *buf != 0 && isdigit(*buf); buf++) {
i *= 10;
i += *buf - '0';
}
if (i > 365)
return ((char *) NULL);
tm->tm_yday = i;
break;
case 'M':
case 'S':
if (!(*buf) || isspace(*buf))
break;
if (!isdigit(*buf))
return ((char *) NULL);
for (i = 0; *buf != 0 && isdigit(*buf); buf++) {
i *= 10;
i += *buf - '0';
}
if (i > 59)
return ((char *) NULL);
if (c == 'M')
tm->tm_min = i;
else
tm->tm_sec = i;
if (*buf && isspace(*buf))
for (; *tmp && !isspace(*tmp); tmp++);
break;
case 'H':
case 'I':
case 'k':
case 'l':
if (!isdigit(*buf))
return ((char *) NULL);
for (i = 0; *buf && isdigit(*buf); buf++) {
i *= 10;
i += *buf - '0';
}
if (c == 'H' || c == 'k') {
if (i > 23)
return ((char *) NULL);
} else if (i > 11)
return ((char *) NULL);
tm->tm_hour = i;
if (*buf && isspace(*buf))
for (; *tmp && !isspace(*tmp); tmp++);
break;
case 'p':
len = strlen(USMap.AM);
if (!strncasecmp(buf, USMap.AM, len)) {
if (tm->tm_hour > 12)
return ((char *) NULL);
if (tm->tm_hour == 12)
tm->tm_hour = 0;
buf += len;
break;
}
len = strlen(USMap.PM);
if (!strncasecmp(buf, USMap.PM, len)) {
if (tm->tm_hour > 12)
return ((char *) NULL);
if (tm->tm_hour != 12)
tm->tm_hour += 12;
buf += len;
break;
}
return ((char *) NULL);
case 'A':
case 'a':
for (i = 0; i < NUM_DAYS; i++) {
len = strlen(USMap.Days[i]);
if (!strncasecmp(buf, USMap.Days[i], len))
break;
len = strlen(USMap.DaysAbbrev[i]);
if (!strncasecmp(buf, USMap.DaysAbbrev[i], len))
break;
}
if (i == NUM_DAYS)
return ((char *) NULL);
tm->tm_wday = i;
buf += len;
break;
case 'd':
case 'e':
if (!isdigit(*buf))
return ((char *) NULL);
for (i = 0; *buf && isdigit(*buf); buf++) {
i *= 10;
i += *buf - '0';
}
if (i > 31)
return ((char *) NULL);
tm->tm_mday = i;
if (*buf && isspace(*buf))
for (; *tmp && !isspace(*tmp); tmp++);
break;
case 'B':
case 'b':
case 'h':
for (i = 0; i < NUM_MONTHS; i++) {
len = strlen(USMap.Months[i]);
if (!strncasecmp(buf, USMap.Months[i], len))
break;
len = strlen(USMap.MonthsAbbrev[i]);
if (!strncasecmp(buf, USMap.MonthsAbbrev[i], len))
break;
}
if (i == NUM_MONTHS)
return ((char *) NULL);
tm->tm_mon = i;
buf += len;
break;
case 'm':
if (!isdigit(*buf))
return ((char *) NULL);
for (i = 0; *buf && isdigit(*buf); buf++) {
i *= 10;
i += *buf - '0';
}
if (i < 1 || i > 12)
return ((char *) NULL);
tm->tm_mon = i - 1;
if (*buf && isspace(*buf))
for (; *tmp && !isspace(*tmp); tmp++);
break;
case 'Y':
case 'y':
if (!(*buf) || isspace(*buf))
break;
if (!isdigit(*buf))
return ((char *) NULL);
for (i = 0; *buf && isdigit(*buf); buf++) {
i *= 10;
i += *buf - '0';
}
if (c == 'Y')
i -= 1900;
if (i < 0)
return ((char *) NULL);
tm->tm_year = i;
if (*buf && isspace(*buf))
for (; *tmp && !isspace(*tmp); tmp++);
break;
}
}
return (char *) (buf);
}
syntax highlighted by Code2HTML, v. 0.9.1