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 (!strnicmp(buf, GetLocaleStr(loc, YESTERDAYSTR),
 109                 strlen(GetLocaleStr(loc, YESTERDAYSTR))))
 110         {
 111             datetime->dat_Stamp.ds_Days = curr.ds_Days - 1;
 112         }
 113         else if (!strnicmp(buf, GetLocaleStr(loc, TODAYSTR),
 114                 strlen(GetLocaleStr(loc, TODAYSTR))))
 115         {
 116             datetime->dat_Stamp.ds_Days = curr.ds_Days;
 117         }
 118         else if (!strnicmp(buf, GetLocaleStr(loc, TOMORROWSTR),
 119                 strlen(GetLocaleStr(loc, TOMORROWSTR))))
 120         {
 121             datetime->dat_Stamp.ds_Days = curr.ds_Days + 1;
 122         }
 123         else
 124         {
 125             WORD i;
 126
 127             for (i = 0; i < 7; i++)
 128             {
 129                 if (!strnicmp(buf, GetLocaleStr(loc, DAY_1 + i),
 130                         strlen(GetLocaleStr(loc, DAY_1 + i))))
 131                     break;
 132             }
 133
 134             if (i != 7)
 135             {
 136 #if 1
 137                 LONG diffdays;
 138
 139                 days = curr.ds_Days;
 140
 141                 diffdays = i - (days % 7);
 142
 143                 if (datetime->dat_Flags & DTF_FUTURE)
 144                 {
 145                     if (diffdays > 0)
 146                     {
 147                         days += diffdays;
 148                     }
 149                     else
 150                     {
 151                         days += 7 + diffdays;
 152                     }
 153                 }
 154                 else
 155                 {
 156                     if (diffdays < 0)
 157                     {
 158                         days += diffdays;
 159                     }
 160                     else
 161                     {
 162                         days += diffdays - 7;
 163                     }
 164                 }
 165                 datetime->dat_Stamp.ds_Days = days;
 166 #else
 167                 days = curr.ds_Days;
 168
 169                 if ((days % 7) == 0)
 170                     days -= 7;
 171                 else
 172                     days -= (days % 7);
 173
 174                 days += i;
 175
 176                 if (datetime->dat_Flags & DTF_FUTURE)
 177                     days += 7;
 178
 179                 datetime->dat_Stamp.ds_Days = days;
 180 #endif
 181             }
 182             else
 183             {
 184
 185                 switch (datetime->dat_Format)
 186                 {
 187                 case FORMAT_INT:
 188                     fstring = YEAR_FORMAT "-%b-%d";
 189                     altfstring = YEAR_FORMAT "-%m-%d";
 190                     break;
 191
 192                 case FORMAT_USA:
 193                     altfstring = fstring = "%m-%d-" YEAR_FORMAT;
 194                     break;
 195
 196                 case FORMAT_CDN:
 197                     altfstring = fstring = "%d-%m-" YEAR_FORMAT;
 198                     break;
 199
 200                 case FORMAT_DEF:
 201                     altfstring = fstring = loc->loc_ShortDateFormat;
 202                     break;
 203
 204                 default:       /* FORMAT_DOS */
 205                     fstring = "%d-%b-" YEAR_FORMAT;
 206                     altfstring = "%d-%m-" YEAR_FORMAT;
 207                     break;
 208
 209                 }
 210
 211                 if (ParseDate(loc, &curr, fstring, &hook))
 212                 {
 213                     datetime->dat_Stamp.ds_Days = curr.ds_Days;
 214                 }
 215                 else
 216                 {
 217                     buf = datetime->dat_StrDate;
 218                     if (ParseDate(loc, &curr, altfstring, &hook))
 219                     {
 220                         datetime->dat_Stamp.ds_Days = curr.ds_Days;
 221                     }
 222                     else
 223                     {
 224                         retval = FALSE;
 225                     }
 226                 }
 227
 228             }
 229
 230         }
 231
 232     }
 233
 234     if (retval && datetime->dat_StrTime)
 235     {
 236         struct DateStamp ds;
 237
 238         buf = datetime->dat_StrTime;
 239
 240         switch (datetime->dat_Format)
 241         {
 242         case FORMAT_DEF:
 243             fstring = loc->loc_ShortTimeFormat;
 244             break;
 245
 246         default:
 247             if (ParseDate(loc, NULL, long_dos_time_format, &hook))
 248                 fstring = long_dos_time_format;
 249             else
 250                 fstring = short_dos_time_format;
 251             buf = datetime->dat_StrTime;
 252             break;
 253         }
 254
 255         if (ParseDate(loc, &ds, fstring, &hook))
 256         {
 257             datetime->dat_Stamp.ds_Minute = ds.ds_Minute;
 258             datetime->dat_Stamp.ds_Tick = ds.ds_Tick;
 259         }
 260         else
 261         {
 262             retval = FALSE;
 263         }
 264     }
 265
 266     REPLACEMENT_UNLOCK;
 267
 268     return retval;
 269
 270     AROS_LIBFUNC_EXIT
 271 }