Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity
Files
2d2a65d5728eb72f1c659225f7e5b0a90f289dda
TempleOS-Rijn/TempleOS/Kernel/Date.CPP
T
Terry A. Davis 2d2a65d572 TempleOSTS_131005.ISO
2018-09-08 21:45:52 +02:00

484 lines
15 KiB
C++
Raw Blame History

//See $LK-A,"::/TempleOS/Doc/TimeDate.TXT"$
U16 mon_start_days1[12]={
0,31,59,90,120,151,181,212,243,273,304,334};
U16 mon_start_days2[12]={
0,31,60,91,121,152,182,213,244,274,305,335};
I64 YearStartDate(I64 year)
{
I64 y1=year-1,yd4000=y1/4000,yd400=y1/400,yd100=y1/100,yd4=y1/4;
return year*365+yd4-yd100+yd400-yd4000;
}
CDate DateStruct2Date(CDateStruct *_ds)
{
CDate cdt;
I64 i1,i2;
i1=YearStartDate(_ds->year);
i2=YearStartDate(_ds->year+1);
if (i2-i1==365)
i1+=mon_start_days1[_ds->mon-1];
else
i1+=mon_start_days2[_ds->mon-1];
cdt.date=i1+_ds->day_of_mon-1;
cdt.time=(_ds->sec10000+100*(_ds->sec100+100*(_ds->sec+60*(_ds->min+60*_ds->hour))))<<21/(15*15*3*625);
return cdt;
}
I64 DayOfWeek(I64 i)
{
i+=CDATE_BASE_DAY_OF_WEEK;
if (i>=0)
return i % 7;
else
return 6-(6-i)%7;
}
U0 Date2DateStruct(CDateStruct *_ds,CDate cdt)
{
I64 i,k,date=cdt.date;
_ds->day_of_week=DayOfWeek(date);
_ds->year=(date+1)*100000/CDATE_YEAR_DAYS_INT;
i=YearStartDate(_ds->year);
while (i>date) {
_ds->year--;
i=YearStartDate(_ds->year);
}
date-=i;
if (YearStartDate(_ds->year+1)-i==365) {
k=0;
while (date>=mon_start_days1[k+1] && k<11)
k++;
date-=mon_start_days1[k];
} else {
k=0;
while (date>=mon_start_days2[k+1] && k<11)
k++;
date-=mon_start_days2[k];
}
_ds->mon=k+1;
_ds->day_of_mon=date+1;
k=(625*15*15*3*cdt.time)>>21+1;
_ds->sec10000=ModU64(&k,100);
_ds->sec100=ModU64(&k,100);
_ds->sec=ModU64(&k,60);
_ds->min=ModU64(&k,60);
_ds->hour =k;
}
I64 FirstDayOfMon(I64 i)
{
CDateStruct ds;
CDate cdt=0;
cdt.date=i;
Date2DateStruct(&ds,cdt);
ds.day_of_mon=1;
cdt=DateStruct2Date(&ds);
return cdt.date;
}
I64 LastDayOfMon(I64 i)
{
CDateStruct ds;
CDate cdt=0;
cdt.date=i;
Date2DateStruct(&ds,cdt);
ds.mon++;
if (ds.mon==13) {
ds.mon=0;
ds.year++;
}
ds.day_of_mon=1;
cdt=DateStruct2Date(&ds);
return cdt.date-1;
}
I64 FirstDayOfYear(I64 i)
{
CDateStruct ds;
CDate cdt=0;
cdt.date=i;
Date2DateStruct(&ds,cdt);
ds.day_of_mon=1;
ds.mon=1;
cdt=DateStruct2Date(&ds);
return cdt.date;
}
I64 LastDayOfYear(I64 i)
{
CDateStruct ds;
CDate cdt=0;
cdt.date=i;
Date2DateStruct(&ds,cdt);
ds.day_of_mon=1;
ds.mon=1;
ds.year++;
cdt=DateStruct2Date(&ds);
return cdt.date-1;
}
I64 Bcd2Bin(U64 b)
{
I64 i,result=0;
for (i=0;i<16;i++) {
result=result*10+b>>60;
b<<=4;
}
return result;
}
U0 GetDateTimeStruct(CDateStruct *_ds)
{
I64 i;
U8 *b=_ds;
Bool is_bcd;
MemSet(_ds,0,sizeof(CDateStruct));
PushFD;
Cli;
while (LBts(&sys_semas[SYS_SEMA_SYS_DATE],0))
Pause;
OutU8(0x70,0x0A);
do {
while (InU8(0x71) & 0x80)
Pause;
OutU8(0x70,0);
b[2]=InU8(0x71);
OutU8(0x70,2);
b[3]=InU8(0x71);
OutU8(0x70,4);
b[4]=InU8(0x71);
OutU8(0x70,6);
b[5]=InU8(0x71);
OutU8(0x70,7);
b[6]=InU8(0x71);
OutU8(0x70,8);
b[7]=InU8(0x71);
OutU8(0x70,9);
b[8]=InU8(0x71);
OutU8(0x70,0x0A);
} while (InU8(0x71) & 0x80);
OutU8(0x70,0x0B);
if (InU8(0x71) & 4)
is_bcd=FALSE;
else
is_bcd=TRUE;
LBtr(&sys_semas[SYS_SEMA_SYS_DATE],0);
PopFD;
if (is_bcd)
for (i=2;i<9;i++)
b[i]=Bcd2Bin(b[i]);
if (_ds->year>255) _ds->year=255;
_ds->year+=2000;
if (_ds->mon>12) _ds->mon=12;
if (_ds->day_of_mon>31) _ds->day_of_mon=31;
if (_ds->day_of_week>6) _ds->day_of_week=6;
if (_ds->hour>23) _ds->hour=23;
if (_ds->min>59) _ds->min=59;
if (_ds->sec>59) _ds->sec=59;
}
CDate GetDateTime()
{
CDateStruct ds;
GetDateTimeStruct(&ds);
return DateStruct2Date(&ds)-local_time_offset;
}
U0 DateTimeFmtMapsRst()
{
I64 i;
for (i=0;i<DF_NUM;i++)
date_fmt_map[i]=i;
for (i=0;i<TF_NUM;i++)
time_fmt_map[i]=i;
}
U8 *MPrintTime(CDate cdt,I64 sub_fmt)
{
CDateStruct ds;
if (sub_fmt<TF_NUM)
sub_fmt=time_fmt_map[sub_fmt];
switch (sub_fmt) {
case TF_HH24_MM:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d:%02d",ds.hour,ds.min);
case TF_HH12_MM_SS_AM:
Date2DateStruct(&ds,cdt+local_time_offset);
if (ds.hour>=12)
return MPrint("%02d:%02d:%02d pm",ds.hour-12,ds.min,ds.sec);
else
return MPrint("%02d:%02d:%02d am",ds.hour,ds.min,ds.sec);
case TF_HH12_MM_AM:
Date2DateStruct(&ds,cdt+local_time_offset);
if (ds.hour>=12)
return MPrint("%02d:%02d pm",ds.hour-12,ds.min);
else
return MPrint("%02d:%02d am",ds.hour,ds.min);
case TF_HH12_MM_SSA:
Date2DateStruct(&ds,cdt+local_time_offset);
if (ds.hour>=12)
return MPrint("%02d:%02d:%02dp",ds.hour-12,ds.min,ds.sec);
else
return MPrint("%02d:%02d:%02da",ds.hour,ds.min,ds.sec);
case TF_HH12_MMA:
Date2DateStruct(&ds,cdt+local_time_offset);
if (ds.hour>=12)
return MPrint("%02d:%02dp",ds.hour-12,ds.min);
else
return MPrint("%02d:%02da",ds.hour,ds.min);
case TF_H_M:
Date2DateStruct(&ds,cdt);
return MPrint("%dh %02dm",ds.hour+cdt.date*24,ds.min);
case TF_H_M_S:
Date2DateStruct(&ds,cdt);
return MPrint("%dh %02dm %02ds",ds.hour+cdt.date*24,ds.min,ds.sec);
case TF_D_H_M:
Date2DateStruct(&ds,cdt);
return MPrint("%dd %02dh %02dm",cdt.date,ds.hour,ds.min);
case TF_D_H_M_S:
Date2DateStruct(&ds,cdt);
return MPrint("%dd %02dh %02dm %02ds",cdt.date,ds.hour,ds.min,ds.sec);
case TF_D_H_M_Sh:
Date2DateStruct(&ds,cdt);
return MPrint("%dd %02dh %02dm %02d.%02ds",cdt.date,ds.hour,ds.min,ds.sec,ds.sec100);
case TF_H_M_Sh:
Date2DateStruct(&ds,cdt);
return MPrint("%dh %02dm %02d.%02ds",ds.hour+cdt.date*24,ds.min,ds.sec,ds.sec100);
case TF_Sh:
Date2DateStruct(&ds,cdt);
return MPrint("%d.%02d",60*((cdt.date*24+ds.hour)*60+ds.min)+ds.sec,ds.sec100);
case TF_M_Sh:
Date2DateStruct(&ds,cdt);
return MPrint("%02d:%02d.%02d",60*(cdt.date*24+ds.hour)+ds.min,ds.sec,ds.sec100);
case TF_H_M_Sh2:
Date2DateStruct(&ds,cdt);
return MPrint("%02d:%02d:%02d.%02d",cdt.date*24+ds.hour,ds.min,ds.sec,ds.sec100);
case TF_D_H_M_Sht:
Date2DateStruct(&ds,cdt);
return MPrint("%dd %02dh %02dm %02d.%04ds",cdt.date,ds.hour,ds.min,ds.sec,100*ds.sec100+ds.sec10000);
case TF_H_M_Sht:
Date2DateStruct(&ds,cdt);
return MPrint("%dh %02dm %02d.%04ds",ds.hour+cdt.date*24,ds.min,ds.sec,100*ds.sec100+ds.sec10000);
case TF_Sht:
Date2DateStruct(&ds,cdt);
return MPrint("%d.%04d",60*((cdt.date*24+ds.hour)*60+ds.min)+ds.sec,100*ds.sec100+ds.sec10000);
case TF_M_Sht:
Date2DateStruct(&ds,cdt);
return MPrint("%02d:%02d.%04d",60*(cdt.date*24+ds.hour)+ds.min,ds.sec,100*ds.sec100+ds.sec10000);
case TF_H_M_Sht2:
Date2DateStruct(&ds,cdt);
return MPrint("%02d:%02d:%02d.%04d",cdt.date*24+ds.hour,ds.min,ds.sec,100*ds.sec100+ds.sec10000);
case TF_HH24:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d",ds.hour);
case TF_MM:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d",ds.min);
case TF_SS:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d",ds.sec);
case TF_HH24_MM_SS:
default:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d:%02d:%02d",ds.hour,ds.min,ds.sec);
}
}
U8 *MPrintDate(CDate cdt,I64 sub_fmt)
{
CDateStruct ds;
if (sub_fmt<DF_NUM)
sub_fmt=date_fmt_map[sub_fmt];
switch (sub_fmt) {
case DF_MM_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d",ds.mon,ds.day_of_mon);
case DF_wek_MM_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d/%02d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon,ds.day_of_mon);
case DF_wek_MM_DD_YY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d/%02d/%02d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon,ds.day_of_mon,ds.year%100);
case DF_MM_DD_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d/%d",ds.mon,ds.day_of_mon,ds.year);
case DF_wek_MM_DD_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d/%02d/%d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon,ds.day_of_mon,ds.year);
case DF_mon_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d",ds.mon-1,"ST_MONTHS",ds.day_of_mon);
case DF_wek_mon_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ, %3tZ %02d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon-1,"ST_MONTHS",ds.day_of_mon);
case DF_mon_DD_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d,%04d",ds.mon-1,"ST_MONTHS",ds.day_of_mon,ds.year);
case DF_wek_mon_DD_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ, %3tZ %02d,%d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon-1,"ST_MONTHS",ds.day_of_mon,ds.year);
case DF_month_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z %d",ds.mon-1,"ST_MONTHS",ds.day_of_mon);
case DF_week_month_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z, %Z %d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon-1,"ST_MONTHS",ds.day_of_mon);
case DF_month_DD_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z %d,%d",ds.mon-1,"ST_MONTHS",ds.day_of_mon,ds.year);
case DF_week_month_DD_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z, %Z %d,%d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.mon-1,"ST_MONTHS",ds.day_of_mon,ds.year);
case DF_DD_MM_YY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d/%02d",ds.day_of_mon,ds.mon,ds.year%100);
case DF_DD_MM:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d",ds.day_of_mon,ds.mon);
case DF_wek_DD_MM:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d/%02d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon);
case DF_wek_DD_MM_YY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d/%02d/%02d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon,ds.year%100);
case DF_DD_MM_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d/%d",ds.day_of_mon,ds.mon,ds.year);
case DF_wek_DD_MM_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d/%02d/%d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon,ds.year);
case DF_DD_mon:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d %3tZ",ds.day_of_mon,ds.mon-1,"ST_MONTHS");
case DF_wek_DD_mon:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ, %02d %3tZ",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon-1,"ST_MONTHS");
case DF_DD_mon_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d %3tZ,%04d",ds.day_of_mon,ds.mon-1,"ST_MONTHS",ds.year);
case DF_wek_DD_mon_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ, %02d %3tZ,%d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon-1,"ST_MONTHS",ds.year);
case DF_DD_month:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d %Z",ds.day_of_mon,ds.mon-1,"ST_MONTHS");
case DF_week_DD_month:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z, %d %Z",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon-1,"ST_MONTHS");
case DF_DD_month_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d %Z,%d",ds.day_of_mon,ds.mon-1,"ST_MONTHS",ds.year);
case DF_week_DD_month_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z, %d %Z,%d",ds.day_of_week,"ST_DAYS_OF_WEEK",
ds.day_of_mon,ds.mon-1,"ST_MONTHS",ds.year);
case DF_YY_MM_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d/%02d",ds.year%100,ds.mon,ds.day_of_mon);
case DF_YYYY_MM_DD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d/%02d/%02d",ds.year,ds.mon,ds.day_of_mon);
case DF_YYMMDD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d%02d%02d",ds.year%100,ds.mon,ds.day_of_mon);
case DF_YYYYMMDD:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d%02d%02d",ds.year,ds.mon,ds.day_of_mon);
case DF_MMDDYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d%02d%02d",ds.mon,ds.day_of_mon,ds.year%100);
case DF_MMDDYYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d%02d%d",ds.mon,ds.day_of_mon,ds.year);
case DF_wek:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ",ds.day_of_week,"ST_DAYS_OF_WEEK");
case DF_week:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z",ds.day_of_week,"ST_DAYS_OF_WEEK");
case DF_mon:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ",ds.mon-1,"ST_MONTHS");
case DF_month:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z",ds.mon-1,"ST_MONTHS");
case DF_YYYY_mon:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d %3tZ",ds.year,ds.mon-1,"ST_MONTHS");
case DF_YYYY_month:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d %Z",ds.year,ds.mon-1,"ST_MONTHS");
case DF_YY_mon:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d %3tZ",ds.year%100,ds.mon-1,"ST_MONTHS");
case DF_YY_month:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d %Z",ds.year%100,ds.mon-1,"ST_MONTHS");
case DF_mon_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %d",ds.mon-1,"ST_MONTHS",ds.year);
case DF_month_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z %d",ds.mon-1,"ST_MONTHS",ds.year);
case DF_mon_YY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%3tZ %02d",ds.mon-1,"ST_MONTHS",ds.year%100);
case DF_month_YY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%Z %02d",ds.mon-1,"ST_MONTHS",ds.year%100);
case DF_YY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d",ds.year%100);
case DF_YYYY:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%d",ds.year);
case DF_D:
return MPrint("%d days",cdt.date);
case DF_M:
return MPrint("%d mons",ToI64(cdt/(CDATE_YEAR_DAYS/12))>>32);
case DF_Y:
return MPrint("%d years",ToI64(cdt/CDATE_YEAR_DAYS)>>32);
case DF_D2:
return MPrint("%d",cdt.date);
case DF_M2:
return MPrint("%d",ToI64(cdt/(CDATE_YEAR_DAYS/12))>>32);
case DF_Y2:
return MPrint("%d",ToI64(cdt/CDATE_YEAR_DAYS)>>32);
case DF_D3:
return MPrint("%0.1f",cdt/ToF64(MAX_U32+1));
case DF_M3:
return MPrint("%0.1f",cdt/ToF64(MAX_U32+1)/(CDATE_YEAR_DAYS/12));
case DF_Y3:
return MPrint("%0.1f",cdt/ToF64(MAX_U32+1)/CDATE_YEAR_DAYS);
case DF_MM_DD_YY:
default:
Date2DateStruct(&ds,cdt+local_time_offset);
return MPrint("%02d/%02d/%02d",ds.mon,ds.day_of_mon,ds.year%100);
}
}
Reference in new issue View Git Blame Copy Permalink