259 lines
7.1 KiB
C
259 lines
7.1 KiB
C
/*
|
||
* File : rtc_calendar.c
|
||
* This file is part of RT-Thread RTOS
|
||
* COPYRIGHT (C) 2006, RT-Thread Develop Team
|
||
*
|
||
* The license and distribution terms for this file may be
|
||
* found in the file LICENSE in this distribution or at
|
||
* http://www.rt-thread.org/license/LICENSE
|
||
*
|
||
* Change Logs:
|
||
* Date Author Notes
|
||
* 2010-02-10 Gary Lee first implementation
|
||
* 2010-02-21 Gary Lee add __DATA__
|
||
*/
|
||
|
||
#include "rtc_calendar.h"
|
||
|
||
extern void rt_hw_console_putc(char c);
|
||
extern rt_uint8_t rt_hw_serial_getc(void);
|
||
|
||
rt_uint32_t year_seprt=0;
|
||
rt_uint8_t month_seprt=0;
|
||
rt_uint8_t day_seprt=0;
|
||
|
||
rt_int8_t *month_cn[12] ={ "一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月",
|
||
"九月", "十月", "十一月", "十二月"
|
||
};
|
||
rt_int8_t *month_en[12] ={ "January", "February", "March", "April", "May", "June", "July",
|
||
"Auguest", "September", "October", "November", "December"
|
||
};
|
||
|
||
rt_int8_t *day_en[7]={"Sunday","Monday","Tuesday","Wednesday","Thursday","Firday","Saturday"};
|
||
rt_int8_t *day_cn[7]={"星期日","星期一","星期二","星期三","星期四","星期五","星期六"};
|
||
//=====================================================================
|
||
//read from uart
|
||
|
||
rt_int32_t rt_rtc_isleap(rt_uint32_t year)
|
||
{
|
||
rt_int32_t leap = 0;
|
||
if (((year % 4 == 0) && (year % 100 != 0)) || (year % 4 == 0))
|
||
leap = 1;
|
||
return leap;
|
||
}
|
||
|
||
rt_int32_t rt_rtc_week_of_newyears_day(rt_uint32_t year)
|
||
{
|
||
rt_int32_t n = year - 1900;
|
||
n = n + (n - 1) / 4 + 1;
|
||
n = n % 7;
|
||
return n;
|
||
}
|
||
|
||
rt_int32_t rt_rtc_month_day_num(rt_int32_t month, rt_int32_t leapyn)
|
||
{
|
||
rt_int32_t len_month = 0;
|
||
if ((month == 4) || (month == 6) || (month == 9) || (month == 11))
|
||
len_month = 30;
|
||
else if (month == 2) {
|
||
if (leapyn == 1)
|
||
len_month = 29;
|
||
else
|
||
len_month = 28;
|
||
} else
|
||
len_month = 31;
|
||
return len_month;
|
||
}
|
||
|
||
rt_int32_t rt_rtc_space_days(rt_int32_t month, rt_int32_t year)
|
||
{
|
||
rt_int32_t all_days = 0;
|
||
rt_int32_t i = 1;
|
||
rt_int32_t leap = rt_rtc_isleap(year);
|
||
for (i = 1; i <= month; i++) {
|
||
all_days = all_days + rt_rtc_month_day_num(i, leap);
|
||
}
|
||
return all_days;
|
||
}
|
||
|
||
rt_int32_t rt_rtc_weekday_month(rt_int32_t month, rt_int32_t year)
|
||
{
|
||
rt_int32_t space = 0, j, all_days = 0;
|
||
rt_int32_t leap = rt_rtc_isleap(year);
|
||
space = rt_rtc_week_of_newyears_day(year);
|
||
for (j = 1; j <= month - 1; j++) {
|
||
all_days = all_days + rt_rtc_month_day_num(j, leap);
|
||
}
|
||
|
||
space = (space + all_days) % 7;
|
||
return space;
|
||
}
|
||
|
||
void rt_rtc_print_common_fmt(rt_uint8_t month, rt_uint8_t weekday, rt_uint8_t leapyear)
|
||
{
|
||
rt_int32_t day, j, len_of_month;
|
||
|
||
rt_kprintf("\n%s %s %d\n",
|
||
month_cn[month - 1], month_en[month - 1], year_seprt);
|
||
rt_kprintf("----------------------------------\n");
|
||
rt_kprintf("SUN MON TUE WED THU FRI SAT\n");
|
||
rt_kprintf("----------------------------------\n");
|
||
for (j = 0; j < weekday; j++)
|
||
rt_kprintf(" ");
|
||
len_of_month = rt_rtc_month_day_num(month, leapyear);
|
||
|
||
for (day = 1; day <= len_of_month; day++) {
|
||
if (day > 9)
|
||
rt_kprintf("%d ", day);
|
||
else
|
||
rt_kprintf("%d ", day);
|
||
weekday = weekday + 1;
|
||
if (weekday == 7) {
|
||
weekday = 0;
|
||
rt_kprintf("\n");
|
||
}
|
||
}
|
||
rt_kprintf("\n");
|
||
}
|
||
|
||
void rt_rtc_print_one_month(rt_int32_t month, rt_int32_t year)
|
||
{
|
||
rt_int32_t weekday = rt_rtc_weekday_month(month, year);
|
||
rt_int32_t leapyear = rt_rtc_isleap(year);
|
||
rt_rtc_print_common_fmt(month, weekday, leapyear);
|
||
}
|
||
|
||
|
||
void rt_rtc_print_calendar(rt_uint32_t year)
|
||
{
|
||
rt_uint8_t month;
|
||
|
||
if (month_seprt == 0) {
|
||
for (month = 1; month <= 12; month = month + 1) {
|
||
rt_rtc_print_one_month(month, year);
|
||
}
|
||
} else
|
||
rt_rtc_print_one_month(month_seprt, year);
|
||
|
||
}
|
||
|
||
void rt_rtc_year_month_day_seperate(rt_uint32_t year)
|
||
{
|
||
rt_uint32_t temp;
|
||
|
||
if (year < 1900 || year > 30000000) {
|
||
rt_kprintf("\nPlease input year and month, if not, system default is loaded!\n");
|
||
year = DEFAULT_YEAR;
|
||
}
|
||
if (year / 100 < 30 && year / 100 > 18)
|
||
{
|
||
year_seprt = year;
|
||
month_seprt = 0;
|
||
day_seprt = 0;
|
||
} else if (year / 100 < 300 && year / 100 > 196)
|
||
{
|
||
year_seprt = year / 10;
|
||
month_seprt = year % 10;
|
||
day_seprt = 0;
|
||
} else if (year / 100 < 3000 && year / 100 > 1960)
|
||
{
|
||
year_seprt = year / 100;
|
||
month_seprt = year % 100;
|
||
if (month_seprt > 12) {
|
||
temp = month_seprt;
|
||
month_seprt = temp / 10;
|
||
day_seprt = temp % 10;
|
||
} else if (month_seprt < 10)
|
||
day_seprt = 0;
|
||
|
||
} else if (year / 100 < 30000 && year / 100 > 19600)
|
||
{
|
||
year_seprt = year / 1000;
|
||
month_seprt = (year % 1000) / 100;
|
||
if (month_seprt == 0)
|
||
{
|
||
month_seprt = (year % 100) / 10;
|
||
day_seprt = year % 10;
|
||
} else
|
||
day_seprt = year % 100;
|
||
temp = rt_rtc_month_day_num(month_seprt, rt_rtc_isleap(year_seprt));
|
||
if (day_seprt > temp) {
|
||
rt_kprintf
|
||
("\nError：There are only %d days this month, using default date\n", temp);
|
||
day_seprt = DEFAULT_DAY;
|
||
}
|
||
} else {
|
||
year_seprt = year / 10000;
|
||
month_seprt = (year % 10000) / 100;
|
||
if (month_seprt > 12) {
|
||
rt_kprintf
|
||
("\nError: There are only 12 months a year, using default date\n");
|
||
month_seprt = DEFAULT_MONTH;
|
||
}
|
||
day_seprt = year % 100;
|
||
temp = rt_rtc_month_day_num(month_seprt, rt_rtc_isleap(year_seprt));
|
||
if (day_seprt > temp) {
|
||
rt_kprintf
|
||
("\nError: There are %d days in this month, using default date\n", temp);
|
||
day_seprt = DEFAULT_DAY;
|
||
}
|
||
}
|
||
}
|
||
|
||
void rt_rtc_weekdate_calculate(void)
|
||
{
|
||
rt_uint32_t temp;
|
||
|
||
temp = rt_rtc_weekday_month(month_seprt, year_seprt) - 1;
|
||
temp = (temp + day_seprt) % 7;
|
||
rt_kprintf("%d/%d/%d/:%s\n", year_seprt, month_seprt, day_seprt, day_cn[temp]);
|
||
|
||
}
|
||
|
||
extern char *rt_strlcpy(char *dest, const char *src, rt_ubase_t n);
|
||
rt_uint8_t *list_month[12]={"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
|
||
void rt_calendar(void)
|
||
{
|
||
//static rt_uint8_t receive_char;
|
||
static rt_int32_t year;
|
||
rt_uint8_t i = 0;
|
||
rt_int32_t result, num_month, num_year;
|
||
rt_uint8_t date_year[7], date_month[3], *date = __DATE__;
|
||
|
||
rt_strlcpy((char *)date_month, (const char *)date, 3);
|
||
date += 7;
|
||
rt_strlcpy((char *)date_year, (const char *)date, 4);
|
||
date = RT_NULL;
|
||
num_year = atoi(date_year);
|
||
do{
|
||
result = strcmp((const char *)date_month, (const char *)list_month[i++]);
|
||
if(result !=0)
|
||
result = 1;
|
||
else
|
||
num_month = i;
|
||
}while(result);
|
||
i = 0;
|
||
result = 1;
|
||
year = num_year*100 + num_month;
|
||
//year = Uart_GetIntNum_MT();
|
||
//rt_kprintf("\nThe date is %d\n", year);
|
||
rt_rtc_year_month_day_seperate(year);
|
||
|
||
if (day_seprt == 0 && month_seprt == 0) {
|
||
//rt_kprintf("\nYear: %d\n", year_seprt);
|
||
rt_rtc_print_calendar(year_seprt);
|
||
|
||
} else if (day_seprt == 0) {
|
||
//rt_kprintf("\n%d/%d\n", year_seprt, month_seprt);
|
||
rt_rtc_print_calendar(year_seprt);
|
||
|
||
} else {
|
||
//rt_kprintf("\n%d/%d/%d\n", year_seprt, month_seprt, day_seprt);
|
||
rt_rtc_weekdate_calculate();
|
||
}
|
||
}
|
||
#ifdef RT_USING_FINSH
|
||
#include <finsh.h>
|
||
FINSH_FUNCTION_EXPORT(rt_calendar, print calendar)
|
||
#endif
|