src/common/datetimefmt.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/common/datetimefmt.cpp
   3 // Purpose:     wxDateTime formatting & parsing code
   4 // Author:      Vadim Zeitlin
   5 // Modified by:
   6 // Created:     11.05.99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 1999 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
   9 //              parts of code taken from sndcal library by Scott E. Lee:
  10 //
  11 //               Copyright 1993-1995, Scott E. Lee, all rights reserved.
  12 //               Permission granted to use, copy, modify, distribute and sell
  13 //               so long as the above copyright and this permission statement
  14 //               are retained in all copies.
  15 //
  16 // Licence:     wxWindows licence
  17 ///////////////////////////////////////////////////////////////////////////////
  18
  19 // ============================================================================
  20 // declarations
  21 // ============================================================================
  22
  23 // ----------------------------------------------------------------------------
  24 // headers
  25 // ----------------------------------------------------------------------------
  26
  27 // For compilers that support precompilation, includes "wx.h".
  28 #include "wx/wxprec.h"
  29
  30 #ifdef __BORLANDC__
  31     #pragma hdrstop
  32 #endif
  33
  34 #if !defined(wxUSE_DATETIME) || wxUSE_DATETIME
  35
  36 #ifndef WX_PRECOMP
  37     #ifdef __WXMSW__
  38         #include "wx/msw/wrapwin.h"
  39     #endif
  40     #include "wx/string.h"
  41     #include "wx/log.h"
  42     #include "wx/intl.h"
  43     #include "wx/stopwatch.h"           // for wxGetLocalTimeMillis()
  44     #include "wx/module.h"
  45     #include "wx/crt.h"
  46 #endif // WX_PRECOMP
  47
  48 #include "wx/thread.h"
  49
  50 #include <ctype.h>
  51
  52 #ifdef __WINDOWS__
  53     #include <winnls.h>
  54     #ifndef __WXWINCE__
  55         #include <locale.h>
  56     #endif
  57 #endif
  58
  59 #include "wx/datetime.h"
  60
  61 // ============================================================================
  62 // implementation of wxDateTime
  63 // ============================================================================
  64
  65 // ----------------------------------------------------------------------------
  66 // helpers shared between datetime.cpp and datetimefmt.cpp
  67 // ----------------------------------------------------------------------------
  68
  69 extern void InitTm(struct tm& tm);
  70
  71 extern int GetTimeZone();
  72
  73 extern wxString CallStrftime(const wxString& format, const tm* tm);
  74
  75 // ----------------------------------------------------------------------------
  76 // constants (see also datetime.cpp)
  77 // ----------------------------------------------------------------------------
  78
  79 static const int DAYS_PER_WEEK = 7;
  80
  81 static const int HOURS_PER_DAY = 24;
  82
  83 static const int SEC_PER_MIN = 60;
  84
  85 static const int MIN_PER_HOUR = 60;
  86
  87 // ----------------------------------------------------------------------------
  88 // parsing helpers
  89 // ----------------------------------------------------------------------------
  90
  91 namespace
  92 {
  93
  94 // all the functions below taking non-const wxString::const_iterator p advance
  95 // it until the end of the match
  96
  97 // scans all digits (but no more than len) and returns the resulting number
  98 bool GetNumericToken(size_t len,
  99                      wxString::const_iterator& p,
 100                      const wxString::const_iterator& end,
 101                      unsigned long *number)
 102 {
 103     size_t n = 1;
 104     wxString s;
 105     while ( p != end && wxIsdigit(*p) )
 106     {
 107         s += *p++;
 108
 109         if ( len && ++n > len )
 110             break;
 111     }
 112
 113     return !s.empty() && s.ToULong(number);
 114 }
 115
 116 // scans all alphabetic characters and returns the resulting string
 117 wxString
 118 GetAlphaToken(wxString::const_iterator& p,
 119               const wxString::const_iterator& end)
 120 {
 121     wxString s;
 122     while ( p != end && wxIsalpha(*p) )
 123     {
 124         s += *p++;
 125     }
 126
 127     return s;
 128 }
 129
 130 enum
 131 {
 132     DateLang_English = 1,
 133     DateLang_Local   = 2
 134 };
 135
 136 // return the month if the string is a month name or Inv_Month otherwise
 137 //
 138 // flags can contain wxDateTime::Name_Abbr/Name_Full or both of them and lang
 139 // can be either DateLang_Local (default) to interpret string as a localized
 140 // month name or DateLang_English to parse it as a standard English name or
 141 // their combination to interpret it in any way
 142 wxDateTime::Month
 143 GetMonthFromName(wxString::const_iterator& p,
 144                  const wxString::const_iterator& end,
 145                  int flags,
 146                  int lang)
 147 {
 148     const wxString::const_iterator pOrig = p;
 149     const wxString name = GetAlphaToken(p, end);
 150     if ( name.empty() )
 151         return wxDateTime::Inv_Month;
 152
 153     wxDateTime::Month mon;
 154     for ( mon = wxDateTime::Jan; mon < wxDateTime::Inv_Month; wxNextMonth(mon) )
 155     {
 156         // case-insensitive comparison either one of or with both abbreviated
 157         // and not versions
 158         if ( flags & wxDateTime::Name_Full )
 159         {
 160             if ( lang & DateLang_English )
 161             {
 162                 if ( name.CmpNoCase(wxDateTime::GetEnglishMonthName(mon,
 163                         wxDateTime::Name_Full)) == 0 )
 164                     break;
 165             }
 166
 167             if ( lang & DateLang_Local )
 168             {
 169                 if ( name.CmpNoCase(wxDateTime::GetMonthName(mon,
 170                         wxDateTime::Name_Full)) == 0 )
 171                     break;
 172             }
 173         }
 174
 175         if ( flags & wxDateTime::Name_Abbr )
 176         {
 177             if ( lang & DateLang_English )
 178             {
 179                 if ( name.CmpNoCase(wxDateTime::GetEnglishMonthName(mon,
 180                         wxDateTime::Name_Abbr)) == 0 )
 181                     break;
 182             }
 183
 184             if ( lang & DateLang_Local )
 185             {
 186                 // some locales (e.g. French one) use periods for the
 187                 // abbreviated month names but it's never part of name so
 188                 // compare it specially
 189                 wxString nameAbbr = wxDateTime::GetMonthName(mon,
 190                     wxDateTime::Name_Abbr);
 191                 const bool hasPeriod = *nameAbbr.rbegin() == '.';
 192                 if ( hasPeriod )
 193                     nameAbbr.erase(nameAbbr.end() - 1);
 194
 195                 if ( name.CmpNoCase(nameAbbr) == 0 )
 196                 {
 197                     if ( hasPeriod )
 198                     {
 199                         // skip trailing period if it was part of the match
 200                         if ( *p == '.' )
 201                             ++p;
 202                         else // no match as no matching period
 203                             continue;
 204                     }
 205
 206                     break;
 207                 }
 208             }
 209         }
 210     }
 211
 212     if ( mon == wxDateTime::Inv_Month )
 213         p = pOrig;
 214
 215     return mon;
 216 }
 217
 218 // return the weekday if the string is a weekday name or Inv_WeekDay otherwise
 219 //
 220 // flags and lang parameters have the same meaning as for GetMonthFromName()
 221 // above
 222 wxDateTime::WeekDay
 223 GetWeekDayFromName(wxString::const_iterator& p,
 224                    const wxString::const_iterator& end,
 225                    int flags, int lang)
 226 {
 227     const wxString::const_iterator pOrig = p;
 228     const wxString name = GetAlphaToken(p, end);
 229     if ( name.empty() )
 230         return wxDateTime::Inv_WeekDay;
 231
 232     wxDateTime::WeekDay wd;
 233     for ( wd = wxDateTime::Sun; wd < wxDateTime::Inv_WeekDay; wxNextWDay(wd) )
 234     {
 235         if ( flags & wxDateTime::Name_Full )
 236         {
 237             if ( lang & DateLang_English )
 238             {
 239                 if ( name.CmpNoCase(wxDateTime::GetEnglishWeekDayName(wd,
 240                         wxDateTime::Name_Full)) == 0 )
 241                     break;
 242             }
 243
 244             if ( lang & DateLang_Local )
 245             {
 246                 if ( name.CmpNoCase(wxDateTime::GetWeekDayName(wd,
 247                         wxDateTime::Name_Full)) == 0 )
 248                     break;
 249             }
 250         }
 251
 252         if ( flags & wxDateTime::Name_Abbr )
 253         {
 254             if ( lang & DateLang_English )
 255             {
 256                 if ( name.CmpNoCase(wxDateTime::GetEnglishWeekDayName(wd,
 257                         wxDateTime::Name_Abbr)) == 0 )
 258                     break;
 259             }
 260
 261             if ( lang & DateLang_Local )
 262             {
 263                 if ( name.CmpNoCase(wxDateTime::GetWeekDayName(wd,
 264                         wxDateTime::Name_Abbr)) == 0 )
 265                     break;
 266             }
 267         }
 268     }
 269
 270     if ( wd == wxDateTime::Inv_WeekDay )
 271         p = pOrig;
 272
 273     return wd;
 274 }
 275
 276 // parses string starting at given iterator using the specified format and,
 277 // optionally, a fall back format (and optionally another one... but it stops
 278 // there, really)
 279 //
 280 // if unsuccessful, returns invalid wxDateTime without changing p; otherwise
 281 // advance p to the end of the match and returns wxDateTime containing the
 282 // results of the parsing
 283 wxDateTime
 284 ParseFormatAt(wxString::const_iterator& p,
 285               const wxString::const_iterator& end,
 286               const wxString& fmt,
 287               // FIXME-VC6: using wxString() instead of wxEmptyString in the
 288               //            line below results in error C2062: type 'class
 289               //            wxString (__cdecl *)(void)' unexpected
 290               const wxString& fmtAlt = wxEmptyString)
 291 {
 292     const wxString str(p, end);
 293     wxString::const_iterator endParse;
 294     wxDateTime dt;
 295     if ( dt.ParseFormat(str, fmt, &endParse) ||
 296             (!fmtAlt.empty() && dt.ParseFormat(str, fmtAlt, &endParse)) )
 297     {
 298         p += endParse - str.begin();
 299     }
 300     //else: all formats failed
 301
 302     return dt;
 303 }
 304
 305 } // anonymous namespace
 306
 307 // ----------------------------------------------------------------------------
 308 // wxDateTime to/from text representations
 309 // ----------------------------------------------------------------------------
 310
 311 wxString wxDateTime::Format(const wxString& formatp, const TimeZone& tz) const
 312 {
 313     wxCHECK_MSG( !formatp.empty(), wxEmptyString,
 314                  wxT("NULL format in wxDateTime::Format") );
 315
 316     wxString format = formatp;
 317 #ifdef __WXOSX__
 318     format.Replace("%c",wxLocale::GetInfo(wxLOCALE_DATE_TIME_FMT));
 319     format.Replace("%x",wxLocale::GetInfo(wxLOCALE_SHORT_DATE_FMT));
 320     format.Replace("%X",wxLocale::GetInfo(wxLOCALE_TIME_FMT));
 321 #endif
 322     // we have to use our own implementation if the date is out of range of
 323     // strftime() or if we use non standard specificators
 324 #ifdef wxHAS_STRFTIME
 325     time_t time = GetTicks();
 326
 327     if ( (time != (time_t)-1) && !wxStrstr(format, wxT("%l")) )
 328     {
 329         // use strftime()
 330         struct tm tmstruct;
 331         struct tm *tm;
 332         if ( tz.GetOffset() == -GetTimeZone() )
 333         {
 334             // we are working with local time
 335             tm = wxLocaltime_r(&time, &tmstruct);
 336
 337             // should never happen
 338             wxCHECK_MSG( tm, wxEmptyString, wxT("wxLocaltime_r() failed") );
 339         }
 340         else
 341         {
 342             time += (int)tz.GetOffset();
 343
 344 #if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
 345             int time2 = (int) time;
 346             if ( time2 >= 0 )
 347 #else
 348             if ( time >= 0 )
 349 #endif
 350             {
 351                 tm = wxGmtime_r(&time, &tmstruct);
 352
 353                 // should never happen
 354                 wxCHECK_MSG( tm, wxEmptyString, wxT("wxGmtime_r() failed") );
 355             }
 356             else
 357             {
 358                 tm = (struct tm *)NULL;
 359             }
 360         }
 361
 362         if ( tm )
 363         {
 364             return CallStrftime(format, tm);
 365         }
 366     }
 367     //else: use generic code below
 368 #endif // wxHAS_STRFTIME
 369
 370     // we only parse ANSI C format specifications here, no POSIX 2
 371     // complications, no GNU extensions but we do add support for a "%l" format
 372     // specifier allowing to get the number of milliseconds
 373     Tm tm = GetTm(tz);
 374
 375     // used for calls to strftime() when we only deal with time
 376     struct tm tmTimeOnly;
 377     tmTimeOnly.tm_hour = tm.hour;
 378     tmTimeOnly.tm_min = tm.min;
 379     tmTimeOnly.tm_sec = tm.sec;
 380     tmTimeOnly.tm_wday = 0;
 381     tmTimeOnly.tm_yday = 0;
 382     tmTimeOnly.tm_mday = 1;         // any date will do
 383     tmTimeOnly.tm_mon = 0;
 384     tmTimeOnly.tm_year = 76;
 385     tmTimeOnly.tm_isdst = 0;        // no DST, we adjust for tz ourselves
 386
 387     wxString tmp, res, fmt;
 388     for ( wxString::const_iterator p = format.begin(); p != format.end(); ++p )
 389     {
 390         if ( *p != wxT('%') )
 391         {
 392             // copy as is
 393             res += *p;
 394
 395             continue;
 396         }
 397
 398         // set the default format
 399         switch ( (*++p).GetValue() )
 400         {
 401             case wxT('Y'):               // year has 4 digits
 402                 fmt = wxT("%04d");
 403                 break;
 404
 405             case wxT('j'):               // day of year has 3 digits
 406             case wxT('l'):               // milliseconds have 3 digits
 407                 fmt = wxT("%03d");
 408                 break;
 409
 410             case wxT('w'):               // week day as number has only one
 411                 fmt = wxT("%d");
 412                 break;
 413
 414             default:
 415                 // it's either another valid format specifier in which case
 416                 // the format is "%02d" (for all the rest) or we have the
 417                 // field width preceding the format in which case it will
 418                 // override the default format anyhow
 419                 fmt = wxT("%02d");
 420         }
 421
 422         bool restart = true;
 423         while ( restart )
 424         {
 425             restart = false;
 426
 427             // start of the format specification
 428             switch ( (*p).GetValue() )
 429             {
 430                 case wxT('a'):       // a weekday name
 431                 case wxT('A'):
 432                     // second parameter should be true for abbreviated names
 433                     res += GetWeekDayName(tm.GetWeekDay(),
 434                                           *p == wxT('a') ? Name_Abbr : Name_Full);
 435                     break;
 436
 437                 case wxT('b'):       // a month name
 438                 case wxT('B'):
 439                     res += GetMonthName(tm.mon,
 440                                         *p == wxT('b') ? Name_Abbr : Name_Full);
 441                     break;
 442
 443                 case wxT('c'):       // locale default date and time  representation
 444                 case wxT('x'):       // locale default date representation
 445 #ifdef wxHAS_STRFTIME
 446                     //
 447                     // the problem: there is no way to know what do these format
 448                     // specifications correspond to for the current locale.
 449                     //
 450                     // the solution: use a hack and still use strftime(): first
 451                     // find the YEAR which is a year in the strftime() range (1970
 452                     // - 2038) whose Jan 1 falls on the same week day as the Jan 1
 453                     // of the real year. Then make a copy of the format and
 454                     // replace all occurrences of YEAR in it with some unique
 455                     // string not appearing anywhere else in it, then use
 456                     // strftime() to format the date in year YEAR and then replace
 457                     // YEAR back by the real year and the unique replacement
 458                     // string back with YEAR. Notice that "all occurrences of YEAR"
 459                     // means all occurrences of 4 digit as well as 2 digit form!
 460                     //
 461                     // the bugs: we assume that neither of %c nor %x contains any
 462                     // fields which may change between the YEAR and real year. For
 463                     // example, the week number (%U, %W) and the day number (%j)
 464                     // will change if one of these years is leap and the other one
 465                     // is not!
 466                     {
 467                         // find the YEAR: normally, for any year X, Jan 1 of the
 468                         // year X + 28 is the same weekday as Jan 1 of X (because
 469                         // the weekday advances by 1 for each normal X and by 2
 470                         // for each leap X, hence by 5 every 4 years or by 35
 471                         // which is 0 mod 7 every 28 years) but this rule breaks
 472                         // down if there are years between X and Y which are
 473                         // divisible by 4 but not leap (i.e. divisible by 100 but
 474                         // not 400), hence the correction.
 475
 476                         int yearReal = GetYear(tz);
 477                         int mod28 = yearReal % 28;
 478
 479                         // be careful to not go too far - we risk to leave the
 480                         // supported range
 481                         int year;
 482                         if ( mod28 < 10 )
 483                         {
 484                             year = 1988 + mod28;      // 1988 == 0 (mod 28)
 485                         }
 486                         else
 487                         {
 488                             year = 1970 + mod28 - 10; // 1970 == 10 (mod 28)
 489                         }
 490
 491                         int nCentury = year / 100,
 492                             nCenturyReal = yearReal / 100;
 493
 494                         // need to adjust for the years divisble by 400 which are
 495                         // not leap but are counted like leap ones if we just take
 496                         // the number of centuries in between for nLostWeekDays
 497                         int nLostWeekDays = (nCentury - nCenturyReal) -
 498                                             (nCentury / 4 - nCenturyReal / 4);
 499
 500                         // we have to gain back the "lost" weekdays: note that the
 501                         // effect of this loop is to not do anything to
 502                         // nLostWeekDays (which we won't use any more), but to
 503                         // (indirectly) set the year correctly
 504                         while ( (nLostWeekDays % 7) != 0 )
 505                         {
 506                             nLostWeekDays += year++ % 4 ? 1 : 2;
 507                         }
 508
 509                         // finally move the year below 2000 so that the 2-digit
 510                         // year number can never match the month or day of the
 511                         // month when we do the replacements below
 512                         if ( year >= 2000 )
 513                             year -= 28;
 514
 515                         wxASSERT_MSG( year >= 1970 && year < 2000,
 516                                       wxT("logic error in wxDateTime::Format") );
 517
 518
 519                         // use strftime() to format the same date but in supported
 520                         // year
 521                         //
 522                         // NB: we assume that strftime() doesn't check for the
 523                         //     date validity and will happily format the date
 524                         //     corresponding to Feb 29 of a non leap year (which
 525                         //     may happen if yearReal was leap and year is not)
 526                         struct tm tmAdjusted;
 527                         InitTm(tmAdjusted);
 528                         tmAdjusted.tm_hour = tm.hour;
 529                         tmAdjusted.tm_min = tm.min;
 530                         tmAdjusted.tm_sec = tm.sec;
 531                         tmAdjusted.tm_wday = tm.GetWeekDay();
 532                         tmAdjusted.tm_yday = GetDayOfYear();
 533                         tmAdjusted.tm_mday = tm.mday;
 534                         tmAdjusted.tm_mon = tm.mon;
 535                         tmAdjusted.tm_year = year - 1900;
 536                         tmAdjusted.tm_isdst = 0; // no DST, already adjusted
 537                         wxString str = CallStrftime(*p == wxT('c') ? wxT("%c")
 538                                                                   : wxT("%x"),
 539                                                     &tmAdjusted);
 540
 541                         // now replace the replacement year with the real year:
 542                         // notice that we have to replace the 4 digit year with
 543                         // a unique string not appearing in strftime() output
 544                         // first to prevent the 2 digit year from matching any
 545                         // substring of the 4 digit year (but any day, month,
 546                         // hours or minutes components should be safe because
 547                         // they are never in 70-99 range)
 548                         wxString replacement("|");
 549                         while ( str.find(replacement) != wxString::npos )
 550                             replacement += '|';
 551
 552                         str.Replace(wxString::Format("%d", year),
 553                                     replacement);
 554                         str.Replace(wxString::Format("%d", year % 100),
 555                                     wxString::Format("%d", yearReal % 100));
 556                         str.Replace(replacement,
 557                                     wxString::Format("%d", yearReal));
 558
 559                         res += str;
 560                     }
 561 #else // !wxHAS_STRFTIME
 562                     // Use "%m/%d/%y %H:%M:%S" format instead
 563                     res += wxString::Format(wxT("%02d/%02d/%04d %02d:%02d:%02d"),
 564                             tm.mon+1,tm.mday, tm.year, tm.hour, tm.min, tm.sec);
 565 #endif // wxHAS_STRFTIME/!wxHAS_STRFTIME
 566                     break;
 567
 568                 case wxT('d'):       // day of a month (01-31)
 569                     res += wxString::Format(fmt, tm.mday);
 570                     break;
 571
 572                 case wxT('H'):       // hour in 24h format (00-23)
 573                     res += wxString::Format(fmt, tm.hour);
 574                     break;
 575
 576                 case wxT('I'):       // hour in 12h format (01-12)
 577                     {
 578                         // 24h -> 12h, 0h -> 12h too
 579                         int hour12 = tm.hour > 12 ? tm.hour - 12
 580                                                   : tm.hour ? tm.hour : 12;
 581                         res += wxString::Format(fmt, hour12);
 582                     }
 583                     break;
 584
 585                 case wxT('j'):       // day of the year
 586                     res += wxString::Format(fmt, GetDayOfYear(tz));
 587                     break;
 588
 589                 case wxT('l'):       // milliseconds (NOT STANDARD)
 590                     res += wxString::Format(fmt, GetMillisecond(tz));
 591                     break;
 592
 593                 case wxT('m'):       // month as a number (01-12)
 594                     res += wxString::Format(fmt, tm.mon + 1);
 595                     break;
 596
 597                 case wxT('M'):       // minute as a decimal number (00-59)
 598                     res += wxString::Format(fmt, tm.min);
 599                     break;
 600
 601                 case wxT('p'):       // AM or PM string
 602 #ifdef wxHAS_STRFTIME
 603                     res += CallStrftime(wxT("%p"), &tmTimeOnly);
 604 #else // !wxHAS_STRFTIME
 605                     res += (tmTimeOnly.tm_hour > 12) ? wxT("pm") : wxT("am");
 606 #endif // wxHAS_STRFTIME/!wxHAS_STRFTIME
 607                     break;
 608
 609                 case wxT('S'):       // second as a decimal number (00-61)
 610                     res += wxString::Format(fmt, tm.sec);
 611                     break;
 612
 613                 case wxT('U'):       // week number in the year (Sunday 1st week day)
 614                     res += wxString::Format(fmt, GetWeekOfYear(Sunday_First, tz));
 615                     break;
 616
 617                 case wxT('W'):       // week number in the year (Monday 1st week day)
 618                     res += wxString::Format(fmt, GetWeekOfYear(Monday_First, tz));
 619                     break;
 620
 621                 case wxT('w'):       // weekday as a number (0-6), Sunday = 0
 622                     res += wxString::Format(fmt, tm.GetWeekDay());
 623                     break;
 624
 625                 // case wxT('x'): -- handled with "%c"
 626
 627                 case wxT('X'):       // locale default time representation
 628                     // just use strftime() to format the time for us
 629 #ifdef wxHAS_STRFTIME
 630                     res += CallStrftime(wxT("%X"), &tmTimeOnly);
 631 #else // !wxHAS_STRFTIME
 632                     res += wxString::Format(wxT("%02d:%02d:%02d"),tm.hour, tm.min, tm.sec);
 633 #endif // wxHAS_STRFTIME/!wxHAS_STRFTIME
 634                     break;
 635
 636                 case wxT('y'):       // year without century (00-99)
 637                     res += wxString::Format(fmt, tm.year % 100);
 638                     break;
 639
 640                 case wxT('Y'):       // year with century
 641                     res += wxString::Format(fmt, tm.year);
 642                     break;
 643
 644                 case wxT('Z'):       // timezone name
 645 #ifdef wxHAS_STRFTIME
 646                     res += CallStrftime(wxT("%Z"), &tmTimeOnly);
 647 #endif
 648                     break;
 649
 650                 default:
 651                     // is it the format width?
 652                     fmt.Empty();
 653                     while ( *p == wxT('-') || *p == wxT('+') ||
 654                             *p == wxT(' ') || wxIsdigit(*p) )
 655                     {
 656                         fmt += *p;
 657                     }
 658
 659                     if ( !fmt.empty() )
 660                     {
 661                         // we've only got the flags and width so far in fmt
 662                         fmt.Prepend(wxT('%'));
 663                         fmt.Append(wxT('d'));
 664
 665                         restart = true;
 666
 667                         break;
 668                     }
 669
 670                     // no, it wasn't the width
 671                     wxFAIL_MSG(wxT("unknown format specificator"));
 672
 673                     // fall through and just copy it nevertheless
 674
 675                 case wxT('%'):       // a percent sign
 676                     res += *p;
 677                     break;
 678
 679                 case 0:             // the end of string
 680                     wxFAIL_MSG(wxT("missing format at the end of string"));
 681
 682                     // just put the '%' which was the last char in format
 683                     res += wxT('%');
 684                     break;
 685             }
 686         }
 687     }
 688
 689     return res;
 690 }
 691
 692 // this function parses a string in (strict) RFC 822 format: see the section 5
 693 // of the RFC for the detailed description, but briefly it's something of the
 694 // form "Sat, 18 Dec 1999 00:48:30 +0100"
 695 //
 696 // this function is "strict" by design - it must reject anything except true
 697 // RFC822 time specs.
 698 bool
 699 wxDateTime::ParseRfc822Date(const wxString& date, wxString::const_iterator *end)
 700 {
 701     const wxString::const_iterator pEnd = date.end();
 702     wxString::const_iterator p = date.begin();
 703
 704     // 1. week day
 705     const wxDateTime::WeekDay
 706         wd = GetWeekDayFromName(p, pEnd, Name_Abbr, DateLang_English);
 707     if ( wd == Inv_WeekDay )
 708         return false;
 709     //else: ignore week day for now, we could also check that it really
 710     //      corresponds to the specified date
 711
 712     // 2. separating comma
 713     if ( *p++ != ',' || *p++ != ' ' )
 714         return false;
 715
 716     // 3. day number
 717     if ( !wxIsdigit(*p) )
 718         return false;
 719
 720     wxDateTime_t day = (wxDateTime_t)(*p++ - '0');
 721     if ( wxIsdigit(*p) )
 722     {
 723         day *= 10;
 724         day = (wxDateTime_t)(day + (*p++ - '0'));
 725     }
 726
 727     if ( *p++ != ' ' )
 728         return false;
 729
 730     // 4. month name
 731     const Month mon = GetMonthFromName(p, pEnd, Name_Abbr, DateLang_English);
 732     if ( mon == Inv_Month )
 733         return false;
 734
 735     if ( *p++ != ' ' )
 736         return false;
 737
 738     // 5. year
 739     if ( !wxIsdigit(*p) )
 740         return false;
 741
 742     int year = *p++ - '0';
 743     if ( !wxIsdigit(*p) ) // should have at least 2 digits in the year
 744         return false;
 745
 746     year *= 10;
 747     year += *p++ - '0';
 748
 749     // is it a 2 digit year (as per original RFC 822) or a 4 digit one?
 750     if ( wxIsdigit(*p) )
 751     {
 752         year *= 10;
 753         year += *p++ - '0';
 754
 755         if ( !wxIsdigit(*p) )
 756         {
 757             // no 3 digit years please
 758             return false;
 759         }
 760
 761         year *= 10;
 762         year += *p++ - '0';
 763     }
 764
 765     if ( *p++ != ' ' )
 766         return false;
 767
 768     // 6. time in hh:mm:ss format with seconds being optional
 769     if ( !wxIsdigit(*p) )
 770         return false;
 771
 772     wxDateTime_t hour = (wxDateTime_t)(*p++ - '0');
 773
 774     if ( !wxIsdigit(*p) )
 775         return false;
 776
 777     hour *= 10;
 778     hour = (wxDateTime_t)(hour + (*p++ - '0'));
 779
 780     if ( *p++ != ':' )
 781         return false;
 782
 783     if ( !wxIsdigit(*p) )
 784         return false;
 785
 786     wxDateTime_t min = (wxDateTime_t)(*p++ - '0');
 787
 788     if ( !wxIsdigit(*p) )
 789         return false;
 790
 791     min *= 10;
 792     min += (wxDateTime_t)(*p++ - '0');
 793
 794     wxDateTime_t sec = 0;
 795     if ( *p == ':' )
 796     {
 797         p++;
 798         if ( !wxIsdigit(*p) )
 799             return false;
 800
 801         sec = (wxDateTime_t)(*p++ - '0');
 802
 803         if ( !wxIsdigit(*p) )
 804             return false;
 805
 806         sec *= 10;
 807         sec += (wxDateTime_t)(*p++ - '0');
 808     }
 809
 810     if ( *p++ != ' ' )
 811         return false;
 812
 813     // 7. now the interesting part: the timezone
 814     int offset = 0; // just to suppress warnings
 815     if ( *p == '-' || *p == '+' )
 816     {
 817         // the explicit offset given: it has the form of hhmm
 818         bool plus = *p++ == '+';
 819
 820         if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
 821             return false;
 822
 823
 824         // hours
 825         offset = MIN_PER_HOUR*(10*(*p - '0') + (*(p + 1) - '0'));
 826
 827         p += 2;
 828
 829         if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
 830             return false;
 831
 832         // minutes
 833         offset += 10*(*p - '0') + (*(p + 1) - '0');
 834
 835         if ( !plus )
 836             offset = -offset;
 837
 838         p += 2;
 839     }
 840     else // not numeric
 841     {
 842         // the symbolic timezone given: may be either military timezone or one
 843         // of standard abbreviations
 844         if ( !*(p + 1) )
 845         {
 846             // military: Z = UTC, J unused, A = -1, ..., Y = +12
 847             static const int offsets[26] =
 848             {
 849                 //A  B   C   D   E   F   G   H   I    J    K    L    M
 850                 -1, -2, -3, -4, -5, -6, -7, -8, -9,   0, -10, -11, -12,
 851                 //N  O   P   R   Q   S   T   U   V    W    Z    Y    Z
 852                 +1, +2, +3, +4, +5, +6, +7, +8, +9, +10, +11, +12, 0
 853             };
 854
 855             if ( *p < wxT('A') || *p > wxT('Z') || *p == wxT('J') )
 856                 return false;
 857
 858             offset = offsets[*p++ - 'A'];
 859         }
 860         else
 861         {
 862             // abbreviation
 863             const wxString tz(p, date.end());
 864             if ( tz == wxT("UT") || tz == wxT("UTC") || tz == wxT("GMT") )
 865                 offset = 0;
 866             else if ( tz == wxT("AST") )
 867                 offset = AST - GMT0;
 868             else if ( tz == wxT("ADT") )
 869                 offset = ADT - GMT0;
 870             else if ( tz == wxT("EST") )
 871                 offset = EST - GMT0;
 872             else if ( tz == wxT("EDT") )
 873                 offset = EDT - GMT0;
 874             else if ( tz == wxT("CST") )
 875                 offset = CST - GMT0;
 876             else if ( tz == wxT("CDT") )
 877                 offset = CDT - GMT0;
 878             else if ( tz == wxT("MST") )
 879                 offset = MST - GMT0;
 880             else if ( tz == wxT("MDT") )
 881                 offset = MDT - GMT0;
 882             else if ( tz == wxT("PST") )
 883                 offset = PST - GMT0;
 884             else if ( tz == wxT("PDT") )
 885                 offset = PDT - GMT0;
 886             else
 887                 return false;
 888
 889             p += tz.length();
 890         }
 891
 892         // make it minutes
 893         offset *= MIN_PER_HOUR;
 894     }
 895
 896
 897     // the spec was correct, construct the date from the values we found
 898     Set(day, mon, year, hour, min, sec);
 899     MakeFromTimezone(TimeZone::Make(offset*SEC_PER_MIN));
 900
 901     if ( end )
 902         *end = p;
 903
 904     return true;
 905 }
 906
 907 bool
 908 wxDateTime::ParseFormat(const wxString& date,
 909                         const wxString& format,
 910                         const wxDateTime& dateDef,
 911                         wxString::const_iterator *endParse)
 912 {
 913     wxCHECK_MSG( !format.empty(), false, "format can't be empty" );
 914     wxCHECK_MSG( endParse, false, "end iterator pointer must be specified" );
 915
 916     wxString str;
 917     unsigned long num;
 918
 919     // what fields have we found?
 920     bool haveWDay = false,
 921          haveYDay = false,
 922          haveDay = false,
 923          haveMon = false,
 924          haveYear = false,
 925          haveHour = false,
 926          haveMin = false,
 927          haveSec = false,
 928          haveMsec = false;
 929
 930     bool hourIsIn12hFormat = false, // or in 24h one?
 931          isPM = false;              // AM by default
 932
 933     // and the value of the items we have (init them to get rid of warnings)
 934     wxDateTime_t msec = 0,
 935                  sec = 0,
 936                  min = 0,
 937                  hour = 0;
 938     WeekDay wday = Inv_WeekDay;
 939     wxDateTime_t yday = 0,
 940                  mday = 0;
 941     wxDateTime::Month mon = Inv_Month;
 942     int year = 0;
 943
 944     wxString::const_iterator input = date.begin();
 945     const wxString::const_iterator end = date.end();
 946     for ( wxString::const_iterator fmt = format.begin(); fmt != format.end(); ++fmt )
 947     {
 948         if ( *fmt != wxT('%') )
 949         {
 950             if ( wxIsspace(*fmt) )
 951             {
 952                 // a white space in the format string matches 0 or more white
 953                 // spaces in the input
 954                 while ( input != end && wxIsspace(*input) )
 955                 {
 956                     input++;
 957                 }
 958             }
 959             else // !space
 960             {
 961                 // any other character (not whitespace, not '%') must be
 962                 // matched by itself in the input
 963                 if ( input == end || *input++ != *fmt )
 964                 {
 965                     // no match
 966                     return false;
 967                 }
 968             }
 969
 970             // done with this format char
 971             continue;
 972         }
 973
 974         // start of a format specification
 975
 976         // parse the optional width
 977         size_t width = 0;
 978         while ( wxIsdigit(*++fmt) )
 979         {
 980             width *= 10;
 981             width += *fmt - '0';
 982         }
 983
 984         // the default widths for the various fields
 985         if ( !width )
 986         {
 987             switch ( (*fmt).GetValue() )
 988             {
 989                 case wxT('Y'):               // year has 4 digits
 990                     width = 4;
 991                     break;
 992
 993                 case wxT('j'):               // day of year has 3 digits
 994                 case wxT('l'):               // milliseconds have 3 digits
 995                     width = 3;
 996                     break;
 997
 998                 case wxT('w'):               // week day as number has only one
 999                     width = 1;
1000                     break;
1001
1002                 default:
1003                     // default for all other fields
1004                     width = 2;
1005             }
1006         }
1007
1008         // then the format itself
1009         switch ( (*fmt).GetValue() )
1010         {
1011             case wxT('a'):       // a weekday name
1012             case wxT('A'):
1013                 {
1014                     wday = GetWeekDayFromName
1015                            (
1016                             input, end,
1017                             *fmt == 'a' ? Name_Abbr : Name_Full,
1018                             DateLang_Local
1019                            );
1020                     if ( wday == Inv_WeekDay )
1021                     {
1022                         // no match
1023                         return false;
1024                     }
1025                 }
1026                 haveWDay = true;
1027                 break;
1028
1029             case wxT('b'):       // a month name
1030             case wxT('B'):
1031                 {
1032                     mon = GetMonthFromName
1033                           (
1034                             input, end,
1035                             *fmt == 'b' ? Name_Abbr : Name_Full,
1036                             DateLang_Local
1037                           );
1038                     if ( mon == Inv_Month )
1039                     {
1040                         // no match
1041                         return false;
1042                     }
1043                 }
1044                 haveMon = true;
1045                 break;
1046
1047             case wxT('c'):       // locale default date and time  representation
1048                 {
1049                     wxDateTime dt;
1050
1051 #if wxUSE_INTL
1052                     const wxString
1053                         fmtDateTime = wxLocale::GetInfo(wxLOCALE_DATE_TIME_FMT);
1054                     if ( !fmtDateTime.empty() )
1055                         dt = ParseFormatAt(input, end, fmtDateTime);
1056 #endif // wxUSE_INTL
1057                     if ( !dt.IsValid() )
1058                     {
1059                         // also try the format which corresponds to ctime()
1060                         // output (i.e. the "C" locale default)
1061                         dt = ParseFormatAt(input, end, wxS("%a %b %d %H:%M:%S %Y"));
1062                     }
1063
1064                     if ( !dt.IsValid() )
1065                     {
1066                         // and finally also the two generic date/time formats
1067                         dt = ParseFormatAt(input, end, wxS("%x %X"), wxS("%X %x"));
1068                     }
1069
1070                     if ( !dt.IsValid() )
1071                         return false;
1072
1073                     const Tm tm = dt.GetTm();
1074
1075                     hour = tm.hour;
1076                     min = tm.min;
1077                     sec = tm.sec;
1078
1079                     year = tm.year;
1080                     mon = tm.mon;
1081                     mday = tm.mday;
1082
1083                     haveDay = haveMon = haveYear =
1084                     haveHour = haveMin = haveSec = true;
1085                 }
1086                 break;
1087
1088             case wxT('d'):       // day of a month (01-31)
1089             case 'e':           // day of a month (1-31) (GNU extension)
1090                 if ( !GetNumericToken(width, input, end, &num) ||
1091                         (num > 31) || (num < 1) )
1092                 {
1093                     // no match
1094                     return false;
1095                 }
1096
1097                 // we can't check whether the day range is correct yet, will
1098                 // do it later - assume ok for now
1099                 haveDay = true;
1100                 mday = (wxDateTime_t)num;
1101                 break;
1102
1103             case wxT('H'):       // hour in 24h format (00-23)
1104                 if ( !GetNumericToken(width, input, end, &num) || (num > 23) )
1105                 {
1106                     // no match
1107                     return false;
1108                 }
1109
1110                 haveHour = true;
1111                 hour = (wxDateTime_t)num;
1112                 break;
1113
1114             case wxT('I'):       // hour in 12h format (01-12)
1115                 if ( !GetNumericToken(width, input, end, &num) ||
1116                         !num || (num > 12) )
1117                 {
1118                     // no match
1119                     return false;
1120                 }
1121
1122                 haveHour = true;
1123                 hourIsIn12hFormat = true;
1124                 hour = (wxDateTime_t)(num % 12);        // 12 should be 0
1125                 break;
1126
1127             case wxT('j'):       // day of the year
1128                 if ( !GetNumericToken(width, input, end, &num) ||
1129                         !num || (num > 366) )
1130                 {
1131                     // no match
1132                     return false;
1133                 }
1134
1135                 haveYDay = true;
1136                 yday = (wxDateTime_t)num;
1137                 break;
1138
1139             case wxT('l'):       // milliseconds (0-999)
1140                 if ( !GetNumericToken(width, input, end, &num) )
1141                     return false;
1142
1143                 haveMsec = true;
1144                 msec = (wxDateTime_t)num;
1145                 break;
1146
1147             case wxT('m'):       // month as a number (01-12)
1148                 if ( !GetNumericToken(width, input, end, &num) ||
1149                         !num || (num > 12) )
1150                 {
1151                     // no match
1152                     return false;
1153                 }
1154
1155                 haveMon = true;
1156                 mon = (Month)(num - 1);
1157                 break;
1158
1159             case wxT('M'):       // minute as a decimal number (00-59)
1160                 if ( !GetNumericToken(width, input, end, &num) ||
1161                         (num > 59) )
1162                 {
1163                     // no match
1164                     return false;
1165                 }
1166
1167                 haveMin = true;
1168                 min = (wxDateTime_t)num;
1169                 break;
1170
1171             case wxT('p'):       // AM or PM string
1172                 {
1173                     wxString am, pm;
1174                     GetAmPmStrings(&am, &pm);
1175
1176                     // we can never match %p in locales which don't use AM/PM
1177                     if ( am.empty() || pm.empty() )
1178                         return false;
1179
1180                     const size_t pos = input - date.begin();
1181                     if ( date.compare(pos, pm.length(), pm) == 0 )
1182                     {
1183                         isPM = true;
1184                         input += pm.length();
1185                     }
1186                     else if ( date.compare(pos, am.length(), am) == 0 )
1187                     {
1188                         input += am.length();
1189                     }
1190                     else // no match
1191                     {
1192                         return false;
1193                     }
1194                 }
1195                 break;
1196
1197             case wxT('r'):       // time as %I:%M:%S %p
1198                 {
1199                     wxDateTime dt;
1200                     if ( !dt.ParseFormat(wxString(input, end),
1201                                          wxS("%I:%M:%S %p"), &input) )
1202                         return false;
1203
1204                     haveHour = haveMin = haveSec = true;
1205
1206                     const Tm tm = dt.GetTm();
1207                     hour = tm.hour;
1208                     min = tm.min;
1209                     sec = tm.sec;
1210                 }
1211                 break;
1212
1213             case wxT('R'):       // time as %H:%M
1214                 {
1215                     const wxDateTime
1216                         dt = ParseFormatAt(input, end, wxS("%H:%M"));
1217                     if ( !dt.IsValid() )
1218                         return false;
1219
1220                     haveHour =
1221                     haveMin = true;
1222
1223                     const Tm tm = dt.GetTm();
1224                     hour = tm.hour;
1225                     min = tm.min;
1226                 }
1227                 break;
1228
1229             case wxT('S'):       // second as a decimal number (00-61)
1230                 if ( !GetNumericToken(width, input, end, &num) ||
1231                         (num > 61) )
1232                 {
1233                     // no match
1234                     return false;
1235                 }
1236
1237                 haveSec = true;
1238                 sec = (wxDateTime_t)num;
1239                 break;
1240
1241             case wxT('T'):       // time as %H:%M:%S
1242                 {
1243                     const wxDateTime
1244                         dt = ParseFormatAt(input, end, wxS("%H:%M:%S"));
1245                     if ( !dt.IsValid() )
1246                         return false;
1247
1248                     haveHour =
1249                     haveMin =
1250                     haveSec = true;
1251
1252                     const Tm tm = dt.GetTm();
1253                     hour = tm.hour;
1254                     min = tm.min;
1255                     sec = tm.sec;
1256                 }
1257                 break;
1258
1259             case wxT('w'):       // weekday as a number (0-6), Sunday = 0
1260                 if ( !GetNumericToken(width, input, end, &num) ||
1261                         (wday > 6) )
1262                 {
1263                     // no match
1264                     return false;
1265                 }
1266
1267                 haveWDay = true;
1268                 wday = (WeekDay)num;
1269                 break;
1270
1271             case wxT('x'):       // locale default date representation
1272                 {
1273 #if wxUSE_INTL
1274                     wxString
1275                         fmtDate = wxLocale::GetInfo(wxLOCALE_SHORT_DATE_FMT),
1276                         fmtDateAlt = wxLocale::GetInfo(wxLOCALE_LONG_DATE_FMT);
1277 #else // !wxUSE_INTL
1278                     wxString fmtDate, fmtDateAlt;
1279 #endif // wxUSE_INTL/!wxUSE_INTL
1280                     if ( fmtDate.empty() )
1281                     {
1282                         if ( IsWestEuropeanCountry(GetCountry()) ||
1283                              GetCountry() == Russia )
1284                         {
1285                             fmtDate = wxS("%d/%m/%Y");
1286                             fmtDateAlt = wxS("%m/%d/%Y");
1287                          }
1288                         else // assume USA
1289                         {
1290                             fmtDate = wxS("%m/%d/%Y");
1291                             fmtDateAlt = wxS("%d/%m/%Y");
1292                         }
1293                     }
1294
1295                     wxDateTime
1296                         dt = ParseFormatAt(input, end, fmtDate, fmtDateAlt);
1297
1298                     if ( !dt.IsValid() )
1299                     {
1300                         // try with short years too
1301                         fmtDate.Replace("%Y","%y");
1302                         fmtDateAlt.Replace("%Y","%y");
1303                         dt = ParseFormatAt(input, end, fmtDate, fmtDateAlt);
1304
1305                         if ( !dt.IsValid() )
1306                             return false;
1307                     }
1308
1309                     const Tm tm = dt.GetTm();
1310
1311                     haveDay =
1312                     haveMon =
1313                     haveYear = true;
1314
1315                     year = tm.year;
1316                     mon = tm.mon;
1317                     mday = tm.mday;
1318                 }
1319
1320                 break;
1321
1322             case wxT('X'):       // locale default time representation
1323                 {
1324 #if wxUSE_INTL
1325                     wxString fmtTime = wxLocale::GetInfo(wxLOCALE_TIME_FMT),
1326                              fmtTimeAlt;
1327 #else // !wxUSE_INTL
1328                     wxString fmtTime, fmtTimeAlt;
1329 #endif // wxUSE_INTL/!wxUSE_INTL
1330                     if ( fmtTime.empty() )
1331                     {
1332                         // try to parse what follows as "%H:%M:%S" and, if this
1333                         // fails, as "%I:%M:%S %p" - this should catch the most
1334                         // common cases
1335                         fmtTime = "%T";
1336                         fmtTimeAlt = "%r";
1337                     }
1338
1339                     const wxDateTime
1340                         dt = ParseFormatAt(input, end, fmtTime, fmtTimeAlt);
1341                     if ( !dt.IsValid() )
1342                         return false;
1343
1344                     haveHour =
1345                     haveMin =
1346                     haveSec = true;
1347
1348                     const Tm tm = dt.GetTm();
1349                     hour = tm.hour;
1350                     min = tm.min;
1351                     sec = tm.sec;
1352                 }
1353                 break;
1354
1355             case wxT('y'):       // year without century (00-99)
1356                 if ( !GetNumericToken(width, input, end, &num) ||
1357                         (num > 99) )
1358                 {
1359                     // no match
1360                     return false;
1361                 }
1362
1363                 haveYear = true;
1364
1365                 // TODO should have an option for roll over date instead of
1366                 //      hard coding it here
1367                 year = (num > 30 ? 1900 : 2000) + (wxDateTime_t)num;
1368                 break;
1369
1370             case wxT('Y'):       // year with century
1371                 if ( !GetNumericToken(width, input, end, &num) )
1372                 {
1373                     // no match
1374                     return false;
1375                 }
1376
1377                 haveYear = true;
1378                 year = (wxDateTime_t)num;
1379                 break;
1380
1381             case wxT('Z'):       // timezone name
1382                 // FIXME: currently we just ignore everything that looks like a
1383                 //        time zone here
1384                 GetAlphaToken(input, end);
1385                 break;
1386
1387             case wxT('%'):       // a percent sign
1388                 if ( *input++ != wxT('%') )
1389                 {
1390                     // no match
1391                     return false;
1392                 }
1393                 break;
1394
1395             case 0:             // the end of string
1396                 wxFAIL_MSG(wxT("unexpected format end"));
1397
1398                 // fall through
1399
1400             default:            // not a known format spec
1401                 return false;
1402         }
1403     }
1404
1405     // format matched, try to construct a date from what we have now
1406     Tm tmDef;
1407     if ( dateDef.IsValid() )
1408     {
1409         // take this date as default
1410         tmDef = dateDef.GetTm();
1411     }
1412     else if ( IsValid() )
1413     {
1414         // if this date is valid, don't change it
1415         tmDef = GetTm();
1416     }
1417     else
1418     {
1419         // no default and this date is invalid - fall back to Today()
1420         tmDef = Today().GetTm();
1421     }
1422
1423     Tm tm = tmDef;
1424
1425     // set the date
1426     if ( haveMon )
1427     {
1428         tm.mon = mon;
1429     }
1430
1431     if ( haveYear )
1432     {
1433         tm.year = year;
1434     }
1435
1436     // TODO we don't check here that the values are consistent, if both year
1437     //      day and month/day were found, we just ignore the year day and we
1438     //      also always ignore the week day
1439     if ( haveDay )
1440     {
1441         if ( mday > GetNumberOfDays(tm.mon, tm.year) )
1442             return false;
1443
1444         tm.mday = mday;
1445     }
1446     else if ( haveYDay )
1447     {
1448         if ( yday > GetNumberOfDays(tm.year) )
1449             return false;
1450
1451         Tm tm2 = wxDateTime(1, Jan, tm.year).SetToYearDay(yday).GetTm();
1452
1453         tm.mon = tm2.mon;
1454         tm.mday = tm2.mday;
1455     }
1456
1457     // deal with AM/PM
1458     if ( haveHour && hourIsIn12hFormat && isPM )
1459     {
1460         // translate to 24hour format
1461         hour += 12;
1462     }
1463     //else: either already in 24h format or no translation needed
1464
1465     // set the time
1466     if ( haveHour )
1467     {
1468         tm.hour = hour;
1469     }
1470
1471     if ( haveMin )
1472     {
1473         tm.min = min;
1474     }
1475
1476     if ( haveSec )
1477     {
1478         tm.sec = sec;
1479     }
1480
1481     if ( haveMsec )
1482         tm.msec = msec;
1483
1484     Set(tm);
1485
1486     // finally check that the week day is consistent -- if we had it
1487     if ( haveWDay && GetWeekDay() != wday )
1488         return false;
1489
1490     *endParse = input;
1491
1492     return true;
1493 }
1494
1495 bool
1496 wxDateTime::ParseDateTime(const wxString& date, wxString::const_iterator *end)
1497 {
1498     wxCHECK_MSG( end, false, "end iterator pointer must be specified" );
1499
1500     wxDateTime
1501         dtDate,
1502         dtTime;
1503
1504     wxString::const_iterator
1505         endTime,
1506         endDate,
1507         endBoth;
1508
1509     // If we got a date in the beginning, see if there is a time specified
1510     // after the date
1511     if ( dtDate.ParseDate(date, &endDate) )
1512     {
1513         // Skip spaces, as the ParseTime() function fails on spaces
1514         while ( endDate != date.end() && wxIsspace(*endDate) )
1515             ++endDate;
1516
1517         const wxString timestr(endDate, date.end());
1518         if ( !dtTime.ParseTime(timestr, &endTime) )
1519             return false;
1520
1521         endBoth = endDate + (endTime - timestr.begin());
1522     }
1523     else // no date in the beginning
1524     {
1525         // check if we have a time followed by a date
1526         if ( !dtTime.ParseTime(date, &endTime) )
1527             return false;
1528
1529         while ( endTime != date.end() && wxIsspace(*endTime) )
1530             ++endTime;
1531
1532         const wxString datestr(endTime, date.end());
1533         if ( !dtDate.ParseDate(datestr, &endDate) )
1534             return false;
1535
1536         endBoth = endTime + (endDate - datestr.begin());
1537     }
1538
1539     Set(dtDate.GetDay(), dtDate.GetMonth(), dtDate.GetYear(),
1540         dtTime.GetHour(), dtTime.GetMinute(), dtTime.GetSecond(),
1541         dtTime.GetMillisecond());
1542
1543     *end = endBoth;
1544
1545     return true;
1546 }
1547
1548 bool
1549 wxDateTime::ParseDate(const wxString& date, wxString::const_iterator *end)
1550 {
1551     wxCHECK_MSG( end, false, "end iterator pointer must be specified" );
1552
1553     // this is a simplified version of ParseDateTime() which understands only
1554     // "today" (for wxDate compatibility) and digits only otherwise (and not
1555     // all esoteric constructions ParseDateTime() knows about)
1556
1557     const wxString::const_iterator pBegin = date.begin();
1558     const wxString::const_iterator pEnd = date.end();
1559
1560     wxString::const_iterator p = pBegin;
1561     while ( p != pEnd && wxIsspace(*p) )
1562         p++;
1563
1564     // some special cases
1565     static struct
1566     {
1567         const char *str;
1568         int dayDiffFromToday;
1569     } literalDates[] =
1570     {
1571         { wxTRANSLATE("today"),             0 },
1572         { wxTRANSLATE("yesterday"),        -1 },
1573         { wxTRANSLATE("tomorrow"),          1 },
1574     };
1575
1576     const size_t lenRest = pEnd - p;
1577     for ( size_t n = 0; n < WXSIZEOF(literalDates); n++ )
1578     {
1579         const wxString dateStr = wxGetTranslation(literalDates[n].str);
1580         size_t len = dateStr.length();
1581
1582         if ( len > lenRest )
1583             continue;
1584
1585         const wxString::const_iterator pEnd = p + len;
1586         if ( wxString(p, pEnd).CmpNoCase(dateStr) == 0 )
1587         {
1588             // nothing can follow this, so stop here
1589
1590             p = pEnd;
1591
1592             int dayDiffFromToday = literalDates[n].dayDiffFromToday;
1593             *this = Today();
1594             if ( dayDiffFromToday )
1595             {
1596                 *this += wxDateSpan::Days(dayDiffFromToday);
1597             }
1598
1599             *end = pEnd;
1600
1601             return true;
1602         }
1603     }
1604
1605     // We try to guess what we have here: for each new (numeric) token, we
1606     // determine if it can be a month, day or a year. Of course, there is an
1607     // ambiguity as some numbers may be days as well as months, so we also
1608     // have the ability to back track.
1609
1610     // what do we have?
1611     bool haveDay = false,       // the months day?
1612          haveWDay = false,      // the day of week?
1613          haveMon = false,       // the month?
1614          haveYear = false;      // the year?
1615
1616     bool monWasNumeric = false; // was month specified as a number?
1617
1618     // and the value of the items we have (init them to get rid of warnings)
1619     WeekDay wday = Inv_WeekDay;
1620     wxDateTime_t day = 0;
1621     wxDateTime::Month mon = Inv_Month;
1622     int year = 0;
1623
1624     // tokenize the string
1625     while ( p != pEnd )
1626     {
1627         // skip white space and date delimiters
1628         while ( wxStrchr(".,/-\t\r\n ", *p) )
1629         {
1630             ++p;
1631         }
1632
1633         // modify copy of the iterator as we're not sure if the next token is
1634         // still part of the date at all
1635         wxString::const_iterator pCopy = p;
1636
1637         // we can have either alphabetic or numeric token, start by testing if
1638         // it's the latter
1639         unsigned long val;
1640         if ( GetNumericToken(10 /* max length */, pCopy, pEnd, &val) )
1641         {
1642             // guess what this number is
1643
1644             bool isDay = false,
1645                  isMonth = false,
1646                  isYear = false;
1647
1648             if ( !haveMon && val > 0 && val <= 12 )
1649             {
1650                 // assume it is month
1651                 isMonth = true;
1652             }
1653             else // not the month
1654             {
1655                 if ( haveDay )
1656                 {
1657                     // this can only be the year
1658                     isYear = true;
1659                 }
1660                 else // may be either day or year
1661                 {
1662                     // use a leap year if we don't have the year yet to allow
1663                     // dates like 2/29/1976 which would be rejected otherwise
1664                     wxDateTime_t max_days = (wxDateTime_t)(
1665                         haveMon
1666                         ? GetNumberOfDays(mon, haveYear ? year : 1976)
1667                         : 31
1668                     );
1669
1670                     // can it be day?
1671                     if ( (val == 0) || (val > (unsigned long)max_days) )
1672                     {
1673                         // no
1674                         isYear = true;
1675                     }
1676                     else // yes, suppose it's the day
1677                     {
1678                         isDay = true;
1679                     }
1680                 }
1681             }
1682
1683             if ( isYear )
1684             {
1685                 if ( haveYear )
1686                     break;
1687
1688                 haveYear = true;
1689
1690                 year = (wxDateTime_t)val;
1691             }
1692             else if ( isDay )
1693             {
1694                 if ( haveDay )
1695                     break;
1696
1697                 haveDay = true;
1698
1699                 day = (wxDateTime_t)val;
1700             }
1701             else if ( isMonth )
1702             {
1703                 haveMon = true;
1704                 monWasNumeric = true;
1705
1706                 mon = (Month)(val - 1);
1707             }
1708         }
1709         else // not a number
1710         {
1711             // be careful not to overwrite the current mon value
1712             Month mon2 = GetMonthFromName
1713                          (
1714                             pCopy, pEnd,
1715                             Name_Full | Name_Abbr,
1716                             DateLang_Local | DateLang_English
1717                          );
1718             if ( mon2 != Inv_Month )
1719             {
1720                 // it's a month
1721                 if ( haveMon )
1722                 {
1723                     // but we already have a month - maybe we guessed wrong
1724                     // when we had interpreted that numeric value as a month
1725                     // and it was the day number instead?
1726                     if ( haveDay || !monWasNumeric )
1727                         break;
1728
1729                     // assume we did and change our mind: reinterpret the month
1730                     // value as a day (notice that there is no need to check
1731                     // that it is valid as month values are always < 12, but
1732                     // the days are counted from 1 unlike the months)
1733                     day = (wxDateTime_t)(mon + 1);
1734                     haveDay = true;
1735                 }
1736
1737                 mon = mon2;
1738
1739                 haveMon = true;
1740             }
1741             else // not a valid month name
1742             {
1743                 WeekDay wday2 = GetWeekDayFromName
1744                                 (
1745                                     pCopy, pEnd,
1746                                     Name_Full | Name_Abbr,
1747                                     DateLang_Local | DateLang_English
1748                                 );
1749                 if ( wday2 != Inv_WeekDay )
1750                 {
1751                     // a week day
1752                     if ( haveWDay )
1753                         break;
1754
1755                     wday = wday2;
1756
1757                     haveWDay = true;
1758                 }
1759                 else // not a valid weekday name
1760                 {
1761                     // try the ordinals
1762                     static const char *const ordinals[] =
1763                     {
1764                         wxTRANSLATE("first"),
1765                         wxTRANSLATE("second"),
1766                         wxTRANSLATE("third"),
1767                         wxTRANSLATE("fourth"),
1768                         wxTRANSLATE("fifth"),
1769                         wxTRANSLATE("sixth"),
1770                         wxTRANSLATE("seventh"),
1771                         wxTRANSLATE("eighth"),
1772                         wxTRANSLATE("ninth"),
1773                         wxTRANSLATE("tenth"),
1774                         wxTRANSLATE("eleventh"),
1775                         wxTRANSLATE("twelfth"),
1776                         wxTRANSLATE("thirteenth"),
1777                         wxTRANSLATE("fourteenth"),
1778                         wxTRANSLATE("fifteenth"),
1779                         wxTRANSLATE("sixteenth"),
1780                         wxTRANSLATE("seventeenth"),
1781                         wxTRANSLATE("eighteenth"),
1782                         wxTRANSLATE("nineteenth"),
1783                         wxTRANSLATE("twentieth"),
1784                         // that's enough - otherwise we'd have problems with
1785                         // composite (or not) ordinals
1786                     };
1787
1788                     size_t n;
1789                     for ( n = 0; n < WXSIZEOF(ordinals); n++ )
1790                     {
1791                         const wxString ord = wxGetTranslation(ordinals[n]);
1792                         const size_t len = ord.length();
1793                         if ( date.compare(p - pBegin, len, ord) == 0 )
1794                         {
1795                             p += len;
1796                             break;
1797                         }
1798                     }
1799
1800                     if ( n == WXSIZEOF(ordinals) )
1801                     {
1802                         // stop here - something unknown
1803                         break;
1804                     }
1805
1806                     // it's a day
1807                     if ( haveDay )
1808                     {
1809                         // don't try anything here (as in case of numeric day
1810                         // above) - the symbolic day spec should always
1811                         // precede the month/year
1812                         break;
1813                     }
1814
1815                     haveDay = true;
1816
1817                     day = (wxDateTime_t)(n + 1);
1818                 }
1819             }
1820         }
1821
1822         // advance iterator past a successfully parsed token
1823         p = pCopy;
1824     }
1825
1826     // either no more tokens or the scan was stopped by something we couldn't
1827     // parse - in any case, see if we can construct a date from what we have
1828     if ( !haveDay && !haveWDay )
1829         return false;
1830
1831     if ( haveWDay && (haveMon || haveYear || haveDay) &&
1832          !(haveDay && haveMon && haveYear) )
1833     {
1834         // without adjectives (which we don't support here) the week day only
1835         // makes sense completely separately or with the full date
1836         // specification (what would "Wed 1999" mean?)
1837         return false;
1838     }
1839
1840     if ( !haveWDay && haveYear && !(haveDay && haveMon) )
1841     {
1842         // may be we have month and day instead of day and year?
1843         if ( haveDay && !haveMon )
1844         {
1845             if ( day <= 12  )
1846             {
1847                 // exchange day and month
1848                 mon = (wxDateTime::Month)(day - 1);
1849
1850                 // we're in the current year then
1851                 if ( (year > 0) && (year <= (int)GetNumberOfDays(mon, Inv_Year)) )
1852                 {
1853                     day = (wxDateTime_t)year;
1854
1855                     haveMon = true;
1856                     haveYear = false;
1857                 }
1858                 //else: no, can't exchange, leave haveMon == false
1859             }
1860         }
1861
1862         if ( !haveMon )
1863             return false;
1864     }
1865
1866     if ( !haveMon )
1867     {
1868         mon = GetCurrentMonth();
1869     }
1870
1871     if ( !haveYear )
1872     {
1873         year = GetCurrentYear();
1874     }
1875
1876     if ( haveDay )
1877     {
1878         // normally we check the day above but the check is optimistic in case
1879         // we find the day before its month/year so we have to redo it now
1880         if ( day > GetNumberOfDays(mon, year) )
1881             return false;
1882
1883         Set(day, mon, year);
1884
1885         if ( haveWDay )
1886         {
1887             // check that it is really the same
1888             if ( GetWeekDay() != wday )
1889                 return false;
1890         }
1891     }
1892     else // haveWDay
1893     {
1894         *this = Today();
1895
1896         SetToWeekDayInSameWeek(wday);
1897     }
1898
1899     *end = p;
1900
1901     return true;
1902 }
1903
1904 bool
1905 wxDateTime::ParseTime(const wxString& time, wxString::const_iterator *end)
1906 {
1907     wxCHECK_MSG( end, false, "end iterator pointer must be specified" );
1908
1909     // first try some extra things
1910     static const struct
1911     {
1912         const char *name;
1913         wxDateTime_t hour;
1914     } stdTimes[] =
1915     {
1916         { wxTRANSLATE("noon"),      12 },
1917         { wxTRANSLATE("midnight"),  00 },
1918         // anything else?
1919     };
1920
1921     for ( size_t n = 0; n < WXSIZEOF(stdTimes); n++ )
1922     {
1923         const wxString timeString = wxGetTranslation(stdTimes[n].name);
1924         if ( timeString.CmpNoCase(wxString(time, timeString.length())) == 0 )
1925         {
1926             // casts required by DigitalMars
1927             Set(stdTimes[n].hour, wxDateTime_t(0), wxDateTime_t(0));
1928
1929             if ( end )
1930                 *end = time.begin() + timeString.length();
1931
1932             return true;
1933         }
1934     }
1935
1936     // try all time formats we may think about in the order from longest to
1937     // shortest
1938     static const char *const timeFormats[] =
1939     {
1940         "%I:%M:%S %p",  // 12hour with AM/PM
1941         "%H:%M:%S",     // could be the same or 24 hour one so try it too
1942         "%I:%M %p",     // 12hour with AM/PM but without seconds
1943         "%H:%M",        // and a possibly 24 hour version without seconds
1944         "%X",           // possibly something from above or maybe something
1945                         // completely different -- try it last
1946
1947         // TODO: parse timezones
1948     };
1949
1950     for ( size_t nFmt = 0; nFmt < WXSIZEOF(timeFormats); nFmt++ )
1951     {
1952         if ( ParseFormat(time, timeFormats[nFmt], end) )
1953             return true;
1954     }
1955
1956     return false;
1957 }
1958
1959 // ----------------------------------------------------------------------------
1960 // Workdays and holidays support
1961 // ----------------------------------------------------------------------------
1962
1963 bool wxDateTime::IsWorkDay(Country WXUNUSED(country)) const
1964 {
1965     return !wxDateTimeHolidayAuthority::IsHoliday(*this);
1966 }
1967
1968 // ============================================================================
1969 // wxDateSpan
1970 // ============================================================================
1971
1972 wxDateSpan WXDLLIMPEXP_BASE operator*(int n, const wxDateSpan& ds)
1973 {
1974     wxDateSpan ds1(ds);
1975     return ds1.Multiply(n);
1976 }
1977
1978 // ============================================================================
1979 // wxTimeSpan
1980 // ============================================================================
1981
1982 wxTimeSpan WXDLLIMPEXP_BASE operator*(int n, const wxTimeSpan& ts)
1983 {
1984     return wxTimeSpan(ts).Multiply(n);
1985 }
1986
1987 // this enum is only used in wxTimeSpan::Format() below but we can't declare
1988 // it locally to the method as it provokes an internal compiler error in egcs
1989 // 2.91.60 when building with -O2
1990 enum TimeSpanPart
1991 {
1992     Part_Week,
1993     Part_Day,
1994     Part_Hour,
1995     Part_Min,
1996     Part_Sec,
1997     Part_MSec
1998 };
1999
2000 // not all strftime(3) format specifiers make sense here because, for example,
2001 // a time span doesn't have a year nor a timezone
2002 //
2003 // Here are the ones which are supported (all of them are supported by strftime
2004 // as well):
2005 //  %H          hour in 24 hour format
2006 //  %M          minute (00 - 59)
2007 //  %S          second (00 - 59)
2008 //  %%          percent sign
2009 //
2010 // Also, for MFC CTimeSpan compatibility, we support
2011 //  %D          number of days
2012 //
2013 // And, to be better than MFC :-), we also have
2014 //  %E          number of wEeks
2015 //  %l          milliseconds (000 - 999)
2016 wxString wxTimeSpan::Format(const wxString& format) const
2017 {
2018     // we deal with only positive time spans here and just add the sign in
2019     // front for the negative ones
2020     if ( IsNegative() )
2021     {
2022         wxString str(Negate().Format(format));
2023         return "-" + str;
2024     }
2025
2026     wxCHECK_MSG( !format.empty(), wxEmptyString,
2027                  wxT("NULL format in wxTimeSpan::Format") );
2028
2029     wxString str;
2030     str.Alloc(format.length());
2031
2032     // Suppose we have wxTimeSpan ts(1 /* hour */, 2 /* min */, 3 /* sec */)
2033     //
2034     // Then, of course, ts.Format("%H:%M:%S") must return "01:02:03", but the
2035     // question is what should ts.Format("%S") do? The code here returns "3273"
2036     // in this case (i.e. the total number of seconds, not just seconds % 60)
2037     // because, for me, this call means "give me entire time interval in
2038     // seconds" and not "give me the seconds part of the time interval"
2039     //
2040     // If we agree that it should behave like this, it is clear that the
2041     // interpretation of each format specifier depends on the presence of the
2042     // other format specs in the string: if there was "%H" before "%M", we
2043     // should use GetMinutes() % 60, otherwise just GetMinutes() &c
2044
2045     // we remember the most important unit found so far
2046     TimeSpanPart partBiggest = Part_MSec;
2047
2048     for ( wxString::const_iterator pch = format.begin(); pch != format.end(); ++pch )
2049     {
2050         wxChar ch = *pch;
2051
2052         if ( ch == wxT('%') )
2053         {
2054             // the start of the format specification of the printf() below
2055             wxString fmtPrefix(wxT('%'));
2056
2057             // the number
2058             long n;
2059
2060             // the number of digits for the format string, 0 if unused
2061             unsigned digits = 0;
2062
2063             ch = *++pch;    // get the format spec char
2064             switch ( ch )
2065             {
2066                 default:
2067                     wxFAIL_MSG( wxT("invalid format character") );
2068                     // fall through
2069
2070                 case wxT('%'):
2071                     str += ch;
2072
2073                     // skip the part below switch
2074                     continue;
2075
2076                 case wxT('D'):
2077                     n = GetDays();
2078                     if ( partBiggest < Part_Day )
2079                     {
2080                         n %= DAYS_PER_WEEK;
2081                     }
2082                     else
2083                     {
2084                         partBiggest = Part_Day;
2085                     }
2086                     break;
2087
2088                 case wxT('E'):
2089                     partBiggest = Part_Week;
2090                     n = GetWeeks();
2091                     break;
2092
2093                 case wxT('H'):
2094                     n = GetHours();
2095                     if ( partBiggest < Part_Hour )
2096                     {
2097                         n %= HOURS_PER_DAY;
2098                     }
2099                     else
2100                     {
2101                         partBiggest = Part_Hour;
2102                     }
2103
2104                     digits = 2;
2105                     break;
2106
2107                 case wxT('l'):
2108                     n = GetMilliseconds().ToLong();
2109                     if ( partBiggest < Part_MSec )
2110                     {
2111                         n %= 1000;
2112                     }
2113                     //else: no need to reset partBiggest to Part_MSec, it is
2114                     //      the least significant one anyhow
2115
2116                     digits = 3;
2117                     break;
2118
2119                 case wxT('M'):
2120                     n = GetMinutes();
2121                     if ( partBiggest < Part_Min )
2122                     {
2123                         n %= MIN_PER_HOUR;
2124                     }
2125                     else
2126                     {
2127                         partBiggest = Part_Min;
2128                     }
2129
2130                     digits = 2;
2131                     break;
2132
2133                 case wxT('S'):
2134                     n = GetSeconds().ToLong();
2135                     if ( partBiggest < Part_Sec )
2136                     {
2137                         n %= SEC_PER_MIN;
2138                     }
2139                     else
2140                     {
2141                         partBiggest = Part_Sec;
2142                     }
2143
2144                     digits = 2;
2145                     break;
2146             }
2147
2148             if ( digits )
2149             {
2150                 fmtPrefix << wxT("0") << digits;
2151             }
2152
2153             str += wxString::Format(fmtPrefix + wxT("ld"), n);
2154         }
2155         else
2156         {
2157             // normal character, just copy
2158             str += ch;
2159         }
2160     }
2161
2162     return str;
2163 }
2164
2165 #endif // wxUSE_DATETIME