workbench/libs/locale/locstrtodate.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: LocStrToDate - locale.library's private replacement
   6           of dos.library/StrToDate function. IPrefs will install
   7           the patch.
   8
   9     Lang: english
  10 */
  11
  12 #include <exec/types.h>
  13 #include <dos/datetime.h>
  14 #include <proto/exec.h>
  15 #include <proto/dos.h>
  16 #include <proto/locale.h>
  17 #include "locale_intern.h"
  18 #include <aros/asmcall.h>
  19
  20 #include <string.h>
  21
  22 #define YEAR_FORMAT "%y"
  23
  24 #ifndef FORMAT_DEF
  25 #define FORMAT_DEF 4
  26 #endif
  27
  28 static const TEXT long_dos_time_format[] = "%H:%M:%S";
  29 static const TEXT short_dos_time_format[] = "%H:%M";
  30
  31 AROS_UFH3(ULONG, LocStrToDateGetCharFunc,
  32     AROS_UFHA(struct Hook *, hook, A0),
  33     AROS_UFHA(struct Locale *, locale, A2),
  34     AROS_UFHA(ULONG, null, A1))
  35 {
  36     AROS_USERFUNC_INIT
  37
  38     STRPTR *buf = (STRPTR *)hook->h_Data;
  39
  40     return *(*buf)++;
  41
  42     AROS_USERFUNC_EXIT
  43 }
  44
  45  /*****************************************************************************
  46
  47     NAME */
  48 #include <proto/locale.h>
  49
  50         AROS_PLH1(LONG, LocStrToDate,
  51
  52 /*  SYNOPSIS */
  53         AROS_LHA(struct DateTime *, datetime, D1),
  54
  55 /*  LOCATION */
  56         struct DosLibrary *, DOSBase, 37, Locale)
  57
  58 /*  FUNCTION
  59             See dos.library/StrToDate
  60
  61     INPUTS
  62             See dos.library/StrToDate
  63
  64     RESULT
  65
  66     NOTES
  67             This function is not called by apps directly. Instead
  68         dos.library/StrToDate() is patched to use this function. This means
  69         that the LocaleBase parameter above actually points to DOSBase, so we
  70         make use of the global LocaleBase variable. This function is marked as
  71         private, thus the headers generator won't mind the different basename
  72         in the header.
  73
  74     EXAMPLE
  75
  76     BUGS
  77
  78     SEE ALSO
  79         dos.library/StrToDate, locale.library/ParseDate.
  80
  81     INTERNALS
  82
  83 *****************************************************************************/
  84 {
  85     AROS_LIBFUNC_INIT
  86
  87     struct Locale *loc;
  88     struct Hook hook;
  89     CONST_STRPTR buf, fstring, altfstring;
  90     LONG days;
  91     LONG retval = TRUE;
  92
  93     hook.h_Entry = (HOOKFUNC) AROS_ASMSYMNAME(LocStrToDateGetCharFunc);
  94     hook.h_Data = &buf;
  95
  96     REPLACEMENT_LOCK;
  97
  98     loc = (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale;
  99
 100     if (datetime->dat_StrDate)
 101     {
 102         struct DateStamp curr;
 103
 104         buf = datetime->dat_StrDate;
 105
 106         DateStamp(&curr);
 107
 108         if (!stricmp(buf, GetLocaleStr(loc, YESTERDAYSTR)))
 109         {
 110             datetime->dat_Stamp.ds_Days = curr.ds_Days - 1;
 111         }
 112         else if (!stricmp(buf, GetLocaleStr(loc, TODAYSTR)))
 113         {
 114             datetime->dat_Stamp.ds_Days = curr.ds_Days;
 115         }
 116         else if (!stricmp(buf, GetLocaleStr(loc, TOMORROWSTR)))
 117         {
 118             datetime->dat_Stamp.ds_Days = curr.ds_Days + 1;
 119         }
 120         else
 121         {
 122             WORD i;
 123
 124             for (i = 0; i < 7; i++)
 125             {
 126                 if (!stricmp(buf, GetLocaleStr(loc, DAY_1 + i)))
 127                     break;
 128             }
 129
 130             if (i != 7)
 131             {
 132 #if 1
 133                 LONG diffdays;
 134
 135                 days = curr.ds_Days;
 136
 137                 diffdays = i - (days % 7);
 138
 139                 if (datetime->dat_Flags & DTF_FUTURE)
 140                 {
 141                     if (diffdays > 0)
 142                     {
 143                         days += diffdays;
 144                     }
 145                     else
 146                     {
 147                         days += 7 + diffdays;
 148                     }
 149                 }
 150                 else
 151                 {
 152                     if (diffdays < 0)
 153                     {
 154                         days += diffdays;
 155                     }
 156                     else
 157                     {
 158                         days += diffdays - 7;
 159                     }
 160                 }
 161                 datetime->dat_Stamp.ds_Days = days;
 162 #else
 163                 days = curr.ds_Days;
 164
 165                 if ((days % 7) == 0)
 166                     days -= 7;
 167                 else
 168                     days -= (days % 7);
 169
 170                 days += i;
 171
 172                 if (datetime->dat_Flags & DTF_FUTURE)
 173                     days += 7;
 174
 175                 datetime->dat_Stamp.ds_Days = days;
 176 #endif
 177             }
 178             else
 179             {
 180
 181                 switch (datetime->dat_Format)
 182                 {
 183                 case FORMAT_INT:
 184                     fstring = YEAR_FORMAT "-%b-%d";
 185                     altfstring = YEAR_FORMAT "-%m-%d";
 186                     break;
 187
 188                 case FORMAT_USA:
 189                     altfstring = fstring = "%m-%d-" YEAR_FORMAT;
 190                     break;
 191
 192                 case FORMAT_CDN:
 193                     altfstring = fstring = "%d-%m-" YEAR_FORMAT;
 194                     break;
 195
 196                 case FORMAT_DEF:
 197                     altfstring = fstring = loc->loc_ShortDateFormat;
 198                     break;
 199
 200                 default:       /* FORMAT_DOS */
 201                     fstring = "%d-%b-" YEAR_FORMAT;
 202                     altfstring = "%d-%m-" YEAR_FORMAT;
 203                     break;
 204
 205                 }
 206
 207                 if (ParseDate(loc, &curr, fstring, &hook))
 208                 {
 209                     datetime->dat_Stamp.ds_Days = curr.ds_Days;
 210                 }
 211                 else
 212                 {
 213                     buf = datetime->dat_StrDate;
 214                     if (ParseDate(loc, &curr, altfstring, &hook))
 215                     {
 216                         datetime->dat_Stamp.ds_Days = curr.ds_Days;
 217                     }
 218                     else
 219                     {
 220                         retval = FALSE;
 221                     }
 222                 }
 223
 224             }
 225
 226         }
 227
 228     }
 229
 230     if (retval && datetime->dat_StrTime)
 231     {
 232         struct DateStamp ds;
 233
 234         buf = datetime->dat_StrTime;
 235
 236         switch (datetime->dat_Format)
 237         {
 238         case FORMAT_DEF:
 239             fstring = loc->loc_ShortTimeFormat;
 240             break;
 241
 242         default:
 243             if (ParseDate(loc, NULL, long_dos_time_format, &hook))
 244                 fstring = long_dos_time_format;
 245             else
 246                 fstring = short_dos_time_format;
 247             buf = datetime->dat_StrTime;
 248             break;
 249         }
 250
 251         if (ParseDate(loc, &ds, fstring, &hook))
 252         {
 253             datetime->dat_Stamp.ds_Minute = ds.ds_Minute;
 254             datetime->dat_Stamp.ds_Tick = ds.ds_Tick;
 255         }
 256         else
 257         {
 258             retval = FALSE;
 259         }
 260     }
 261
 262     REPLACEMENT_UNLOCK;
 263
 264     return retval;
 265
 266     AROS_LIBFUNC_EXIT
 267 }