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