]> git.saurik.com Git - wxWidgets.git/blob - src/common/datetime.cpp
extending implementation
[wxWidgets.git] / src / common / datetime.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: src/common/datetime.cpp
3 // Purpose: implementation of time/date related classes
4 // Author: Vadim Zeitlin
5 // Modified by:
6 // Created: 11.05.99
7 // RCS-ID: $Id$
8 // Copyright: (c) 1999 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9 // parts of code taken from sndcal library by Scott E. Lee:
10 //
11 // Copyright 1993-1995, Scott E. Lee, all rights reserved.
12 // Permission granted to use, copy, modify, distribute and sell
13 // so long as the above copyright and this permission statement
14 // are retained in all copies.
15 //
16 // Licence: wxWindows licence
17 ///////////////////////////////////////////////////////////////////////////////
18
19 // TODO: for $DEITY sake, someone please fix the #ifdef __WXWINCE__ everywhere,
20 // the proper way to do it is to implement (subset of) wxStrftime() for
21 // CE instead of this horror!!
22
23 /*
24 * Implementation notes:
25 *
26 * 1. the time is stored as a 64bit integer containing the signed number of
27 * milliseconds since Jan 1. 1970 (the Unix Epoch) - so it is always
28 * expressed in GMT.
29 *
30 * 2. the range is thus something about 580 million years, but due to current
31 * algorithms limitations, only dates from Nov 24, 4714BC are handled
32 *
33 * 3. standard ANSI C functions are used to do time calculations whenever
34 * possible, i.e. when the date is in the range Jan 1, 1970 to 2038
35 *
36 * 4. otherwise, the calculations are done by converting the date to/from JDN
37 * first (the range limitation mentioned above comes from here: the
38 * algorithm used by Scott E. Lee's code only works for positive JDNs, more
39 * or less)
40 *
41 * 5. the object constructed for the given DD-MM-YYYY HH:MM:SS corresponds to
42 * this moment in local time and may be converted to the object
43 * corresponding to the same date/time in another time zone by using
44 * ToTimezone()
45 *
46 * 6. the conversions to the current (or any other) timezone are done when the
47 * internal time representation is converted to the broken-down one in
48 * wxDateTime::Tm.
49 */
50
51 // ============================================================================
52 // declarations
53 // ============================================================================
54
55 // ----------------------------------------------------------------------------
56 // headers
57 // ----------------------------------------------------------------------------
58
59 // For compilers that support precompilation, includes "wx.h".
60 #include "wx/wxprec.h"
61
62 #ifdef __BORLANDC__
63 #pragma hdrstop
64 #endif
65
66 #if !defined(wxUSE_DATETIME) || wxUSE_DATETIME
67
68 #ifndef WX_PRECOMP
69 #ifdef __WXMSW__
70 #include "wx/msw/wrapwin.h"
71 #endif
72 #include "wx/string.h"
73 #include "wx/log.h"
74 #include "wx/intl.h"
75 #include "wx/stopwatch.h" // for wxGetLocalTimeMillis()
76 #include "wx/module.h"
77 #endif // WX_PRECOMP
78
79 #include "wx/thread.h"
80 #include "wx/tokenzr.h"
81
82 #include <ctype.h>
83
84 #ifdef __WINDOWS__
85 #include <winnls.h>
86 #ifndef __WXWINCE__
87 #include <locale.h>
88 #endif
89 #endif
90
91 #include "wx/datetime.h"
92
93 const long wxDateTime::TIME_T_FACTOR = 1000l;
94
95 #if wxUSE_EXTENDED_RTTI
96
97 template<> void wxStringReadValue(const wxString &s , wxDateTime &data )
98 {
99 data.ParseFormat(s,wxT("%Y-%m-%d %H:%M:%S")) ;
100 }
101
102 template<> void wxStringWriteValue(wxString &s , const wxDateTime &data )
103 {
104 s = data.Format(wxT("%Y-%m-%d %H:%M:%S")) ;
105 }
106
107 wxCUSTOM_TYPE_INFO(wxDateTime, wxToStringConverter<wxDateTime> , wxFromStringConverter<wxDateTime>)
108
109 #endif
110
111 //
112 // ----------------------------------------------------------------------------
113 // conditional compilation
114 // ----------------------------------------------------------------------------
115
116 #if defined(HAVE_STRPTIME) && defined(__GLIBC__) && \
117 ((__GLIBC__ == 2) && (__GLIBC_MINOR__ == 0))
118 // glibc 2.0.7 strptime() is broken - the following snippet causes it to
119 // crash (instead of just failing):
120 //
121 // strncpy(buf, "Tue Dec 21 20:25:40 1999", 128);
122 // strptime(buf, "%x", &tm);
123 //
124 // so don't use it
125 #undef HAVE_STRPTIME
126 #endif // broken strptime()
127
128 #if defined(HAVE_STRPTIME) && defined(__DARWIN__) && defined(_MSL_USING_MW_C_HEADERS) && _MSL_USING_MW_C_HEADERS
129 // configure detects strptime as linkable because it's in the OS X
130 // System library but MSL headers don't declare it.
131
132 // char *strptime(const char *, const char *, struct tm *);
133 // However, we DON'T want to just provide it here because we would
134 // crash and/or overwrite data when strptime from OS X tries
135 // to fill in MW's struct tm which is two fields shorter (no TZ stuff)
136 // So for now let's just say we don't have strptime
137 #undef HAVE_STRPTIME
138 #endif
139
140 #if defined(__MWERKS__) && wxUSE_UNICODE
141 #include <wtime.h>
142 #endif
143
144 #if !defined(WX_TIMEZONE) && !defined(WX_GMTOFF_IN_TM)
145 #if defined(__WXPALMOS__)
146 #define WX_GMTOFF_IN_TM
147 #elif defined(__BORLANDC__) || defined(__MINGW32__) || defined(__VISAGECPP__)
148 #define WX_TIMEZONE _timezone
149 #elif defined(__MWERKS__)
150 long wxmw_timezone = 28800;
151 #define WX_TIMEZONE wxmw_timezone
152 #elif defined(__DJGPP__) || defined(__WINE__)
153 #include <sys/timeb.h>
154 #include <values.h>
155 static long wxGetTimeZone()
156 {
157 static long timezone = MAXLONG; // invalid timezone
158 if (timezone == MAXLONG)
159 {
160 struct timeb tb;
161 ftime(&tb);
162 timezone = tb.timezone;
163 }
164 return timezone;
165 }
166 #define WX_TIMEZONE wxGetTimeZone()
167 #elif defined(__DARWIN__)
168 #define WX_GMTOFF_IN_TM
169 #else // unknown platform - try timezone
170 #define WX_TIMEZONE timezone
171 #endif
172 #endif // !WX_TIMEZONE && !WX_GMTOFF_IN_TM
173
174 #if (!defined(HAVE_LOCALTIME_R) || !defined(HAVE_GMTIME_R)) && wxUSE_THREADS && !defined(__WINDOWS__)
175 static wxMutex timeLock;
176 #endif
177
178 #ifndef HAVE_LOCALTIME_R
179 struct tm *wxLocaltime_r(const time_t* ticks, struct tm* temp)
180 {
181 #if wxUSE_THREADS && !defined(__WINDOWS__)
182 // No need to waste time with a mutex on windows since it's using
183 // thread local storage for localtime anyway.
184 wxMutexLocker locker(timeLock);
185 #endif
186 memcpy(temp, localtime(ticks), sizeof(struct tm));
187 return temp;
188 }
189 #endif
190
191 #ifndef HAVE_GMTIME_R
192 struct tm *wxGmtime_r(const time_t* ticks, struct tm* temp)
193 {
194 #if wxUSE_THREADS && !defined(__WINDOWS__)
195 // No need to waste time with a mutex on windows since it's
196 // using thread local storage for gmtime anyway.
197 wxMutexLocker locker(timeLock);
198 #endif
199 memcpy(temp, gmtime(ticks), sizeof(struct tm));
200 return temp;
201 }
202 #endif
203
204 // ----------------------------------------------------------------------------
205 // macros
206 // ----------------------------------------------------------------------------
207
208 // debugging helper: just a convenient replacement of wxCHECK()
209 #define wxDATETIME_CHECK(expr, msg) \
210 wxCHECK2_MSG(expr, *this = wxInvalidDateTime; return *this, msg)
211
212 // ----------------------------------------------------------------------------
213 // private classes
214 // ----------------------------------------------------------------------------
215
216 class wxDateTimeHolidaysModule : public wxModule
217 {
218 public:
219 virtual bool OnInit()
220 {
221 wxDateTimeHolidayAuthority::AddAuthority(new wxDateTimeWorkDays);
222
223 return true;
224 }
225
226 virtual void OnExit()
227 {
228 wxDateTimeHolidayAuthority::ClearAllAuthorities();
229 wxDateTimeHolidayAuthority::ms_authorities.clear();
230 }
231
232 private:
233 DECLARE_DYNAMIC_CLASS(wxDateTimeHolidaysModule)
234 };
235
236 IMPLEMENT_DYNAMIC_CLASS(wxDateTimeHolidaysModule, wxModule)
237
238 // ----------------------------------------------------------------------------
239 // constants
240 // ----------------------------------------------------------------------------
241
242 // some trivial ones
243 static const int MONTHS_IN_YEAR = 12;
244
245 static const int SEC_PER_MIN = 60;
246
247 static const int MIN_PER_HOUR = 60;
248
249 static const int HOURS_PER_DAY = 24;
250
251 static const long SECONDS_PER_DAY = 86400l;
252
253 static const int DAYS_PER_WEEK = 7;
254
255 static const long MILLISECONDS_PER_DAY = 86400000l;
256
257 // this is the integral part of JDN of the midnight of Jan 1, 1970
258 // (i.e. JDN(Jan 1, 1970) = 2440587.5)
259 static const long EPOCH_JDN = 2440587l;
260
261 // used only in asserts
262 #ifdef __WXDEBUG__
263 // the date of JDN -0.5 (as we don't work with fractional parts, this is the
264 // reference date for us) is Nov 24, 4714BC
265 static const int JDN_0_YEAR = -4713;
266 static const int JDN_0_MONTH = wxDateTime::Nov;
267 static const int JDN_0_DAY = 24;
268 #endif // __WXDEBUG__
269
270 // the constants used for JDN calculations
271 static const long JDN_OFFSET = 32046l;
272 static const long DAYS_PER_5_MONTHS = 153l;
273 static const long DAYS_PER_4_YEARS = 1461l;
274 static const long DAYS_PER_400_YEARS = 146097l;
275
276 // this array contains the cumulated number of days in all previous months for
277 // normal and leap years
278 static const wxDateTime::wxDateTime_t gs_cumulatedDays[2][MONTHS_IN_YEAR] =
279 {
280 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 },
281 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 }
282 };
283
284 // ----------------------------------------------------------------------------
285 // global data
286 // ----------------------------------------------------------------------------
287
288 const wxChar * wxDefaultDateTimeFormat = wxT("%c");
289 const wxChar * wxDefaultTimeSpanFormat = wxT("%H:%M:%S");
290
291 // in the fine tradition of ANSI C we use our equivalent of (time_t)-1 to
292 // indicate an invalid wxDateTime object
293 const wxDateTime wxDefaultDateTime;
294
295 wxDateTime::Country wxDateTime::ms_country = wxDateTime::Country_Unknown;
296
297 // ----------------------------------------------------------------------------
298 // private functions
299 // ----------------------------------------------------------------------------
300
301 // debugger helper: shows what the date really is
302 #ifdef __WXDEBUG__
303 extern const wxChar *wxDumpDate(const wxDateTime* dt)
304 {
305 static wxChar buf[128];
306
307 wxStrcpy(buf, dt->Format(_T("%Y-%m-%d (%a) %H:%M:%S")));
308
309 return buf;
310 }
311 #endif // Debug
312
313 // get the number of days in the given month of the given year
314 static inline
315 wxDateTime::wxDateTime_t GetNumOfDaysInMonth(int year, wxDateTime::Month month)
316 {
317 // the number of days in month in Julian/Gregorian calendar: the first line
318 // is for normal years, the second one is for the leap ones
319 static wxDateTime::wxDateTime_t daysInMonth[2][MONTHS_IN_YEAR] =
320 {
321 { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
322 { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
323 };
324
325 return daysInMonth[wxDateTime::IsLeapYear(year)][month];
326 }
327
328 // returns the time zone in the C sense, i.e. the difference UTC - local
329 // (in seconds)
330 static int GetTimeZone()
331 {
332 // set to true when the timezone is set
333 static bool s_timezoneSet = false;
334 static long gmtoffset = LONG_MAX; // invalid timezone
335
336 // ensure that the timezone variable is set by calling wxLocaltime_r
337 if ( !s_timezoneSet )
338 {
339 // just call wxLocaltime_r() instead of figuring out whether this
340 // system supports tzset(), _tzset() or something else
341 time_t t = 0;
342 struct tm tm;
343
344 wxLocaltime_r(&t, &tm);
345 s_timezoneSet = true;
346
347 #ifdef WX_GMTOFF_IN_TM
348 // note that GMT offset is the opposite of time zone and so to return
349 // consistent results in both WX_GMTOFF_IN_TM and !WX_GMTOFF_IN_TM
350 // cases we have to negate it
351 gmtoffset = -tm.tm_gmtoff;
352 #else // !WX_GMTOFF_IN_TM
353 gmtoffset = WX_TIMEZONE;
354 #endif // WX_GMTOFF_IN_TM/!WX_GMTOFF_IN_TM
355 }
356
357 return (int)gmtoffset;
358 }
359
360 // return the integral part of the JDN for the midnight of the given date (to
361 // get the real JDN you need to add 0.5, this is, in fact, JDN of the
362 // noon of the previous day)
363 static long GetTruncatedJDN(wxDateTime::wxDateTime_t day,
364 wxDateTime::Month mon,
365 int year)
366 {
367 // CREDIT: code below is by Scott E. Lee (but bugs are mine)
368
369 // check the date validity
370 wxASSERT_MSG(
371 (year > JDN_0_YEAR) ||
372 ((year == JDN_0_YEAR) && (mon > JDN_0_MONTH)) ||
373 ((year == JDN_0_YEAR) && (mon == JDN_0_MONTH) && (day >= JDN_0_DAY)),
374 _T("date out of range - can't convert to JDN")
375 );
376
377 // make the year positive to avoid problems with negative numbers division
378 year += 4800;
379
380 // months are counted from March here
381 int month;
382 if ( mon >= wxDateTime::Mar )
383 {
384 month = mon - 2;
385 }
386 else
387 {
388 month = mon + 10;
389 year--;
390 }
391
392 // now we can simply add all the contributions together
393 return ((year / 100) * DAYS_PER_400_YEARS) / 4
394 + ((year % 100) * DAYS_PER_4_YEARS) / 4
395 + (month * DAYS_PER_5_MONTHS + 2) / 5
396 + day
397 - JDN_OFFSET;
398 }
399
400 #ifndef __WXWINCE__
401 // this function is a wrapper around strftime(3) adding error checking
402 static wxString CallStrftime(const wxChar *format, const tm* tm)
403 {
404 wxChar buf[4096];
405 // Create temp wxString here to work around mingw/cygwin bug 1046059
406 // http://sourceforge.net/tracker/?func=detail&atid=102435&aid=1046059&group_id=2435
407 wxString s;
408
409 if ( !wxStrftime(buf, WXSIZEOF(buf), format, tm) )
410 {
411 // buffer is too small?
412 wxFAIL_MSG(_T("strftime() failed"));
413 }
414
415 s = buf;
416 return s;
417 }
418 #endif
419
420 #ifdef HAVE_STRPTIME
421
422 #if wxUSE_UNIX && !defined(HAVE_STRPTIME_DECL)
423 // configure detected that we had strptime() but not its declaration,
424 // provide it ourselves
425 extern "C" char *strptime(const char *, const char *, struct tm *);
426 #endif
427
428 // Unicode-friendly strptime() wrapper
429 static const wxChar *
430 CallStrptime(const wxChar *input, const char *fmt, tm *tm)
431 {
432 // the problem here is that strptime() returns pointer into the string we
433 // passed to it while we're really interested in the pointer into the
434 // original, Unicode, string so we try to transform the pointer back
435 #if wxUSE_UNICODE
436 wxCharBuffer inputMB(wxConvertWX2MB(input));
437 #else // ASCII
438 const char * const inputMB = input;
439 #endif // Unicode/Ascii
440
441 const char *result = strptime(inputMB, fmt, tm);
442 if ( !result )
443 return NULL;
444
445 #if wxUSE_UNICODE
446 // FIXME: this is wrong in presence of surrogates &c
447 return input + (result - inputMB.data());
448 #else // ASCII
449 return result;
450 #endif // Unicode/Ascii
451 }
452
453 #endif // HAVE_STRPTIME
454
455 // if year and/or month have invalid values, replace them with the current ones
456 static void ReplaceDefaultYearMonthWithCurrent(int *year,
457 wxDateTime::Month *month)
458 {
459 struct tm *tmNow = NULL;
460 struct tm tmstruct;
461
462 if ( *year == wxDateTime::Inv_Year )
463 {
464 tmNow = wxDateTime::GetTmNow(&tmstruct);
465
466 *year = 1900 + tmNow->tm_year;
467 }
468
469 if ( *month == wxDateTime::Inv_Month )
470 {
471 if ( !tmNow )
472 tmNow = wxDateTime::GetTmNow(&tmstruct);
473
474 *month = (wxDateTime::Month)tmNow->tm_mon;
475 }
476 }
477
478 // fll the struct tm with default values
479 static void InitTm(struct tm& tm)
480 {
481 // struct tm may have etxra fields (undocumented and with unportable
482 // names) which, nevertheless, must be set to 0
483 memset(&tm, 0, sizeof(struct tm));
484
485 tm.tm_mday = 1; // mday 0 is invalid
486 tm.tm_year = 76; // any valid year
487 tm.tm_isdst = -1; // auto determine
488 }
489
490 // parsing helpers
491 // ---------------
492
493 // return the month if the string is a month name or Inv_Month otherwise
494 static wxDateTime::Month GetMonthFromName(const wxString& name, int flags)
495 {
496 wxDateTime::Month mon;
497 for ( mon = wxDateTime::Jan; mon < wxDateTime::Inv_Month; wxNextMonth(mon) )
498 {
499 // case-insensitive comparison either one of or with both abbreviated
500 // and not versions
501 if ( flags & wxDateTime::Name_Full )
502 {
503 if ( name.CmpNoCase(wxDateTime::
504 GetMonthName(mon, wxDateTime::Name_Full)) == 0 )
505 {
506 break;
507 }
508 }
509
510 if ( flags & wxDateTime::Name_Abbr )
511 {
512 if ( name.CmpNoCase(wxDateTime::
513 GetMonthName(mon, wxDateTime::Name_Abbr)) == 0 )
514 {
515 break;
516 }
517 }
518 }
519
520 return mon;
521 }
522
523 // return the weekday if the string is a weekday name or Inv_WeekDay otherwise
524 static wxDateTime::WeekDay GetWeekDayFromName(const wxString& name, int flags)
525 {
526 wxDateTime::WeekDay wd;
527 for ( wd = wxDateTime::Sun; wd < wxDateTime::Inv_WeekDay; wxNextWDay(wd) )
528 {
529 // case-insensitive comparison either one of or with both abbreviated
530 // and not versions
531 if ( flags & wxDateTime::Name_Full )
532 {
533 if ( name.CmpNoCase(wxDateTime::
534 GetWeekDayName(wd, wxDateTime::Name_Full)) == 0 )
535 {
536 break;
537 }
538 }
539
540 if ( flags & wxDateTime::Name_Abbr )
541 {
542 if ( name.CmpNoCase(wxDateTime::
543 GetWeekDayName(wd, wxDateTime::Name_Abbr)) == 0 )
544 {
545 break;
546 }
547 }
548 }
549
550 return wd;
551 }
552
553 /* static */
554 struct tm *wxDateTime::GetTmNow(struct tm *tmstruct)
555 {
556 time_t t = GetTimeNow();
557 return wxLocaltime_r(&t, tmstruct);
558 }
559
560 // scans all digits (but no more than len) and returns the resulting number
561 static bool GetNumericToken(size_t len, const wxChar*& p, unsigned long *number)
562 {
563 size_t n = 1;
564 wxString s;
565 while ( wxIsdigit(*p) )
566 {
567 s += *p++;
568
569 if ( len && ++n > len )
570 break;
571 }
572
573 return !s.empty() && s.ToULong(number);
574 }
575
576 // scans all alphabetic characters and returns the resulting string
577 static wxString GetAlphaToken(const wxChar*& p)
578 {
579 wxString s;
580 while ( wxIsalpha(*p) )
581 {
582 s += *p++;
583 }
584
585 return s;
586 }
587
588 // ============================================================================
589 // implementation of wxDateTime
590 // ============================================================================
591
592 // ----------------------------------------------------------------------------
593 // struct Tm
594 // ----------------------------------------------------------------------------
595
596 wxDateTime::Tm::Tm()
597 {
598 year = (wxDateTime_t)wxDateTime::Inv_Year;
599 mon = wxDateTime::Inv_Month;
600 mday = 0;
601 hour = min = sec = msec = 0;
602 wday = wxDateTime::Inv_WeekDay;
603 }
604
605 wxDateTime::Tm::Tm(const struct tm& tm, const TimeZone& tz)
606 : m_tz(tz)
607 {
608 msec = 0;
609 sec = (wxDateTime::wxDateTime_t)tm.tm_sec;
610 min = (wxDateTime::wxDateTime_t)tm.tm_min;
611 hour = (wxDateTime::wxDateTime_t)tm.tm_hour;
612 mday = (wxDateTime::wxDateTime_t)tm.tm_mday;
613 mon = (wxDateTime::Month)tm.tm_mon;
614 year = 1900 + tm.tm_year;
615 wday = (wxDateTime::wxDateTime_t)tm.tm_wday;
616 yday = (wxDateTime::wxDateTime_t)tm.tm_yday;
617 }
618
619 bool wxDateTime::Tm::IsValid() const
620 {
621 // we allow for the leap seconds, although we don't use them (yet)
622 return (year != wxDateTime::Inv_Year) && (mon != wxDateTime::Inv_Month) &&
623 (mday <= GetNumOfDaysInMonth(year, mon)) &&
624 (hour < 24) && (min < 60) && (sec < 62) && (msec < 1000);
625 }
626
627 void wxDateTime::Tm::ComputeWeekDay()
628 {
629 // compute the week day from day/month/year: we use the dumbest algorithm
630 // possible: just compute our JDN and then use the (simple to derive)
631 // formula: weekday = (JDN + 1.5) % 7
632 wday = (wxDateTime::wxDateTime_t)((wxDateTime::WeekDay)(GetTruncatedJDN(mday, mon, year) + 2) % 7);
633 }
634
635 void wxDateTime::Tm::AddMonths(int monDiff)
636 {
637 // normalize the months field
638 while ( monDiff < -mon )
639 {
640 year--;
641
642 monDiff += MONTHS_IN_YEAR;
643 }
644
645 while ( monDiff + mon >= MONTHS_IN_YEAR )
646 {
647 year++;
648
649 monDiff -= MONTHS_IN_YEAR;
650 }
651
652 mon = (wxDateTime::Month)(mon + monDiff);
653
654 wxASSERT_MSG( mon >= 0 && mon < MONTHS_IN_YEAR, _T("logic error") );
655
656 // NB: we don't check here that the resulting date is valid, this function
657 // is private and the caller must check it if needed
658 }
659
660 void wxDateTime::Tm::AddDays(int dayDiff)
661 {
662 // normalize the days field
663 while ( dayDiff + mday < 1 )
664 {
665 AddMonths(-1);
666
667 dayDiff += GetNumOfDaysInMonth(year, mon);
668 }
669
670 mday = (wxDateTime::wxDateTime_t)( mday + dayDiff );
671 while ( mday > GetNumOfDaysInMonth(year, mon) )
672 {
673 mday -= GetNumOfDaysInMonth(year, mon);
674
675 AddMonths(1);
676 }
677
678 wxASSERT_MSG( mday > 0 && mday <= GetNumOfDaysInMonth(year, mon),
679 _T("logic error") );
680 }
681
682 // ----------------------------------------------------------------------------
683 // class TimeZone
684 // ----------------------------------------------------------------------------
685
686 wxDateTime::TimeZone::TimeZone(wxDateTime::TZ tz)
687 {
688 switch ( tz )
689 {
690 case wxDateTime::Local:
691 // get the offset from C RTL: it returns the difference GMT-local
692 // while we want to have the offset _from_ GMT, hence the '-'
693 m_offset = -GetTimeZone();
694 break;
695
696 case wxDateTime::GMT_12:
697 case wxDateTime::GMT_11:
698 case wxDateTime::GMT_10:
699 case wxDateTime::GMT_9:
700 case wxDateTime::GMT_8:
701 case wxDateTime::GMT_7:
702 case wxDateTime::GMT_6:
703 case wxDateTime::GMT_5:
704 case wxDateTime::GMT_4:
705 case wxDateTime::GMT_3:
706 case wxDateTime::GMT_2:
707 case wxDateTime::GMT_1:
708 m_offset = -3600*(wxDateTime::GMT0 - tz);
709 break;
710
711 case wxDateTime::GMT0:
712 case wxDateTime::GMT1:
713 case wxDateTime::GMT2:
714 case wxDateTime::GMT3:
715 case wxDateTime::GMT4:
716 case wxDateTime::GMT5:
717 case wxDateTime::GMT6:
718 case wxDateTime::GMT7:
719 case wxDateTime::GMT8:
720 case wxDateTime::GMT9:
721 case wxDateTime::GMT10:
722 case wxDateTime::GMT11:
723 case wxDateTime::GMT12:
724 m_offset = 3600*(tz - wxDateTime::GMT0);
725 break;
726
727 case wxDateTime::A_CST:
728 // Central Standard Time in use in Australia = UTC + 9.5
729 m_offset = 60l*(9*MIN_PER_HOUR + MIN_PER_HOUR/2);
730 break;
731
732 default:
733 wxFAIL_MSG( _T("unknown time zone") );
734 }
735 }
736
737 // ----------------------------------------------------------------------------
738 // static functions
739 // ----------------------------------------------------------------------------
740
741 /* static */
742 bool wxDateTime::IsLeapYear(int year, wxDateTime::Calendar cal)
743 {
744 if ( year == Inv_Year )
745 year = GetCurrentYear();
746
747 if ( cal == Gregorian )
748 {
749 // in Gregorian calendar leap years are those divisible by 4 except
750 // those divisible by 100 unless they're also divisible by 400
751 // (in some countries, like Russia and Greece, additional corrections
752 // exist, but they won't manifest themselves until 2700)
753 return (year % 4 == 0) && ((year % 100 != 0) || (year % 400 == 0));
754 }
755 else if ( cal == Julian )
756 {
757 // in Julian calendar the rule is simpler
758 return year % 4 == 0;
759 }
760 else
761 {
762 wxFAIL_MSG(_T("unknown calendar"));
763
764 return false;
765 }
766 }
767
768 /* static */
769 int wxDateTime::GetCentury(int year)
770 {
771 return year > 0 ? year / 100 : year / 100 - 1;
772 }
773
774 /* static */
775 int wxDateTime::ConvertYearToBC(int year)
776 {
777 // year 0 is BC 1
778 return year > 0 ? year : year - 1;
779 }
780
781 /* static */
782 int wxDateTime::GetCurrentYear(wxDateTime::Calendar cal)
783 {
784 switch ( cal )
785 {
786 case Gregorian:
787 return Now().GetYear();
788
789 case Julian:
790 wxFAIL_MSG(_T("TODO"));
791 break;
792
793 default:
794 wxFAIL_MSG(_T("unsupported calendar"));
795 break;
796 }
797
798 return Inv_Year;
799 }
800
801 /* static */
802 wxDateTime::Month wxDateTime::GetCurrentMonth(wxDateTime::Calendar cal)
803 {
804 switch ( cal )
805 {
806 case Gregorian:
807 return Now().GetMonth();
808
809 case Julian:
810 wxFAIL_MSG(_T("TODO"));
811 break;
812
813 default:
814 wxFAIL_MSG(_T("unsupported calendar"));
815 break;
816 }
817
818 return Inv_Month;
819 }
820
821 /* static */
822 wxDateTime::wxDateTime_t wxDateTime::GetNumberOfDays(int year, Calendar cal)
823 {
824 if ( year == Inv_Year )
825 {
826 // take the current year if none given
827 year = GetCurrentYear();
828 }
829
830 switch ( cal )
831 {
832 case Gregorian:
833 case Julian:
834 return IsLeapYear(year) ? 366 : 365;
835
836 default:
837 wxFAIL_MSG(_T("unsupported calendar"));
838 break;
839 }
840
841 return 0;
842 }
843
844 /* static */
845 wxDateTime::wxDateTime_t wxDateTime::GetNumberOfDays(wxDateTime::Month month,
846 int year,
847 wxDateTime::Calendar cal)
848 {
849 wxCHECK_MSG( month < MONTHS_IN_YEAR, 0, _T("invalid month") );
850
851 if ( cal == Gregorian || cal == Julian )
852 {
853 if ( year == Inv_Year )
854 {
855 // take the current year if none given
856 year = GetCurrentYear();
857 }
858
859 return GetNumOfDaysInMonth(year, month);
860 }
861 else
862 {
863 wxFAIL_MSG(_T("unsupported calendar"));
864
865 return 0;
866 }
867 }
868
869 /* static */
870 wxString wxDateTime::GetMonthName(wxDateTime::Month month,
871 wxDateTime::NameFlags flags)
872 {
873 wxCHECK_MSG( month != Inv_Month, wxEmptyString, _T("invalid month") );
874 #ifndef __WXWINCE__
875 // notice that we must set all the fields to avoid confusing libc (GNU one
876 // gets confused to a crash if we don't do this)
877 tm tm;
878 InitTm(tm);
879 tm.tm_mon = month;
880
881 return CallStrftime(flags == Name_Abbr ? _T("%b") : _T("%B"), &tm);
882 #else
883 wxString ret;
884 switch(month)
885 {
886 case Jan:
887 ret = (flags == Name_Abbr ? wxT("Jan"): wxT("January"));
888 break;
889 case Feb:
890 ret = (flags == Name_Abbr ? wxT("Feb"): wxT("Febuary"));
891 break;
892 case Mar:
893 ret = (flags == Name_Abbr ? wxT("Mar"): wxT("March"));
894 break;
895 case Apr:
896 ret = (flags == Name_Abbr ? wxT("Apr"): wxT("April"));
897 break;
898 case May:
899 ret = (flags == Name_Abbr ? wxT("May"): wxT("May"));
900 break;
901 case Jun:
902 ret = (flags == Name_Abbr ? wxT("Jun"): wxT("June"));
903 break;
904 case Jul:
905 ret = (flags == Name_Abbr ? wxT("Jul"): wxT("July"));
906 break;
907 case Aug:
908 ret = (flags == Name_Abbr ? wxT("Aug"): wxT("August"));
909 break;
910 case Sep:
911 ret = (flags == Name_Abbr ? wxT("Sep"): wxT("September"));
912 break;
913 case Oct:
914 ret = (flags == Name_Abbr ? wxT("Oct"): wxT("October"));
915 break;
916 case Nov:
917 ret = (flags == Name_Abbr ? wxT("Nov"): wxT("November"));
918 break;
919 case Dec:
920 ret = (flags == Name_Abbr ? wxT("Dec"): wxT("December"));
921 break;
922 }
923 return ret;
924 #endif
925 }
926
927 /* static */
928 wxString wxDateTime::GetWeekDayName(wxDateTime::WeekDay wday,
929 wxDateTime::NameFlags flags)
930 {
931 wxCHECK_MSG( wday != Inv_WeekDay, wxEmptyString, _T("invalid weekday") );
932 #ifndef __WXWINCE__
933 // take some arbitrary Sunday (but notice that the day should be such that
934 // after adding wday to it below we still have a valid date, e.g. don't
935 // take 28 here!)
936 tm tm;
937 InitTm(tm);
938 tm.tm_mday = 21;
939 tm.tm_mon = Nov;
940 tm.tm_year = 99;
941
942 // and offset it by the number of days needed to get the correct wday
943 tm.tm_mday += wday;
944
945 // call mktime() to normalize it...
946 (void)mktime(&tm);
947
948 // ... and call strftime()
949 return CallStrftime(flags == Name_Abbr ? _T("%a") : _T("%A"), &tm);
950 #else
951 wxString ret;
952 switch(wday)
953 {
954 case Sun:
955 ret = (flags == Name_Abbr ? wxT("Sun") : wxT("Sunday"));
956 break;
957 case Mon:
958 ret = (flags == Name_Abbr ? wxT("Mon") : wxT("Monday"));
959 break;
960 case Tue:
961 ret = (flags == Name_Abbr ? wxT("Tue") : wxT("Tuesday"));
962 break;
963 case Wed:
964 ret = (flags == Name_Abbr ? wxT("Wed") : wxT("Wednesday"));
965 break;
966 case Thu:
967 ret = (flags == Name_Abbr ? wxT("Thu") : wxT("Thursday"));
968 break;
969 case Fri:
970 ret = (flags == Name_Abbr ? wxT("Fri") : wxT("Friday"));
971 break;
972 case Sat:
973 ret = (flags == Name_Abbr ? wxT("Sat") : wxT("Saturday"));
974 break;
975 }
976 return ret;
977
978 #endif
979 }
980
981 /* static */
982 void wxDateTime::GetAmPmStrings(wxString *am, wxString *pm)
983 {
984 tm tm;
985 InitTm(tm);
986 wxChar buffer[64];
987 // @Note: Do not call 'CallStrftime' here! CallStrftime checks the return code
988 // and causes an assertion failed if the buffer is to small (which is good) - OR -
989 // if strftime does not return anything because the format string is invalid - OR -
990 // if there are no 'am' / 'pm' tokens defined for the current locale (which is not good).
991 // wxDateTime::ParseTime will try several different formats to parse the time.
992 // As a result, GetAmPmStrings might get called, even if the current locale
993 // does not define any 'am' / 'pm' tokens. In this case, wxStrftime would
994 // assert, even though it is a perfectly legal use.
995 if ( am )
996 {
997 if (wxStrftime(buffer, sizeof(buffer)/sizeof(wxChar), _T("%p"), &tm) > 0)
998 *am = wxString(buffer);
999 else
1000 *am = wxString();
1001 }
1002 if ( pm )
1003 {
1004 tm.tm_hour = 13;
1005 if (wxStrftime(buffer, sizeof(buffer)/sizeof(wxChar), _T("%p"), &tm) > 0)
1006 *pm = wxString(buffer);
1007 else
1008 *pm = wxString();
1009 }
1010 }
1011
1012 // ----------------------------------------------------------------------------
1013 // Country stuff: date calculations depend on the country (DST, work days,
1014 // ...), so we need to know which rules to follow.
1015 // ----------------------------------------------------------------------------
1016
1017 /* static */
1018 wxDateTime::Country wxDateTime::GetCountry()
1019 {
1020 // TODO use LOCALE_ICOUNTRY setting under Win32
1021 #ifndef __WXWINCE__
1022 if ( ms_country == Country_Unknown )
1023 {
1024 // try to guess from the time zone name
1025 time_t t = time(NULL);
1026 struct tm tmstruct;
1027 struct tm *tm = wxLocaltime_r(&t, &tmstruct);
1028
1029 wxString tz = CallStrftime(_T("%Z"), tm);
1030 if ( tz == _T("WET") || tz == _T("WEST") )
1031 {
1032 ms_country = UK;
1033 }
1034 else if ( tz == _T("CET") || tz == _T("CEST") )
1035 {
1036 ms_country = Country_EEC;
1037 }
1038 else if ( tz == _T("MSK") || tz == _T("MSD") )
1039 {
1040 ms_country = Russia;
1041 }
1042 else if ( tz == _T("AST") || tz == _T("ADT") ||
1043 tz == _T("EST") || tz == _T("EDT") ||
1044 tz == _T("CST") || tz == _T("CDT") ||
1045 tz == _T("MST") || tz == _T("MDT") ||
1046 tz == _T("PST") || tz == _T("PDT") )
1047 {
1048 ms_country = USA;
1049 }
1050 else
1051 {
1052 // well, choose a default one
1053 ms_country = USA;
1054 }
1055 }
1056 #else
1057 ms_country = USA;
1058 #endif
1059
1060 return ms_country;
1061 }
1062
1063 /* static */
1064 void wxDateTime::SetCountry(wxDateTime::Country country)
1065 {
1066 ms_country = country;
1067 }
1068
1069 /* static */
1070 bool wxDateTime::IsWestEuropeanCountry(Country country)
1071 {
1072 if ( country == Country_Default )
1073 {
1074 country = GetCountry();
1075 }
1076
1077 return (Country_WesternEurope_Start <= country) &&
1078 (country <= Country_WesternEurope_End);
1079 }
1080
1081 // ----------------------------------------------------------------------------
1082 // DST calculations: we use 3 different rules for the West European countries,
1083 // USA and for the rest of the world. This is undoubtedly false for many
1084 // countries, but I lack the necessary info (and the time to gather it),
1085 // please add the other rules here!
1086 // ----------------------------------------------------------------------------
1087
1088 /* static */
1089 bool wxDateTime::IsDSTApplicable(int year, Country country)
1090 {
1091 if ( year == Inv_Year )
1092 {
1093 // take the current year if none given
1094 year = GetCurrentYear();
1095 }
1096
1097 if ( country == Country_Default )
1098 {
1099 country = GetCountry();
1100 }
1101
1102 switch ( country )
1103 {
1104 case USA:
1105 case UK:
1106 // DST was first observed in the US and UK during WWI, reused
1107 // during WWII and used again since 1966
1108 return year >= 1966 ||
1109 (year >= 1942 && year <= 1945) ||
1110 (year == 1918 || year == 1919);
1111
1112 default:
1113 // assume that it started after WWII
1114 return year > 1950;
1115 }
1116 }
1117
1118 /* static */
1119 wxDateTime wxDateTime::GetBeginDST(int year, Country country)
1120 {
1121 if ( year == Inv_Year )
1122 {
1123 // take the current year if none given
1124 year = GetCurrentYear();
1125 }
1126
1127 if ( country == Country_Default )
1128 {
1129 country = GetCountry();
1130 }
1131
1132 if ( !IsDSTApplicable(year, country) )
1133 {
1134 return wxInvalidDateTime;
1135 }
1136
1137 wxDateTime dt;
1138
1139 if ( IsWestEuropeanCountry(country) || (country == Russia) )
1140 {
1141 // DST begins at 1 a.m. GMT on the last Sunday of March
1142 if ( !dt.SetToLastWeekDay(Sun, Mar, year) )
1143 {
1144 // weird...
1145 wxFAIL_MSG( _T("no last Sunday in March?") );
1146 }
1147
1148 dt += wxTimeSpan::Hours(1);
1149
1150 // disable DST tests because it could result in an infinite recursion!
1151 dt.MakeGMT(true);
1152 }
1153 else switch ( country )
1154 {
1155 case USA:
1156 switch ( year )
1157 {
1158 case 1918:
1159 case 1919:
1160 // don't know for sure - assume it was in effect all year
1161
1162 case 1943:
1163 case 1944:
1164 case 1945:
1165 dt.Set(1, Jan, year);
1166 break;
1167
1168 case 1942:
1169 // DST was installed Feb 2, 1942 by the Congress
1170 dt.Set(2, Feb, year);
1171 break;
1172
1173 // Oil embargo changed the DST period in the US
1174 case 1974:
1175 dt.Set(6, Jan, 1974);
1176 break;
1177
1178 case 1975:
1179 dt.Set(23, Feb, 1975);
1180 break;
1181
1182 default:
1183 // before 1986, DST begun on the last Sunday of April, but
1184 // in 1986 Reagan changed it to begin at 2 a.m. of the
1185 // first Sunday in April
1186 if ( year < 1986 )
1187 {
1188 if ( !dt.SetToLastWeekDay(Sun, Apr, year) )
1189 {
1190 // weird...
1191 wxFAIL_MSG( _T("no first Sunday in April?") );
1192 }
1193 }
1194 else
1195 {
1196 if ( !dt.SetToWeekDay(Sun, 1, Apr, year) )
1197 {
1198 // weird...
1199 wxFAIL_MSG( _T("no first Sunday in April?") );
1200 }
1201 }
1202
1203 dt += wxTimeSpan::Hours(2);
1204
1205 // TODO what about timezone??
1206 }
1207
1208 break;
1209
1210 default:
1211 // assume Mar 30 as the start of the DST for the rest of the world
1212 // - totally bogus, of course
1213 dt.Set(30, Mar, year);
1214 }
1215
1216 return dt;
1217 }
1218
1219 /* static */
1220 wxDateTime wxDateTime::GetEndDST(int year, Country country)
1221 {
1222 if ( year == Inv_Year )
1223 {
1224 // take the current year if none given
1225 year = GetCurrentYear();
1226 }
1227
1228 if ( country == Country_Default )
1229 {
1230 country = GetCountry();
1231 }
1232
1233 if ( !IsDSTApplicable(year, country) )
1234 {
1235 return wxInvalidDateTime;
1236 }
1237
1238 wxDateTime dt;
1239
1240 if ( IsWestEuropeanCountry(country) || (country == Russia) )
1241 {
1242 // DST ends at 1 a.m. GMT on the last Sunday of October
1243 if ( !dt.SetToLastWeekDay(Sun, Oct, year) )
1244 {
1245 // weirder and weirder...
1246 wxFAIL_MSG( _T("no last Sunday in October?") );
1247 }
1248
1249 dt += wxTimeSpan::Hours(1);
1250
1251 // disable DST tests because it could result in an infinite recursion!
1252 dt.MakeGMT(true);
1253 }
1254 else switch ( country )
1255 {
1256 case USA:
1257 switch ( year )
1258 {
1259 case 1918:
1260 case 1919:
1261 // don't know for sure - assume it was in effect all year
1262
1263 case 1943:
1264 case 1944:
1265 dt.Set(31, Dec, year);
1266 break;
1267
1268 case 1945:
1269 // the time was reset after the end of the WWII
1270 dt.Set(30, Sep, year);
1271 break;
1272
1273 default:
1274 // DST ends at 2 a.m. on the last Sunday of October
1275 if ( !dt.SetToLastWeekDay(Sun, Oct, year) )
1276 {
1277 // weirder and weirder...
1278 wxFAIL_MSG( _T("no last Sunday in October?") );
1279 }
1280
1281 dt += wxTimeSpan::Hours(2);
1282
1283 // TODO what about timezone??
1284 }
1285 break;
1286
1287 default:
1288 // assume October 26th as the end of the DST - totally bogus too
1289 dt.Set(26, Oct, year);
1290 }
1291
1292 return dt;
1293 }
1294
1295 // ----------------------------------------------------------------------------
1296 // constructors and assignment operators
1297 // ----------------------------------------------------------------------------
1298
1299 // return the current time with ms precision
1300 /* static */ wxDateTime wxDateTime::UNow()
1301 {
1302 return wxDateTime(wxGetLocalTimeMillis());
1303 }
1304
1305 // the values in the tm structure contain the local time
1306 wxDateTime& wxDateTime::Set(const struct tm& tm)
1307 {
1308 struct tm tm2(tm);
1309 time_t timet = mktime(&tm2);
1310
1311 if ( timet == (time_t)-1 )
1312 {
1313 // mktime() rather unintuitively fails for Jan 1, 1970 if the hour is
1314 // less than timezone - try to make it work for this case
1315 if ( tm2.tm_year == 70 && tm2.tm_mon == 0 && tm2.tm_mday == 1 )
1316 {
1317 return Set((time_t)(
1318 GetTimeZone() +
1319 tm2.tm_hour * MIN_PER_HOUR * SEC_PER_MIN +
1320 tm2.tm_min * SEC_PER_MIN +
1321 tm2.tm_sec));
1322 }
1323
1324 wxFAIL_MSG( _T("mktime() failed") );
1325
1326 *this = wxInvalidDateTime;
1327
1328 return *this;
1329 }
1330 else
1331 {
1332 return Set(timet);
1333 }
1334 }
1335
1336 wxDateTime& wxDateTime::Set(wxDateTime_t hour,
1337 wxDateTime_t minute,
1338 wxDateTime_t second,
1339 wxDateTime_t millisec)
1340 {
1341 // we allow seconds to be 61 to account for the leap seconds, even if we
1342 // don't use them really
1343 wxDATETIME_CHECK( hour < 24 &&
1344 second < 62 &&
1345 minute < 60 &&
1346 millisec < 1000,
1347 _T("Invalid time in wxDateTime::Set()") );
1348
1349 // get the current date from system
1350 struct tm tmstruct;
1351 struct tm *tm = GetTmNow(&tmstruct);
1352
1353 wxDATETIME_CHECK( tm, _T("wxLocaltime_r() failed") );
1354
1355 // make a copy so it isn't clobbered by the call to mktime() below
1356 struct tm tm1(*tm);
1357
1358 // adjust the time
1359 tm1.tm_hour = hour;
1360 tm1.tm_min = minute;
1361 tm1.tm_sec = second;
1362
1363 // and the DST in case it changes on this date
1364 struct tm tm2(tm1);
1365 mktime(&tm2);
1366 if ( tm2.tm_isdst != tm1.tm_isdst )
1367 tm1.tm_isdst = tm2.tm_isdst;
1368
1369 (void)Set(tm1);
1370
1371 // and finally adjust milliseconds
1372 return SetMillisecond(millisec);
1373 }
1374
1375 wxDateTime& wxDateTime::Set(wxDateTime_t day,
1376 Month month,
1377 int year,
1378 wxDateTime_t hour,
1379 wxDateTime_t minute,
1380 wxDateTime_t second,
1381 wxDateTime_t millisec)
1382 {
1383 wxDATETIME_CHECK( hour < 24 &&
1384 second < 62 &&
1385 minute < 60 &&
1386 millisec < 1000,
1387 _T("Invalid time in wxDateTime::Set()") );
1388
1389 ReplaceDefaultYearMonthWithCurrent(&year, &month);
1390
1391 wxDATETIME_CHECK( (0 < day) && (day <= GetNumberOfDays(month, year)),
1392 _T("Invalid date in wxDateTime::Set()") );
1393
1394 // the range of time_t type (inclusive)
1395 static const int yearMinInRange = 1970;
1396 static const int yearMaxInRange = 2037;
1397
1398 // test only the year instead of testing for the exact end of the Unix
1399 // time_t range - it doesn't bring anything to do more precise checks
1400 if ( year >= yearMinInRange && year <= yearMaxInRange )
1401 {
1402 // use the standard library version if the date is in range - this is
1403 // probably more efficient than our code
1404 struct tm tm;
1405 tm.tm_year = year - 1900;
1406 tm.tm_mon = month;
1407 tm.tm_mday = day;
1408 tm.tm_hour = hour;
1409 tm.tm_min = minute;
1410 tm.tm_sec = second;
1411 tm.tm_isdst = -1; // mktime() will guess it
1412
1413 (void)Set(tm);
1414
1415 // and finally adjust milliseconds
1416 if (IsValid())
1417 SetMillisecond(millisec);
1418
1419 return *this;
1420 }
1421 else
1422 {
1423 // do time calculations ourselves: we want to calculate the number of
1424 // milliseconds between the given date and the epoch
1425
1426 // get the JDN for the midnight of this day
1427 m_time = GetTruncatedJDN(day, month, year);
1428 m_time -= EPOCH_JDN;
1429 m_time *= SECONDS_PER_DAY * TIME_T_FACTOR;
1430
1431 // JDN corresponds to GMT, we take localtime
1432 Add(wxTimeSpan(hour, minute, second + GetTimeZone(), millisec));
1433 }
1434
1435 return *this;
1436 }
1437
1438 wxDateTime& wxDateTime::Set(double jdn)
1439 {
1440 // so that m_time will be 0 for the midnight of Jan 1, 1970 which is jdn
1441 // EPOCH_JDN + 0.5
1442 jdn -= EPOCH_JDN + 0.5;
1443
1444 m_time.Assign(jdn*MILLISECONDS_PER_DAY);
1445
1446 // JDNs always are in UTC, so we don't need any adjustments for time zone
1447
1448 return *this;
1449 }
1450
1451 wxDateTime& wxDateTime::ResetTime()
1452 {
1453 Tm tm = GetTm();
1454
1455 if ( tm.hour || tm.min || tm.sec || tm.msec )
1456 {
1457 tm.msec =
1458 tm.sec =
1459 tm.min =
1460 tm.hour = 0;
1461
1462 Set(tm);
1463 }
1464
1465 return *this;
1466 }
1467
1468 // ----------------------------------------------------------------------------
1469 // DOS Date and Time Format functions
1470 // ----------------------------------------------------------------------------
1471 // the dos date and time value is an unsigned 32 bit value in the format:
1472 // YYYYYYYMMMMDDDDDhhhhhmmmmmmsssss
1473 //
1474 // Y = year offset from 1980 (0-127)
1475 // M = month (1-12)
1476 // D = day of month (1-31)
1477 // h = hour (0-23)
1478 // m = minute (0-59)
1479 // s = bisecond (0-29) each bisecond indicates two seconds
1480 // ----------------------------------------------------------------------------
1481
1482 wxDateTime& wxDateTime::SetFromDOS(unsigned long ddt)
1483 {
1484 struct tm tm;
1485 InitTm(tm);
1486
1487 long year = ddt & 0xFE000000;
1488 year >>= 25;
1489 year += 80;
1490 tm.tm_year = year;
1491
1492 long month = ddt & 0x1E00000;
1493 month >>= 21;
1494 month -= 1;
1495 tm.tm_mon = month;
1496
1497 long day = ddt & 0x1F0000;
1498 day >>= 16;
1499 tm.tm_mday = day;
1500
1501 long hour = ddt & 0xF800;
1502 hour >>= 11;
1503 tm.tm_hour = hour;
1504
1505 long minute = ddt & 0x7E0;
1506 minute >>= 5;
1507 tm.tm_min = minute;
1508
1509 long second = ddt & 0x1F;
1510 tm.tm_sec = second * 2;
1511
1512 return Set(mktime(&tm));
1513 }
1514
1515 unsigned long wxDateTime::GetAsDOS() const
1516 {
1517 unsigned long ddt;
1518 time_t ticks = GetTicks();
1519 struct tm tmstruct;
1520 struct tm *tm = wxLocaltime_r(&ticks, &tmstruct);
1521
1522 long year = tm->tm_year;
1523 year -= 80;
1524 year <<= 25;
1525
1526 long month = tm->tm_mon;
1527 month += 1;
1528 month <<= 21;
1529
1530 long day = tm->tm_mday;
1531 day <<= 16;
1532
1533 long hour = tm->tm_hour;
1534 hour <<= 11;
1535
1536 long minute = tm->tm_min;
1537 minute <<= 5;
1538
1539 long second = tm->tm_sec;
1540 second /= 2;
1541
1542 ddt = year | month | day | hour | minute | second;
1543 return ddt;
1544 }
1545
1546 // ----------------------------------------------------------------------------
1547 // time_t <-> broken down time conversions
1548 // ----------------------------------------------------------------------------
1549
1550 wxDateTime::Tm wxDateTime::GetTm(const TimeZone& tz) const
1551 {
1552 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1553
1554 time_t time = GetTicks();
1555 if ( time != (time_t)-1 )
1556 {
1557 // use C RTL functions
1558 struct tm tmstruct;
1559 tm *tm;
1560 if ( tz.GetOffset() == -GetTimeZone() )
1561 {
1562 // we are working with local time
1563 tm = wxLocaltime_r(&time, &tmstruct);
1564
1565 // should never happen
1566 wxCHECK_MSG( tm, Tm(), _T("wxLocaltime_r() failed") );
1567 }
1568 else
1569 {
1570 time += (time_t)tz.GetOffset();
1571 #if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
1572 int time2 = (int) time;
1573 if ( time2 >= 0 )
1574 #else
1575 if ( time >= 0 )
1576 #endif
1577 {
1578 tm = wxGmtime_r(&time, &tmstruct);
1579
1580 // should never happen
1581 wxCHECK_MSG( tm, Tm(), _T("wxGmtime_r() failed") );
1582 }
1583 else
1584 {
1585 tm = (struct tm *)NULL;
1586 }
1587 }
1588
1589 if ( tm )
1590 {
1591 // adjust the milliseconds
1592 Tm tm2(*tm, tz);
1593 long timeOnly = (m_time % MILLISECONDS_PER_DAY).ToLong();
1594 tm2.msec = (wxDateTime_t)(timeOnly % 1000);
1595 return tm2;
1596 }
1597 //else: use generic code below
1598 }
1599
1600 // remember the time and do the calculations with the date only - this
1601 // eliminates rounding errors of the floating point arithmetics
1602
1603 wxLongLong timeMidnight = m_time + tz.GetOffset() * 1000;
1604
1605 long timeOnly = (timeMidnight % MILLISECONDS_PER_DAY).ToLong();
1606
1607 // we want to always have positive time and timeMidnight to be really
1608 // the midnight before it
1609 if ( timeOnly < 0 )
1610 {
1611 timeOnly = MILLISECONDS_PER_DAY + timeOnly;
1612 }
1613
1614 timeMidnight -= timeOnly;
1615
1616 // calculate the Gregorian date from JDN for the midnight of our date:
1617 // this will yield day, month (in 1..12 range) and year
1618
1619 // actually, this is the JDN for the noon of the previous day
1620 long jdn = (timeMidnight / MILLISECONDS_PER_DAY).ToLong() + EPOCH_JDN;
1621
1622 // CREDIT: code below is by Scott E. Lee (but bugs are mine)
1623
1624 wxASSERT_MSG( jdn > -2, _T("JDN out of range") );
1625
1626 // calculate the century
1627 long temp = (jdn + JDN_OFFSET) * 4 - 1;
1628 long century = temp / DAYS_PER_400_YEARS;
1629
1630 // then the year and day of year (1 <= dayOfYear <= 366)
1631 temp = ((temp % DAYS_PER_400_YEARS) / 4) * 4 + 3;
1632 long year = (century * 100) + (temp / DAYS_PER_4_YEARS);
1633 long dayOfYear = (temp % DAYS_PER_4_YEARS) / 4 + 1;
1634
1635 // and finally the month and day of the month
1636 temp = dayOfYear * 5 - 3;
1637 long month = temp / DAYS_PER_5_MONTHS;
1638 long day = (temp % DAYS_PER_5_MONTHS) / 5 + 1;
1639
1640 // month is counted from March - convert to normal
1641 if ( month < 10 )
1642 {
1643 month += 3;
1644 }
1645 else
1646 {
1647 year += 1;
1648 month -= 9;
1649 }
1650
1651 // year is offset by 4800
1652 year -= 4800;
1653
1654 // check that the algorithm gave us something reasonable
1655 wxASSERT_MSG( (0 < month) && (month <= 12), _T("invalid month") );
1656 wxASSERT_MSG( (1 <= day) && (day < 32), _T("invalid day") );
1657
1658 // construct Tm from these values
1659 Tm tm;
1660 tm.year = (int)year;
1661 tm.mon = (Month)(month - 1); // algorithm yields 1 for January, not 0
1662 tm.mday = (wxDateTime_t)day;
1663 tm.msec = (wxDateTime_t)(timeOnly % 1000);
1664 timeOnly -= tm.msec;
1665 timeOnly /= 1000; // now we have time in seconds
1666
1667 tm.sec = (wxDateTime_t)(timeOnly % SEC_PER_MIN);
1668 timeOnly -= tm.sec;
1669 timeOnly /= SEC_PER_MIN; // now we have time in minutes
1670
1671 tm.min = (wxDateTime_t)(timeOnly % MIN_PER_HOUR);
1672 timeOnly -= tm.min;
1673
1674 tm.hour = (wxDateTime_t)(timeOnly / MIN_PER_HOUR);
1675
1676 return tm;
1677 }
1678
1679 wxDateTime& wxDateTime::SetYear(int year)
1680 {
1681 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1682
1683 Tm tm(GetTm());
1684 tm.year = year;
1685 Set(tm);
1686
1687 return *this;
1688 }
1689
1690 wxDateTime& wxDateTime::SetMonth(Month month)
1691 {
1692 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1693
1694 Tm tm(GetTm());
1695 tm.mon = month;
1696 Set(tm);
1697
1698 return *this;
1699 }
1700
1701 wxDateTime& wxDateTime::SetDay(wxDateTime_t mday)
1702 {
1703 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1704
1705 Tm tm(GetTm());
1706 tm.mday = mday;
1707 Set(tm);
1708
1709 return *this;
1710 }
1711
1712 wxDateTime& wxDateTime::SetHour(wxDateTime_t hour)
1713 {
1714 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1715
1716 Tm tm(GetTm());
1717 tm.hour = hour;
1718 Set(tm);
1719
1720 return *this;
1721 }
1722
1723 wxDateTime& wxDateTime::SetMinute(wxDateTime_t min)
1724 {
1725 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1726
1727 Tm tm(GetTm());
1728 tm.min = min;
1729 Set(tm);
1730
1731 return *this;
1732 }
1733
1734 wxDateTime& wxDateTime::SetSecond(wxDateTime_t sec)
1735 {
1736 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1737
1738 Tm tm(GetTm());
1739 tm.sec = sec;
1740 Set(tm);
1741
1742 return *this;
1743 }
1744
1745 wxDateTime& wxDateTime::SetMillisecond(wxDateTime_t millisecond)
1746 {
1747 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1748
1749 // we don't need to use GetTm() for this one
1750 m_time -= m_time % 1000l;
1751 m_time += millisecond;
1752
1753 return *this;
1754 }
1755
1756 // ----------------------------------------------------------------------------
1757 // wxDateTime arithmetics
1758 // ----------------------------------------------------------------------------
1759
1760 wxDateTime& wxDateTime::Add(const wxDateSpan& diff)
1761 {
1762 Tm tm(GetTm());
1763
1764 tm.year += diff.GetYears();
1765 tm.AddMonths(diff.GetMonths());
1766
1767 // check that the resulting date is valid
1768 if ( tm.mday > GetNumOfDaysInMonth(tm.year, tm.mon) )
1769 {
1770 // We suppose that when adding one month to Jan 31 we want to get Feb
1771 // 28 (or 29), i.e. adding a month to the last day of the month should
1772 // give the last day of the next month which is quite logical.
1773 //
1774 // Unfortunately, there is no logic way to understand what should
1775 // Jan 30 + 1 month be - Feb 28 too or Feb 27 (assuming non leap year)?
1776 // We make it Feb 28 (last day too), but it is highly questionable.
1777 tm.mday = GetNumOfDaysInMonth(tm.year, tm.mon);
1778 }
1779
1780 tm.AddDays(diff.GetTotalDays());
1781
1782 Set(tm);
1783
1784 wxASSERT_MSG( IsSameTime(tm),
1785 _T("Add(wxDateSpan) shouldn't modify time") );
1786
1787 return *this;
1788 }
1789
1790 // ----------------------------------------------------------------------------
1791 // Weekday and monthday stuff
1792 // ----------------------------------------------------------------------------
1793
1794 // convert Sun, Mon, ..., Sat into 6, 0, ..., 5
1795 static inline int ConvertWeekDayToMondayBase(int wd)
1796 {
1797 return wd == wxDateTime::Sun ? 6 : wd - 1;
1798 }
1799
1800 /* static */
1801 wxDateTime
1802 wxDateTime::SetToWeekOfYear(int year, wxDateTime_t numWeek, WeekDay wd)
1803 {
1804 wxASSERT_MSG( numWeek > 0,
1805 _T("invalid week number: weeks are counted from 1") );
1806
1807 // Jan 4 always lies in the 1st week of the year
1808 wxDateTime dt(4, Jan, year);
1809 dt.SetToWeekDayInSameWeek(wd);
1810 dt += wxDateSpan::Weeks(numWeek - 1);
1811
1812 return dt;
1813 }
1814
1815 #if WXWIN_COMPATIBILITY_2_6
1816 // use a separate function to avoid warnings about using deprecated
1817 // SetToTheWeek in GetWeek below
1818 static wxDateTime
1819 SetToTheWeek(int year,
1820 wxDateTime::wxDateTime_t numWeek,
1821 wxDateTime::WeekDay weekday,
1822 wxDateTime::WeekFlags flags)
1823 {
1824 // Jan 4 always lies in the 1st week of the year
1825 wxDateTime dt(4, wxDateTime::Jan, year);
1826 dt.SetToWeekDayInSameWeek(weekday, flags);
1827 dt += wxDateSpan::Weeks(numWeek - 1);
1828
1829 return dt;
1830 }
1831
1832 bool wxDateTime::SetToTheWeek(wxDateTime_t numWeek,
1833 WeekDay weekday,
1834 WeekFlags flags)
1835 {
1836 int year = GetYear();
1837 *this = ::SetToTheWeek(year, numWeek, weekday, flags);
1838 if ( GetYear() != year )
1839 {
1840 // oops... numWeek was too big
1841 return false;
1842 }
1843
1844 return true;
1845 }
1846
1847 wxDateTime wxDateTime::GetWeek(wxDateTime_t numWeek,
1848 WeekDay weekday,
1849 WeekFlags flags) const
1850 {
1851 return ::SetToTheWeek(GetYear(), numWeek, weekday, flags);
1852 }
1853 #endif // WXWIN_COMPATIBILITY_2_6
1854
1855 wxDateTime& wxDateTime::SetToLastMonthDay(Month month,
1856 int year)
1857 {
1858 // take the current month/year if none specified
1859 if ( year == Inv_Year )
1860 year = GetYear();
1861 if ( month == Inv_Month )
1862 month = GetMonth();
1863
1864 return Set(GetNumOfDaysInMonth(year, month), month, year);
1865 }
1866
1867 wxDateTime& wxDateTime::SetToWeekDayInSameWeek(WeekDay weekday, WeekFlags flags)
1868 {
1869 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
1870
1871 int wdayDst = weekday,
1872 wdayThis = GetWeekDay();
1873 if ( wdayDst == wdayThis )
1874 {
1875 // nothing to do
1876 return *this;
1877 }
1878
1879 if ( flags == Default_First )
1880 {
1881 flags = GetCountry() == USA ? Sunday_First : Monday_First;
1882 }
1883
1884 // the logic below based on comparing weekday and wdayThis works if Sun (0)
1885 // is the first day in the week, but breaks down for Monday_First case so
1886 // we adjust the week days in this case
1887 if ( flags == Monday_First )
1888 {
1889 if ( wdayThis == Sun )
1890 wdayThis += 7;
1891 if ( wdayDst == Sun )
1892 wdayDst += 7;
1893 }
1894 //else: Sunday_First, nothing to do
1895
1896 // go forward or back in time to the day we want
1897 if ( wdayDst < wdayThis )
1898 {
1899 return Subtract(wxDateSpan::Days(wdayThis - wdayDst));
1900 }
1901 else // weekday > wdayThis
1902 {
1903 return Add(wxDateSpan::Days(wdayDst - wdayThis));
1904 }
1905 }
1906
1907 wxDateTime& wxDateTime::SetToNextWeekDay(WeekDay weekday)
1908 {
1909 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
1910
1911 int diff;
1912 WeekDay wdayThis = GetWeekDay();
1913 if ( weekday == wdayThis )
1914 {
1915 // nothing to do
1916 return *this;
1917 }
1918 else if ( weekday < wdayThis )
1919 {
1920 // need to advance a week
1921 diff = 7 - (wdayThis - weekday);
1922 }
1923 else // weekday > wdayThis
1924 {
1925 diff = weekday - wdayThis;
1926 }
1927
1928 return Add(wxDateSpan::Days(diff));
1929 }
1930
1931 wxDateTime& wxDateTime::SetToPrevWeekDay(WeekDay weekday)
1932 {
1933 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
1934
1935 int diff;
1936 WeekDay wdayThis = GetWeekDay();
1937 if ( weekday == wdayThis )
1938 {
1939 // nothing to do
1940 return *this;
1941 }
1942 else if ( weekday > wdayThis )
1943 {
1944 // need to go to previous week
1945 diff = 7 - (weekday - wdayThis);
1946 }
1947 else // weekday < wdayThis
1948 {
1949 diff = wdayThis - weekday;
1950 }
1951
1952 return Subtract(wxDateSpan::Days(diff));
1953 }
1954
1955 bool wxDateTime::SetToWeekDay(WeekDay weekday,
1956 int n,
1957 Month month,
1958 int year)
1959 {
1960 wxCHECK_MSG( weekday != Inv_WeekDay, false, _T("invalid weekday") );
1961
1962 // we don't check explicitly that -5 <= n <= 5 because we will return false
1963 // anyhow in such case - but may be should still give an assert for it?
1964
1965 // take the current month/year if none specified
1966 ReplaceDefaultYearMonthWithCurrent(&year, &month);
1967
1968 wxDateTime dt;
1969
1970 // TODO this probably could be optimised somehow...
1971
1972 if ( n > 0 )
1973 {
1974 // get the first day of the month
1975 dt.Set(1, month, year);
1976
1977 // get its wday
1978 WeekDay wdayFirst = dt.GetWeekDay();
1979
1980 // go to the first weekday of the month
1981 int diff = weekday - wdayFirst;
1982 if ( diff < 0 )
1983 diff += 7;
1984
1985 // add advance n-1 weeks more
1986 diff += 7*(n - 1);
1987
1988 dt += wxDateSpan::Days(diff);
1989 }
1990 else // count from the end of the month
1991 {
1992 // get the last day of the month
1993 dt.SetToLastMonthDay(month, year);
1994
1995 // get its wday
1996 WeekDay wdayLast = dt.GetWeekDay();
1997
1998 // go to the last weekday of the month
1999 int diff = wdayLast - weekday;
2000 if ( diff < 0 )
2001 diff += 7;
2002
2003 // and rewind n-1 weeks from there
2004 diff += 7*(-n - 1);
2005
2006 dt -= wxDateSpan::Days(diff);
2007 }
2008
2009 // check that it is still in the same month
2010 if ( dt.GetMonth() == month )
2011 {
2012 *this = dt;
2013
2014 return true;
2015 }
2016 else
2017 {
2018 // no such day in this month
2019 return false;
2020 }
2021 }
2022
2023 static inline
2024 wxDateTime::wxDateTime_t GetDayOfYearFromTm(const wxDateTime::Tm& tm)
2025 {
2026 return (wxDateTime::wxDateTime_t)(gs_cumulatedDays[wxDateTime::IsLeapYear(tm.year)][tm.mon] + tm.mday);
2027 }
2028
2029 wxDateTime::wxDateTime_t wxDateTime::GetDayOfYear(const TimeZone& tz) const
2030 {
2031 return GetDayOfYearFromTm(GetTm(tz));
2032 }
2033
2034 wxDateTime::wxDateTime_t
2035 wxDateTime::GetWeekOfYear(wxDateTime::WeekFlags flags, const TimeZone& tz) const
2036 {
2037 if ( flags == Default_First )
2038 {
2039 flags = GetCountry() == USA ? Sunday_First : Monday_First;
2040 }
2041
2042 Tm tm(GetTm(tz));
2043 wxDateTime_t nDayInYear = GetDayOfYearFromTm(tm);
2044
2045 int wdTarget = GetWeekDay(tz);
2046 int wdYearStart = wxDateTime(1, Jan, GetYear()).GetWeekDay();
2047 int week;
2048 if ( flags == Sunday_First )
2049 {
2050 // FIXME: First week is not calculated correctly.
2051 week = (nDayInYear - wdTarget + 7) / 7;
2052 if ( wdYearStart == Wed || wdYearStart == Thu )
2053 week++;
2054 }
2055 else // week starts with monday
2056 {
2057 // adjust the weekdays to non-US style.
2058 wdYearStart = ConvertWeekDayToMondayBase(wdYearStart);
2059 wdTarget = ConvertWeekDayToMondayBase(wdTarget);
2060
2061 // quoting from http://www.cl.cam.ac.uk/~mgk25/iso-time.html:
2062 //
2063 // Week 01 of a year is per definition the first week that has the
2064 // Thursday in this year, which is equivalent to the week that
2065 // contains the fourth day of January. In other words, the first
2066 // week of a new year is the week that has the majority of its
2067 // days in the new year. Week 01 might also contain days from the
2068 // previous year and the week before week 01 of a year is the last
2069 // week (52 or 53) of the previous year even if it contains days
2070 // from the new year. A week starts with Monday (day 1) and ends
2071 // with Sunday (day 7).
2072 //
2073
2074 // if Jan 1 is Thursday or less, it is in the first week of this year
2075 if ( wdYearStart < 4 )
2076 {
2077 // count the number of entire weeks between Jan 1 and this date
2078 week = (nDayInYear + wdYearStart + 6 - wdTarget)/7;
2079
2080 // be careful to check for overflow in the next year
2081 if ( week == 53 && tm.mday - wdTarget > 28 )
2082 week = 1;
2083 }
2084 else // Jan 1 is in the last week of the previous year
2085 {
2086 // check if we happen to be at the last week of previous year:
2087 if ( tm.mon == Jan && tm.mday < 8 - wdYearStart )
2088 week = wxDateTime(31, Dec, GetYear()-1).GetWeekOfYear();
2089 else
2090 week = (nDayInYear + wdYearStart - 1 - wdTarget)/7;
2091 }
2092 }
2093
2094 return (wxDateTime::wxDateTime_t)week;
2095 }
2096
2097 wxDateTime::wxDateTime_t wxDateTime::GetWeekOfMonth(wxDateTime::WeekFlags flags,
2098 const TimeZone& tz) const
2099 {
2100 Tm tm = GetTm(tz);
2101 wxDateTime dtMonthStart = wxDateTime(1, tm.mon, tm.year);
2102 int nWeek = GetWeekOfYear(flags) - dtMonthStart.GetWeekOfYear(flags) + 1;
2103 if ( nWeek < 0 )
2104 {
2105 // this may happen for January when Jan, 1 is the last week of the
2106 // previous year
2107 nWeek += IsLeapYear(tm.year - 1) ? 53 : 52;
2108 }
2109
2110 return (wxDateTime::wxDateTime_t)nWeek;
2111 }
2112
2113 wxDateTime& wxDateTime::SetToYearDay(wxDateTime::wxDateTime_t yday)
2114 {
2115 int year = GetYear();
2116 wxDATETIME_CHECK( (0 < yday) && (yday <= GetNumberOfDays(year)),
2117 _T("invalid year day") );
2118
2119 bool isLeap = IsLeapYear(year);
2120 for ( Month mon = Jan; mon < Inv_Month; wxNextMonth(mon) )
2121 {
2122 // for Dec, we can't compare with gs_cumulatedDays[mon + 1], but we
2123 // don't need it neither - because of the CHECK above we know that
2124 // yday lies in December then
2125 if ( (mon == Dec) || (yday <= gs_cumulatedDays[isLeap][mon + 1]) )
2126 {
2127 Set((wxDateTime::wxDateTime_t)(yday - gs_cumulatedDays[isLeap][mon]), mon, year);
2128
2129 break;
2130 }
2131 }
2132
2133 return *this;
2134 }
2135
2136 // ----------------------------------------------------------------------------
2137 // Julian day number conversion and related stuff
2138 // ----------------------------------------------------------------------------
2139
2140 double wxDateTime::GetJulianDayNumber() const
2141 {
2142 return m_time.ToDouble() / MILLISECONDS_PER_DAY + EPOCH_JDN + 0.5;
2143 }
2144
2145 double wxDateTime::GetRataDie() const
2146 {
2147 // March 1 of the year 0 is Rata Die day -306 and JDN 1721119.5
2148 return GetJulianDayNumber() - 1721119.5 - 306;
2149 }
2150
2151 // ----------------------------------------------------------------------------
2152 // timezone and DST stuff
2153 // ----------------------------------------------------------------------------
2154
2155 int wxDateTime::IsDST(wxDateTime::Country country) const
2156 {
2157 wxCHECK_MSG( country == Country_Default, -1,
2158 _T("country support not implemented") );
2159
2160 // use the C RTL for the dates in the standard range
2161 time_t timet = GetTicks();
2162 if ( timet != (time_t)-1 )
2163 {
2164 struct tm tmstruct;
2165 tm *tm = wxLocaltime_r(&timet, &tmstruct);
2166
2167 wxCHECK_MSG( tm, -1, _T("wxLocaltime_r() failed") );
2168
2169 return tm->tm_isdst;
2170 }
2171 else
2172 {
2173 int year = GetYear();
2174
2175 if ( !IsDSTApplicable(year, country) )
2176 {
2177 // no DST time in this year in this country
2178 return -1;
2179 }
2180
2181 return IsBetween(GetBeginDST(year, country), GetEndDST(year, country));
2182 }
2183 }
2184
2185 wxDateTime& wxDateTime::MakeTimezone(const TimeZone& tz, bool noDST)
2186 {
2187 long secDiff = GetTimeZone() + tz.GetOffset();
2188
2189 // we need to know whether DST is or not in effect for this date unless
2190 // the test disabled by the caller
2191 if ( !noDST && (IsDST() == 1) )
2192 {
2193 // FIXME we assume that the DST is always shifted by 1 hour
2194 secDiff -= 3600;
2195 }
2196
2197 return Add(wxTimeSpan::Seconds(secDiff));
2198 }
2199
2200 wxDateTime& wxDateTime::MakeFromTimezone(const TimeZone& tz, bool noDST)
2201 {
2202 long secDiff = GetTimeZone() + tz.GetOffset();
2203
2204 // we need to know whether DST is or not in effect for this date unless
2205 // the test disabled by the caller
2206 if ( !noDST && (IsDST() == 1) )
2207 {
2208 // FIXME we assume that the DST is always shifted by 1 hour
2209 secDiff -= 3600;
2210 }
2211
2212 return Subtract(wxTimeSpan::Seconds(secDiff));
2213 }
2214
2215 // ----------------------------------------------------------------------------
2216 // wxDateTime to/from text representations
2217 // ----------------------------------------------------------------------------
2218
2219 wxString wxDateTime::Format(const wxChar *format, const TimeZone& tz) const
2220 {
2221 wxCHECK_MSG( format, wxEmptyString, _T("NULL format in wxDateTime::Format") );
2222
2223 // we have to use our own implementation if the date is out of range of
2224 // strftime() or if we use non standard specificators
2225 time_t time = GetTicks();
2226 if ( (time != (time_t)-1) && !wxStrstr(format, _T("%l")) )
2227 {
2228 // use strftime()
2229 struct tm tmstruct;
2230 struct tm *tm;
2231 if ( tz.GetOffset() == -GetTimeZone() )
2232 {
2233 // we are working with local time
2234 tm = wxLocaltime_r(&time, &tmstruct);
2235
2236 // should never happen
2237 wxCHECK_MSG( tm, wxEmptyString, _T("wxLocaltime_r() failed") );
2238 }
2239 else
2240 {
2241 time += (int)tz.GetOffset();
2242
2243 #if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
2244 int time2 = (int) time;
2245 if ( time2 >= 0 )
2246 #else
2247 if ( time >= 0 )
2248 #endif
2249 {
2250 tm = wxGmtime_r(&time, &tmstruct);
2251
2252 // should never happen
2253 wxCHECK_MSG( tm, wxEmptyString, _T("wxGmtime_r() failed") );
2254 }
2255 else
2256 {
2257 tm = (struct tm *)NULL;
2258 }
2259 }
2260 #ifndef __WXWINCE__
2261 //Windows CE doesn't support strftime or wcsftime, so we use the generic implementation
2262 if ( tm )
2263 {
2264 return CallStrftime(format, tm);
2265 }
2266 #endif
2267 //else: use generic code below
2268 }
2269
2270 // we only parse ANSI C format specifications here, no POSIX 2
2271 // complications, no GNU extensions but we do add support for a "%l" format
2272 // specifier allowing to get the number of milliseconds
2273 Tm tm = GetTm(tz);
2274
2275 // used for calls to strftime() when we only deal with time
2276 struct tm tmTimeOnly;
2277 tmTimeOnly.tm_hour = tm.hour;
2278 tmTimeOnly.tm_min = tm.min;
2279 tmTimeOnly.tm_sec = tm.sec;
2280 tmTimeOnly.tm_wday = 0;
2281 tmTimeOnly.tm_yday = 0;
2282 tmTimeOnly.tm_mday = 1; // any date will do
2283 tmTimeOnly.tm_mon = 0;
2284 tmTimeOnly.tm_year = 76;
2285 tmTimeOnly.tm_isdst = 0; // no DST, we adjust for tz ourselves
2286
2287 wxString tmp, res, fmt;
2288 for ( const wxChar *p = format; *p; p++ )
2289 {
2290 if ( *p != _T('%') )
2291 {
2292 // copy as is
2293 res += *p;
2294
2295 continue;
2296 }
2297
2298 // set the default format
2299 switch ( *++p )
2300 {
2301 case _T('Y'): // year has 4 digits
2302 fmt = _T("%04d");
2303 break;
2304
2305 case _T('j'): // day of year has 3 digits
2306 case _T('l'): // milliseconds have 3 digits
2307 fmt = _T("%03d");
2308 break;
2309
2310 case _T('w'): // week day as number has only one
2311 fmt = _T("%d");
2312 break;
2313
2314 default:
2315 // it's either another valid format specifier in which case
2316 // the format is "%02d" (for all the rest) or we have the
2317 // field width preceding the format in which case it will
2318 // override the default format anyhow
2319 fmt = _T("%02d");
2320 }
2321
2322 bool restart = true;
2323 while ( restart )
2324 {
2325 restart = false;
2326
2327 // start of the format specification
2328 switch ( *p )
2329 {
2330 case _T('a'): // a weekday name
2331 case _T('A'):
2332 // second parameter should be true for abbreviated names
2333 res += GetWeekDayName(tm.GetWeekDay(),
2334 *p == _T('a') ? Name_Abbr : Name_Full);
2335 break;
2336
2337 case _T('b'): // a month name
2338 case _T('B'):
2339 res += GetMonthName(tm.mon,
2340 *p == _T('b') ? Name_Abbr : Name_Full);
2341 break;
2342
2343 case _T('c'): // locale default date and time representation
2344 case _T('x'): // locale default date representation
2345 #ifndef __WXWINCE__
2346 //
2347 // the problem: there is no way to know what do these format
2348 // specifications correspond to for the current locale.
2349 //
2350 // the solution: use a hack and still use strftime(): first
2351 // find the YEAR which is a year in the strftime() range (1970
2352 // - 2038) whose Jan 1 falls on the same week day as the Jan 1
2353 // of the real year. Then make a copy of the format and
2354 // replace all occurrences of YEAR in it with some unique
2355 // string not appearing anywhere else in it, then use
2356 // strftime() to format the date in year YEAR and then replace
2357 // YEAR back by the real year and the unique replacement
2358 // string back with YEAR. Notice that "all occurrences of YEAR"
2359 // means all occurrences of 4 digit as well as 2 digit form!
2360 //
2361 // the bugs: we assume that neither of %c nor %x contains any
2362 // fields which may change between the YEAR and real year. For
2363 // example, the week number (%U, %W) and the day number (%j)
2364 // will change if one of these years is leap and the other one
2365 // is not!
2366 {
2367 // find the YEAR: normally, for any year X, Jan 1 or the
2368 // year X + 28 is the same weekday as Jan 1 of X (because
2369 // the weekday advances by 1 for each normal X and by 2
2370 // for each leap X, hence by 5 every 4 years or by 35
2371 // which is 0 mod 7 every 28 years) but this rule breaks
2372 // down if there are years between X and Y which are
2373 // divisible by 4 but not leap (i.e. divisible by 100 but
2374 // not 400), hence the correction.
2375
2376 int yearReal = GetYear(tz);
2377 int mod28 = yearReal % 28;
2378
2379 // be careful to not go too far - we risk to leave the
2380 // supported range
2381 int year;
2382 if ( mod28 < 10 )
2383 {
2384 year = 1988 + mod28; // 1988 == 0 (mod 28)
2385 }
2386 else
2387 {
2388 year = 1970 + mod28 - 10; // 1970 == 10 (mod 28)
2389 }
2390
2391 int nCentury = year / 100,
2392 nCenturyReal = yearReal / 100;
2393
2394 // need to adjust for the years divisble by 400 which are
2395 // not leap but are counted like leap ones if we just take
2396 // the number of centuries in between for nLostWeekDays
2397 int nLostWeekDays = (nCentury - nCenturyReal) -
2398 (nCentury / 4 - nCenturyReal / 4);
2399
2400 // we have to gain back the "lost" weekdays: note that the
2401 // effect of this loop is to not do anything to
2402 // nLostWeekDays (which we won't use any more), but to
2403 // (indirectly) set the year correctly
2404 while ( (nLostWeekDays % 7) != 0 )
2405 {
2406 nLostWeekDays += year++ % 4 ? 1 : 2;
2407 }
2408
2409 // Keep year below 2000 so the 2digit year number
2410 // can never match the month or day of the month
2411 if (year>=2000) year-=28;
2412 // at any rate, we couldn't go further than 1988 + 9 + 28!
2413 wxASSERT_MSG( year < 2030,
2414 _T("logic error in wxDateTime::Format") );
2415
2416 wxString strYear, strYear2;
2417 strYear.Printf(_T("%d"), year);
2418 strYear2.Printf(_T("%d"), year % 100);
2419
2420 // find four strings not occurring in format (this is surely
2421 // not the optimal way of doing it... improvements welcome!)
2422 wxString fmt2 = format;
2423 wxString replacement,replacement2,replacement3,replacement4;
2424 for (int rnr=1; rnr<5 ; rnr++)
2425 {
2426 wxString r = (wxChar)-rnr;
2427 while ( fmt2.Find(r) != wxNOT_FOUND )
2428 {
2429 r << (wxChar)-rnr;
2430 }
2431
2432 switch (rnr)
2433 {
2434 case 1: replacement=r; break;
2435 case 2: replacement2=r; break;
2436 case 3: replacement3=r; break;
2437 case 4: replacement4=r; break;
2438 }
2439 }
2440 // replace all occurrences of year with it
2441 bool wasReplaced = fmt2.Replace(strYear, replacement) > 0;
2442 // evaluation order ensures we always attempt the replacement.
2443 wasReplaced = (fmt2.Replace(strYear2, replacement2) > 0) | wasReplaced ;
2444
2445 // use strftime() to format the same date but in supported
2446 // year
2447 //
2448 // NB: we assume that strftime() doesn't check for the
2449 // date validity and will happily format the date
2450 // corresponding to Feb 29 of a non leap year (which
2451 // may happen if yearReal was leap and year is not)
2452 struct tm tmAdjusted;
2453 InitTm(tmAdjusted);
2454 tmAdjusted.tm_hour = tm.hour;
2455 tmAdjusted.tm_min = tm.min;
2456 tmAdjusted.tm_sec = tm.sec;
2457 tmAdjusted.tm_wday = tm.GetWeekDay();
2458 tmAdjusted.tm_yday = GetDayOfYear();
2459 tmAdjusted.tm_mday = tm.mday;
2460 tmAdjusted.tm_mon = tm.mon;
2461 tmAdjusted.tm_year = year - 1900;
2462 tmAdjusted.tm_isdst = 0; // no DST, already adjusted
2463 wxString str = CallStrftime(*p == _T('c') ? _T("%c")
2464 : _T("%x"),
2465 &tmAdjusted);
2466
2467 // now replace the occurrence of 1999 with the real year
2468 // we do this in two stages to stop the 2 digit year
2469 // matching any substring of the 4 digit year.
2470 // Any day,month hours and minutes components should be safe due
2471 // to ensuring the range of the years.
2472 wxString strYearReal, strYearReal2;
2473 strYearReal.Printf(_T("%04d"), yearReal);
2474 strYearReal2.Printf(_T("%02d"), yearReal % 100);
2475 str.Replace(strYear, replacement3);
2476 str.Replace(strYear2,replacement4);
2477 str.Replace(replacement3, strYearReal);
2478 str.Replace(replacement4, strYearReal2);
2479
2480 // and replace back all occurrences of replacement string
2481 if ( wasReplaced )
2482 {
2483 str.Replace(replacement2, strYear2);
2484 str.Replace(replacement, strYear);
2485 }
2486
2487 res += str;
2488 }
2489 #else
2490 //Use "%m/%d/%y %H:%M:%S" format instead
2491 res += wxString::Format(wxT("%02d/%02d/%04d %02d:%02d:%02d"),
2492 tm.mon+1,tm.mday, tm.year, tm.hour, tm.min, tm.sec);
2493 #endif
2494 break;
2495
2496 case _T('d'): // day of a month (01-31)
2497 res += wxString::Format(fmt, tm.mday);
2498 break;
2499
2500 case _T('H'): // hour in 24h format (00-23)
2501 res += wxString::Format(fmt, tm.hour);
2502 break;
2503
2504 case _T('I'): // hour in 12h format (01-12)
2505 {
2506 // 24h -> 12h, 0h -> 12h too
2507 int hour12 = tm.hour > 12 ? tm.hour - 12
2508 : tm.hour ? tm.hour : 12;
2509 res += wxString::Format(fmt, hour12);
2510 }
2511 break;
2512
2513 case _T('j'): // day of the year
2514 res += wxString::Format(fmt, GetDayOfYear(tz));
2515 break;
2516
2517 case _T('l'): // milliseconds (NOT STANDARD)
2518 res += wxString::Format(fmt, GetMillisecond(tz));
2519 break;
2520
2521 case _T('m'): // month as a number (01-12)
2522 res += wxString::Format(fmt, tm.mon + 1);
2523 break;
2524
2525 case _T('M'): // minute as a decimal number (00-59)
2526 res += wxString::Format(fmt, tm.min);
2527 break;
2528
2529 case _T('p'): // AM or PM string
2530 #ifndef __WXWINCE__
2531 res += CallStrftime(_T("%p"), &tmTimeOnly);
2532 #else
2533 res += (tmTimeOnly.tm_hour > 12) ? wxT("pm") : wxT("am");
2534 #endif
2535 break;
2536
2537 case _T('S'): // second as a decimal number (00-61)
2538 res += wxString::Format(fmt, tm.sec);
2539 break;
2540
2541 case _T('U'): // week number in the year (Sunday 1st week day)
2542 res += wxString::Format(fmt, GetWeekOfYear(Sunday_First, tz));
2543 break;
2544
2545 case _T('W'): // week number in the year (Monday 1st week day)
2546 res += wxString::Format(fmt, GetWeekOfYear(Monday_First, tz));
2547 break;
2548
2549 case _T('w'): // weekday as a number (0-6), Sunday = 0
2550 res += wxString::Format(fmt, tm.GetWeekDay());
2551 break;
2552
2553 // case _T('x'): -- handled with "%c"
2554
2555 case _T('X'): // locale default time representation
2556 // just use strftime() to format the time for us
2557 #ifndef __WXWINCE__
2558 res += CallStrftime(_T("%X"), &tmTimeOnly);
2559 #else
2560 res += wxString::Format(wxT("%02d:%02d:%02d"),tm.hour, tm.min, tm.sec);
2561 #endif
2562 break;
2563
2564 case _T('y'): // year without century (00-99)
2565 res += wxString::Format(fmt, tm.year % 100);
2566 break;
2567
2568 case _T('Y'): // year with century
2569 res += wxString::Format(fmt, tm.year);
2570 break;
2571
2572 case _T('Z'): // timezone name
2573 #ifndef __WXWINCE__
2574 res += CallStrftime(_T("%Z"), &tmTimeOnly);
2575 #endif
2576 break;
2577
2578 default:
2579 // is it the format width?
2580 fmt.Empty();
2581 while ( *p == _T('-') || *p == _T('+') ||
2582 *p == _T(' ') || wxIsdigit(*p) )
2583 {
2584 fmt += *p;
2585 }
2586
2587 if ( !fmt.empty() )
2588 {
2589 // we've only got the flags and width so far in fmt
2590 fmt.Prepend(_T('%'));
2591 fmt.Append(_T('d'));
2592
2593 restart = true;
2594
2595 break;
2596 }
2597
2598 // no, it wasn't the width
2599 wxFAIL_MSG(_T("unknown format specificator"));
2600
2601 // fall through and just copy it nevertheless
2602
2603 case _T('%'): // a percent sign
2604 res += *p;
2605 break;
2606
2607 case 0: // the end of string
2608 wxFAIL_MSG(_T("missing format at the end of string"));
2609
2610 // just put the '%' which was the last char in format
2611 res += _T('%');
2612 break;
2613 }
2614 }
2615 }
2616
2617 return res;
2618 }
2619
2620 // this function parses a string in (strict) RFC 822 format: see the section 5
2621 // of the RFC for the detailed description, but briefly it's something of the
2622 // form "Sat, 18 Dec 1999 00:48:30 +0100"
2623 //
2624 // this function is "strict" by design - it must reject anything except true
2625 // RFC822 time specs.
2626 //
2627 // TODO a great candidate for using reg exps
2628 const wxChar *wxDateTime::ParseRfc822Date(const wxChar* date)
2629 {
2630 wxCHECK_MSG( date, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
2631
2632 const wxChar *p = date;
2633 const wxChar *comma = wxStrchr(p, _T(','));
2634 if ( comma )
2635 {
2636 // the part before comma is the weekday
2637
2638 // skip it for now - we don't use but might check that it really
2639 // corresponds to the specfied date
2640 p = comma + 1;
2641
2642 if ( *p != _T(' ') )
2643 {
2644 wxLogDebug(_T("no space after weekday in RFC822 time spec"));
2645
2646 return (wxChar *)NULL;
2647 }
2648
2649 p++; // skip space
2650 }
2651
2652 // the following 1 or 2 digits are the day number
2653 if ( !wxIsdigit(*p) )
2654 {
2655 wxLogDebug(_T("day number expected in RFC822 time spec, none found"));
2656
2657 return (wxChar *)NULL;
2658 }
2659
2660 wxDateTime_t day = (wxDateTime_t)(*p++ - _T('0'));
2661 if ( wxIsdigit(*p) )
2662 {
2663 day *= 10;
2664 day = (wxDateTime_t)(day + (*p++ - _T('0')));
2665 }
2666
2667 if ( *p++ != _T(' ') )
2668 {
2669 return (wxChar *)NULL;
2670 }
2671
2672 // the following 3 letters specify the month
2673 wxString monName(p, 3);
2674 Month mon;
2675 if ( monName == _T("Jan") )
2676 mon = Jan;
2677 else if ( monName == _T("Feb") )
2678 mon = Feb;
2679 else if ( monName == _T("Mar") )
2680 mon = Mar;
2681 else if ( monName == _T("Apr") )
2682 mon = Apr;
2683 else if ( monName == _T("May") )
2684 mon = May;
2685 else if ( monName == _T("Jun") )
2686 mon = Jun;
2687 else if ( monName == _T("Jul") )
2688 mon = Jul;
2689 else if ( monName == _T("Aug") )
2690 mon = Aug;
2691 else if ( monName == _T("Sep") )
2692 mon = Sep;
2693 else if ( monName == _T("Oct") )
2694 mon = Oct;
2695 else if ( monName == _T("Nov") )
2696 mon = Nov;
2697 else if ( monName == _T("Dec") )
2698 mon = Dec;
2699 else
2700 {
2701 wxLogDebug(_T("Invalid RFC 822 month name '%s'"), monName.c_str());
2702
2703 return (wxChar *)NULL;
2704 }
2705
2706 p += 3;
2707
2708 if ( *p++ != _T(' ') )
2709 {
2710 return (wxChar *)NULL;
2711 }
2712
2713 // next is the year
2714 if ( !wxIsdigit(*p) )
2715 {
2716 // no year?
2717 return (wxChar *)NULL;
2718 }
2719
2720 int year = *p++ - _T('0');
2721
2722 if ( !wxIsdigit(*p) )
2723 {
2724 // should have at least 2 digits in the year
2725 return (wxChar *)NULL;
2726 }
2727
2728 year *= 10;
2729 year += *p++ - _T('0');
2730
2731 // is it a 2 digit year (as per original RFC 822) or a 4 digit one?
2732 if ( wxIsdigit(*p) )
2733 {
2734 year *= 10;
2735 year += *p++ - _T('0');
2736
2737 if ( !wxIsdigit(*p) )
2738 {
2739 // no 3 digit years please
2740 return (wxChar *)NULL;
2741 }
2742
2743 year *= 10;
2744 year += *p++ - _T('0');
2745 }
2746
2747 if ( *p++ != _T(' ') )
2748 {
2749 return (wxChar *)NULL;
2750 }
2751
2752 // time is in the format hh:mm:ss and seconds are optional
2753 if ( !wxIsdigit(*p) )
2754 {
2755 return (wxChar *)NULL;
2756 }
2757
2758 wxDateTime_t hour = (wxDateTime_t)(*p++ - _T('0'));
2759
2760 if ( !wxIsdigit(*p) )
2761 {
2762 return (wxChar *)NULL;
2763 }
2764
2765 hour *= 10;
2766 hour = (wxDateTime_t)(hour + (*p++ - _T('0')));
2767
2768 if ( *p++ != _T(':') )
2769 {
2770 return (wxChar *)NULL;
2771 }
2772
2773 if ( !wxIsdigit(*p) )
2774 {
2775 return (wxChar *)NULL;
2776 }
2777
2778 wxDateTime_t min = (wxDateTime_t)(*p++ - _T('0'));
2779
2780 if ( !wxIsdigit(*p) )
2781 {
2782 return (wxChar *)NULL;
2783 }
2784
2785 min *= 10;
2786 min = (wxDateTime_t)(min + *p++ - _T('0'));
2787
2788 wxDateTime_t sec = 0;
2789 if ( *p++ == _T(':') )
2790 {
2791 if ( !wxIsdigit(*p) )
2792 {
2793 return (wxChar *)NULL;
2794 }
2795
2796 sec = (wxDateTime_t)(*p++ - _T('0'));
2797
2798 if ( !wxIsdigit(*p) )
2799 {
2800 return (wxChar *)NULL;
2801 }
2802
2803 sec *= 10;
2804 sec = (wxDateTime_t)(sec + *p++ - _T('0'));
2805 }
2806
2807 if ( *p++ != _T(' ') )
2808 {
2809 return (wxChar *)NULL;
2810 }
2811
2812 // and now the interesting part: the timezone
2813 int offset wxDUMMY_INITIALIZE(0);
2814 if ( *p == _T('-') || *p == _T('+') )
2815 {
2816 // the explicit offset given: it has the form of hhmm
2817 bool plus = *p++ == _T('+');
2818
2819 if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
2820 {
2821 return (wxChar *)NULL;
2822 }
2823
2824 // hours
2825 offset = MIN_PER_HOUR*(10*(*p - _T('0')) + (*(p + 1) - _T('0')));
2826
2827 p += 2;
2828
2829 if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
2830 {
2831 return (wxChar *)NULL;
2832 }
2833
2834 // minutes
2835 offset += 10*(*p - _T('0')) + (*(p + 1) - _T('0'));
2836
2837 if ( !plus )
2838 {
2839 offset = -offset;
2840 }
2841
2842 p += 2;
2843 }
2844 else
2845 {
2846 // the symbolic timezone given: may be either military timezone or one
2847 // of standard abbreviations
2848 if ( !*(p + 1) )
2849 {
2850 // military: Z = UTC, J unused, A = -1, ..., Y = +12
2851 static const int offsets[26] =
2852 {
2853 //A B C D E F G H I J K L M
2854 -1, -2, -3, -4, -5, -6, -7, -8, -9, 0, -10, -11, -12,
2855 //N O P R Q S T U V W Z Y Z
2856 +1, +2, +3, +4, +5, +6, +7, +8, +9, +10, +11, +12, 0
2857 };
2858
2859 if ( *p < _T('A') || *p > _T('Z') || *p == _T('J') )
2860 {
2861 wxLogDebug(_T("Invalid militaty timezone '%c'"), *p);
2862
2863 return (wxChar *)NULL;
2864 }
2865
2866 offset = offsets[*p++ - _T('A')];
2867 }
2868 else
2869 {
2870 // abbreviation
2871 wxString tz = p;
2872 if ( tz == _T("UT") || tz == _T("UTC") || tz == _T("GMT") )
2873 offset = 0;
2874 else if ( tz == _T("AST") )
2875 offset = AST - GMT0;
2876 else if ( tz == _T("ADT") )
2877 offset = ADT - GMT0;
2878 else if ( tz == _T("EST") )
2879 offset = EST - GMT0;
2880 else if ( tz == _T("EDT") )
2881 offset = EDT - GMT0;
2882 else if ( tz == _T("CST") )
2883 offset = CST - GMT0;
2884 else if ( tz == _T("CDT") )
2885 offset = CDT - GMT0;
2886 else if ( tz == _T("MST") )
2887 offset = MST - GMT0;
2888 else if ( tz == _T("MDT") )
2889 offset = MDT - GMT0;
2890 else if ( tz == _T("PST") )
2891 offset = PST - GMT0;
2892 else if ( tz == _T("PDT") )
2893 offset = PDT - GMT0;
2894 else
2895 {
2896 wxLogDebug(_T("Unknown RFC 822 timezone '%s'"), p);
2897
2898 return (wxChar *)NULL;
2899 }
2900
2901 p += tz.length();
2902 }
2903
2904 // make it minutes
2905 offset *= MIN_PER_HOUR;
2906 }
2907
2908 // the spec was correct, construct the date from the values we found
2909 Set(day, mon, year, hour, min, sec);
2910 MakeFromTimezone(TimeZone((wxDateTime_t)(offset*SEC_PER_MIN)));
2911
2912 return p;
2913 }
2914
2915 #ifdef __WINDOWS__
2916
2917 // returns the string containing strftime() format used for short dates in the
2918 // current locale or an empty string
2919 static wxString GetLocaleDateFormat()
2920 {
2921 wxString fmtWX;
2922
2923 // there is no setlocale() under Windows CE, so just always query the
2924 // system there
2925 #ifndef __WXWINCE__
2926 if ( strcmp(setlocale(LC_ALL, NULL), "C") != 0 )
2927 #endif
2928 {
2929 // The locale was programatically set to non-C. We assume that this was
2930 // done using wxLocale, in which case thread's current locale is also
2931 // set to correct LCID value and we can use GetLocaleInfo to determine
2932 // the correct formatting string:
2933 #ifdef __WXWINCE__
2934 LCID lcid = LOCALE_USER_DEFAULT;
2935 #else
2936 LCID lcid = GetThreadLocale();
2937 #endif
2938 // according to MSDN 80 chars is max allowed for short date format
2939 wxChar fmt[81];
2940 if ( ::GetLocaleInfo(lcid, LOCALE_SSHORTDATE, fmt, WXSIZEOF(fmt)) )
2941 {
2942 wxChar chLast = _T('\0');
2943 size_t lastCount = 0;
2944 for ( const wxChar *p = fmt; /* NUL handled inside */; p++ )
2945 {
2946 if ( *p == chLast )
2947 {
2948 lastCount++;
2949 continue;
2950 }
2951
2952 switch ( *p )
2953 {
2954 // these characters come in groups, start counting them
2955 case _T('d'):
2956 case _T('M'):
2957 case _T('y'):
2958 case _T('g'):
2959 chLast = *p;
2960 lastCount = 1;
2961 break;
2962
2963 default:
2964 // first deal with any special characters we have had
2965 if ( lastCount )
2966 {
2967 switch ( chLast )
2968 {
2969 case _T('d'):
2970 switch ( lastCount )
2971 {
2972 case 1: // d
2973 case 2: // dd
2974 // these two are the same as we
2975 // don't distinguish between 1 and
2976 // 2 digits for days
2977 fmtWX += _T("%d");
2978 break;
2979
2980 case 3: // ddd
2981 fmtWX += _T("%a");
2982 break;
2983
2984 case 4: // dddd
2985 fmtWX += _T("%A");
2986 break;
2987
2988 default:
2989 wxFAIL_MSG( _T("too many 'd's") );
2990 }
2991 break;
2992
2993 case _T('M'):
2994 switch ( lastCount )
2995 {
2996 case 1: // M
2997 case 2: // MM
2998 // as for 'd' and 'dd' above
2999 fmtWX += _T("%m");
3000 break;
3001
3002 case 3:
3003 fmtWX += _T("%b");
3004 break;
3005
3006 case 4:
3007 fmtWX += _T("%B");
3008 break;
3009
3010 default:
3011 wxFAIL_MSG( _T("too many 'M's") );
3012 }
3013 break;
3014
3015 case _T('y'):
3016 switch ( lastCount )
3017 {
3018 case 1: // y
3019 case 2: // yy
3020 fmtWX += _T("%y");
3021 break;
3022
3023 case 4: // yyyy
3024 fmtWX += _T("%Y");
3025 break;
3026
3027 default:
3028 wxFAIL_MSG( _T("wrong number of 'y's") );
3029 }
3030 break;
3031
3032 case _T('g'):
3033 // strftime() doesn't have era string,
3034 // ignore this format
3035 wxASSERT_MSG( lastCount <= 2,
3036 _T("too many 'g's") );
3037 break;
3038
3039 default:
3040 wxFAIL_MSG( _T("unreachable") );
3041 }
3042
3043 chLast = _T('\0');
3044 lastCount = 0;
3045 }
3046
3047 // not a special character so must be just a separator,
3048 // treat as is
3049 if ( *p != _T('\0') )
3050 {
3051 if ( *p == _T('%') )
3052 {
3053 // this one needs to be escaped
3054 fmtWX += _T('%');
3055 }
3056
3057 fmtWX += *p;
3058 }
3059 }
3060
3061 if ( *p == _T('\0') )
3062 break;
3063 }
3064 }
3065 //else: GetLocaleInfo() failed, leave fmtDate value unchanged and
3066 // try our luck with the default formats
3067 }
3068 //else: default C locale, default formats should work
3069
3070 return fmtWX;
3071 }
3072
3073 #endif // __WINDOWS__
3074
3075 const wxChar *wxDateTime::ParseFormat(const wxChar *date,
3076 const wxChar *format,
3077 const wxDateTime& dateDef)
3078 {
3079 wxCHECK_MSG( date && format, (wxChar *)NULL,
3080 _T("NULL pointer in wxDateTime::ParseFormat()") );
3081
3082 wxString str;
3083 unsigned long num;
3084
3085 // what fields have we found?
3086 bool haveWDay = false,
3087 haveYDay = false,
3088 haveDay = false,
3089 haveMon = false,
3090 haveYear = false,
3091 haveHour = false,
3092 haveMin = false,
3093 haveSec = false;
3094
3095 bool hourIsIn12hFormat = false, // or in 24h one?
3096 isPM = false; // AM by default
3097
3098 // and the value of the items we have (init them to get rid of warnings)
3099 wxDateTime_t sec = 0,
3100 min = 0,
3101 hour = 0;
3102 WeekDay wday = Inv_WeekDay;
3103 wxDateTime_t yday = 0,
3104 mday = 0;
3105 wxDateTime::Month mon = Inv_Month;
3106 int year = 0;
3107
3108 const wxChar *input = date;
3109 for ( const wxChar *fmt = format; *fmt; fmt++ )
3110 {
3111 if ( *fmt != _T('%') )
3112 {
3113 if ( wxIsspace(*fmt) )
3114 {
3115 // a white space in the format string matches 0 or more white
3116 // spaces in the input
3117 while ( wxIsspace(*input) )
3118 {
3119 input++;
3120 }
3121 }
3122 else // !space
3123 {
3124 // any other character (not whitespace, not '%') must be
3125 // matched by itself in the input
3126 if ( *input++ != *fmt )
3127 {
3128 // no match
3129 return (wxChar *)NULL;
3130 }
3131 }
3132
3133 // done with this format char
3134 continue;
3135 }
3136
3137 // start of a format specification
3138
3139 // parse the optional width
3140 size_t width = 0;
3141 while ( wxIsdigit(*++fmt) )
3142 {
3143 width *= 10;
3144 width += *fmt - _T('0');
3145 }
3146
3147 // the default widths for the various fields
3148 if ( !width )
3149 {
3150 switch ( *fmt )
3151 {
3152 case _T('Y'): // year has 4 digits
3153 width = 4;
3154 break;
3155
3156 case _T('j'): // day of year has 3 digits
3157 case _T('l'): // milliseconds have 3 digits
3158 width = 3;
3159 break;
3160
3161 case _T('w'): // week day as number has only one
3162 width = 1;
3163 break;
3164
3165 default:
3166 // default for all other fields
3167 width = 2;
3168 }
3169 }
3170
3171 // then the format itself
3172 switch ( *fmt )
3173 {
3174 case _T('a'): // a weekday name
3175 case _T('A'):
3176 {
3177 int flag = *fmt == _T('a') ? Name_Abbr : Name_Full;
3178 wday = GetWeekDayFromName(GetAlphaToken(input), flag);
3179 if ( wday == Inv_WeekDay )
3180 {
3181 // no match
3182 return (wxChar *)NULL;
3183 }
3184 }
3185 haveWDay = true;
3186 break;
3187
3188 case _T('b'): // a month name
3189 case _T('B'):
3190 {
3191 int flag = *fmt == _T('b') ? Name_Abbr : Name_Full;
3192 mon = GetMonthFromName(GetAlphaToken(input), flag);
3193 if ( mon == Inv_Month )
3194 {
3195 // no match
3196 return (wxChar *)NULL;
3197 }
3198 }
3199 haveMon = true;
3200 break;
3201
3202 case _T('c'): // locale default date and time representation
3203 {
3204 wxDateTime dt;
3205
3206 // this is the format which corresponds to ctime() output
3207 // and strptime("%c") should parse it, so try it first
3208 static const wxChar *fmtCtime = _T("%a %b %d %H:%M:%S %Y");
3209
3210 const wxChar *result = dt.ParseFormat(input, fmtCtime);
3211 if ( !result )
3212 {
3213 result = dt.ParseFormat(input, _T("%x %X"));
3214 }
3215
3216 if ( !result )
3217 {
3218 result = dt.ParseFormat(input, _T("%X %x"));
3219 }
3220
3221 if ( !result )
3222 {
3223 // we've tried everything and still no match
3224 return (wxChar *)NULL;
3225 }
3226
3227 Tm tm = dt.GetTm();
3228
3229 haveDay = haveMon = haveYear =
3230 haveHour = haveMin = haveSec = true;
3231
3232 hour = tm.hour;
3233 min = tm.min;
3234 sec = tm.sec;
3235
3236 year = tm.year;
3237 mon = tm.mon;
3238 mday = tm.mday;
3239
3240 input = result;
3241 }
3242 break;
3243
3244 case _T('d'): // day of a month (01-31)
3245 if ( !GetNumericToken(width, input, &num) ||
3246 (num > 31) || (num < 1) )
3247 {
3248 // no match
3249 return (wxChar *)NULL;
3250 }
3251
3252 // we can't check whether the day range is correct yet, will
3253 // do it later - assume ok for now
3254 haveDay = true;
3255 mday = (wxDateTime_t)num;
3256 break;
3257
3258 case _T('H'): // hour in 24h format (00-23)
3259 if ( !GetNumericToken(width, input, &num) || (num > 23) )
3260 {
3261 // no match
3262 return (wxChar *)NULL;
3263 }
3264
3265 haveHour = true;
3266 hour = (wxDateTime_t)num;
3267 break;
3268
3269 case _T('I'): // hour in 12h format (01-12)
3270 if ( !GetNumericToken(width, input, &num) || !num || (num > 12) )
3271 {
3272 // no match
3273 return (wxChar *)NULL;
3274 }
3275
3276 haveHour = true;
3277 hourIsIn12hFormat = true;
3278 hour = (wxDateTime_t)(num % 12); // 12 should be 0
3279 break;
3280
3281 case _T('j'): // day of the year
3282 if ( !GetNumericToken(width, input, &num) || !num || (num > 366) )
3283 {
3284 // no match
3285 return (wxChar *)NULL;
3286 }
3287
3288 haveYDay = true;
3289 yday = (wxDateTime_t)num;
3290 break;
3291
3292 case _T('m'): // month as a number (01-12)
3293 if ( !GetNumericToken(width, input, &num) || !num || (num > 12) )
3294 {
3295 // no match
3296 return (wxChar *)NULL;
3297 }
3298
3299 haveMon = true;
3300 mon = (Month)(num - 1);
3301 break;
3302
3303 case _T('M'): // minute as a decimal number (00-59)
3304 if ( !GetNumericToken(width, input, &num) || (num > 59) )
3305 {
3306 // no match
3307 return (wxChar *)NULL;
3308 }
3309
3310 haveMin = true;
3311 min = (wxDateTime_t)num;
3312 break;
3313
3314 case _T('p'): // AM or PM string
3315 {
3316 wxString am, pm, token = GetAlphaToken(input);
3317
3318 GetAmPmStrings(&am, &pm);
3319 if (am.empty() && pm.empty())
3320 return (wxChar *)NULL; // no am/pm strings defined
3321 if ( token.CmpNoCase(pm) == 0 )
3322 {
3323 isPM = true;
3324 }
3325 else if ( token.CmpNoCase(am) != 0 )
3326 {
3327 // no match
3328 return (wxChar *)NULL;
3329 }
3330 }
3331 break;
3332
3333 case _T('r'): // time as %I:%M:%S %p
3334 {
3335 wxDateTime dt;
3336 input = dt.ParseFormat(input, _T("%I:%M:%S %p"));
3337 if ( !input )
3338 {
3339 // no match
3340 return (wxChar *)NULL;
3341 }
3342
3343 haveHour = haveMin = haveSec = true;
3344
3345 Tm tm = dt.GetTm();
3346 hour = tm.hour;
3347 min = tm.min;
3348 sec = tm.sec;
3349 }
3350 break;
3351
3352 case _T('R'): // time as %H:%M
3353 {
3354 wxDateTime dt;
3355 input = dt.ParseFormat(input, _T("%H:%M"));
3356 if ( !input )
3357 {
3358 // no match
3359 return (wxChar *)NULL;
3360 }
3361
3362 haveHour = haveMin = true;
3363
3364 Tm tm = dt.GetTm();
3365 hour = tm.hour;
3366 min = tm.min;
3367 }
3368 break;
3369
3370 case _T('S'): // second as a decimal number (00-61)
3371 if ( !GetNumericToken(width, input, &num) || (num > 61) )
3372 {
3373 // no match
3374 return (wxChar *)NULL;
3375 }
3376
3377 haveSec = true;
3378 sec = (wxDateTime_t)num;
3379 break;
3380
3381 case _T('T'): // time as %H:%M:%S
3382 {
3383 wxDateTime dt;
3384 input = dt.ParseFormat(input, _T("%H:%M:%S"));
3385 if ( !input )
3386 {
3387 // no match
3388 return (wxChar *)NULL;
3389 }
3390
3391 haveHour = haveMin = haveSec = true;
3392
3393 Tm tm = dt.GetTm();
3394 hour = tm.hour;
3395 min = tm.min;
3396 sec = tm.sec;
3397 }
3398 break;
3399
3400 case _T('w'): // weekday as a number (0-6), Sunday = 0
3401 if ( !GetNumericToken(width, input, &num) || (wday > 6) )
3402 {
3403 // no match
3404 return (wxChar *)NULL;
3405 }
3406
3407 haveWDay = true;
3408 wday = (WeekDay)num;
3409 break;
3410
3411 case _T('x'): // locale default date representation
3412 #ifdef HAVE_STRPTIME
3413 // try using strptime() -- it may fail even if the input is
3414 // correct but the date is out of range, so we will fall back
3415 // to our generic code anyhow
3416 {
3417 struct tm tm;
3418
3419 const wxChar *result = CallStrptime(input, "%x", &tm);
3420 if ( result )
3421 {
3422 input = result;
3423
3424 haveDay = haveMon = haveYear = true;
3425
3426 year = 1900 + tm.tm_year;
3427 mon = (Month)tm.tm_mon;
3428 mday = tm.tm_mday;
3429
3430 break;
3431 }
3432 }
3433 #endif // HAVE_STRPTIME
3434
3435 {
3436 wxDateTime dt;
3437 wxString fmtDate,
3438 fmtDateAlt;
3439
3440 #ifdef __WINDOWS__
3441 // The above doesn't work for all locales, try to query
3442 // Windows for the right way of formatting the date:
3443 fmtDate = GetLocaleDateFormat();
3444 if ( fmtDate.empty() )
3445 #endif
3446 {
3447 if ( IsWestEuropeanCountry(GetCountry()) ||
3448 GetCountry() == Russia )
3449 {
3450 fmtDate = _T("%d/%m/%y");
3451 fmtDateAlt = _T("%m/%d/%y");
3452 }
3453 else // assume USA
3454 {
3455 fmtDate = _T("%m/%d/%y");
3456 fmtDateAlt = _T("%d/%m/%y");
3457 }
3458 }
3459
3460 const wxChar *result = dt.ParseFormat(input, fmtDate);
3461
3462 if ( !result && !fmtDateAlt.empty() )
3463 {
3464 // ok, be nice and try another one
3465 result = dt.ParseFormat(input, fmtDateAlt);
3466 }
3467
3468 if ( !result )
3469 {
3470 // bad luck
3471 return (wxChar *)NULL;
3472 }
3473
3474 Tm tm = dt.GetTm();
3475
3476 haveDay = haveMon = haveYear = true;
3477
3478 year = tm.year;
3479 mon = tm.mon;
3480 mday = tm.mday;
3481
3482 input = result;
3483 }
3484
3485 break;
3486
3487 case _T('X'): // locale default time representation
3488 #ifdef HAVE_STRPTIME
3489 {
3490 // use strptime() to do it for us (FIXME !Unicode friendly)
3491 struct tm tm;
3492 input = CallStrptime(input, "%X", &tm);
3493 if ( !input )
3494 {
3495 return (wxChar *)NULL;
3496 }
3497
3498 haveHour = haveMin = haveSec = true;
3499
3500 hour = tm.tm_hour;
3501 min = tm.tm_min;
3502 sec = tm.tm_sec;
3503 }
3504 #else // !HAVE_STRPTIME
3505 // TODO under Win32 we can query the LOCALE_ITIME system
3506 // setting which says whether the default time format is
3507 // 24 or 12 hour
3508 {
3509 // try to parse what follows as "%H:%M:%S" and, if this
3510 // fails, as "%I:%M:%S %p" - this should catch the most
3511 // common cases
3512 wxDateTime dt;
3513
3514 const wxChar *result = dt.ParseFormat(input, _T("%T"));
3515 if ( !result )
3516 {
3517 result = dt.ParseFormat(input, _T("%r"));
3518 }
3519
3520 if ( !result )
3521 {
3522 // no match
3523 return (wxChar *)NULL;
3524 }
3525
3526 haveHour = haveMin = haveSec = true;
3527
3528 Tm tm = dt.GetTm();
3529 hour = tm.hour;
3530 min = tm.min;
3531 sec = tm.sec;
3532
3533 input = result;
3534 }
3535 #endif // HAVE_STRPTIME/!HAVE_STRPTIME
3536 break;
3537
3538 case _T('y'): // year without century (00-99)
3539 if ( !GetNumericToken(width, input, &num) || (num > 99) )
3540 {
3541 // no match
3542 return (wxChar *)NULL;
3543 }
3544
3545 haveYear = true;
3546
3547 // TODO should have an option for roll over date instead of
3548 // hard coding it here
3549 year = (num > 30 ? 1900 : 2000) + (wxDateTime_t)num;
3550 break;
3551
3552 case _T('Y'): // year with century
3553 if ( !GetNumericToken(width, input, &num) )
3554 {
3555 // no match
3556 return (wxChar *)NULL;
3557 }
3558
3559 haveYear = true;
3560 year = (wxDateTime_t)num;
3561 break;
3562
3563 case _T('Z'): // timezone name
3564 wxFAIL_MSG(_T("TODO"));
3565 break;
3566
3567 case _T('%'): // a percent sign
3568 if ( *input++ != _T('%') )
3569 {
3570 // no match
3571 return (wxChar *)NULL;
3572 }
3573 break;
3574
3575 case 0: // the end of string
3576 wxFAIL_MSG(_T("unexpected format end"));
3577
3578 // fall through
3579
3580 default: // not a known format spec
3581 return (wxChar *)NULL;
3582 }
3583 }
3584
3585 // format matched, try to construct a date from what we have now
3586 Tm tmDef;
3587 if ( dateDef.IsValid() )
3588 {
3589 // take this date as default
3590 tmDef = dateDef.GetTm();
3591 }
3592 else if ( IsValid() )
3593 {
3594 // if this date is valid, don't change it
3595 tmDef = GetTm();
3596 }
3597 else
3598 {
3599 // no default and this date is invalid - fall back to Today()
3600 tmDef = Today().GetTm();
3601 }
3602
3603 Tm tm = tmDef;
3604
3605 // set the date
3606 if ( haveYear )
3607 {
3608 tm.year = year;
3609 }
3610
3611 // TODO we don't check here that the values are consistent, if both year
3612 // day and month/day were found, we just ignore the year day and we
3613 // also always ignore the week day
3614 if ( haveMon && haveDay )
3615 {
3616 if ( mday > GetNumOfDaysInMonth(tm.year, mon) )
3617 {
3618 wxLogDebug(_T("bad month day in wxDateTime::ParseFormat"));
3619
3620 return (wxChar *)NULL;
3621 }
3622
3623 tm.mon = mon;
3624 tm.mday = mday;
3625 }
3626 else if ( haveYDay )
3627 {
3628 if ( yday > GetNumberOfDays(tm.year) )
3629 {
3630 wxLogDebug(_T("bad year day in wxDateTime::ParseFormat"));
3631
3632 return (wxChar *)NULL;
3633 }
3634
3635 Tm tm2 = wxDateTime(1, Jan, tm.year).SetToYearDay(yday).GetTm();
3636
3637 tm.mon = tm2.mon;
3638 tm.mday = tm2.mday;
3639 }
3640
3641 // deal with AM/PM
3642 if ( haveHour && hourIsIn12hFormat && isPM )
3643 {
3644 // translate to 24hour format
3645 hour += 12;
3646 }
3647 //else: either already in 24h format or no translation needed
3648
3649 // set the time
3650 if ( haveHour )
3651 {
3652 tm.hour = hour;
3653 }
3654
3655 if ( haveMin )
3656 {
3657 tm.min = min;
3658 }
3659
3660 if ( haveSec )
3661 {
3662 tm.sec = sec;
3663 }
3664
3665 Set(tm);
3666
3667 // finally check that the week day is consistent -- if we had it
3668 if ( haveWDay && GetWeekDay() != wday )
3669 {
3670 wxLogDebug(_T("inconsistsnet week day in wxDateTime::ParseFormat()"));
3671
3672 return NULL;
3673 }
3674
3675 return input;
3676 }
3677
3678 const wxChar *wxDateTime::ParseDateTime(const wxChar *date)
3679 {
3680 wxCHECK_MSG( date, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
3681
3682 // Set to current day and hour, so strings like '14:00' becomes today at
3683 // 14, not some other random date
3684 wxDateTime dtDate = wxDateTime::Today();
3685 wxDateTime dtTime = wxDateTime::Today();
3686
3687 const wxChar* pchTime;
3688
3689 // Try to parse the beginning of the string as a date
3690 const wxChar* pchDate = dtDate.ParseDate(date);
3691
3692 // We got a date in the beginning, see if there is a time specified after the date
3693 if ( pchDate )
3694 {
3695 // Skip spaces, as the ParseTime() function fails on spaces
3696 while ( wxIsspace(*pchDate) )
3697 pchDate++;
3698
3699 pchTime = dtTime.ParseTime(pchDate);
3700 }
3701 else // no date in the beginning
3702 {
3703 // check and see if we have a time followed by a date
3704 pchTime = dtTime.ParseTime(date);
3705 if ( pchTime )
3706 {
3707 while ( wxIsspace(*pchTime) )
3708 pchTime++;
3709
3710 pchDate = dtDate.ParseDate(pchTime);
3711 }
3712 }
3713
3714 // If we have a date specified, set our own data to the same date
3715 if ( !pchDate || !pchTime )
3716 return NULL;
3717
3718 Set(dtDate.GetDay(), dtDate.GetMonth(), dtDate.GetYear(),
3719 dtTime.GetHour(), dtTime.GetMinute(), dtTime.GetSecond(),
3720 dtTime.GetMillisecond());
3721
3722 // Return endpoint of scan
3723 return pchDate > pchTime ? pchDate : pchTime;
3724 }
3725
3726 const wxChar *wxDateTime::ParseDate(const wxChar *date)
3727 {
3728 // this is a simplified version of ParseDateTime() which understands only
3729 // "today" (for wxDate compatibility) and digits only otherwise (and not
3730 // all esoteric constructions ParseDateTime() knows about)
3731
3732 wxCHECK_MSG( date, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
3733
3734 const wxChar *p = date;
3735 while ( wxIsspace(*p) )
3736 p++;
3737
3738 // some special cases
3739 static struct
3740 {
3741 const wxChar *str;
3742 int dayDiffFromToday;
3743 } literalDates[] =
3744 {
3745 { wxTRANSLATE("today"), 0 },
3746 { wxTRANSLATE("yesterday"), -1 },
3747 { wxTRANSLATE("tomorrow"), 1 },
3748 };
3749
3750 for ( size_t n = 0; n < WXSIZEOF(literalDates); n++ )
3751 {
3752 const wxString dateStr = wxGetTranslation(literalDates[n].str);
3753 size_t len = dateStr.length();
3754 if ( wxStrlen(p) >= len )
3755 {
3756 wxString str(p, len);
3757 if ( str.CmpNoCase(dateStr) == 0 )
3758 {
3759 // nothing can follow this, so stop here
3760 p += len;
3761
3762 int dayDiffFromToday = literalDates[n].dayDiffFromToday;
3763 *this = Today();
3764 if ( dayDiffFromToday )
3765 {
3766 *this += wxDateSpan::Days(dayDiffFromToday);
3767 }
3768
3769 return p;
3770 }
3771 }
3772 }
3773
3774 // We try to guess what we have here: for each new (numeric) token, we
3775 // determine if it can be a month, day or a year. Of course, there is an
3776 // ambiguity as some numbers may be days as well as months, so we also
3777 // have the ability to back track.
3778
3779 // what do we have?
3780 bool haveDay = false, // the months day?
3781 haveWDay = false, // the day of week?
3782 haveMon = false, // the month?
3783 haveYear = false; // the year?
3784
3785 // and the value of the items we have (init them to get rid of warnings)
3786 WeekDay wday = Inv_WeekDay;
3787 wxDateTime_t day = 0;
3788 wxDateTime::Month mon = Inv_Month;
3789 int year = 0;
3790
3791 // tokenize the string
3792 size_t nPosCur = 0;
3793 static const wxChar *dateDelimiters = _T(".,/-\t\r\n ");
3794 wxStringTokenizer tok(p, dateDelimiters);
3795 while ( tok.HasMoreTokens() )
3796 {
3797 wxString token = tok.GetNextToken();
3798 if ( !token )
3799 continue;
3800
3801 // is it a number?
3802 unsigned long val;
3803 if ( token.ToULong(&val) )
3804 {
3805 // guess what this number is
3806
3807 bool isDay = false,
3808 isMonth = false,
3809 isYear = false;
3810
3811 if ( !haveMon && val > 0 && val <= 12 )
3812 {
3813 // assume it is month
3814 isMonth = true;
3815 }
3816 else // not the month
3817 {
3818 if ( haveDay )
3819 {
3820 // this can only be the year
3821 isYear = true;
3822 }
3823 else // may be either day or year
3824 {
3825 // use a leap year if we don't have the year yet to allow
3826 // dates like 2/29/1976 which would be rejected otherwise
3827 wxDateTime_t max_days = (wxDateTime_t)(
3828 haveMon
3829 ? GetNumOfDaysInMonth(haveYear ? year : 1976, mon)
3830 : 31
3831 );
3832
3833 // can it be day?
3834 if ( (val == 0) || (val > (unsigned long)max_days) )
3835 {
3836 // no
3837 isYear = true;
3838 }
3839 else // yes, suppose it's the day
3840 {
3841 isDay = true;
3842 }
3843 }
3844 }
3845
3846 if ( isYear )
3847 {
3848 if ( haveYear )
3849 break;
3850
3851 haveYear = true;
3852
3853 year = (wxDateTime_t)val;
3854 }
3855 else if ( isDay )
3856 {
3857 if ( haveDay )
3858 break;
3859
3860 haveDay = true;
3861
3862 day = (wxDateTime_t)val;
3863 }
3864 else if ( isMonth )
3865 {
3866 haveMon = true;
3867
3868 mon = (Month)(val - 1);
3869 }
3870 }
3871 else // not a number
3872 {
3873 // be careful not to overwrite the current mon value
3874 Month mon2 = GetMonthFromName(token, Name_Full | Name_Abbr);
3875 if ( mon2 != Inv_Month )
3876 {
3877 // it's a month
3878 if ( haveMon )
3879 {
3880 // but we already have a month - maybe we guessed wrong?
3881 if ( !haveDay )
3882 {
3883 // no need to check in month range as always < 12, but
3884 // the days are counted from 1 unlike the months
3885 day = (wxDateTime_t)(mon + 1);
3886 haveDay = true;
3887 }
3888 else
3889 {
3890 // could possible be the year (doesn't the year come
3891 // before the month in the japanese format?) (FIXME)
3892 break;
3893 }
3894 }
3895
3896 mon = mon2;
3897
3898 haveMon = true;
3899 }
3900 else // not a valid month name
3901 {
3902 wday = GetWeekDayFromName(token, Name_Full | Name_Abbr);
3903 if ( wday != Inv_WeekDay )
3904 {
3905 // a week day
3906 if ( haveWDay )
3907 {
3908 break;
3909 }
3910
3911 haveWDay = true;
3912 }
3913 else // not a valid weekday name
3914 {
3915 // try the ordinals
3916 static const wxChar *ordinals[] =
3917 {
3918 wxTRANSLATE("first"),
3919 wxTRANSLATE("second"),
3920 wxTRANSLATE("third"),
3921 wxTRANSLATE("fourth"),
3922 wxTRANSLATE("fifth"),
3923 wxTRANSLATE("sixth"),
3924 wxTRANSLATE("seventh"),
3925 wxTRANSLATE("eighth"),
3926 wxTRANSLATE("ninth"),
3927 wxTRANSLATE("tenth"),
3928 wxTRANSLATE("eleventh"),
3929 wxTRANSLATE("twelfth"),
3930 wxTRANSLATE("thirteenth"),
3931 wxTRANSLATE("fourteenth"),
3932 wxTRANSLATE("fifteenth"),
3933 wxTRANSLATE("sixteenth"),
3934 wxTRANSLATE("seventeenth"),
3935 wxTRANSLATE("eighteenth"),
3936 wxTRANSLATE("nineteenth"),
3937 wxTRANSLATE("twentieth"),
3938 // that's enough - otherwise we'd have problems with
3939 // composite (or not) ordinals
3940 };
3941
3942 size_t n;
3943 for ( n = 0; n < WXSIZEOF(ordinals); n++ )
3944 {
3945 if ( token.CmpNoCase(ordinals[n]) == 0 )
3946 {
3947 break;
3948 }
3949 }
3950
3951 if ( n == WXSIZEOF(ordinals) )
3952 {
3953 // stop here - something unknown
3954 break;
3955 }
3956
3957 // it's a day
3958 if ( haveDay )
3959 {
3960 // don't try anything here (as in case of numeric day
3961 // above) - the symbolic day spec should always
3962 // precede the month/year
3963 break;
3964 }
3965
3966 haveDay = true;
3967
3968 day = (wxDateTime_t)(n + 1);
3969 }
3970 }
3971 }
3972
3973 nPosCur = tok.GetPosition();
3974 }
3975
3976 // either no more tokens or the scan was stopped by something we couldn't
3977 // parse - in any case, see if we can construct a date from what we have
3978 if ( !haveDay && !haveWDay )
3979 {
3980 wxLogDebug(_T("ParseDate: no day, no weekday hence no date."));
3981
3982 return NULL;
3983 }
3984
3985 if ( haveWDay && (haveMon || haveYear || haveDay) &&
3986 !(haveDay && haveMon && haveYear) )
3987 {
3988 // without adjectives (which we don't support here) the week day only
3989 // makes sense completely separately or with the full date
3990 // specification (what would "Wed 1999" mean?)
3991 return NULL;
3992 }
3993
3994 if ( !haveWDay && haveYear && !(haveDay && haveMon) )
3995 {
3996 // may be we have month and day instead of day and year?
3997 if ( haveDay && !haveMon )
3998 {
3999 if ( day <= 12 )
4000 {
4001 // exchange day and month
4002 mon = (wxDateTime::Month)(day - 1);
4003
4004 // we're in the current year then
4005 if ( (year > 0) && (year <= (int)GetNumOfDaysInMonth(Inv_Year, mon)) )
4006 {
4007 day = (wxDateTime_t)year;
4008
4009 haveMon = true;
4010 haveYear = false;
4011 }
4012 //else: no, can't exchange, leave haveMon == false
4013 }
4014 }
4015
4016 if ( !haveMon )
4017 {
4018 // if we give the year, month and day must be given too
4019 wxLogDebug(_T("ParseDate: day and month should be specified if year is."));
4020
4021 return NULL;
4022 }
4023 }
4024
4025 if ( !haveMon )
4026 {
4027 mon = GetCurrentMonth();
4028 }
4029
4030 if ( !haveYear )
4031 {
4032 year = GetCurrentYear();
4033 }
4034
4035 if ( haveDay )
4036 {
4037 // normally we check the day above but the check is optimistic in case
4038 // we find the day before its month/year so we have to redo it now
4039 if ( day > GetNumOfDaysInMonth(year, mon) )
4040 return NULL;
4041
4042 Set(day, mon, year);
4043
4044 if ( haveWDay )
4045 {
4046 // check that it is really the same
4047 if ( GetWeekDay() != wday )
4048 {
4049 // inconsistency detected
4050 wxLogDebug(_T("ParseDate: inconsistent day/weekday."));
4051
4052 return (wxChar *)NULL;
4053 }
4054 }
4055 }
4056 else // haveWDay
4057 {
4058 *this = Today();
4059
4060 SetToWeekDayInSameWeek(wday);
4061 }
4062
4063 // return the pointer to the first unparsed char
4064 p += nPosCur;
4065 if ( nPosCur && wxStrchr(dateDelimiters, *(p - 1)) )
4066 {
4067 // if we couldn't parse the token after the delimiter, put back the
4068 // delimiter as well
4069 p--;
4070 }
4071
4072 return p;
4073 }
4074
4075 const wxChar *wxDateTime::ParseTime(const wxChar *time)
4076 {
4077 wxCHECK_MSG( time, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
4078
4079 // first try some extra things
4080 static const struct
4081 {
4082 const wxChar *name;
4083 wxDateTime_t hour;
4084 } stdTimes[] =
4085 {
4086 { wxTRANSLATE("noon"), 12 },
4087 { wxTRANSLATE("midnight"), 00 },
4088 // anything else?
4089 };
4090
4091 for ( size_t n = 0; n < WXSIZEOF(stdTimes); n++ )
4092 {
4093 wxString timeString = wxGetTranslation(stdTimes[n].name);
4094 size_t len = timeString.length();
4095 if ( timeString.CmpNoCase(wxString(time, len)) == 0 )
4096 {
4097 // casts required by DigitalMars
4098 Set(stdTimes[n].hour, wxDateTime_t(0), wxDateTime_t(0));
4099
4100 return time + len;
4101 }
4102 }
4103
4104 // try all time formats we may think about in the order from longest to
4105 // shortest
4106
4107 // 12hour with AM/PM?
4108 const wxChar *result = ParseFormat(time, _T("%I:%M:%S %p"));
4109
4110 if ( !result )
4111 {
4112 // normally, it's the same, but why not try it?
4113 result = ParseFormat(time, _T("%H:%M:%S"));
4114 }
4115
4116 if ( !result )
4117 {
4118 // 12hour with AM/PM but without seconds?
4119 result = ParseFormat(time, _T("%I:%M %p"));
4120 }
4121
4122 if ( !result )
4123 {
4124 // without seconds?
4125 result = ParseFormat(time, _T("%H:%M"));
4126 }
4127
4128 if ( !result )
4129 {
4130 // just the hour and AM/PM?
4131 result = ParseFormat(time, _T("%I %p"));
4132 }
4133
4134 if ( !result )
4135 {
4136 // just the hour?
4137 result = ParseFormat(time, _T("%H"));
4138 }
4139
4140 if ( !result )
4141 {
4142 // parse the standard format: normally it is one of the formats above
4143 // but it may be set to something completely different by the user
4144 result = ParseFormat(time, _T("%X"));
4145 }
4146
4147 // TODO: parse timezones
4148
4149 return result;
4150 }
4151
4152 // ----------------------------------------------------------------------------
4153 // Workdays and holidays support
4154 // ----------------------------------------------------------------------------
4155
4156 bool wxDateTime::IsWorkDay(Country WXUNUSED(country)) const
4157 {
4158 return !wxDateTimeHolidayAuthority::IsHoliday(*this);
4159 }
4160
4161 // ============================================================================
4162 // wxDateSpan
4163 // ============================================================================
4164
4165 wxDateSpan WXDLLIMPEXP_BASE operator*(int n, const wxDateSpan& ds)
4166 {
4167 wxDateSpan ds1(ds);
4168 return ds1.Multiply(n);
4169 }
4170
4171 // ============================================================================
4172 // wxTimeSpan
4173 // ============================================================================
4174
4175 wxTimeSpan WXDLLIMPEXP_BASE operator*(int n, const wxTimeSpan& ts)
4176 {
4177 return wxTimeSpan(ts).Multiply(n);
4178 }
4179
4180 // this enum is only used in wxTimeSpan::Format() below but we can't declare
4181 // it locally to the method as it provokes an internal compiler error in egcs
4182 // 2.91.60 when building with -O2
4183 enum TimeSpanPart
4184 {
4185 Part_Week,
4186 Part_Day,
4187 Part_Hour,
4188 Part_Min,
4189 Part_Sec,
4190 Part_MSec
4191 };
4192
4193 // not all strftime(3) format specifiers make sense here because, for example,
4194 // a time span doesn't have a year nor a timezone
4195 //
4196 // Here are the ones which are supported (all of them are supported by strftime
4197 // as well):
4198 // %H hour in 24 hour format
4199 // %M minute (00 - 59)
4200 // %S second (00 - 59)
4201 // %% percent sign
4202 //
4203 // Also, for MFC CTimeSpan compatibility, we support
4204 // %D number of days
4205 //
4206 // And, to be better than MFC :-), we also have
4207 // %E number of wEeks
4208 // %l milliseconds (000 - 999)
4209 wxString wxTimeSpan::Format(const wxChar *format) const
4210 {
4211 wxCHECK_MSG( format, wxEmptyString, _T("NULL format in wxTimeSpan::Format") );
4212
4213 wxString str;
4214 str.Alloc(wxStrlen(format));
4215
4216 // Suppose we have wxTimeSpan ts(1 /* hour */, 2 /* min */, 3 /* sec */)
4217 //
4218 // Then, of course, ts.Format("%H:%M:%S") must return "01:02:03", but the
4219 // question is what should ts.Format("%S") do? The code here returns "3273"
4220 // in this case (i.e. the total number of seconds, not just seconds % 60)
4221 // because, for me, this call means "give me entire time interval in
4222 // seconds" and not "give me the seconds part of the time interval"
4223 //
4224 // If we agree that it should behave like this, it is clear that the
4225 // interpretation of each format specifier depends on the presence of the
4226 // other format specs in the string: if there was "%H" before "%M", we
4227 // should use GetMinutes() % 60, otherwise just GetMinutes() &c
4228
4229 // we remember the most important unit found so far
4230 TimeSpanPart partBiggest = Part_MSec;
4231
4232 for ( const wxChar *pch = format; *pch; pch++ )
4233 {
4234 wxChar ch = *pch;
4235
4236 if ( ch == _T('%') )
4237 {
4238 // the start of the format specification of the printf() below
4239 wxString fmtPrefix(_T('%'));
4240
4241 // the number
4242 long n;
4243
4244 // the number of digits for the format string, 0 if unused
4245 unsigned digits = 0;
4246
4247 ch = *++pch; // get the format spec char
4248 switch ( ch )
4249 {
4250 default:
4251 wxFAIL_MSG( _T("invalid format character") );
4252 // fall through
4253
4254 case _T('%'):
4255 str += ch;
4256
4257 // skip the part below switch
4258 continue;
4259
4260 case _T('D'):
4261 n = GetDays();
4262 if ( partBiggest < Part_Day )
4263 {
4264 n %= DAYS_PER_WEEK;
4265 }
4266 else
4267 {
4268 partBiggest = Part_Day;
4269 }
4270 break;
4271
4272 case _T('E'):
4273 partBiggest = Part_Week;
4274 n = GetWeeks();
4275 break;
4276
4277 case _T('H'):
4278 n = GetHours();
4279 if ( partBiggest < Part_Hour )
4280 {
4281 if ( n < 0 )
4282 {
4283 // the sign has already been taken into account
4284 // when outputting the biggest part
4285 n = -n;
4286 }
4287
4288 n %= HOURS_PER_DAY;
4289 }
4290 else
4291 {
4292 partBiggest = Part_Hour;
4293 }
4294
4295 digits = 2;
4296 break;
4297
4298 case _T('l'):
4299 n = GetMilliseconds().ToLong();
4300 if ( partBiggest < Part_MSec )
4301 {
4302 if ( n < 0 )
4303 n = -n;
4304
4305 n %= 1000;
4306 }
4307 //else: no need to reset partBiggest to Part_MSec, it is
4308 // the least significant one anyhow
4309
4310 digits = 3;
4311 break;
4312
4313 case _T('M'):
4314 n = GetMinutes();
4315 if ( partBiggest < Part_Min )
4316 {
4317 if ( n < 0 )
4318 n = -n;
4319
4320 n %= MIN_PER_HOUR;
4321 }
4322 else
4323 {
4324 partBiggest = Part_Min;
4325 }
4326
4327 digits = 2;
4328 break;
4329
4330 case _T('S'):
4331 n = GetSeconds().ToLong();
4332 if ( partBiggest < Part_Sec )
4333 {
4334 if ( n < 0 )
4335 n = -n;
4336
4337 n %= SEC_PER_MIN;
4338 }
4339 else
4340 {
4341 partBiggest = Part_Sec;
4342 }
4343
4344 digits = 2;
4345 break;
4346 }
4347
4348 if ( digits )
4349 {
4350 // negative numbers need one extra position for '-' display
4351 if ( n < 0 )
4352 digits++;
4353
4354 fmtPrefix << _T("0") << digits;
4355 }
4356
4357 str += wxString::Format(fmtPrefix + _T("ld"), n);
4358 }
4359 else
4360 {
4361 // normal character, just copy
4362 str += ch;
4363 }
4364 }
4365
4366 return str;
4367 }
4368
4369 // ============================================================================
4370 // wxDateTimeHolidayAuthority and related classes
4371 // ============================================================================
4372
4373 #include "wx/arrimpl.cpp"
4374
4375 WX_DEFINE_OBJARRAY(wxDateTimeArray)
4376
4377 static int wxCMPFUNC_CONV
4378 wxDateTimeCompareFunc(wxDateTime **first, wxDateTime **second)
4379 {
4380 wxDateTime dt1 = **first,
4381 dt2 = **second;
4382
4383 return dt1 == dt2 ? 0 : dt1 < dt2 ? -1 : +1;
4384 }
4385
4386 // ----------------------------------------------------------------------------
4387 // wxDateTimeHolidayAuthority
4388 // ----------------------------------------------------------------------------
4389
4390 wxHolidayAuthoritiesArray wxDateTimeHolidayAuthority::ms_authorities;
4391
4392 /* static */
4393 bool wxDateTimeHolidayAuthority::IsHoliday(const wxDateTime& dt)
4394 {
4395 size_t count = ms_authorities.size();
4396 for ( size_t n = 0; n < count; n++ )
4397 {
4398 if ( ms_authorities[n]->DoIsHoliday(dt) )
4399 {
4400 return true;
4401 }
4402 }
4403
4404 return false;
4405 }
4406
4407 /* static */
4408 size_t
4409 wxDateTimeHolidayAuthority::GetHolidaysInRange(const wxDateTime& dtStart,
4410 const wxDateTime& dtEnd,
4411 wxDateTimeArray& holidays)
4412 {
4413 wxDateTimeArray hol;
4414
4415 holidays.Clear();
4416
4417 const size_t countAuth = ms_authorities.size();
4418 for ( size_t nAuth = 0; nAuth < countAuth; nAuth++ )
4419 {
4420 ms_authorities[nAuth]->DoGetHolidaysInRange(dtStart, dtEnd, hol);
4421
4422 WX_APPEND_ARRAY(holidays, hol);
4423 }
4424
4425 holidays.Sort(wxDateTimeCompareFunc);
4426
4427 return holidays.size();
4428 }
4429
4430 /* static */
4431 void wxDateTimeHolidayAuthority::ClearAllAuthorities()
4432 {
4433 WX_CLEAR_ARRAY(ms_authorities);
4434 }
4435
4436 /* static */
4437 void wxDateTimeHolidayAuthority::AddAuthority(wxDateTimeHolidayAuthority *auth)
4438 {
4439 ms_authorities.push_back(auth);
4440 }
4441
4442 wxDateTimeHolidayAuthority::~wxDateTimeHolidayAuthority()
4443 {
4444 // required here for Darwin
4445 }
4446
4447 // ----------------------------------------------------------------------------
4448 // wxDateTimeWorkDays
4449 // ----------------------------------------------------------------------------
4450
4451 bool wxDateTimeWorkDays::DoIsHoliday(const wxDateTime& dt) const
4452 {
4453 wxDateTime::WeekDay wd = dt.GetWeekDay();
4454
4455 return (wd == wxDateTime::Sun) || (wd == wxDateTime::Sat);
4456 }
4457
4458 size_t wxDateTimeWorkDays::DoGetHolidaysInRange(const wxDateTime& dtStart,
4459 const wxDateTime& dtEnd,
4460 wxDateTimeArray& holidays) const
4461 {
4462 if ( dtStart > dtEnd )
4463 {
4464 wxFAIL_MSG( _T("invalid date range in GetHolidaysInRange") );
4465
4466 return 0u;
4467 }
4468
4469 holidays.Empty();
4470
4471 // instead of checking all days, start with the first Sat after dtStart and
4472 // end with the last Sun before dtEnd
4473 wxDateTime dtSatFirst = dtStart.GetNextWeekDay(wxDateTime::Sat),
4474 dtSatLast = dtEnd.GetPrevWeekDay(wxDateTime::Sat),
4475 dtSunFirst = dtStart.GetNextWeekDay(wxDateTime::Sun),
4476 dtSunLast = dtEnd.GetPrevWeekDay(wxDateTime::Sun),
4477 dt;
4478
4479 for ( dt = dtSatFirst; dt <= dtSatLast; dt += wxDateSpan::Week() )
4480 {
4481 holidays.Add(dt);
4482 }
4483
4484 for ( dt = dtSunFirst; dt <= dtSunLast; dt += wxDateSpan::Week() )
4485 {
4486 holidays.Add(dt);
4487 }
4488
4489 return holidays.GetCount();
4490 }
4491
4492 // ============================================================================
4493 // other helper functions
4494 // ============================================================================
4495
4496 // ----------------------------------------------------------------------------
4497 // iteration helpers: can be used to write a for loop over enum variable like
4498 // this:
4499 // for ( m = wxDateTime::Jan; m < wxDateTime::Inv_Month; wxNextMonth(m) )
4500 // ----------------------------------------------------------------------------
4501
4502 WXDLLIMPEXP_BASE void wxNextMonth(wxDateTime::Month& m)
4503 {
4504 wxASSERT_MSG( m < wxDateTime::Inv_Month, _T("invalid month") );
4505
4506 // no wrapping or the for loop above would never end!
4507 m = (wxDateTime::Month)(m + 1);
4508 }
4509
4510 WXDLLIMPEXP_BASE void wxPrevMonth(wxDateTime::Month& m)
4511 {
4512 wxASSERT_MSG( m < wxDateTime::Inv_Month, _T("invalid month") );
4513
4514 m = m == wxDateTime::Jan ? wxDateTime::Inv_Month
4515 : (wxDateTime::Month)(m - 1);
4516 }
4517
4518 WXDLLIMPEXP_BASE void wxNextWDay(wxDateTime::WeekDay& wd)
4519 {
4520 wxASSERT_MSG( wd < wxDateTime::Inv_WeekDay, _T("invalid week day") );
4521
4522 // no wrapping or the for loop above would never end!
4523 wd = (wxDateTime::WeekDay)(wd + 1);
4524 }
4525
4526 WXDLLIMPEXP_BASE void wxPrevWDay(wxDateTime::WeekDay& wd)
4527 {
4528 wxASSERT_MSG( wd < wxDateTime::Inv_WeekDay, _T("invalid week day") );
4529
4530 wd = wd == wxDateTime::Sun ? wxDateTime::Inv_WeekDay
4531 : (wxDateTime::WeekDay)(wd - 1);
4532 }
4533
4534 #endif // wxUSE_DATETIME