2 Copyright © 1995-2010, The AROS Development Team. All rights reserved.
5 Desc: Convert a DateTime struct into strings.
8 #include "dos_intern.h"
12 #include <proto/dos.h>
17 #define AROS_LH1(ret,name,arg,type,base,offset,libname) \
19 #define AROS_LHA(type,name,reg) type name
22 const ULONG Dos_DayTable
[]=
24 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335
27 const char *const Dos_MonthTable
[]=
29 "Jan", "Feb", "Mar", "Apr", "May", "Jun",
30 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
33 const char *const Dos_WeekTable
[]=
35 "Sunday", "Monday", "Tuesday", "Wednesday",
36 "Thursday", "Friday", "Saturday"
39 const char *const Dos_SubstDateTable
[]=
41 "Future", "Tomorrow", "Today", "Yesterday"
44 /*****************************************************************************
47 #include <dos/datetime.h>
48 #include <proto/dos.h>
50 AROS_LH1(BOOL
, DateToStr
,
53 AROS_LHA(struct DateTime
*, datetime
, D1
),
56 struct DosLibrary
*, DOSBase
, 124, Dos
)
59 DateToStr converts an AmigaDOS DateStamp to a human
60 readable ASCII string as requested by your settings in the
64 DateTime - a pointer to an initialized DateTime structure. The
65 DateTime structure should be initialized as follows:
67 dat_Stamp: The datestamp to convert to ascii
69 dat_Format: How to convert the datestamp into
70 dat_StrDate. Can be any of the following:
72 FORMAT_DOS: AmigaDOS format (dd-mmm-yy). This
73 is the default if you specify something other
74 than any entry in this list.
76 FORMAT_INT: International format (yy-mmm-dd).
78 FORMAT_USA: American format (mm-dd-yy).
80 FORMAT_CDN: Canadian format (dd-mm-yy).
82 FORMAT_DEF default format for locale.
85 dat_Flags: Modifies dat_Format. The only flag
86 used by this function is DTF_SUBST. If set, then
87 a string like "Today" or "Monday" is generated
88 instead of the normal format if possible.
90 dat_StrDay: Pointer to a buffer to receive the day of
91 the week string. (Monday, Tuesday, etc.). If null,
92 this string will not be generated.
94 dat_StrDate: Pointer to a buffer to receive the date
95 string, in the format requested by dat_Format,
96 subject to possible modifications by DTF_SUBST. If
97 null, this string will not be generated.
99 dat_StrTime: Pointer to a buffer to receive the time
100 of day string. If NULL, this will not be generated.
104 A zero return indicates that the DateStamp was invalid, and could
105 not be converted. Non-zero indicates that the call succeeded.
115 DateStamp(), StrtoDate()
119 *****************************************************************************/
123 /* Starting days of the months in a leap year. */
128 LONG year
, month
, days
, mins
, tick
, leap
=1;
131 days
=datetime
->dat_Stamp
.ds_Days
;
132 mins
=datetime
->dat_Stamp
.ds_Minute
;
133 tick
=datetime
->dat_Stamp
.ds_Tick
;
136 Check if timestamp is correct. Correct timestamps lie
137 between the 1.1.1978 0:00:00 and the 11.7.5881588 23:59:59.
139 if(days
<0||(ULONG
)mins
>=24*60||(ULONG
)tick
>=TICKS_PER_SECOND
*60)
142 if(datetime
->dat_StrDay
!=NULL
)
144 /* Get weekday name. The 1.1.1978 was a sunday. */
145 buf
=datetime
->dat_StrDay
;
146 name
=Dos_WeekTable
[days
%7];
147 while((*buf
++=*name
++)!=0)
151 if(datetime
->dat_StrDate
!=NULL
)
154 Calculate year and the days in the year. Use a short method
155 if the date is between the 1.1.1978 and the 1.1.2100:
156 Every year even divisible by 4 in this time span is a leap year.
157 There are 92 normal and 30 leap years there.
159 if(days
<92*365+30*366)
162 1976 was a leap year so use it as a base to divide the days
163 into 4-year blocks (each beginning with a leap year).
166 year
=4*(days
/(366+3*365))+1976;
169 /* Now divide the 4-year blocks into single years. */
181 The rule for calendar calculations are:
182 1. Every year even divisible by 4 is a leap year.
183 2. As an exception from rule 1 every year even divisible by
185 3. Every year even divisible by 400 is a leap year as an
186 exception from rule 2.
187 So 1996, 2000 and 2004 are leap years - 1900 and 1999 are not.
189 Use 2000 as a base to devide the days into 400 year blocks,
190 those into 100 year blocks and so on...
193 year
=400*(days
/(97*366+303*365))+2000;
194 days
%=(97*366+303*365);
200 year
+=100*(days
/(24*366+76*365));
201 days
%=(24*366+76*365);
207 year
+=4*(days
/(366+3*365));
221 The starting-day table assumes a leap year - so add one day if
222 the date is after february 28th and the year is no leap year.
224 if(!leap
&&days
>=31+28)
227 for(month
=11;;month
--)
229 if(days
>=Dos_DayTable
[month
])
231 days
-=Dos_DayTable
[month
];
236 /* Remember that 0 means 1.1.1978. */
240 /* Build date string */
241 buf
=datetime
->dat_StrDate
;
243 switch (datetime
->dat_Format
)
245 case FORMAT_INT
: fstring
="y-M-d"; break;
246 case FORMAT_USA
: fstring
="m-d-y"; break;
247 case FORMAT_CDN
: fstring
="d-m-y"; break;
248 default: fstring
="d-M-y"; break;
251 if (datetime
->dat_Flags
& DTF_SUBST
)
253 struct DateStamp curr
;
257 curr
.ds_Days
-= datetime
->dat_Stamp
.ds_Days
;
259 if (curr
.ds_Days
<= 7)
263 if ((curr
.ds_Days
<= 1) && (curr
.ds_Days
>= -1))
264 name
= Dos_SubstDateTable
[curr
.ds_Days
+2];
265 else if (curr
.ds_Days
< -1)
266 name
= Dos_SubstDateTable
[0];
268 name
= Dos_WeekTable
[datetime
->dat_Stamp
.ds_Days
%7];
270 while ((*buf
++ = *name
++) != 0);
281 *buf
++ = year
/10%10+'0';
282 *buf
++ = year
%10+'0';
285 name
=Dos_MonthTable
[month
-1];
290 *buf
++=month
/10%10+'0';
294 *buf
++=days
/10%10+'0';
309 if(datetime
->dat_StrTime
!=NULL
)
311 /* Build time string */
312 datetime
->dat_StrTime
[0] = mins
/(10*60)+'0';
313 datetime
->dat_StrTime
[1] = mins
/60%10+'0';
314 datetime
->dat_StrTime
[2] = ':';
315 datetime
->dat_StrTime
[3] = mins
/10%6+'0';
316 datetime
->dat_StrTime
[4] = mins
%10+'0';
317 datetime
->dat_StrTime
[5] = ':';
318 datetime
->dat_StrTime
[6] = tick
/(10*TICKS_PER_SECOND
)+'0';
319 datetime
->dat_StrTime
[7] = tick
/TICKS_PER_SECOND
%10+'0';
320 datetime
->dat_StrTime
[8] = 0;
323 /* All done. Return OK. */
331 # include <dos/datetime.h>
332 # include <proto/dos.h>
334 int main (int argc
, char ** argv
)
336 struct DateTime curr
;
337 char day
[LEN_DATSTRING
];
338 char time
[LEN_DATSTRING
];
339 char date
[LEN_DATSTRING
];
341 DateStamp (&curr
.dat_Stamp
);
343 curr
.dat_Format
= FORMAT_DOS
;
345 curr
.dat_StrDay
= day
;
346 curr
.dat_StrDate
= date
;
347 curr
.dat_StrTime
= time
;
351 printf ("Today is %s, %s. It's %s\n"
357 curr
.dat_Format
= FORMAT_DEF
;
361 printf ("Local date: %s\n", date
);
363 curr
.dat_Flags
= DTF_SUBST
;
367 printf ("Date with DTF_SUBST: %s\n", date
);
369 curr
.dat_Stamp
.ds_Days
++;
373 printf ("Date +1 with DTF_SUBST: %s\n", date
);
375 curr
.dat_Stamp
.ds_Days
++;
379 printf ("Date +2 with DTF_SUBST: %s\n", date
);
381 curr
.dat_Stamp
.ds_Days
++;
385 printf ("Date +3 with DTF_SUBST: %s\n", date
);
387 curr
.dat_Stamp
.ds_Days
-= 4;
391 printf ("Date -1 with DTF_SUBST: %s\n", date
);
393 curr
.dat_Stamp
.ds_Days
--;
397 printf ("Date -2 with DTF_SUBST: %s\n", date
);
399 curr
.dat_Stamp
.ds_Days
--;
403 printf ("Date -3 with DTF_SUBST: %s\n", date
);
405 curr
.dat_Stamp
.ds_Days
= 0;
406 curr
.dat_Stamp
.ds_Minute
= 0;
407 curr
.dat_Stamp
.ds_Tick
= 0;
411 printf ("First Date: %s, %s. Time: %s\n", day
, date
, time
);
413 curr
.dat_Stamp
.ds_Days
= 0;
414 curr
.dat_Stamp
.ds_Minute
= 1;
415 curr
.dat_Stamp
.ds_Tick
= 0;
419 printf ("First Date + 1 Minute: %s, %s. Time: %s\n", day
, date
, time
);
421 curr
.dat_Stamp
.ds_Days
= 0;
422 curr
.dat_Stamp
.ds_Minute
= 0;
423 curr
.dat_Stamp
.ds_Tick
= 153;
427 printf ("First Date + 153 Ticks: %s, %s. Time: %s\n", day
, date
, time
);
429 curr
.dat_Stamp
.ds_Days
= 1;
430 curr
.dat_Stamp
.ds_Minute
= 0;
431 curr
.dat_Stamp
.ds_Tick
= 0;
435 printf ("First Date: %s, %s. Time: %s\n", day
, date
, time
);