newlib/libc/time/strptime.c - native_client/nacl-newlib - Git at Google

 /*
  * Copyright (c) 1999 Kungliga Tekniska Högskolan
  * (Royal Institute of Technology, Stockholm, Sweden).
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  *
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  *
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
  *
  * 3. Neither the name of KTH nor the names of its contributors may be
  *    used to endorse or promote products derived from this software without
  *    specific prior written permission.
  *
  * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */

 #include <stddef.h>
 #include <stdio.h>
 #include <time.h>
 #include <string.h>
 #include <strings.h>
 #include <ctype.h>
 #include <stdlib.h>
 #include "../locale/timelocal.h"

 #define _ctloc(x) (_CurrentTimeLocale->x)

 static _CONST int _DAYS_BEFORE_MONTH[12] =
 {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334};

 #define SET_MDAY 1
 #define SET_MON  2
 #define SET_YEAR 4
 #define SET_WDAY 8
 #define SET_YDAY 16
 #define SET_YMD  (SET_YEAR | SET_MON | SET_MDAY)

 /*
  * tm_year is relative this year
  */
 const int tm_year_base = 1900;

 /*
  * Return TRUE iff `year' was a leap year.
  * Needed for strptime.
  */
 static int
 is_leap_year (int year)
 {
     return (year % 4) == 0 && ((year % 100) != 0 || (year % 400) == 0);
 }

 /* Needed for strptime. */
 static int
 match_string (const char **buf, const char **strs)
 {
     int i = 0;

     for (i = 0; strs[i] != NULL; ++i) {
 	int len = strlen (strs[i]);

 	if (strncasecmp (*buf, strs[i], len) == 0) {
 	    *buf += len;
 	    return i;
 	}
     }
     return -1;
 }

 /* Needed for strptime. */
 static int
 first_day (int year)
 {
     int ret = 4;

     while (--year >= 1970)
 	ret = (ret + 365 + is_leap_year (year)) % 7;
     return ret;
 }

 /*
  * Set `timeptr' given `wnum' (week number [0, 53])
  * Needed for strptime
  */

 static void
 set_week_number_sun (struct tm *timeptr, int wnum)
 {
     int fday = first_day (timeptr->tm_year + tm_year_base);

     timeptr->tm_yday = wnum * 7 + timeptr->tm_wday - fday;
     if (timeptr->tm_yday < 0) {
 	timeptr->tm_wday = fday;
 	timeptr->tm_yday = 0;
     }
 }

 /*
  * Set `timeptr' given `wnum' (week number [0, 53])
  * Needed for strptime
  */

 static void
 set_week_number_mon (struct tm *timeptr, int wnum)
 {
     int fday = (first_day (timeptr->tm_year + tm_year_base) + 6) % 7;

     timeptr->tm_yday = wnum * 7 + (timeptr->tm_wday + 6) % 7 - fday;
     if (timeptr->tm_yday < 0) {
 	timeptr->tm_wday = (fday + 1) % 7;
 	timeptr->tm_yday = 0;
     }
 }

 /*
  * Set `timeptr' given `wnum' (week number [0, 53])
  * Needed for strptime
  */
 static void
 set_week_number_mon4 (struct tm *timeptr, int wnum)
 {
     int fday = (first_day (timeptr->tm_year + tm_year_base) + 6) % 7;
     int offset = 0;

     if (fday < 4)
 	offset += 7;

     timeptr->tm_yday = offset + (wnum - 1) * 7 + timeptr->tm_wday - fday;
     if (timeptr->tm_yday < 0) {
 	timeptr->tm_wday = fday;
 	timeptr->tm_yday = 0;
     }
 }

 /* strptime: roken */
 //extern "C"
 char *
 //strptime (const char *buf, const char *format, struct tm *timeptr)
 _DEFUN (strptime, (buf, format, timeptr),
 	_CONST char *__restrict buf _AND
 	_CONST char *__restrict format _AND
 	struct tm *__restrict timeptr)
 {
     char c;
     int ymd = 0;

     struct lc_time_T *_CurrentTimeLocale = __get_current_time_locale ();
     for (; (c = *format) != '\0'; ++format) {
 	char *s;
 	int ret;

 	if (isspace ((unsigned char) c)) {
 	    while (isspace ((unsigned char) *buf))
 		++buf;
 	} else if (c == '%' && format[1] != '\0') {
 	    c = *++format;
 	    if (c == 'E' || c == 'O')
 		c = *++format;
 	    switch (c) {
 	    case 'A' :
 		ret = match_string (&buf, _ctloc (weekday));
 		if (ret < 0)
 		    return NULL;
 		timeptr->tm_wday = ret;
 		ymd |= SET_WDAY;
 		break;
 	    case 'a' :
 		ret = match_string (&buf, _ctloc (wday));
 		if (ret < 0)
 		    return NULL;
 		timeptr->tm_wday = ret;
 		ymd |= SET_WDAY;
 		break;
 	    case 'B' :
 		ret = match_string (&buf, _ctloc (month));
 		if (ret < 0)
 		    return NULL;
 		timeptr->tm_mon = ret;
 		ymd |= SET_MON;
 		break;
 	    case 'b' :
 	    case 'h' :
 		ret = match_string (&buf, _ctloc (mon));
 		if (ret < 0)
 		    return NULL;
 		timeptr->tm_mon = ret;
 		ymd |= SET_MON;
 		break;
 	    case 'C' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_year = (ret * 100) - tm_year_base;
 		buf = s;
 		ymd |= SET_YEAR;
 		break;
 	    case 'c' :		/* %a %b %e %H:%M:%S %Y */
 		s = strptime (buf, _ctloc (c_fmt), timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 		ymd |= SET_WDAY | SET_YMD;
 		break;
 	    case 'D' :		/* %m/%d/%y */
 		s = strptime (buf, "%m/%d/%y", timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 		ymd |= SET_YMD;
 		break;
 	    case 'd' :
 	    case 'e' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_mday = ret;
 		buf = s;
 		ymd |= SET_MDAY;
 		break;
 	    case 'H' :
 	    case 'k' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_hour = ret;
 		buf = s;
 		break;
 	    case 'I' :
 	    case 'l' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		if (ret == 12)
 		    timeptr->tm_hour = 0;
 		else
 		    timeptr->tm_hour = ret;
 		buf = s;
 		break;
 	    case 'j' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_yday = ret - 1;
 		buf = s;
 		ymd |= SET_YDAY;
 		break;
 	    case 'm' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_mon = ret - 1;
 		buf = s;
 		ymd |= SET_MON;
 		break;
 	    case 'M' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_min = ret;
 		buf = s;
 		break;
 	    case 'n' :
 		if (*buf == '\n')
 		    ++buf;
 		else
 		    return NULL;
 		break;
 	    case 'p' :
 		ret = match_string (&buf, _ctloc (am_pm));
 		if (ret < 0)
 		    return NULL;
 		if (timeptr->tm_hour == 0) {
 		    if (ret == 1)
 			timeptr->tm_hour = 12;
 		} else
 		    timeptr->tm_hour += 12;
 		break;
 	    case 'r' :		/* %I:%M:%S %p */
 		s = strptime (buf, _ctloc (ampm_fmt), timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 		break;
 	    case 'R' :		/* %H:%M */
 		s = strptime (buf, "%H:%M", timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 		break;
 	    case 'S' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_sec = ret;
 		buf = s;
 		break;
 	    case 't' :
 		if (*buf == '\t')
 		    ++buf;
 		else
 		    return NULL;
 		break;
 	    case 'T' :		/* %H:%M:%S */
 		s = strptime (buf, "%H:%M:%S", timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 		break;
 	    case 'u' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_wday = ret - 1;
 		buf = s;
 		ymd |= SET_WDAY;
 		break;
 	    case 'w' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_wday = ret;
 		buf = s;
 		ymd |= SET_WDAY;
 		break;
 	    case 'U' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		set_week_number_sun (timeptr, ret);
 		buf = s;
 		ymd |= SET_YDAY;
 		break;
 	    case 'V' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		set_week_number_mon4 (timeptr, ret);
 		buf = s;
 		ymd |= SET_YDAY;
 		break;
 	    case 'W' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		set_week_number_mon (timeptr, ret);
 		buf = s;
 		ymd |= SET_YDAY;
 		break;
 	    case 'x' :
 		s = strptime (buf, _ctloc (x_fmt), timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 		ymd |= SET_YMD;
 		break;
 	    case 'X' :
 		s = strptime (buf, _ctloc (X_fmt), timeptr);
 		if (s == NULL)
 		    return NULL;
 		buf = s;
 	    	break;
 	    case 'y' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		if (ret < 70)
 		    timeptr->tm_year = 100 + ret;
 		else
 		    timeptr->tm_year = ret;
 		buf = s;
 		ymd |= SET_YEAR;
 		break;
 	    case 'Y' :
 		ret = strtol (buf, &s, 10);
 		if (s == buf)
 		    return NULL;
 		timeptr->tm_year = ret - tm_year_base;
 		buf = s;
 		ymd |= SET_YEAR;
 		break;
 	    case 'Z' :
 		/* Unsupported. Just ignore.  */
 		break;
 	    case '\0' :
 		--format;
 		/* FALLTHROUGH */
 	    case '%' :
 		if (*buf == '%')
 		    ++buf;
 		else
 		    return NULL;
 		break;
 	    default :
 		if (*buf == '%' || *++buf == c)
 		    ++buf;
 		else
 		    return NULL;
 		break;
 	    }
 	} else {
 	    if (*buf == c)
 		++buf;
 	    else
 		return NULL;
 	}
     }

     if ((ymd & SET_YMD) == SET_YMD) {
 	/* all of tm_year, tm_mon and tm_mday, but... */

 	if (!(ymd & SET_YDAY)) {
 	    /* ...not tm_yday, so fill it in */
 	    timeptr->tm_yday = _DAYS_BEFORE_MONTH[timeptr->tm_mon]
 		+ timeptr->tm_mday;
 	    if (!is_leap_year (timeptr->tm_year + tm_year_base)
 		|| timeptr->tm_mon < 2)
 	    {
 		timeptr->tm_yday--;
 	    }
 	    ymd |= SET_YDAY;
 	}
     }
     else if ((ymd & (SET_YEAR | SET_YDAY)) == (SET_YEAR | SET_YDAY)) {
 	/* both of tm_year and tm_yday, but... */

 	if (!(ymd & SET_MON)) {
 	    /* ...not tm_mon, so fill it in, and/or... */
 	    if (timeptr->tm_yday < _DAYS_BEFORE_MONTH[1])
 		timeptr->tm_mon = 0;
 	    else {
 		int leap = is_leap_year (timeptr->tm_year + tm_year_base);
 		int i;
 		for (i = 2; i < 12; ++i) {
 		    if (timeptr->tm_yday < _DAYS_BEFORE_MONTH[i] + leap)
 			break;
 		}
 		timeptr->tm_mon = i - 1;
 	    }
 	}

 	if (!(ymd & SET_MDAY)) {
 	    /* ...not tm_mday, so fill it in */
 	    timeptr->tm_mday = timeptr->tm_yday
 		- _DAYS_BEFORE_MONTH[timeptr->tm_mon];
 	    if (!is_leap_year (timeptr->tm_year + tm_year_base)
 		|| timeptr->tm_mon < 2)
 	    {
 		timeptr->tm_mday++;
 	    }
 	}
     }

     if ((ymd & (SET_YEAR | SET_YDAY | SET_WDAY)) == (SET_YEAR | SET_YDAY)) {
 	/* fill in tm_wday */
 	int fday = first_day (timeptr->tm_year + tm_year_base);
 	timeptr->tm_wday = (fday + timeptr->tm_yday) % 7;
     }

     return (char *)buf;
 }
	/*
	* Copyright (c) 1999 Kungliga Tekniska Högskolan
	* (Royal Institute of Technology, Stockholm, Sweden).
	* All rights reserved.
	*
	* Redistribution and use in source and binary forms, with or without
	* modification, are permitted provided that the following conditions
	* are met:
	*
	* 1. Redistributions of source code must retain the above copyright
	* notice, this list of conditions and the following disclaimer.
	*
	* 2. Redistributions in binary form must reproduce the above copyright
	* notice, this list of conditions and the following disclaimer in the
	* documentation and/or other materials provided with the distribution.
	*
	* 3. Neither the name of KTH nor the names of its contributors may be
	* used to endorse or promote products derived from this software without
	* specific prior written permission.
	*
	* THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
	* EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
	* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
	* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
	* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
	* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
	* BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
	* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
	* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
	* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */

	#include <stddef.h>
	#include <stdio.h>
	#include <time.h>
	#include <string.h>
	#include <strings.h>
	#include <ctype.h>
	#include <stdlib.h>
	#include "../locale/timelocal.h"

	#define _ctloc(x) (_CurrentTimeLocale->x)

	static _CONST int _DAYS_BEFORE_MONTH[12] =
	{0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334};

	#define SET_MDAY 1
	#define SET_MON 2
	#define SET_YEAR 4
	#define SET_WDAY 8
	#define SET_YDAY 16
	#define SET_YMD (SET_YEAR \| SET_MON \| SET_MDAY)

	/*
	* tm_year is relative this year
	*/
	const int tm_year_base = 1900;

	/*
	* Return TRUE iff `year' was a leap year.
	* Needed for strptime.
	*/
	static int
	is_leap_year (int year)
	{
	return (year % 4) == 0 && ((year % 100) != 0 \|\| (year % 400) == 0);
	}

	/* Needed for strptime. */
	static int
	match_string (const char buf, const char strs)
	{
	int i = 0;

	for (i = 0; strs[i] != NULL; ++i) {
	int len = strlen (strs[i]);

	if (strncasecmp (*buf, strs[i], len) == 0) {
	*buf += len;
	return i;
	}
	}
	return -1;
	}

	/* Needed for strptime. */
	static int
	first_day (int year)
	{
	int ret = 4;

	while (--year >= 1970)
	ret = (ret + 365 + is_leap_year (year)) % 7;
	return ret;
	}

	/*
	* Set `timeptr' given `wnum' (week number [0, 53])
	* Needed for strptime
	*/

	static void
	set_week_number_sun (struct tm *timeptr, int wnum)
	{
	int fday = first_day (timeptr->tm_year + tm_year_base);

	timeptr->tm_yday = wnum * 7 + timeptr->tm_wday - fday;
	if (timeptr->tm_yday < 0) {
	timeptr->tm_wday = fday;
	timeptr->tm_yday = 0;
	}
	}

	/*
	* Set `timeptr' given `wnum' (week number [0, 53])
	* Needed for strptime
	*/

	static void
	set_week_number_mon (struct tm *timeptr, int wnum)
	{
	int fday = (first_day (timeptr->tm_year + tm_year_base) + 6) % 7;

	timeptr->tm_yday = wnum * 7 + (timeptr->tm_wday + 6) % 7 - fday;
	if (timeptr->tm_yday < 0) {
	timeptr->tm_wday = (fday + 1) % 7;
	timeptr->tm_yday = 0;
	}
	}

	/*
	* Set `timeptr' given `wnum' (week number [0, 53])
	* Needed for strptime
	*/
	static void
	set_week_number_mon4 (struct tm *timeptr, int wnum)
	{
	int fday = (first_day (timeptr->tm_year + tm_year_base) + 6) % 7;
	int offset = 0;

	if (fday < 4)
	offset += 7;

	timeptr->tm_yday = offset + (wnum - 1) * 7 + timeptr->tm_wday - fday;
	if (timeptr->tm_yday < 0) {
	timeptr->tm_wday = fday;
	timeptr->tm_yday = 0;
	}
	}

	/* strptime: roken */
	//extern "C"
	char *
	//strptime (const char buf, const char format, struct tm *timeptr)
	_DEFUN (strptime, (buf, format, timeptr),
	_CONST char *__restrict buf _AND
	_CONST char *__restrict format _AND
	struct tm *__restrict timeptr)
	{
	char c;
	int ymd = 0;

	struct lc_time_T *_CurrentTimeLocale = __get_current_time_locale ();
	for (; (c = *format) != '\0'; ++format) {
	char *s;
	int ret;

	if (isspace ((unsigned char) c)) {
	while (isspace ((unsigned char) *buf))
	++buf;
	} else if (c == '%' && format[1] != '\0') {
	c = *++format;
	if (c == 'E' \|\| c == 'O')
	c = *++format;
	switch (c) {
	case 'A' :
	ret = match_string (&buf, _ctloc (weekday));
	if (ret < 0)
	return NULL;
	timeptr->tm_wday = ret;
	ymd \|= SET_WDAY;
	break;
	case 'a' :
	ret = match_string (&buf, _ctloc (wday));
	if (ret < 0)
	return NULL;
	timeptr->tm_wday = ret;
	ymd \|= SET_WDAY;
	break;
	case 'B' :
	ret = match_string (&buf, _ctloc (month));
	if (ret < 0)
	return NULL;
	timeptr->tm_mon = ret;
	ymd \|= SET_MON;
	break;
	case 'b' :
	case 'h' :
	ret = match_string (&buf, _ctloc (mon));
	if (ret < 0)
	return NULL;
	timeptr->tm_mon = ret;
	ymd \|= SET_MON;
	break;
	case 'C' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_year = (ret * 100) - tm_year_base;
	buf = s;
	ymd \|= SET_YEAR;
	break;
	case 'c' : /* %a %b %e %H:%M:%S %Y */
	s = strptime (buf, _ctloc (c_fmt), timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	ymd \|= SET_WDAY \| SET_YMD;
	break;
	case 'D' : /* %m/%d/%y */
	s = strptime (buf, "%m/%d/%y", timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	ymd \|= SET_YMD;
	break;
	case 'd' :
	case 'e' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_mday = ret;
	buf = s;
	ymd \|= SET_MDAY;
	break;
	case 'H' :
	case 'k' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_hour = ret;
	buf = s;
	break;
	case 'I' :
	case 'l' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	if (ret == 12)
	timeptr->tm_hour = 0;
	else
	timeptr->tm_hour = ret;
	buf = s;
	break;
	case 'j' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_yday = ret - 1;
	buf = s;
	ymd \|= SET_YDAY;
	break;
	case 'm' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_mon = ret - 1;
	buf = s;
	ymd \|= SET_MON;
	break;
	case 'M' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_min = ret;
	buf = s;
	break;
	case 'n' :
	if (*buf == '\n')
	++buf;
	else
	return NULL;
	break;
	case 'p' :
	ret = match_string (&buf, _ctloc (am_pm));
	if (ret < 0)
	return NULL;
	if (timeptr->tm_hour == 0) {
	if (ret == 1)
	timeptr->tm_hour = 12;
	} else
	timeptr->tm_hour += 12;
	break;
	case 'r' : /* %I:%M:%S %p */
	s = strptime (buf, _ctloc (ampm_fmt), timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	break;
	case 'R' : /* %H:%M */
	s = strptime (buf, "%H:%M", timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	break;
	case 'S' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_sec = ret;
	buf = s;
	break;
	case 't' :
	if (*buf == '\t')
	++buf;
	else
	return NULL;
	break;
	case 'T' : /* %H:%M:%S */
	s = strptime (buf, "%H:%M:%S", timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	break;
	case 'u' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_wday = ret - 1;
	buf = s;
	ymd \|= SET_WDAY;
	break;
	case 'w' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_wday = ret;
	buf = s;
	ymd \|= SET_WDAY;
	break;
	case 'U' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	set_week_number_sun (timeptr, ret);
	buf = s;
	ymd \|= SET_YDAY;
	break;
	case 'V' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	set_week_number_mon4 (timeptr, ret);
	buf = s;
	ymd \|= SET_YDAY;
	break;
	case 'W' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	set_week_number_mon (timeptr, ret);
	buf = s;
	ymd \|= SET_YDAY;
	break;
	case 'x' :
	s = strptime (buf, _ctloc (x_fmt), timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	ymd \|= SET_YMD;
	break;
	case 'X' :
	s = strptime (buf, _ctloc (X_fmt), timeptr);
	if (s == NULL)
	return NULL;
	buf = s;
	break;
	case 'y' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	if (ret < 70)
	timeptr->tm_year = 100 + ret;
	else
	timeptr->tm_year = ret;
	buf = s;
	ymd \|= SET_YEAR;
	break;
	case 'Y' :
	ret = strtol (buf, &s, 10);
	if (s == buf)
	return NULL;
	timeptr->tm_year = ret - tm_year_base;
	buf = s;
	ymd \|= SET_YEAR;
	break;
	case 'Z' :
	/* Unsupported. Just ignore. */
	break;
	case '\0' :
	--format;
	/* FALLTHROUGH */
	case '%' :
	if (*buf == '%')
	++buf;
	else
	return NULL;
	break;
	default :
	if (buf == '%' \|\| ++buf == c)
	++buf;
	else
	return NULL;
	break;
	}
	} else {
	if (*buf == c)
	++buf;
	else
	return NULL;
	}
	}

	if ((ymd & SET_YMD) == SET_YMD) {
	/* all of tm_year, tm_mon and tm_mday, but... */

	if (!(ymd & SET_YDAY)) {
	/* ...not tm_yday, so fill it in */
	timeptr->tm_yday = _DAYS_BEFORE_MONTH[timeptr->tm_mon]
	+ timeptr->tm_mday;
	if (!is_leap_year (timeptr->tm_year + tm_year_base)
	\|\| timeptr->tm_mon < 2)
	{
	timeptr->tm_yday--;
	}
	ymd \|= SET_YDAY;
	}
	}
	else if ((ymd & (SET_YEAR \| SET_YDAY)) == (SET_YEAR \| SET_YDAY)) {
	/* both of tm_year and tm_yday, but... */

	if (!(ymd & SET_MON)) {
	/* ...not tm_mon, so fill it in, and/or... */
	if (timeptr->tm_yday < _DAYS_BEFORE_MONTH[1])
	timeptr->tm_mon = 0;
	else {
	int leap = is_leap_year (timeptr->tm_year + tm_year_base);
	int i;
	for (i = 2; i < 12; ++i) {
	if (timeptr->tm_yday < _DAYS_BEFORE_MONTH[i] + leap)
	break;
	}
	timeptr->tm_mon = i - 1;
	}
	}

	if (!(ymd & SET_MDAY)) {
	/* ...not tm_mday, so fill it in */
	timeptr->tm_mday = timeptr->tm_yday
	- _DAYS_BEFORE_MONTH[timeptr->tm_mon];
	if (!is_leap_year (timeptr->tm_year + tm_year_base)
	\|\| timeptr->tm_mon < 2)
	{
	timeptr->tm_mday++;
	}
	}
	}

	if ((ymd & (SET_YEAR \| SET_YDAY \| SET_WDAY)) == (SET_YEAR \| SET_YDAY)) {
	/* fill in tm_wday */
	int fday = first_day (timeptr->tm_year + tm_year_base);
	timeptr->tm_wday = (fday + timeptr->tm_yday) % 7;
	}

	return (char *)buf;
	}