43fa6fe319
identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>.
372 lines
8.7 KiB
C
372 lines
8.7 KiB
C
/* $NetBSD: strptime.c,v 1.7 1997/07/21 14:09:22 jtc Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 1997 The NetBSD Foundation, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This code was contributed to The NetBSD Foundation by Klaus Klein.
|
|
*
|
|
* 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. All advertising materials mentioning features or use of this software
|
|
* must display the following acknowledgement:
|
|
* This product includes software developed by the NetBSD
|
|
* Foundation, Inc. and its contributors.
|
|
* 4. Neither the name of The NetBSD Foundation 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 THE NETBSD FOUNDATION, INC. AND 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 THE FOUNDATION OR 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 <sys/cdefs.h>
|
|
#if defined(LIBC_SCCS) && !defined(lint)
|
|
__RCSID("$NetBSD: strptime.c,v 1.7 1997/07/21 14:09:22 jtc Exp $");
|
|
#endif
|
|
|
|
#include "namespace.h"
|
|
#include <sys/localedef.h>
|
|
#include <ctype.h>
|
|
#include <locale.h>
|
|
#include <string.h>
|
|
#include <time.h>
|
|
|
|
#ifdef __weak_alias
|
|
__weak_alias(strptime,_strptime);
|
|
#endif
|
|
|
|
#define _ctloc(x) __CONCAT(_CurrentTimeLocale->,x)
|
|
|
|
/*
|
|
* We do not implement alternate representations. However, we always
|
|
* check whether a given modifier is allowed for a certain conversion.
|
|
*/
|
|
#define _ALT_E 0x01
|
|
#define _ALT_O 0x02
|
|
#define _LEGAL_ALT(x) { if (alt_format & ~(x)) return (0); }
|
|
|
|
|
|
static int _conv_num __P((const char **, int *, int, int));
|
|
|
|
|
|
char *
|
|
strptime(buf, fmt, tm)
|
|
const char *buf, *fmt;
|
|
struct tm *tm;
|
|
{
|
|
char c;
|
|
const char *bp;
|
|
int alt_format, i, len;
|
|
|
|
bp = buf;
|
|
|
|
while ((c = *fmt) != '\0') {
|
|
/* Clear `alternate' modifier prior to new conversion. */
|
|
alt_format = 0;
|
|
|
|
/* Eat up white-space. */
|
|
if (isspace(c)) {
|
|
while (isspace(*bp))
|
|
bp++;
|
|
|
|
fmt++;
|
|
continue;
|
|
}
|
|
|
|
if ((c = *fmt++) != '%')
|
|
goto literal;
|
|
|
|
|
|
again: switch (c = *fmt++) {
|
|
case '%': /* "%%" is converted to "%". */
|
|
literal:
|
|
if (c != *bp++)
|
|
return (0);
|
|
|
|
break;
|
|
|
|
/*
|
|
* "Alternative" modifiers. Just set the appropriate flag
|
|
* and start over again.
|
|
*/
|
|
case 'E': /* "%E?" alternative conversion modifier. */
|
|
_LEGAL_ALT(0);
|
|
alt_format |= _ALT_E;
|
|
goto again;
|
|
|
|
case 'O': /* "%O?" alternative conversion modifier. */
|
|
_LEGAL_ALT(0);
|
|
alt_format |= _ALT_O;
|
|
goto again;
|
|
|
|
/*
|
|
* "Complex" conversion rules, implemented through recursion.
|
|
*/
|
|
case 'c': /* Date and time, using the locale's format. */
|
|
_LEGAL_ALT(_ALT_E);
|
|
if (!(bp = strptime(bp, _ctloc(d_t_fmt), tm)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'D': /* The date as "%m/%d/%y". */
|
|
_LEGAL_ALT(0);
|
|
if (!(bp = strptime(bp, "%m/%d/%y", tm)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'R': /* The time as "%H:%M". */
|
|
_LEGAL_ALT(0);
|
|
if (!(bp = strptime(bp, "%H:%M", tm)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'r': /* The time in 12-hour clock representation. */
|
|
_LEGAL_ALT(0);
|
|
if (!(bp = strptime(bp, _ctloc(t_fmt_ampm), tm)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'T': /* The time as "%H:%M:%S". */
|
|
_LEGAL_ALT(0);
|
|
if (!(bp = strptime(bp, "%H:%M:%S", tm)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'X': /* The time, using the locale's format. */
|
|
_LEGAL_ALT(_ALT_E);
|
|
if (!(bp = strptime(bp, _ctloc(t_fmt), tm)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'x': /* The date, using the locale's format. */
|
|
_LEGAL_ALT(_ALT_E);
|
|
if (!(bp = strptime(bp, _ctloc(d_fmt), tm)))
|
|
return (0);
|
|
break;
|
|
|
|
/*
|
|
* "Elementary" conversion rules.
|
|
*/
|
|
case 'A': /* The day of week, using the locale's form. */
|
|
case 'a':
|
|
_LEGAL_ALT(0);
|
|
for (i = 0; i < 7; i++) {
|
|
/* Full name. */
|
|
len = strlen(_ctloc(day[i]));
|
|
if (strncmp(_ctloc(day[i]), bp, len) == 0)
|
|
break;
|
|
|
|
/* Abbreviated name. */
|
|
len = strlen(_ctloc(abday[i]));
|
|
if (strncmp(_ctloc(abday[i]), bp, len) == 0)
|
|
break;
|
|
}
|
|
|
|
/* Nothing matched. */
|
|
if (i == 7)
|
|
return (0);
|
|
|
|
tm->tm_wday = i;
|
|
bp += len;
|
|
break;
|
|
|
|
case 'B': /* The month, using the locale's form. */
|
|
case 'b':
|
|
case 'h':
|
|
_LEGAL_ALT(0);
|
|
for (i = 0; i < 12; i++) {
|
|
/* Full name. */
|
|
len = strlen(_ctloc(mon[i]));
|
|
if (strncmp(_ctloc(mon[i]), bp, len) == 0)
|
|
break;
|
|
|
|
/* Abbreviated name. */
|
|
len = strlen(_ctloc(abmon[i]));
|
|
if (strncmp(_ctloc(abmon[i]), bp, len) == 0)
|
|
break;
|
|
}
|
|
|
|
/* Nothing matched. */
|
|
if (i == 12)
|
|
return (0);
|
|
|
|
tm->tm_mon = i;
|
|
bp += len;
|
|
break;
|
|
|
|
case 'C': /* The century number. */
|
|
_LEGAL_ALT(_ALT_E);
|
|
if (!(_conv_num(&bp, &i, 0, 99)))
|
|
return (0);
|
|
|
|
tm->tm_year = i * 100;
|
|
break;
|
|
|
|
case 'd': /* The day of month. */
|
|
case 'e':
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_mday, 1, 31)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'k': /* The hour (24-hour clock representation). */
|
|
_LEGAL_ALT(0);
|
|
/* FALLTHROUGH */
|
|
case 'H':
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_hour, 0, 23)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'l': /* The hour (12-hour clock representation). */
|
|
_LEGAL_ALT(0);
|
|
/* FALLTHROUGH */
|
|
case 'I':
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_hour, 0, 11)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'j': /* The day of year. */
|
|
_LEGAL_ALT(0);
|
|
if (!(_conv_num(&bp, &tm->tm_yday, 1, 366)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'M': /* The minute. */
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_min, 0, 59)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'm': /* The month. */
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_mon, 1, 12)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'p': /* The locale's equivalent of AM/PM. */
|
|
_LEGAL_ALT(0);
|
|
/* AM? */
|
|
if (strcmp(_ctloc(am_pm[0]), bp) == 0) {
|
|
if (tm->tm_hour > 12) /* i.e., 13:00 AM ?! */
|
|
return (0);
|
|
else if (tm->tm_hour == 12)
|
|
tm->tm_hour = 0;
|
|
|
|
bp += strlen(_ctloc(am_pm[0]));
|
|
break;
|
|
}
|
|
/* PM? */
|
|
else if (strcmp(_ctloc(am_pm[1]), bp) == 0) {
|
|
if (tm->tm_hour > 12) /* i.e., 13:00 PM ?! */
|
|
return (0);
|
|
else if (tm->tm_hour < 12)
|
|
tm->tm_hour += 12;
|
|
|
|
bp += strlen(_ctloc(am_pm[1]));
|
|
break;
|
|
}
|
|
|
|
/* Nothing matched. */
|
|
return (0);
|
|
|
|
case 'S': /* The seconds. */
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_sec, 1, 61)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'U': /* The week of year, beginning on sunday. */
|
|
case 'W': /* The week of year, beginning on monday. */
|
|
_LEGAL_ALT(_ALT_O);
|
|
/*
|
|
* XXX This is bogus, as we can not assume any valid
|
|
* information present in the tm structure at this
|
|
* point to calculate a real value, so just check the
|
|
* range for now.
|
|
*/
|
|
if (!(_conv_num(&bp, &i, 0, 53)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'w': /* The day of week, beginning on sunday. */
|
|
_LEGAL_ALT(_ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_wday, 0, 6)))
|
|
return (0);
|
|
break;
|
|
|
|
case 'Y': /* The year. */
|
|
_LEGAL_ALT(_ALT_E);
|
|
if (!(_conv_num(&bp, &i, 0, INT_MAX)))
|
|
return (0);
|
|
|
|
tm->tm_year = i - 1900;
|
|
break;
|
|
|
|
case 'y': /* The year within the 20th century. */
|
|
_LEGAL_ALT(_ALT_E | _ALT_O);
|
|
if (!(_conv_num(&bp, &tm->tm_year, 0, 99)))
|
|
return (0);
|
|
break;
|
|
|
|
/*
|
|
* Miscellaneous conversions.
|
|
*/
|
|
case 'n': /* Any kind of white-space. */
|
|
case 't':
|
|
_LEGAL_ALT(0);
|
|
while (isspace(*bp))
|
|
bp++;
|
|
break;
|
|
|
|
|
|
default: /* Unknown/unsupported conversion. */
|
|
return (0);
|
|
}
|
|
|
|
|
|
}
|
|
|
|
return ((char *)bp);
|
|
}
|
|
|
|
|
|
static int
|
|
_conv_num(buf, dest, llim, ulim)
|
|
const char **buf;
|
|
int *dest;
|
|
int llim, ulim;
|
|
{
|
|
*dest = 0;
|
|
|
|
if (**buf < '0' || **buf > '9')
|
|
return (0);
|
|
|
|
do {
|
|
*dest *= 10;
|
|
*dest += *(*buf)++ - '0';
|
|
} while ((*dest * 10 <= ulim) && **buf >= '0' && **buf <= '9');
|
|
|
|
if (*dest < llim || *dest > ulim)
|
|
return (0);
|
|
|
|
return (1);
|
|
}
|