compiler/clib/strftime.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <time.h>
   7 /* #include <locale.h>
   8 #include <libraries/locale.h>
   9 #include <proto/locale.h> */
  10
  11 #define ADDS(st)  tmp=strftime(s,maxsize-size,(st),timeptr);break;
  12
  13 #define ADDN(a,b) tmp=strfnumb(s,maxsize-size,(a),(b));break;
  14
  15 #define STOR(c)   if(++size<=maxsize)*s++=(c);
  16
  17 #if 0
  18 #define STR(a) \
  19 (__localevec[LC_TIME-1]==NULL?strings[(a)-1]:GetLocaleStr(__localevec[LC_TIME-1],(a)))
  20 #else
  21 #define STR(a) (strings[(a)-1])
  22 #endif
  23
  24 /* extern struct Locale *__localevec[]; */
  25
  26 /* All calendar strings */
  27 static const unsigned char *strings[]=
  28 {
  29     /* 0 */
  30     "Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday",
  31     /* 7 */
  32     "Sun","Mon","Tue","Wed","Thu","Fri","Sat",
  33     /* 14 */
  34     "January","February","March","April","May","June",
  35     "July","August","September","October","November","December",
  36     /* 26 */
  37     "Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec",
  38     /* 39 */
  39     "","",
  40     /* 41 */
  41     "AM","PM"
  42 };
  43 #define ABDAY_1     7
  44 #define ABMON_1     26
  45 #define AM_STR      41
  46 #define DAY_1       0
  47 #define MON_1       14
  48
  49 static size_t strfnumb(char *s, size_t maxsize, signed int places, size_t value)
  50 {
  51     size_t size = 0;
  52
  53     if (places > 1)
  54     {
  55         size = strfnumb(s, maxsize, places - 1, value / 10);
  56     }
  57     else if (value >= 10)
  58     {
  59         size = strfnumb(s, maxsize, places + 1, value / 10);
  60     }
  61     else
  62     {
  63         while ((places++ < -1) && (++size <= maxsize))
  64         {
  65             s[size - 1] = ' ';
  66         }
  67     }
  68
  69     if (++size <= maxsize) s[size - 1] = (value % 10 + '0');
  70
  71     return size;
  72 }
  73
  74 /*****************************************************************************
  75
  76     NAME */
  77
  78         size_t strftime(
  79
  80 /*  SYNOPSIS */
  81         char *s,
  82         size_t maxsize,
  83         const char *format,
  84         const struct tm *timeptr)
  85
  86 /*  FUNCTION
  87
  88     INPUTS
  89
  90     RESULT
  91
  92     NOTES
  93
  94     EXAMPLE
  95
  96     BUGS
  97
  98     SEE ALSO
  99
 100     INTERNALS
 101
 102 ******************************************************************************/
 103 {
 104     size_t size = 0, tmp;
 105
 106     if (format == NULL || timeptr == NULL) return 0;
 107
 108     while (*format)
 109     {
 110         if (*format == '%')
 111         {
 112             tmp = 0;
 113
 114             switch(*++format)
 115             {
 116                 case 'a':
 117                     ADDS(STR(ABDAY_1+timeptr->tm_wday+1));
 118                 case 'b':
 119                 case 'h':
 120                     ADDS(STR(ABMON_1+timeptr->tm_mon+1));
 121                 case 'c':
 122                     ADDS("%m/%d/%y");
 123                 case 'd':
 124                     ADDN(2,timeptr->tm_mday);
 125                 case 'e':
 126                     ADDN(-2,timeptr->tm_mday);
 127                 case 'j':
 128                     ADDN(3,timeptr->tm_yday+1);
 129                 case 'k':
 130                     ADDN(-2,timeptr->tm_hour);
 131                 case 'l':
 132                     ADDN(-2,timeptr->tm_hour%12+(timeptr->tm_hour%12==0)*12);
 133                 case 'm':
 134                     ADDN(2,timeptr->tm_mon+1);
 135                 case 'p':
 136                     ADDS(STR(AM_STR+(timeptr->tm_hour>=12)));
 137                 case 'r':
 138                     ADDS("%I:%M:%S %p");
 139                 case 'w':
 140                     ADDN(1,timeptr->tm_wday);
 141                 case 'x':
 142                     ADDS("%m/%d/%y %H:%M:%S");
 143                 case 'y':
 144                     ADDN(2,timeptr->tm_year%100);
 145                 case 'A':
 146                     ADDS(STR(DAY_1+timeptr->tm_wday+1));
 147                 case 'B':
 148                     ADDS(STR(MON_1+timeptr->tm_mon+1));
 149                 case 'C':
 150                     ADDS("%a %b %e %H:%M:%S %Y");
 151                 case 'D':
 152                     ADDS("%m/%d/%y");
 153                 case 'H':
 154                     ADDN(2,timeptr->tm_hour);
 155                 case 'I':
 156                     ADDN(2,timeptr->tm_hour%12+(timeptr->tm_hour%12==0)*12);
 157                 case 'M':
 158                     ADDN(2,timeptr->tm_min);
 159                 case 'R':
 160                     ADDS("%H:%M");
 161                 case 'S':
 162                     ADDN(2,timeptr->tm_sec);
 163                 case 'T':
 164                 case 'X':
 165                     ADDS("%H:%M:%S");
 166                 case 'U':
 167                     ADDN(2,(timeptr->tm_yday+7-timeptr->tm_wday)/7);
 168                 case 'W':
 169                     ADDN(2,(timeptr->tm_yday+7-(6+timeptr->tm_wday)%7)/7);
 170                 case 'Y':
 171                     ADDN(4,timeptr->tm_year+1900);
 172                 case 't':
 173                     STOR('\t');
 174                     break;
 175                 case 'n':
 176                     STOR('\n');
 177                     break;
 178                 case '%':
 179                     STOR('%');
 180                     break;
 181                 case '\0':
 182                     format--;
 183                     break;
 184             }
 185
 186             size += tmp;
 187             s    += tmp;
 188         }
 189         else
 190         {
 191             STOR(*format);
 192         }
 193
 194         format++;
 195     }
 196
 197     STOR('\0');
 198
 199     if (size > maxsize)
 200     {
 201         s -= size;
 202
 203         if (maxsize) /* Don't know if this is necessary, therefore it's here ;-) */
 204         {
 205             s[maxsize - 1] = '\0';
 206         }
 207
 208         size = 1;
 209     }
 210
 211     return size - 1;
 212 }
 213