workbench/libs/locale/locstrtodate.c

   1 /*
   2     Copyright © 1995-2001, 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 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
  23  #define YEAR_FORMAT "%y"
  24 #else
  25  #define YEAR_FORMAT "%Y"
  26 #endif
  27
  28 #ifndef FORMAT_DEF
  29 #define FORMAT_DEF 4
  30 #endif
  31
  32 AROS_UFH3(ULONG, LocStrToDateGetCharFunc,
  33     AROS_UFHA(struct Hook *, hook, A0),
  34     AROS_UFHA(struct Locale *, locale, A2),
  35     AROS_UFHA(ULONG, null, A1))
  36 {
  37     AROS_USERFUNC_INIT
  38
  39     STRPTR *buf = (STRPTR *)hook->h_Data;
  40
  41     return *(*buf)++;
  42
  43     AROS_USERFUNC_EXIT
  44 }
  45
  46  /*****************************************************************************
  47
  48     NAME */
  49 #include <proto/locale.h>
  50
  51         AROS_PLH1(LONG, LocStrToDate,
  52
  53 /*  SYNOPSIS */
  54         AROS_LHA(struct DateTime *, datetime, D1),
  55
  56 /*  LOCATION */
  57         struct DosLibrary *, DOSBase, 37, Locale)
  58
  59 /*  FUNCTION
  60         See dos.library/StrToDate
  61
  62     INPUTS
  63         See dos.library/StrToDate
  64
  65     RESULT
  66
  67     NOTES
  68         This function is not called by apps directly. Instead dos.library/DosGet-
  69         LocalizedString is patched to use this function. This means, that the
  70         LocaleBase parameter above actually points to DOSBase, so we make use of
  71         the global LocaleBase variable. This function is marked as private,
  72         thus the headers generator won't mind the different basename 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     HISTORY
  84
  85 *****************************************************************************/
  86 {
  87     AROS_LIBFUNC_INIT
  88
  89     struct Locale   *loc;
  90     struct Hook     hook;
  91     STRPTR          buf, fstring;
  92     LONG            days;
  93     LONG            retval = TRUE;
  94
  95     hook.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(LocStrToDateGetCharFunc);
  96     hook.h_Data = &buf;
  97
  98     REPLACEMENT_LOCK;
  99
 100     loc = (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale;
 101
 102     if (datetime->dat_StrDate)
 103     {
 104         struct DateStamp curr;
 105
 106         buf = datetime->dat_StrDate;
 107
 108         DateStamp(&curr);
 109
 110         if (!strnicmp(buf, GetLocaleStr(loc, YESTERDAYSTR), strlen(GetLocaleStr(loc, YESTERDAYSTR))))
 111         {
 112             datetime->dat_Stamp.ds_Days = curr.ds_Days - 1;
 113         }
 114         else if (!strnicmp(buf, GetLocaleStr(loc, TODAYSTR), strlen(GetLocaleStr(loc, TODAYSTR))))
 115         {
 116             datetime->dat_Stamp.ds_Days = curr.ds_Days;
 117         }
 118         else if (!strnicmp(buf, GetLocaleStr(loc, TOMORROWSTR), strlen(GetLocaleStr(loc, TOMORROWSTR))))
 119         {
 120             datetime->dat_Stamp.ds_Days = curr.ds_Days + 1;
 121         }
 122         else
 123         {
 124             WORD i;
 125
 126             for(i = 0; i < 7; i++)
 127             {
 128                 if (!strnicmp(buf, GetLocaleStr(loc, DAY_1 + i), strlen(GetLocaleStr(loc, DAY_1 + i))))
 129                     break;
 130             }
 131
 132             if (i != 7)
 133             {
 134 #if 1
 135                 LONG diffdays;
 136
 137                 days = curr.ds_Days;
 138
 139                 diffdays = i - (days % 7);
 140
 141                 if (datetime->dat_Flags & DTF_FUTURE)
 142                 {
 143                     if (diffdays > 0)
 144                     {
 145                         days += diffdays;
 146                     }
 147                     else
 148                     {
 149                         days += 7 + diffdays;
 150                     }
 151                 }
 152                 else
 153                 {
 154                     if (diffdays < 0)
 155                     {
 156                         days += diffdays;
 157                     }
 158                     else
 159                     {
 160                         days += diffdays - 7;
 161                     }
 162                 }
 163                 datetime->dat_Stamp.ds_Days = days;
 164 #else
 165                 days = curr.ds_Days;
 166
 167                 if ((days %7) == 0)
 168                     days -= 7;
 169                 else
 170                     days -= (days % 7);
 171
 172                 days += i;
 173
 174                 if (datetime->dat_Flags & DTF_FUTURE)
 175                     days += 7;
 176
 177                 datetime->dat_Stamp.ds_Days = days;
 178 #endif
 179             }
 180             else
 181             {
 182
 183                 switch(datetime->dat_Format)
 184                 {
 185                     case FORMAT_INT:
 186                         fstring = YEAR_FORMAT "-%b-%d";
 187                         break;
 188
 189                     case FORMAT_USA:
 190                         fstring = "%m-%d-" YEAR_FORMAT;
 191                         break;
 192
 193                     case FORMAT_CDN:
 194                         fstring = "%d-%m-" YEAR_FORMAT;
 195                         break;
 196
 197                     case FORMAT_DEF:
 198                         fstring = loc->loc_ShortDateFormat;
 199                         break;
 200
 201                     default: /* FORMAT_DOS */
 202                         fstring = "%d-%b-" 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                     retval = FALSE;
 214                 }
 215
 216             }
 217
 218         }
 219
 220     } /* if (datetime->dat_StrDate) */
 221
 222
 223     if (retval && datetime->dat_StrTime)
 224     {
 225         struct DateStamp ds;
 226
 227         buf = datetime->dat_StrTime;
 228
 229         switch(datetime->dat_Format)
 230         {
 231             case FORMAT_DEF:
 232                 fstring = loc->loc_ShortTimeFormat;
 233                 break;
 234
 235             default:
 236                 fstring = "%H:%M:%S";
 237                 break;
 238         }
 239
 240         if (ParseDate(loc, &ds, fstring, &hook))
 241         {
 242             datetime->dat_Stamp.ds_Minute = ds.ds_Minute;
 243             datetime->dat_Stamp.ds_Tick   = ds.ds_Tick;
 244         }
 245         else
 246         {
 247             retval = FALSE;
 248         }
 249     }
 250
 251     REPLACEMENT_UNLOCK;
 252
 253     return retval;
 254
 255     AROS_LIBFUNC_EXIT
 256
 257 } /* LocStrToDate */