1 /* Copyright (C) 2002, 2004, 2005, 2007, 2009, 2010 Free Software Foundation,
3 This file is part of the GNU C Library.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License along
16 with this program; if not, write to the Free Software Foundation,
17 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
28 # include <langinfo.h>
35 # include "../locale/localeinfo.h"
39 enum ptime_locale_status { not, loc, raw };
44 #define match_char(ch1, ch2) if (ch1 != ch2) return NULL
45 #if defined _LIBC && defined __GNUC__ && __GNUC__ >= 2
46 # define match_string(cs1, s2) \
47 ({ size_t len = strlen (cs1); \
48 int result = __strncasecmp_l ((cs1), (s2), len, locale) == 0; \
49 if (result) (s2) += len; \
52 /* Oh come on. Get a reasonable compiler. */
53 # define match_string(cs1, s2) \
54 (strncasecmp ((cs1), (s2), strlen (cs1)) ? 0 : ((s2) += strlen (cs1), 1))
56 /* We intentionally do not use isdigit() for testing because this will
57 lead to problems with the wide character version. */
58 #define get_number(from, to, n) \
64 if (*rp < '0' || *rp > '9') \
69 } while (--__n > 0 && val * 10 <= to && *rp >= '0' && *rp <= '9'); \
70 if (val < from || val > to) \
74 # define get_alt_number(from, to, n) \
76 __label__ do_normal; \
78 if (*decided != raw) \
80 val = _nl_parse_alt_digit (&rp HELPER_LOCALE_ARG); \
81 if (val == -1 && *decided != loc) \
86 if (val < from || val > to) \
92 get_number (from, to, n); \
97 # define get_alt_number(from, to, n) \
98 /* We don't have the alternate representation. */ \
99 get_number(from, to, n)
101 #define recursive(new_fmt) \
102 (*(new_fmt) != '\0' \
103 && (rp = __strptime_internal (rp, (new_fmt), tm, \
104 decided, era_cnt LOCALE_ARG)) != NULL)
108 /* This is defined in locale/C-time.c in the GNU libc. */
109 extern const struct locale_data _nl_C_LC_TIME attribute_hidden;
111 # define weekday_name (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (DAY_1)].string)
112 # define ab_weekday_name \
113 (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (ABDAY_1)].string)
114 # define month_name (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (MON_1)].string)
115 # define ab_month_name (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (ABMON_1)].string)
116 # define HERE_D_T_FMT (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (D_T_FMT)].string)
117 # define HERE_D_FMT (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (D_FMT)].string)
118 # define HERE_AM_STR (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (AM_STR)].string)
119 # define HERE_PM_STR (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (PM_STR)].string)
120 # define HERE_T_FMT_AMPM \
121 (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (T_FMT_AMPM)].string)
122 # define HERE_T_FMT (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (T_FMT)].string)
124 # define strncasecmp(s1, s2, n) __strncasecmp (s1, s2, n)
126 static char const weekday_name[][10] =
128 "Sunday", "Monday", "Tuesday", "Wednesday",
129 "Thursday", "Friday", "Saturday"
131 static char const ab_weekday_name[][4] =
133 "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
135 static char const month_name[][10] =
137 "January", "February", "March", "April", "May", "June",
138 "July", "August", "September", "October", "November", "December"
140 static char const ab_month_name[][4] =
142 "Jan", "Feb", "Mar", "Apr", "May", "Jun",
143 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
145 # define HERE_D_T_FMT "%a %b %e %H:%M:%S %Y"
146 # define HERE_D_FMT "%m/%d/%y"
147 # define HERE_AM_STR "AM"
148 # define HERE_PM_STR "PM"
149 # define HERE_T_FMT_AMPM "%I:%M:%S %p"
150 # define HERE_T_FMT "%H:%M:%S"
152 static const unsigned short int __mon_yday[2][13] =
155 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
157 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }
162 /* We use this code also for the extended locale handling where the
163 function gets as an additional argument the locale which has to be
164 used. To access the values we have to redefine the _NL_CURRENT
166 # define strptime __strptime_l
168 # define _NL_CURRENT(category, item) \
169 (current->values[_NL_ITEM_INDEX (item)].string)
170 # undef _NL_CURRENT_WORD
171 # define _NL_CURRENT_WORD(category, item) \
172 (current->values[_NL_ITEM_INDEX (item)].word)
173 # define LOCALE_PARAM , locale
174 # define LOCALE_ARG , locale
175 # define LOCALE_PARAM_PROTO , __locale_t locale
176 # define LOCALE_PARAM_DECL __locale_t locale;
177 # define HELPER_LOCALE_ARG , current
178 # define ISSPACE(Ch) __isspace_l (Ch, locale)
180 # define LOCALE_PARAM
182 # define LOCALE_PARAM_DECL
183 # define LOCALE_PARAM_PROTO
184 # define HELPER_LOCALE_ARG
185 # define ISSPACE(Ch) isspace (Ch)
192 /* Nonzero if YEAR is a leap year (every 4 years,
193 except every 100th isn't, and every 400th is). */
194 # define __isleap(year) \
195 ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
198 /* Compute the day of the week. */
200 day_of_the_week (struct tm *tm)
202 /* We know that January 1st 1970 was a Thursday (= 4). Compute the
203 the difference between this data in the one on TM and so determine
205 int corr_year = 1900 + tm->tm_year - (tm->tm_mon < 2);
207 + (365 * (tm->tm_year - 70))
209 - ((corr_year / 4) / 25) + ((corr_year / 4) % 25 < 0)
210 + (((corr_year / 4) / 25) / 4)
211 + __mon_yday[0][tm->tm_mon]
213 tm->tm_wday = ((wday % 7) + 7) % 7;
216 /* Compute the day of the year. */
218 day_of_the_year (struct tm *tm)
220 tm->tm_yday = (__mon_yday[__isleap (1900 + tm->tm_year)][tm->tm_mon]
221 + (tm->tm_mday - 1));
231 __strptime_internal (rp, fmt, tm, decided, era_cnt LOCALE_PARAM)
235 enum ptime_locale_status *decided;
240 struct locale_data *const current = locale->__locales[LC_TIME];
243 const char *rp_backup;
247 int century, want_century;
249 int have_wday, want_xday;
251 int have_mon, have_mday;
252 int have_uweek, have_wweek;
255 struct era_entry *era;
264 have_wday = want_xday = have_yday = have_mon = have_mday = have_uweek = 0;
269 /* A white space in the format string matches 0 more or white
270 space in the input string. */
273 while (ISSPACE (*rp))
279 /* Any character but `%' must be matched by the same character
280 in the iput string. */
283 match_char (*fmt++, *rp++);
289 /* We need this for handling the `E' modifier. */
293 /* Make back up of current processing pointer. */
299 /* Match the `%' character itself. */
300 match_char ('%', *rp++);
304 /* Match day of week. */
305 for (cnt = 0; cnt < 7; ++cnt)
310 if (match_string (_NL_CURRENT (LC_TIME, DAY_1 + cnt), rp))
313 && strcmp (_NL_CURRENT (LC_TIME, DAY_1 + cnt),
318 if (match_string (_NL_CURRENT (LC_TIME, ABDAY_1 + cnt), rp))
321 && strcmp (_NL_CURRENT (LC_TIME, ABDAY_1 + cnt),
322 ab_weekday_name[cnt]))
329 && (match_string (weekday_name[cnt], rp)
330 || match_string (ab_weekday_name[cnt], rp)))
337 /* Does not match a weekday name. */
345 /* Match month name. */
346 for (cnt = 0; cnt < 12; ++cnt)
351 if (match_string (_NL_CURRENT (LC_TIME, MON_1 + cnt), rp))
354 && strcmp (_NL_CURRENT (LC_TIME, MON_1 + cnt),
359 if (match_string (_NL_CURRENT (LC_TIME, ABMON_1 + cnt), rp))
362 && strcmp (_NL_CURRENT (LC_TIME, ABMON_1 + cnt),
369 if (match_string (month_name[cnt], rp)
370 || match_string (ab_month_name[cnt], rp))
377 /* Does not match a month name. */
383 /* Match locale's date and time format. */
387 if (!recursive (_NL_CURRENT (LC_TIME, D_T_FMT)))
396 if (*decided == not &&
397 strcmp (_NL_CURRENT (LC_TIME, D_T_FMT), HERE_D_T_FMT))
405 if (!recursive (HERE_D_T_FMT))
410 /* Match century number. */
412 get_number (0, 99, 2);
418 /* Match day of month. */
419 get_number (1, 31, 2);
425 if (!recursive ("%Y-%m-%d"))
433 if (!recursive (_NL_CURRENT (LC_TIME, D_FMT)))
443 && strcmp (_NL_CURRENT (LC_TIME, D_FMT), HERE_D_FMT))
453 /* Match standard day format. */
454 if (!recursive (HERE_D_FMT))
460 /* Match hour in 24-hour clock. */
461 get_number (0, 23, 2);
466 /* Match hour in 12-hour clock. GNU extension. */
468 /* Match hour in 12-hour clock. */
469 get_number (1, 12, 2);
470 tm->tm_hour = val % 12;
474 /* Match day number of year. */
475 get_number (1, 366, 3);
476 tm->tm_yday = val - 1;
480 /* Match number of month. */
481 get_number (1, 12, 2);
482 tm->tm_mon = val - 1;
488 get_number (0, 59, 2);
493 /* Match any white space. */
494 while (ISSPACE (*rp))
498 /* Match locale's equivalent of AM/PM. */
502 if (match_string (_NL_CURRENT (LC_TIME, AM_STR), rp))
504 if (strcmp (_NL_CURRENT (LC_TIME, AM_STR), HERE_AM_STR))
508 if (match_string (_NL_CURRENT (LC_TIME, PM_STR), rp))
510 if (strcmp (_NL_CURRENT (LC_TIME, PM_STR), HERE_PM_STR))
518 if (!match_string (HERE_AM_STR, rp))
520 if (match_string (HERE_PM_STR, rp))
530 if (!recursive (_NL_CURRENT (LC_TIME, T_FMT_AMPM)))
539 if (*decided == not &&
540 strcmp (_NL_CURRENT (LC_TIME, T_FMT_AMPM),
548 if (!recursive (HERE_T_FMT_AMPM))
552 if (!recursive ("%H:%M"))
557 /* The number of seconds may be very high so we cannot use
558 the `get_number' macro. Instead read the number
559 character for character and construct the result while
562 if (*rp < '0' || *rp > '9')
563 /* We need at least one digit. */
571 while (*rp >= '0' && *rp <= '9');
573 if (localtime_r (&secs, tm) == NULL)
574 /* Error in function. */
579 get_number (0, 61, 2);
586 if (!recursive (_NL_CURRENT (LC_TIME, T_FMT)))
595 if (strcmp (_NL_CURRENT (LC_TIME, T_FMT), HERE_T_FMT))
604 if (!recursive (HERE_T_FMT))
608 get_number (1, 7, 1);
609 tm->tm_wday = val % 7;
613 get_number (0, 99, 2);
614 /* XXX This cannot determine any field in TM. */
617 if (*rp < '0' || *rp > '9')
619 /* XXX Ignore the number since we would need some more
620 information to compute a real date. */
623 while (*rp >= '0' && *rp <= '9');
626 get_number (0, 53, 2);
631 get_number (0, 53, 2);
636 get_number (0, 53, 2);
637 /* XXX This cannot determine any field in TM without some
641 /* Match number of weekday. */
642 get_number (0, 6, 1);
647 match_year_in_century:
648 /* Match year within century. */
649 get_number (0, 99, 2);
650 /* The "Year 2000: The Millennium Rollover" paper suggests that
651 values in the range 69-99 refer to the twentieth century. */
652 tm->tm_year = val >= 69 ? val : val + 100;
653 /* Indicate that we want to use the century, if specified. */
658 /* Match year including century number. */
659 get_number (0, 9999, 4);
660 tm->tm_year = val - 1900;
665 /* XXX How to handle this? */
668 /* We recognize two formats: if two digits are given, these
669 specify hours. If fours digits are used, minutes are
678 if (*rp != '+' && *rp != '-')
682 while (n < 4 && *rp >= '0' && *rp <= '9')
684 val = val * 10 + *rp++ - '0';
690 /* Only two or four digits recognized. */
694 /* We have to convert the minutes into decimal. */
697 val = (val / 100) * 100 + ((val % 100) * 50) / 30;
701 #if defined _LIBC || HAVE_TM_GMTOFF
702 tm->tm_gmtoff = (val * 3600) / 100;
704 tm->tm_gmtoff = -tm->tm_gmtoff;
713 /* Match locale's alternate date and time format. */
716 const char *fmt = _NL_CURRENT (LC_TIME, ERA_D_T_FMT);
719 fmt = _NL_CURRENT (LC_TIME, D_T_FMT);
721 if (!recursive (fmt))
730 if (strcmp (fmt, HERE_D_T_FMT))
737 /* The C locale has no era information, so use the
738 normal representation. */
739 if (!recursive (HERE_D_T_FMT))
748 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
749 if (era != NULL && match_string (era->era_name, rp))
758 num_eras = _NL_CURRENT_WORD (LC_TIME,
759 _NL_TIME_ERA_NUM_ENTRIES);
760 for (era_cnt = 0; era_cnt < (int) num_eras;
761 ++era_cnt, rp = rp_backup)
763 era = _nl_select_era_entry (era_cnt
765 if (era != NULL && match_string (era->era_name, rp))
771 if (era_cnt != (int) num_eras)
780 /* The C locale has no era information, so use the
781 normal representation. */
786 get_number(0, 9999, 4);
794 assert (*decided == loc);
796 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
800 int delta = ((tm->tm_year - era->offset)
801 * era->absolute_direction);
803 && delta < (((int64_t) era->stop_date[0]
804 - (int64_t) era->start_date[0])
805 * era->absolute_direction));
813 num_eras = _NL_CURRENT_WORD (LC_TIME,
814 _NL_TIME_ERA_NUM_ENTRIES);
815 for (era_cnt = 0; era_cnt < (int) num_eras; ++era_cnt)
817 era = _nl_select_era_entry (era_cnt
821 int delta = ((tm->tm_year - era->offset)
822 * era->absolute_direction);
824 && delta < (((int64_t) era->stop_date[0]
825 - (int64_t) era->start_date[0])
826 * era->absolute_direction))
833 if (era_cnt != (int) num_eras)
843 goto match_year_in_century;
847 num_eras = _NL_CURRENT_WORD (LC_TIME,
848 _NL_TIME_ERA_NUM_ENTRIES);
849 for (era_cnt = 0; era_cnt < (int) num_eras;
850 ++era_cnt, rp = rp_backup)
852 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
853 if (era != NULL && recursive (era->era_format))
856 if (era_cnt == (int) num_eras)
873 get_number (0, 9999, 4);
874 tm->tm_year = val - 1900;
881 const char *fmt = _NL_CURRENT (LC_TIME, ERA_D_FMT);
884 fmt = _NL_CURRENT (LC_TIME, D_FMT);
886 if (!recursive (fmt))
895 if (strcmp (fmt, HERE_D_FMT))
901 if (!recursive (HERE_D_FMT))
907 const char *fmt = _NL_CURRENT (LC_TIME, ERA_T_FMT);
910 fmt = _NL_CURRENT (LC_TIME, T_FMT);
912 if (!recursive (fmt))
921 if (strcmp (fmt, HERE_T_FMT))
927 if (!recursive (HERE_T_FMT))
935 /* We have no information about the era format. Just use
936 the normal format. */
937 if (*fmt != 'c' && *fmt != 'C' && *fmt != 'y' && *fmt != 'Y'
938 && *fmt != 'x' && *fmt != 'X')
939 /* This is an illegal format. */
949 /* Match day of month using alternate numeric symbols. */
950 get_alt_number (1, 31, 2);
956 /* Match hour in 24-hour clock using alternate numeric
958 get_alt_number (0, 23, 2);
963 /* Match hour in 12-hour clock using alternate numeric
965 get_alt_number (1, 12, 2);
966 tm->tm_hour = val % 12;
970 /* Match month using alternate numeric symbols. */
971 get_alt_number (1, 12, 2);
972 tm->tm_mon = val - 1;
977 /* Match minutes using alternate numeric symbols. */
978 get_alt_number (0, 59, 2);
982 /* Match seconds using alternate numeric symbols. */
983 get_alt_number (0, 61, 2);
987 get_alt_number (0, 53, 2);
992 get_alt_number (0, 53, 2);
997 get_alt_number (0, 53, 2);
998 /* XXX This cannot determine any field in TM without
999 further information. */
1002 /* Match number of weekday using alternate numeric symbols. */
1003 get_alt_number (0, 6, 1);
1008 /* Match year within century using alternate numeric symbols. */
1009 get_alt_number (0, 99, 2);
1010 tm->tm_year = val >= 69 ? val : val + 100;
1022 if (have_I && is_pm)
1028 tm->tm_year = tm->tm_year % 100 + (century - 19) * 100;
1030 /* Only the century, but not the year. Strange, but so be it. */
1031 tm->tm_year = (century - 19) * 100;
1037 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
1041 tm->tm_year = (era->start_date[0]
1042 + ((tm->tm_year - era->offset)
1043 * era->absolute_direction));
1045 /* Era start year assumed. */
1046 tm->tm_year = era->start_date[0];
1052 /* No era found but we have seen an E modifier. Rectify some
1054 if (want_century && century == -1 && tm->tm_year < 69)
1058 if (want_xday && !have_wday)
1060 if ( !(have_mon && have_mday) && have_yday)
1062 /* We don't have tm_mon and/or tm_mday, compute them. */
1064 while (__mon_yday[__isleap(1900 + tm->tm_year)][t_mon] <= tm->tm_yday)
1067 tm->tm_mon = t_mon - 1;
1071 - __mon_yday[__isleap(1900 + tm->tm_year)][t_mon - 1] + 1);
1073 day_of_the_week (tm);
1076 if (want_xday && !have_yday)
1077 day_of_the_year (tm);
1079 if ((have_uweek || have_wweek) && have_wday)
1081 int save_wday = tm->tm_wday;
1082 int save_mday = tm->tm_mday;
1083 int save_mon = tm->tm_mon;
1084 int w_offset = have_uweek ? 0 : 1;
1088 day_of_the_week (tm);
1090 tm->tm_mday = save_mday;
1092 tm->tm_mon = save_mon;
1095 tm->tm_yday = ((7 - (tm->tm_wday - w_offset)) % 7
1097 + save_wday - w_offset);
1099 if (!have_mday || !have_mon)
1102 while (__mon_yday[__isleap(1900 + tm->tm_year)][t_mon]
1106 tm->tm_mon = t_mon - 1;
1110 - __mon_yday[__isleap(1900 + tm->tm_year)][t_mon - 1] + 1);
1113 tm->tm_wday = save_wday;
1121 strptime (buf, format, tm LOCALE_PARAM)
1122 const char *restrict buf;
1123 const char *restrict format;
1124 struct tm *restrict tm;
1127 enum ptime_locale_status decided;
1134 return __strptime_internal (buf, format, tm, &decided, -1 LOCALE_ARG);
1138 weak_alias (__strptime_l, strptime_l)