/*****************************************************************************/
/* ここから                                                                  */
/*****************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#include "wonx_include/timer.h"

#include "wonx_configure.h"
#include "WonX.h"
#include "etc.h"

/* int tm_year; year - 1900 */
static int get_year(struct tm * tblock) { return (tblock->tm_year - 100); }
/* int tm_mon; month of year (0-11) */
static int get_month(struct tm * tblock) { return (tblock->tm_mon + 1); }
/* int tm_mday; day of month (1-31) */
static int get_day(struct tm * tblock) { return (tblock->tm_mday); }
/* int tm_wday; day of week (Sunday = 0) */
static int get_week(struct tm * tblock) { return (tblock->tm_wday); }
/* int tm_hour; hours (0 - 23) */
static int get_hour(struct tm * tblock) { return (tblock->tm_hour); }
/* int tm_min; minutes (0 - 59) */
static int get_minute(struct tm * tblock) { return (tblock->tm_min); }
/* int tm_sec; seconds (0 - 60) */
static int get_second(struct tm * tblock) { return (tblock->tm_sec); }

/*****************************************************************************/
/* 互換関数の定義                                                            */
/*****************************************************************************/

/*
 * Xサーバとの同期の整合性がとれなくなるなどの問題が考えられるので，
 * 互換関数の内部は UNIXTimer_Pause(), UNIXTimer_Unpause() でくくり，
 * タイマ割り込みを一時停止して処理を行う．また，unpause するまえに，
 * かならず sync するようにする．
 */

/*
 * タイマの一時停止の２重解除の問題が出てくるので，
 * 互換関数から互換関数を呼んではいけない．
 * (一時停止はネストされるが，いちおう)
 * 似たような処理をする関数の場合は，必ず static な別関数に処理をまとめ，
 * そっちを呼び出すようにすること．
 * 引数の表示の問題もあるしね．
 */

void rtc_set_datetime(int type, unsigned int value)
{
  printf("call : rtc_set_datetime() : type = %d, value = %d\n",
	 type, (int)value);
  fflush(stdout);

  /* 未サポート */
  printf("call : rtc_set_datetime() : not supported\n");

  printf("call : rtc_set_datetime() : return value = none\n");
  fflush(stdout);

  return;
}

unsigned int rtc_get_datetime(int type)
{
  unsigned int ret = 0;
  time_t timer;
  struct tm * tblock;

  printf("call : rtc_get_datetime() : type = %d\n", type);
  fflush(stdout);

  time(&timer);
  tblock = localtime(&timer);

  switch (type) {
  case RTC_YEAR        : ret = get_year(  tblock); break;
  case RTC_MONTH       : ret = get_month( tblock); break;
  case RTC_DATE        : ret = get_day(   tblock); break;
  case RTC_DAY_OF_WEEK : ret = get_week(  tblock); break;
  case RTC_HOUR        : ret = get_hour(  tblock); break;
  case RTC_MIN         : ret = get_minute(tblock); break;
  case RTC_SEC         : ret = get_second(tblock); break;
  default : WonX_Error("rtc_get_datetime", "Unknown parameter.");
  }

  printf("call : rtc_get_datetime() : return value = %d\n", (int)ret);
  fflush(stdout);

  return (ret);
}

void rtc_set_datetime_struct(datetime_t * d)
{
  printf("call : rtc_set_datetime_struct() : buffer = %p\n", (void *)d);
  fflush(stdout);

  /* 未サポート */
  printf("call : rtc_set_datetime_struct() : not supported\n");

  printf("call : rtc_set_datetime_struct() : return value = none\n");
  fflush(stdout);

  return;
}

void rtc_get_datetime_struct(datetime_t * d)
{
  time_t timer;
  struct tm * tblock;

  printf("call : rtc_get_datetime_struct() : buffer = %p\n", (void *)d);
  fflush(stdout);

  time(&timer);
  tblock = localtime(&timer);

  d->year = get_year(tblock);
  d->month = get_month(tblock);
  d->date = get_day(tblock);
  d->day_of_week = get_week(tblock);
  d->hour = get_hour(tblock);
  d->minute = get_minute(tblock);
  d->second = get_second(tblock);

  printf("call : rtc_get_datetime_struct() : return value = none\n");
  fflush(stdout);

  return;
}

void rtc_enable_alarm(int hour, int minute)
{
  printf("call : rtc_enable_alarm() : hour = %d, minute = %d\n", hour, minute);
  fflush(stdout);

  /* 未サポート */
  printf("call : rtc_enable_alarm() : not supported\n");

  printf("call : rtc_enable_alarm() : return value = none\n");
  fflush(stdout);

  return;
}

void rtc_disable_alarm(void)
{
  printf("call : rtc_disable_alarm() : \n");
  fflush(stdout);

  /* 未サポート */
  printf("call : rtc_disable_alarm() : not supported\n");

  printf("call : rtc_disable_alarm() : return value = none\n");
  fflush(stdout);

  return;
}

