1 /* Copyright (C) 2002, 2004, 2005 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, write to the Free
16 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
30 # include <langinfo.h>
38 # include "../locale/localeinfo.h"
46 enum ptime_locale_status { not, loc, raw };
50 # if defined __GNUC__ || (defined __STDC__ && __STDC__)
51 # define __P(args) args
59 #define match_char(ch1, ch2) if (ch1 != ch2) return NULL
61 # define match_string(cs1, s2) \
62 (strncasecmp ((cs1), (s2), strlen (cs1)) ? 0 : ((s2) += strlen (cs1), 1))
64 /* We intentionally do not use isdigit() for testing because this will
65 lead to problems with the wide character version. */
66 #define get_number(from, to, n) \
72 if (*rp < '0' || *rp > '9') \
77 } while (--__n > 0 && val * 10 <= to && *rp >= '0' && *rp <= '9'); \
78 if (val < from || val > to) \
82 # define get_alt_number(from, to, n) \
84 __label__ do_normal; \
86 if (*decided != raw) \
88 val = _nl_parse_alt_digit (&rp HELPER_LOCALE_ARG); \
89 if (val == -1 && *decided != loc) \
94 if (val < from || val > to) \
100 get_number (from, to, n); \
105 # define get_alt_number(from, to, n) \
106 /* We don't have the alternate representation. */ \
107 get_number(from, to, n)
109 #define recursive(new_fmt) \
110 (*(new_fmt) != '\0' \
111 && (rp = __strptime_internal (rp, (new_fmt), tm, \
112 decided, era_cnt LOCALE_ARG)) != NULL)
116 /* This is defined in locale/C-time.c in the GNU libc. */
117 extern const struct locale_data _nl_C_LC_TIME attribute_hidden;
119 # define weekday_name (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (DAY_1)].string)
120 # define ab_weekday_name \
121 (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (ABDAY_1)].string)
122 # define month_name (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (MON_1)].string)
123 # define ab_month_name (&_nl_C_LC_TIME.values[_NL_ITEM_INDEX (ABMON_1)].string)
124 # define HERE_D_T_FMT (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (D_T_FMT)].string)
125 # define HERE_D_FMT (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (D_FMT)].string)
126 # define HERE_AM_STR (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (AM_STR)].string)
127 # define HERE_PM_STR (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (PM_STR)].string)
128 # define HERE_T_FMT_AMPM \
129 (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (T_FMT_AMPM)].string)
130 # define HERE_T_FMT (_nl_C_LC_TIME.values[_NL_ITEM_INDEX (T_FMT)].string)
132 # define strncasecmp(s1, s2, n) __strncasecmp (s1, s2, n)
134 static char const weekday_name[][10] =
136 "Sunday", "Monday", "Tuesday", "Wednesday",
137 "Thursday", "Friday", "Saturday"
139 static char const ab_weekday_name[][4] =
141 "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
143 static char const month_name[][10] =
145 "January", "February", "March", "April", "May", "June",
146 "July", "August", "September", "October", "November", "December"
148 static char const ab_month_name[][4] =
150 "Jan", "Feb", "Mar", "Apr", "May", "Jun",
151 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
153 # define HERE_D_T_FMT "%a %b %e %H:%M:%S %Y"
154 # define HERE_D_FMT "%m/%d/%y"
155 # define HERE_AM_STR "AM"
156 # define HERE_PM_STR "PM"
157 # define HERE_T_FMT_AMPM "%I:%M:%S %p"
158 # define HERE_T_FMT "%H:%M:%S"
160 static const unsigned short int __mon_yday[2][13] =
163 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
165 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }
170 /* We use this code also for the extended locale handling where the
171 function gets as an additional argument the locale which has to be
172 used. To access the values we have to redefine the _NL_CURRENT
174 # define strptime __strptime_l
176 # define _NL_CURRENT(category, item) \
177 (current->values[_NL_ITEM_INDEX (item)].string)
178 # undef _NL_CURRENT_WORD
179 # define _NL_CURRENT_WORD(category, item) \
180 (current->values[_NL_ITEM_INDEX (item)].word)
181 # define LOCALE_PARAM , locale
182 # define LOCALE_ARG , locale
183 # define LOCALE_PARAM_PROTO , __locale_t locale
184 # define LOCALE_PARAM_DECL __locale_t locale;
185 # define HELPER_LOCALE_ARG , current
186 # define ISSPACE(Ch) __isspace_l (Ch, locale)
188 # define LOCALE_PARAM
190 # define LOCALE_PARAM_DECL
191 # define LOCALE_PARAM_PROTO
192 # define HELPER_LOCALE_ARG
193 # define ISSPACE(Ch) isspace (Ch)
200 /* Nonzero if YEAR is a leap year (every 4 years,
201 except every 100th isn't, and every 400th is). */
202 # define __isleap(year) \
203 ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
206 /* Compute the day of the week. */
208 day_of_the_week (struct tm *tm)
210 /* We know that January 1st 1970 was a Thursday (= 4). Compute the
211 the difference between this data in the one on TM and so determine
213 int corr_year = 1900 + tm->tm_year - (tm->tm_mon < 2);
215 + (365 * (tm->tm_year - 70))
217 - ((corr_year / 4) / 25) + ((corr_year / 4) % 25 < 0)
218 + (((corr_year / 4) / 25) / 4)
219 + __mon_yday[0][tm->tm_mon]
221 tm->tm_wday = ((wday % 7) + 7) % 7;
224 /* Compute the day of the year. */
226 day_of_the_year (struct tm *tm)
228 tm->tm_yday = (__mon_yday[__isleap (1900 + tm->tm_year)][tm->tm_mon]
229 + (tm->tm_mday - 1));
239 __strptime_internal (rp, fmt, tm, decided, era_cnt LOCALE_PARAM)
243 enum ptime_locale_status *decided;
248 struct locale_data *const current = locale->__locales[LC_TIME];
251 const char *rp_backup;
255 int century, want_century;
257 int have_wday, want_xday;
259 int have_mon, have_mday;
260 int have_uweek, have_wweek;
263 struct era_entry *era;
272 have_wday = want_xday = have_yday = have_mon = have_mday = have_uweek = 0;
277 /* A white space in the format string matches 0 more or white
278 space in the input string. */
281 while (ISSPACE (*rp))
287 /* Any character but `%' must be matched by the same character
288 in the iput string. */
291 match_char (*fmt++, *rp++);
297 /* We need this for handling the `E' modifier. */
301 /* Make back up of current processing pointer. */
307 /* Match the `%' character itself. */
308 match_char ('%', *rp++);
312 /* Match day of week. */
313 for (cnt = 0; cnt < 7; ++cnt)
318 if (match_string (_NL_CURRENT (LC_TIME, DAY_1 + cnt), rp))
321 && strcmp (_NL_CURRENT (LC_TIME, DAY_1 + cnt),
326 if (match_string (_NL_CURRENT (LC_TIME, ABDAY_1 + cnt), rp))
329 && strcmp (_NL_CURRENT (LC_TIME, ABDAY_1 + cnt),
330 ab_weekday_name[cnt]))
337 && (match_string (weekday_name[cnt], rp)
338 || match_string (ab_weekday_name[cnt], rp)))
345 /* Does not match a weekday name. */
353 /* Match month name. */
354 for (cnt = 0; cnt < 12; ++cnt)
359 if (match_string (_NL_CURRENT (LC_TIME, MON_1 + cnt), rp))
362 && strcmp (_NL_CURRENT (LC_TIME, MON_1 + cnt),
367 if (match_string (_NL_CURRENT (LC_TIME, ABMON_1 + cnt), rp))
370 && strcmp (_NL_CURRENT (LC_TIME, ABMON_1 + cnt),
377 if (match_string (month_name[cnt], rp)
378 || match_string (ab_month_name[cnt], rp))
385 /* Does not match a month name. */
391 /* Match locale's date and time format. */
395 if (!recursive (_NL_CURRENT (LC_TIME, D_T_FMT)))
404 if (*decided == not &&
405 strcmp (_NL_CURRENT (LC_TIME, D_T_FMT), HERE_D_T_FMT))
413 if (!recursive (HERE_D_T_FMT))
418 /* Match century number. */
420 get_number (0, 99, 2);
426 /* Match day of month. */
427 get_number (1, 31, 2);
433 if (!recursive ("%Y-%m-%d"))
441 if (!recursive (_NL_CURRENT (LC_TIME, D_FMT)))
451 && strcmp (_NL_CURRENT (LC_TIME, D_FMT), HERE_D_FMT))
461 /* Match standard day format. */
462 if (!recursive (HERE_D_FMT))
468 /* Match hour in 24-hour clock. */
469 get_number (0, 23, 2);
474 /* Match hour in 12-hour clock. GNU extension. */
476 /* Match hour in 12-hour clock. */
477 get_number (1, 12, 2);
478 tm->tm_hour = val % 12;
482 /* Match day number of year. */
483 get_number (1, 366, 3);
484 tm->tm_yday = val - 1;
488 /* Match number of month. */
489 get_number (1, 12, 2);
490 tm->tm_mon = val - 1;
496 get_number (0, 59, 2);
501 /* Match any white space. */
502 while (ISSPACE (*rp))
506 /* Match locale's equivalent of AM/PM. */
510 if (match_string (_NL_CURRENT (LC_TIME, AM_STR), rp))
512 if (strcmp (_NL_CURRENT (LC_TIME, AM_STR), HERE_AM_STR))
516 if (match_string (_NL_CURRENT (LC_TIME, PM_STR), rp))
518 if (strcmp (_NL_CURRENT (LC_TIME, PM_STR), HERE_PM_STR))
526 if (!match_string (HERE_AM_STR, rp))
528 if (match_string (HERE_PM_STR, rp))
538 if (!recursive (_NL_CURRENT (LC_TIME, T_FMT_AMPM)))
547 if (*decided == not &&
548 strcmp (_NL_CURRENT (LC_TIME, T_FMT_AMPM),
556 if (!recursive (HERE_T_FMT_AMPM))
560 if (!recursive ("%H:%M"))
565 /* The number of seconds may be very high so we cannot use
566 the `get_number' macro. Instead read the number
567 character for character and construct the result while
570 if (*rp < '0' || *rp > '9')
571 /* We need at least one digit. */
579 while (*rp >= '0' && *rp <= '9');
581 if (localtime_r (&secs, tm) == NULL)
582 /* Error in function. */
587 get_number (0, 61, 2);
594 if (!recursive (_NL_CURRENT (LC_TIME, T_FMT)))
603 if (strcmp (_NL_CURRENT (LC_TIME, T_FMT), HERE_T_FMT))
612 if (!recursive (HERE_T_FMT))
616 get_number (1, 7, 1);
617 tm->tm_wday = val % 7;
621 get_number (0, 99, 2);
622 /* XXX This cannot determine any field in TM. */
625 if (*rp < '0' || *rp > '9')
627 /* XXX Ignore the number since we would need some more
628 information to compute a real date. */
631 while (*rp >= '0' && *rp <= '9');
634 get_number (0, 53, 2);
639 get_number (0, 53, 2);
644 get_number (0, 53, 2);
645 /* XXX This cannot determine any field in TM without some
649 /* Match number of weekday. */
650 get_number (0, 6, 1);
655 match_year_in_century:
656 /* Match year within century. */
657 get_number (0, 99, 2);
658 /* The "Year 2000: The Millennium Rollover" paper suggests that
659 values in the range 69-99 refer to the twentieth century. */
660 tm->tm_year = val >= 69 ? val : val + 100;
661 /* Indicate that we want to use the century, if specified. */
666 /* Match year including century number. */
667 get_number (0, 9999, 4);
668 tm->tm_year = val - 1900;
673 /* XXX How to handle this? */
676 /* We recognize two formats: if two digits are given, these
677 specify hours. If fours digits are used, minutes are
683 if (*rp != '+' && *rp != '-')
685 bool neg = *rp++ == '-';
687 while (n < 4 && *rp >= '0' && *rp <= '9')
689 val = val * 10 + *rp++ - '0';
695 /* Only two or four digits recognized. */
699 /* We have to convert the minutes into decimal. */
702 val = (val / 100) * 100 + ((val % 100) * 50) / 30;
706 #ifdef HAVE_TM_GMTOFF
707 tm->tm_gmtoff = (val * 3600) / 100;
709 tm->tm_gmtoff = -tm->tm_gmtoff;
718 /* Match locale's alternate date and time format. */
721 const char *fmt = _NL_CURRENT (LC_TIME, ERA_D_T_FMT);
724 fmt = _NL_CURRENT (LC_TIME, D_T_FMT);
726 if (!recursive (fmt))
735 if (strcmp (fmt, HERE_D_T_FMT))
742 /* The C locale has no era information, so use the
743 normal representation. */
744 if (!recursive (HERE_D_T_FMT))
753 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
754 if (era != NULL && match_string (era->era_name, rp))
763 num_eras = _NL_CURRENT_WORD (LC_TIME,
764 _NL_TIME_ERA_NUM_ENTRIES);
765 for (era_cnt = 0; era_cnt < (int) num_eras;
766 ++era_cnt, rp = rp_backup)
768 era = _nl_select_era_entry (era_cnt
770 if (era != NULL && match_string (era->era_name, rp))
776 if (era_cnt != (int) num_eras)
785 /* The C locale has no era information, so use the
786 normal representation. */
791 get_number(0, 9999, 4);
799 assert (*decided == loc);
801 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
805 int delta = ((tm->tm_year - era->offset)
806 * era->absolute_direction);
808 && delta < (((int64_t) era->stop_date[0]
809 - (int64_t) era->start_date[0])
810 * era->absolute_direction));
818 num_eras = _NL_CURRENT_WORD (LC_TIME,
819 _NL_TIME_ERA_NUM_ENTRIES);
820 for (era_cnt = 0; era_cnt < (int) num_eras; ++era_cnt)
822 era = _nl_select_era_entry (era_cnt
826 int delta = ((tm->tm_year - era->offset)
827 * era->absolute_direction);
829 && delta < (((int64_t) era->stop_date[0]
830 - (int64_t) era->start_date[0])
831 * era->absolute_direction))
838 if (era_cnt != (int) num_eras)
848 goto match_year_in_century;
852 num_eras = _NL_CURRENT_WORD (LC_TIME,
853 _NL_TIME_ERA_NUM_ENTRIES);
854 for (era_cnt = 0; era_cnt < (int) num_eras;
855 ++era_cnt, rp = rp_backup)
857 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
858 if (era != NULL && recursive (era->era_format))
861 if (era_cnt == (int) num_eras)
878 get_number (0, 9999, 4);
879 tm->tm_year = val - 1900;
886 const char *fmt = _NL_CURRENT (LC_TIME, ERA_D_FMT);
889 fmt = _NL_CURRENT (LC_TIME, D_FMT);
891 if (!recursive (fmt))
900 if (strcmp (fmt, HERE_D_FMT))
906 if (!recursive (HERE_D_FMT))
912 const char *fmt = _NL_CURRENT (LC_TIME, ERA_T_FMT);
915 fmt = _NL_CURRENT (LC_TIME, T_FMT);
917 if (!recursive (fmt))
926 if (strcmp (fmt, HERE_T_FMT))
932 if (!recursive (HERE_T_FMT))
940 /* We have no information about the era format. Just use
941 the normal format. */
942 if (*fmt != 'c' && *fmt != 'C' && *fmt != 'y' && *fmt != 'Y'
943 && *fmt != 'x' && *fmt != 'X')
944 /* This is an illegal format. */
954 /* Match day of month using alternate numeric symbols. */
955 get_alt_number (1, 31, 2);
961 /* Match hour in 24-hour clock using alternate numeric
963 get_alt_number (0, 23, 2);
968 /* Match hour in 12-hour clock using alternate numeric
970 get_alt_number (1, 12, 2);
971 tm->tm_hour = val % 12;
975 /* Match month using alternate numeric symbols. */
976 get_alt_number (1, 12, 2);
977 tm->tm_mon = val - 1;
982 /* Match minutes using alternate numeric symbols. */
983 get_alt_number (0, 59, 2);
987 /* Match seconds using alternate numeric symbols. */
988 get_alt_number (0, 61, 2);
992 get_alt_number (0, 53, 2);
997 get_alt_number (0, 53, 2);
1002 get_alt_number (0, 53, 2);
1003 /* XXX This cannot determine any field in TM without
1004 further information. */
1007 /* Match number of weekday using alternate numeric symbols. */
1008 get_alt_number (0, 6, 1);
1013 /* Match year within century using alternate numeric symbols. */
1014 get_alt_number (0, 99, 2);
1015 tm->tm_year = val >= 69 ? val : val + 100;
1027 if (have_I && is_pm)
1033 tm->tm_year = tm->tm_year % 100 + (century - 19) * 100;
1035 /* Only the century, but not the year. Strange, but so be it. */
1036 tm->tm_year = (century - 19) * 100;
1039 assert(era_cnt == -1);
1044 era = _nl_select_era_entry (era_cnt HELPER_LOCALE_ARG);
1048 tm->tm_year = (era->start_date[0]
1049 + ((tm->tm_year - era->offset)
1050 * era->absolute_direction));
1052 /* Era start year assumed. */
1053 tm->tm_year = era->start_date[0];
1059 /* No era found but we have seen an E modifier. Rectify some
1061 if (want_century && century == -1 && tm->tm_year < 69)
1065 if (want_xday && !have_wday)
1067 if ( !(have_mon && have_mday) && have_yday)
1069 /* We don't have tm_mon and/or tm_mday, compute them. */
1071 while (__mon_yday[__isleap(1900 + tm->tm_year)][t_mon] <= tm->tm_yday)
1074 tm->tm_mon = t_mon - 1;
1078 - __mon_yday[__isleap(1900 + tm->tm_year)][t_mon - 1] + 1);
1080 day_of_the_week (tm);
1083 if (want_xday && !have_yday)
1084 day_of_the_year (tm);
1086 if ((have_uweek || have_wweek) && have_wday)
1088 int save_wday = tm->tm_wday;
1089 int save_mday = tm->tm_mday;
1090 int save_mon = tm->tm_mon;
1091 int w_offset = have_uweek ? 0 : 1;
1095 day_of_the_week (tm);
1097 tm->tm_mday = save_mday;
1099 tm->tm_mon = save_mon;
1102 tm->tm_yday = ((7 - (tm->tm_wday - w_offset)) % 7
1104 + save_wday - w_offset);
1106 if (!have_mday || !have_mon)
1109 while (__mon_yday[__isleap(1900 + tm->tm_year)][t_mon]
1113 tm->tm_mon = t_mon - 1;
1117 - __mon_yday[__isleap(1900 + tm->tm_year)][t_mon - 1] + 1);
1120 tm->tm_wday = save_wday;
1128 strptime (buf, format, tm LOCALE_PARAM)
1134 enum ptime_locale_status decided;
1141 return __strptime_internal (buf, format, tm, &decided, -1 LOCALE_ARG);
1145 weak_alias (__strptime_l, strptime_l)