workbench/libs/locale/parsedate.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7 #include <dos/dos.h>
   8 #include <dos/stdio.h>
   9 #include <proto/dos.h>
  10 #include <aros/asmcall.h>
  11 #include "locale_intern.h"
  12
  13 static const UWORD monthdays[12] =
  14     { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 };
  15 static const UBYTE monthday[12] =
  16     { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
  17
  18 BOOL _getnum(LONG numchars,
  19     LONG * valPtr,
  20     ULONG * cPtr,
  21     CONST_STRPTR * fmtTemplatePtr,
  22     BOOL * checkEOFPtr,
  23     const struct Locale *locale,
  24     const struct Hook *getCharFunc, struct LocaleBase *LocaleBase);
  25 #define get2num(x) _getnum(2, (x), &c, &fmtTemplate, &checkEOF, locale, getCharFunc, LocaleBase)
  26 #define get4num(x) _getnum(4, (x), &c, &fmtTemplate, &checkEOF, locale, getCharFunc, LocaleBase)
  27
  28 /*****************************************************************************
  29
  30     NAME */
  31 #include <proto/locale.h>
  32
  33         AROS_LH4(BOOL, ParseDate,
  34
  35 /*  SYNOPSIS */
  36         AROS_LHA(const struct Locale    *, locale, A0),
  37         AROS_LHA(struct DateStamp *, date, A1),
  38         AROS_LHA(CONST_STRPTR      , fmtTemplate, A2),
  39         AROS_LHA(const struct Hook      *, getCharFunc, A3),
  40
  41 /*  LOCATION */
  42         struct LocaleBase *, LocaleBase, 27, Locale)
  43
  44 /*  FUNCTION
  45         This function will convert a stream of characters into an AmigaDOS
  46         DateStamp structure. It will obtain its characters from the
  47         getCharFunc callback hook, and the given formatting template will
  48         be used to direct the parse.
  49
  50     INPUTS
  51         locale      -   the locale to use for the formatting
  52         date        -   where to put the converted date. If this is NULL,
  53                         then this function can be used to verify a date
  54                         string.
  55         fmtTemplate -   the date template used to direct the parse of the
  56                         data. The following FormatDate() formatting
  57                         controls can be used:
  58                           %a %A %b %B %d %e %h %H %I %m %M %p %S %y %Y
  59
  60                         See FormatDate() autodoc for more information.
  61         getCharFunc -   A callback Hook which is used to read the data
  62                         from a stream. The hook is called with:
  63
  64                         A0 - address of the Hook structure
  65                         A2 - locale pointer
  66                         A1 - NULL
  67
  68                                     BTW: The AmigaOS autodocs which state that A1
  69                         gets locale pointer and A2 NULL are wrong!!
  70
  71                         The read character should be returned in D0. Note
  72                         that this is a 32 bit character not an 8 bit
  73                         character. Return a NULL character if you reach the
  74                         end of the stream.
  75
  76     RESULT
  77         TRUE    -   If the parse could be performed.
  78         FALSE   -   If the format of the data did not match the formatting
  79                     string.
  80
  81     NOTES
  82         This has a few differences from the implementation in locale.library
  83         v38. In particular:
  84             - %p does not have to be at the end of the line.
  85             - %d and %e are not effectively the same: leading spaces are
  86               allowed before %e, but not before %d.
  87
  88     EXAMPLE
  89
  90     BUGS
  91         %p, %b, %A and probably others accept substrings and superstrings of
  92         valid strings.
  93
  94     SEE ALSO
  95         FormatDate()
  96
  97     INTERNALS
  98
  99 *****************************************************************************/
 100 {
 101     AROS_LIBFUNC_INIT
 102
 103     ULONG c;
 104     LONG day = 0, month = 0, hour = 0, min = 0, sec = 0;
 105     LONG year = 1978;
 106     BOOL leap, ampm = FALSE, checkEOF = TRUE;
 107     if ((fmtTemplate == NULL)
 108         || (getCharFunc == NULL)
 109         || (locale == NULL) || (*fmtTemplate == '\0'))
 110         return FALSE;
 111
 112 #define GetChar()\
 113         AROS_UFC3(ULONG, getCharFunc->h_Entry, \
 114                 AROS_UFCA(const struct Hook *, getCharFunc, A0), \
 115                 AROS_UFCA(const struct Locale *, locale, A2), \
 116                 AROS_UFCA(ULONG, 0, A1))
 117
 118     while (*fmtTemplate)
 119     {
 120         /* Check for EOF if we leave the loop */
 121         checkEOF = TRUE;
 122
 123         if (*fmtTemplate == '%')
 124         {
 125             UBYTE strOffs = 0;
 126             fmtTemplate++;
 127
 128             switch (*fmtTemplate++)
 129             {
 130                 /* abbreviated weekday name */
 131             case 'a':
 132                 strOffs = 7;
 133                 /* weekday name */
 134             case 'A':
 135                 {
 136                     CONST_STRPTR dayStr[7];
 137                     BOOL dayOk[7];
 138                     ULONG i, a;
 139
 140                     for (i = 0; i < 7; i++)
 141                     {
 142                         dayOk[i] = TRUE;
 143                         dayStr[i] = GetLocaleStr(locale, i + strOffs + 1);
 144                     }
 145
 146                     c = GetChar();
 147                     while ((c != '\0') && (c != *fmtTemplate))
 148                     {
 149                         for (i = 0; i < 7; i++)
 150                         {
 151                             a = ConvToUpper(locale, *(dayStr[i])++);
 152                             c = ConvToUpper(locale, c);
 153
 154                             if (dayOk[i] && a)
 155                                 if (a != c)
 156                                     dayOk[i] = FALSE;
 157                         }
 158                         c = GetChar();
 159                     }
 160
 161                     /* End of stream in wrong place, or invalid */
 162                     if (((c == '\0') && *fmtTemplate)
 163                         || (c != *fmtTemplate))
 164                         return FALSE;
 165
 166                     /* If we didn't get a valid day, fail */
 167                     i = 0;
 168                     while ((i < 7) && !dayOk[i++])
 169                         ;
 170                     if ((i == 7) && !dayOk[6])
 171                         return FALSE;
 172
 173                     if (*fmtTemplate)
 174                         fmtTemplate++;
 175                     checkEOF = FALSE;
 176                 }
 177                 break;          /* case 'A': */
 178
 179                 /* abbreviated month name */
 180             case 'b':
 181                 /* abbreviated month name */
 182             case 'h':
 183                 /* month name */
 184             case 'B':
 185                 {
 186                     CONST_STRPTR monthStr[24];
 187                     BOOL monthOk[24];
 188                     ULONG i, a;
 189
 190                     for (i = 0; i < 24; i++)
 191                     {
 192                         monthOk[i] = TRUE;
 193                         monthStr[i] =
 194                             GetLocaleStr(locale, i + strOffs + MON_1);
 195                     }
 196
 197                     c = GetChar();
 198                     while ((c != '\0') && (c != *fmtTemplate))
 199                     {
 200                         for (i = 0; i < 24; i++)
 201                         {
 202                             a = ConvToUpper(locale, *monthStr[i]);
 203                             if (a != '\0')
 204                                 monthStr[i]++;
 205                             c = ConvToUpper(locale, c);
 206
 207                             if (monthOk[i])
 208                                 if (a != c)
 209                                     monthOk[i] = FALSE;
 210                         }
 211                         c = GetChar();
 212                     }
 213                     for (i = 0; i < 24; i++)
 214                     {
 215                         if (monthOk[i] && *monthStr[i] == '\0')
 216                             month = i % 12 + 1;
 217                     }
 218
 219                     /* If we didn't get a valid month, fail */
 220                     if (month == 0)
 221                         return FALSE;
 222
 223                     /* End of stream in wrong place, or invalid */
 224                     if (((c == '\0') && *fmtTemplate)
 225                         || (c != *fmtTemplate))
 226                         return FALSE;
 227
 228                     if (*fmtTemplate)
 229                         fmtTemplate++;
 230                     checkEOF = FALSE;
 231
 232                     break;
 233                 }               /* case 'B': */
 234
 235                 /* Day no */
 236             case 'd':
 237                 day = 0;
 238                 c = GetChar();
 239                 if (!get2num(&day))
 240                     return FALSE;
 241                 if (day-- == 0)
 242                     return FALSE;
 243
 244                 break;
 245                 /* Day no., leading spaces. */
 246             case 'e':
 247                 day = 0;
 248                 c = GetChar();
 249                 while (IsSpace(locale, c))
 250                     c = GetChar();
 251                 if (!get2num(&day))
 252                     return FALSE;
 253                 if (day-- == 0)
 254                     return FALSE;
 255
 256                 break;
 257
 258                 /* hour 24-hr style */
 259             case 'H':
 260                 ampm = FALSE;
 261                 c = GetChar();
 262                 if (!get2num(&hour))
 263                     return FALSE;
 264                 if (hour > 23)
 265                     return FALSE;
 266                 break;
 267
 268                 /* hour 12-hr style */
 269             case 'I':
 270                 c = GetChar();
 271                 if (!get2num(&hour))
 272                     return FALSE;
 273                 if (hour > 11)
 274                     return FALSE;
 275                 break;
 276
 277                 /* month num */
 278             case 'm':
 279                 c = GetChar();
 280                 if (!get2num(&month))
 281                     return FALSE;
 282                 if ((month > 12) || (month == 0))
 283                     return FALSE;
 284                 break;
 285
 286                 /* minutes */
 287             case 'M':
 288                 c = GetChar();
 289                 if (!get2num(&min))
 290                     return FALSE;
 291
 292                 if (min > 59)
 293                     return FALSE;
 294                 break;
 295
 296                 /* AM or PM string */
 297             case 'p':
 298                 {
 299                     CONST_STRPTR amStr, pmStr;
 300                     BOOL amOk = TRUE, pmOk = TRUE;
 301                     ULONG a, b;
 302                     amStr = GetLocaleStr(locale, AM_STR);
 303                     pmStr = GetLocaleStr(locale, PM_STR);
 304
 305                     c = GetChar();
 306                     while ((c != '\0') && (c != *fmtTemplate))
 307                     {
 308                         a = ConvToUpper(locale, *amStr++);
 309                         b = ConvToUpper(locale, *pmStr++);
 310                         c = ConvToUpper(locale, c);
 311
 312                         if (amOk && a)
 313                             if (a != c)
 314                                 amOk = FALSE;
 315
 316                         if (pmOk && b)
 317                             if (b != c)
 318                                 pmOk = FALSE;
 319
 320                         c = GetChar();
 321                     }
 322
 323                     /* End of stream in wrong place, or invalid */
 324                     if (c != *fmtTemplate)
 325                         return FALSE;
 326
 327                     /* Check whether we got AM or PM */
 328                     ampm = pmOk;
 329
 330                     if (*fmtTemplate)
 331                         fmtTemplate++;
 332                     checkEOF = FALSE;
 333                     break;
 334                 }
 335
 336                 /* the number of seconds */
 337             case 'S':
 338                 c = GetChar();
 339                 if (!get2num(&sec))
 340                     return FALSE;
 341                 if (sec > 59)
 342                     return FALSE;
 343                 break;
 344
 345                 /* the year using two or four digits */
 346             case 'y':
 347                 c = GetChar();
 348                 if (!get4num(&year))
 349                     return FALSE;
 350
 351                 if (year >= 100 && year < 1978)
 352                     return FALSE;
 353                 if (year < 78)
 354                     year += 100;
 355                 if (year < 1900)
 356                     year += 1900;
 357                 break;
 358
 359                 /* the year using four digits */
 360             case 'Y':
 361                 c = GetChar();
 362                 if (IsDigit(locale, c) == FALSE)
 363                     return FALSE;
 364                 year = (c - '0') * 1000;
 365
 366                 c = GetChar();
 367                 if (IsDigit(locale, c) == FALSE)
 368                     return FALSE;
 369                 year += (c - '0') * 100;
 370
 371                 c = GetChar();
 372                 if (IsDigit(locale, c) == FALSE)
 373                     return FALSE;
 374                 year += (c - '0') * 10;
 375
 376                 c = GetChar();
 377                 if (IsDigit(locale, c) == FALSE)
 378                     return FALSE;
 379                 year += (c - '0');
 380
 381                 if (year < 1978)
 382                     return FALSE;
 383                 break;
 384
 385             default:
 386                 return FALSE;
 387                 break;
 388             } /* switch() */
 389         } /* if (char == '%') */
 390         else
 391         {
 392             c = GetChar();
 393             if (c != *fmtTemplate++)
 394                 return FALSE;
 395         }
 396     } /* while (*fmtTemplate) */
 397
 398     /* Reached end of fmtTemplate, end of input stream? */
 399     if (checkEOF)
 400         if ((GetChar() != 0))
 401             return FALSE;
 402
 403     /* Is this year a leap year ? */
 404     leap = (((year % 400) == 0) ||
 405         (((year % 4) == 0) && !((year % 100) == 0)));
 406
 407     /* Sanity check */
 408     if (month != 0 && day >=
 409         (monthday[month - 1] + ((leap && (month == 2)) ? 1 : 0)))
 410     {
 411         return FALSE;
 412     }
 413
 414     if (date)
 415     {
 416         /* Add the days for all years (without leap years) */
 417         day += (year - 1978) * 365;
 418
 419         year--;
 420
 421         /* Add leap years */
 422         day += ((year / 4) - (year / 100) + (year / 400) - (494 - 19 + 4));
 423
 424         /* Add days of months */
 425         day += monthdays[month - 1];
 426
 427         /*
 428            in monthdays, February has 28 days. Correct this in
 429            leap years if month is >= March.
 430          */
 431
 432         if (leap && (month >= 3))
 433             day++;
 434
 435         date->ds_Days = day;
 436
 437         date->ds_Minute = hour * 60 + min;
 438         if ((hour < 12) && ampm)
 439             date->ds_Minute += 720;
 440         date->ds_Tick = sec * TICKS_PER_SECOND;
 441     }
 442     return TRUE;
 443
 444     AROS_LIBFUNC_EXIT
 445 }
 446
 447
 448 BOOL _getnum(LONG numchars,
 449     LONG * valPtr,
 450     ULONG * cPtr,
 451     CONST_STRPTR * fmtTemplatePtr,
 452     BOOL * checkEOFPtr,
 453     const struct Locale * locale,
 454     const struct Hook * getCharFunc, struct LocaleBase * LocaleBase)
 455 {
 456     LONG val;
 457     ULONG c;
 458
 459     c = *cPtr;
 460     //*c = GetChar();
 461     if (IsDigit(locale, c) == FALSE)
 462         return FALSE;
 463
 464     val = c - '0';
 465
 466     while (--numchars >= 1)
 467     {
 468         c = GetChar();
 469         if (IsDigit(locale, c))
 470             val = val * 10 + c - '0';
 471         else
 472         {
 473             *cPtr = c;
 474             if (c != **fmtTemplatePtr)
 475                 return FALSE;
 476             if (c == '\0')
 477                 *checkEOFPtr = FALSE;
 478             else
 479                 (*fmtTemplatePtr)++;
 480
 481             break;
 482         }
 483     }
 484
 485     *valPtr = val;
 486
 487     return TRUE;
 488 }