void timer_enable(int type, unsigned int auto_preset, unsigned int count)
{
  WWTimer ww_timer;

  if (!WonX_IsCreated()) WonX_Create();

  /* タイマを一時停止する */
  UNIXTimer_Pause(WonXSystem_GetUNIXTimer(WonX_GetWonXSystem()));

  printf("call : timer_enable() : type = %d, auto_preset = %u, count = %u\n",
	 type, (int)auto_preset, (int)count);
  fflush(stdout);

  /*
   * TIMER_HBLANK の場合は，1/(75*144) 秒?
   * TIMER_VBLANK の場合は，1/75 秒
   * だが，実際にそんな短い時間にしたら wonx の描画がついていけないので，
   * だいぶ長めにしてある．
   */

  switch (type) {
  case TIMER_VBLANK:
    ww_timer = WonXSystem_GetWWVBlankCountUpTimer(WonX_GetWonXSystem());
    WWTimer_SetPresetCounter(ww_timer, count * WONX_VBLANK_INTERVAL);
    break;
  case TIMER_HBLANK:
    ww_timer = WonXSystem_GetWWHBlankCountUpTimer(WonX_GetWonXSystem());
    WWTimer_SetPresetCounter(ww_timer, count * WONX_HBLANK_INTERVAL);
    break;
  default:
    /*
     * 無意味だが，gcc -Wall でコンパイルするとワーニングが出るので，
     * NULL に初期化する．
     */
    ww_timer = NULL;
    WonX_Error("timer_enable", "Invalid timer type.");
  }

  switch (auto_preset) {
  case TIMER_ONESHOT:    WWTimer_SetAutoPresetOFF(ww_timer); break;
  case TIMER_AUTOPRESET: WWTimer_SetAutoPresetON( ww_timer); break;
  default: WonX_Error("timer_enable", "Invalid auto preset type.");
  }

  WWTimer_Reset(ww_timer);
  WWTimer_ON(ww_timer);

  printf("call : timer_enable() : return value = none\n");
  fflush(stdout);

  /* タイマをもとに戻す */
  UNIXTimer_Unpause(WonXSystem_GetUNIXTimer(WonX_GetWonXSystem()));

  return;
}

void timer_disable(int type)
{
  WWTimer ww_timer;

  if (!WonX_IsCreated()) WonX_Create();

  /* タイマを一時停止する */
  UNIXTimer_Pause(WonXSystem_GetUNIXTimer(WonX_GetWonXSystem()));

  printf("call : timer_disable() : type = %d\n", type);
  fflush(stdout);

  switch (type) {
  case TIMER_VBLANK:
    ww_timer = WonXSystem_GetWWVBlankCountUpTimer(WonX_GetWonXSystem());
    break;
  case TIMER_HBLANK:
    ww_timer = WonXSystem_GetWWHBlankCountUpTimer(WonX_GetWonXSystem());
    break;
  default:
    /*
     * 無意味だが，gcc -Wall でコンパイルするとワーニングが出るので，
     * NULL に初期化する．
     */
    ww_timer = NULL;
    WonX_Error("timer_disable", "Invalid timer type.");
  }

  WWTimer_OFF(ww_timer);

  printf("call : timer_disable() : return value = none\n");
  fflush(stdout);

  /* タイマをもとに戻す */
  UNIXTimer_Unpause(WonXSystem_GetUNIXTimer(WonX_GetWonXSystem()));

  return;
}

unsigned int timer_get_count(int type)
{
  WWTimer ww_timer;
  unsigned int ret = 0;

  if (!WonX_IsCreated()) WonX_Create();

  /* タイマを一時停止する */
  UNIXTimer_Pause(WonXSystem_GetUNIXTimer(WonX_GetWonXSystem()));

  printf("call : timer_get_count() : type = %d\n", type);
  fflush(stdout);

  switch (type) {
  case TIMER_VBLANK:
    ww_timer = WonXSystem_GetWWVBlankCountUpTimer(WonX_GetWonXSystem());
    break;
  case TIMER_HBLANK:
    ww_timer = WonXSystem_GetWWHBlankCountUpTimer(WonX_GetWonXSystem());
    break;
  default:
    /*
     * 無意味だが，gcc -Wall でコンパイルするとワーニングが出るので，
     * NULL に初期化する．
     */
    ww_timer = NULL;
    WonX_Error("timer_get_count", "Invalid timer type.");
  }

  ret = WWTimer_GetCounter(ww_timer);

  printf("call : timer_get_count() : return value = %u\n", ret);
  fflush(stdout);

  /* タイマをもとに戻す */
  UNIXTimer_Unpause(WonXSystem_GetUNIXTimer(WonX_GetWonXSystem()));

  return (ret);
}

/*****************************************************************************/
/* ここまで                                                                  */
/*****************************************************************************/

/*****************************************************************************/
/* End of File.                                                              */
/*****************************************************************************/