workbench/libs/locale/locdatetostr.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: LocDateToStr - locale.library's private replacement
   6           of dos.library/DateToStr 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 #define YEAR_FORMAT "%y"
  21
  22 #ifndef FORMAT_DEF
  23 #define FORMAT_DEF 4
  24 #endif
  25
  26 AROS_UFH3(void, LocDateToStrPutCharFunc,
  27     AROS_UFHA(struct Hook *, hook, A0),
  28     AROS_UFHA(struct Locale *, locale, A2),
  29     AROS_UFHA(char, c, A1))
  30 {
  31     AROS_USERFUNC_INIT
  32
  33     STRPTR *buf = (STRPTR *)hook->h_Data;
  34
  35     *(*buf)++ = c;
  36
  37     AROS_USERFUNC_EXIT
  38 }
  39
  40  /*****************************************************************************
  41
  42     NAME */
  43 #include <proto/locale.h>
  44
  45         AROS_PLH1(LONG, LocDateToStr,
  46
  47 /*  SYNOPSIS */
  48         AROS_LHA(struct DateTime *, datetime, D1),
  49
  50 /*  LOCATION */
  51         struct DosLibrary *, DOSBase, 36, Locale)
  52
  53 /*  FUNCTION
  54         See dos.library/DateToStr
  55
  56     INPUTS
  57         See dos.library/DateToStr
  58
  59     RESULT
  60
  61     NOTES
  62         This function is not called by apps directly. Instead
  63         dos.library/DateToStr is patched to use this function. This means,
  64         that the LocaleBase parameter above actually points to DOSBase. But
  65         it may not be renamed, because then no entry for this function is
  66         generated in the Locale functable by the corresponding script.
  67
  68     EXAMPLE
  69
  70     BUGS
  71
  72     SEE ALSO
  73         dos.library/DateToStr, locale.library/FormatDate.
  74
  75     INTERNALS
  76
  77 *****************************************************************************/
  78 {
  79     AROS_LIBFUNC_INIT
  80
  81     struct Locale *loc;
  82     struct Hook   hook;
  83
  84     STRPTR buf, fstring;
  85     const UBYTE * name;
  86
  87     LONG days, mins, tick;
  88
  89     /* Read time. */
  90     days = datetime->dat_Stamp.ds_Days;
  91     mins = datetime->dat_Stamp.ds_Minute;
  92     tick = datetime->dat_Stamp.ds_Tick;
  93
  94     /*
  95     Check if timestamp is correct. Correct timestamps lie
  96     between the 1.1.1978 0:00:00 and the 11.7.5881588 23:59:59.
  97     */
  98     if((days < 0) ||
  99        ((ULONG)mins >= 24 * 60) ||
 100        ((ULONG)tick >= TICKS_PER_SECOND * 60))
 101     {
 102         return DOSFALSE;
 103     }
 104
 105     hook.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(LocDateToStrPutCharFunc);
 106     hook.h_Data = &buf;
 107
 108     REPLACEMENT_LOCK;
 109
 110     loc = (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale;
 111
 112     if (datetime->dat_StrDay)
 113     {
 114         buf = datetime->dat_StrDay;
 115         name = GetLocaleStr(loc, DAY_1 + (days % 7));
 116
 117         while((*buf++ = *name++) != 0);
 118     }
 119
 120     if (datetime->dat_StrDate)
 121     {
 122         buf = datetime->dat_StrDate;
 123
 124         switch(datetime->dat_Format)
 125         {
 126         case FORMAT_INT:
 127             fstring = YEAR_FORMAT "-%b-%d";
 128         break;
 129
 130         case FORMAT_USA:
 131             fstring = "%m-%d-" YEAR_FORMAT;
 132         break;
 133
 134         case FORMAT_CDN:
 135             fstring = "%d-%m-" YEAR_FORMAT;
 136         break;
 137
 138         case FORMAT_DEF:
 139             fstring = loc->loc_ShortDateFormat;
 140         break;
 141
 142         default:
 143             fstring = "%d-%b-" YEAR_FORMAT;
 144         break;
 145
 146         }
 147
 148         if (datetime->dat_Flags & DTF_SUBST)
 149         {
 150             struct DateStamp curr;
 151
 152             DateStamp(&curr);
 153
 154             curr.ds_Days -= datetime->dat_Stamp.ds_Days;
 155
 156             if ((curr.ds_Days <= 7))
 157             {
 158                 LONG strid;
 159
 160                 fstring = "";
 161
 162                 switch(curr.ds_Days)
 163                 {
 164                 case -1:
 165                     strid = TOMORROWSTR;
 166                 break;
 167
 168                 case 0:
 169                     strid = TODAYSTR;
 170                 break;
 171
 172                 case 1:
 173                     strid = YESTERDAYSTR;
 174                 break;
 175
 176                 default:
 177                     if (curr.ds_Days < -1)
 178                         strid = FUTURESTR;
 179                     else
 180                         strid = DAY_1 + (days % 7);
 181                 break;
 182                 }
 183
 184                 name = GetLocaleStr(loc, strid);
 185
 186                 while((*buf++ = *name++) != 0);
 187
 188             } /* if ((curr.ds_Days >= -1) && (cur.ds_Days <= 7)) */
 189
 190         } /* if (datetime->dat_Flags & DTF_SUBST) */
 191
 192         if (*fstring)
 193         {
 194             FormatDate(loc, fstring, &datetime->dat_Stamp, &hook);
 195         }
 196
 197     } /* if (datetime->dat_StrDate) */
 198
 199     if (datetime->dat_StrTime)
 200     {
 201         buf = datetime->dat_StrTime;
 202
 203         switch(datetime->dat_Format)
 204         {
 205             case FORMAT_DEF:
 206                 fstring = loc->loc_ShortTimeFormat;
 207             break;
 208
 209             default:
 210                 fstring = "%H:%M:%S";
 211             break;
 212         }
 213
 214         FormatDate(loc, fstring, &datetime->dat_Stamp, &hook);
 215     }
 216
 217     REPLACEMENT_UNLOCK;
 218
 219     return TRUE;
 220
 221     AROS_LIBFUNC_EXIT
 222
 223 } /* LocDateToStr */