#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <errno.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <sys/time.h>
#include <linux/rtc.h>
#include <string>

#include "common.h"
#include "rtc_test.h"
#include "test_case.h"
#include "language.h"

extern "C" {
    #include "script.h"
}

using namespace std;

int rtc_xopen(int flags)
{
    int rtc;
    char major_rtc[] = "/dev/rtc";
    char minor_rtc[] = "/dev/rtc0";

    rtc = open(major_rtc, flags);
    if (rtc < 0) {
        rtc = open(minor_rtc, flags);
        if (rtc < 0) {
            printf("open %s failed:%s\n", minor_rtc,
                   strerror(errno));
        }
    }

    else {
        printf("open %s\n", major_rtc);
    }
    return rtc;
}

int rtc_read_tm(struct tm *ptm, int fd)
{
    int ret;

    memset(ptm, 0, sizeof(*ptm));

    ret = ioctl(fd, RTC_RD_TIME, ptm);
    if (ret < 0)
    printf("read rtc failed:%s\n", strerror(errno));
    else
    ptm->tm_isdst = -1;	/* "not known" */

    return ret;
}

static int read_rtc(time_t *time_p)
{
    int fd;
    int ret;
    struct tm tm_time;

    fd = rtc_xopen(O_RDONLY);
    if (fd < 0)
    return fd;
    else
    ret = rtc_read_tm(&tm_time, fd);

    close(fd);

    if (ret < 0)
    return ret;

    else
    *time_p = mktime(&tm_time);

    return 0;
}

int get_system_time(char *dt)
{
    int ret;
    int fd;
    time_t t;
    time_t timep;
    struct tm *p;

    ret = read_rtc(&timep);
    if (ret < 0)
    return ret;

    else
    p = localtime(&timep);
    sprintf(dt, "%04d-%02d-%02d %02d:%02d:%02d", (1900 + p->tm_year),
            (1 + p->tm_mon), p->tm_mday, p->tm_hour, p->tm_min, p->tm_sec);

    return 0;
}

int set_system_time(struct rtc_time *rtc_time)
{
    int ret;
    int fd;

    fd = open("/dev/rtc0", O_RDWR);
    if (fd < 0) {
        printf("open /dev/rtc0 failed:%s\n", strerror(errno));
        return -1;
    }
    ret = ioctl(fd, RTC_SET_TIME, rtc_time);
    if (ret < 0) {
        printf("set rtc failed:%s\n", strerror(errno));
        return -1;
    }

    close(fd);

    return 0;
}

void *rtc_test(void *argc, display_callback *hook)
{
    struct testcase_info *tc_info = (struct testcase_info *)argc;
    char dt[32] = { "20120926.132600" };
    int ret, y;
    struct tm tm;
    struct timeval tv;
    char *s;
    int day, hour;
    time_t t;
    struct tm *p;
    struct timespec ts;
    struct rtc_time rtc;  

    char msg[50];
    snprintf(msg, sizeof(msg), "%s:[%s]", PCBA_RTC, PCBA_TESTING);
    y = tc_info->y;
    hook->handle_refresh_screen(tc_info->y, msg);
    s = (char *)malloc(32);
    if (script_fetch("rtc", "module_args", (int *)dt, 8) == 0)
    strncpy(s, dt, 32);
    day = atoi(s);
    while (*s && *s != '.')
    s++;
    if (*s)
    s++;
    hour = atoi(s);

    tm.tm_year = day / 10000 - 1900;
    tm.tm_mon = (day % 10000) / 100 - 1;
    tm.tm_mday = (day % 100);
    tm.tm_hour = hour / 10000;
    tm.tm_min = (hour % 10000) / 100;
    tm.tm_sec = (hour % 100);
    tm.tm_isdst = -1;
    tv.tv_sec = mktime(&tm);
    tv.tv_usec = 0;
    printf("set rtc time :%lu\n", tv.tv_sec);
    rtc.tm_sec = tm.tm_sec;
    rtc.tm_min = tm.tm_min;
    rtc.tm_hour = tm.tm_hour;
    rtc.tm_mday = tm.tm_mday;
    rtc.tm_mon = tm.tm_mon;
    rtc.tm_year = tm.tm_year;

    ret = set_system_time(&rtc);
    if (ret < 0) {
        printf("test rtc failed:set_system_time failed\n");
        ret = -1;
    } else {
        usleep(1000000);

        while (1) {
            t = get_system_time(dt);
            if (t < 0) {
                ret = -1;
                break;
            }
            p = localtime(&t);
            char current_time[50];
            snprintf(current_time, sizeof(current_time), "%s:[%s] { %04d/%02d/%02d %02d:%02d:%02d }",
                    PCBA_RTC, PCBA_SECCESS,
                    (1900 + p->tm_year),
                    (1 + p->tm_mon), p->tm_mday,
                    p->tm_hour, p->tm_min, p->tm_sec);
            hook->handle_refresh_screen_hl(tc_info->y, current_time, false);
            usleep(1000000);
        }
    }

    if (ret == 0) {
        tc_info->result = 0;
    } else {
        tc_info->result = -1;
        snprintf(msg, sizeof(msg), "%s:[%s]", PCBA_RTC, PCBA_FAILED);
        hook->handle_refresh_screen_hl(tc_info->y, msg, true);
    }
    return argc;
}