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