compiler/stdc/strftime.c

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