/*!
     Copyright 2017 	АО "НИИЭТ" и ООО "НПФ ВЕКТОР"

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

       http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License.
 
 \file      V_RTC_Clock.c
 \brief     Модуль для работы с часами реального времени
 \author    ООО "НПФ Вектор". http://motorcontrol.ru
 \version   v 2.0 25/03/2016

 */

/*

 *
 *  Часы DS1340 работают в режиме слэйва и имеют 10 регимтров данных/контроля (0x0 ... 0x9).
 * Время и дата лежат в регистрах 0x0 ... 0x6.
 * Регистр контроля часов, регистр заряда акк., и регистр флагов лежат в 0x7 ... 0x9.
 * Указатель на текущий регистр можно поменять, отправив в часы соответствующий номер .
 * Чтобы прочитать что-то из часов, сначала нужно обратиться к часам в режиме записи и передать номер
 * регистра, с которого нужно считать данные. После этого снова нужно обратиться к часам, но уже
 * в режиме чтения. Тогда часы начнут слать содержимое всех регистров по очереди, начиная с того
 * регистра, адрес которого был передан в предыдущем обращении. При такой "потоковой" передаче
 * указатель на текущий регистр будет автоинкрементироваться, причем в такой последовательности
 * (предположим, был установлен адрес 0x5)
 * 0x5 -> 0x6 -> 0x7 -> 0x0 -> 0x1 -> ... -> 0x7 -> 0x0
 * Чтобы попасть в последние два регистра, нужно передать их адреса явно.
 *
 * Для того, чтобы записать в часики время, нужно проделать примерно то же самое.
 * В режиме записи отправляется сначала номер регистра, в который нужно записать что-то, а затем
 * данные, которые нужно туда положить. Указатель на регистры при потоковой передаче инкрементируется
 * так же, как и при чтении.
 *
 * Данные хранятся в двоично-десятичном формате.
 */

//Закомменченные функции вверху отличаются от нижних регистрами (RTC и RTC_REG). Нужны ли закомменченные - не знаю.
#include <DSP.h>
#include <main.h>
// Включатель постоянного считывания времени с ЧРВ. Если дефайн закоменчен - считывание производится только при запуске, а потом
// время считается программно. Если раскомменчен - каждую секунду время считается с часов (секунда отсчитывается в мс)
#define USE_RTC

/* Инициализация  RTC */
void RTC_Clock_Init(TRTCClock *p) {

}

/* Функция считывания текущего времени */
void RTC_Clock_Read_Time(TRTCClock *p) {
	Uint16 tempSec, tempMin, tempHour, tempDOW, tempDay, tempMonth, tempYear;

	/* Остановить обновление теневых регисторв */
	RTC->SHDW = 0x0;

	/* Прочитать время */
	tempSec = RTC->SEC;
	tempMin = RTC->MIN;
	tempHour = RTC->HOUR;
	tempDOW = RTC->DOW;
	tempDay = RTC->DAY;
	tempMonth = RTC->MONTH;
	tempYear = RTC->YEAR;

	/* Запустить обновление теневых регисторв */
	RTC->SHDW = 0x80;

	// Затем нужно отформатировать пришедшие данные, т.к. они приходят в виде двоично-десятичных чисел (отстой)
	p->second = (tempSec & 0xF) + (((tempSec & 0x70) >> 4) * 10);
	p->minute = (tempMin & 0xF) + (((tempMin & 0x70) >> 4) * 10);
	p->hour = (tempHour & 0xF) + (((tempHour & 0x30) >> 4) * 10);
	p->DOW = (tempDOW & 0x7);
	p->day = (tempDay & 0xF) + (((tempDay & 0x30) >> 4) * 10);
	p->month = (tempMonth & 0xF) + (((tempMonth & 0x10) >> 4) * 10);
	p->year = (tempYear & 0xF) + (((tempYear & 0xF0) >> 4) * 10);

	// Наконец, упаковка основных показателей в структурку
	p->packed_time = ((Uint32) p->day << 27) + ((Uint32) p->month << 23)
			+ ((Uint32) p->year << 17) + ((Uint32) p->hour << 12)
			+ ((Uint32) p->minute << 6) + (Uint32) p->second;

}

/* Функция установки времени */
void RTC_Clock_Set_Time(TRTCClock *p) {
	// Временные переменные (секунды, минуты, часы...)
	unsigned char tempSec, tempMin, tempHour, tempDOW, tempDay, tempMonth,
			tempYear;
	p->tryCounter = 0;

	// Сначала нужно распаковать дату
	p->second = p->timeToSet & 0x3F;
	p->minute = (p->timeToSet >> 6) & 0x3F;
	p->hour = (p->timeToSet >> 12) & 0x1F;
	p->year = (p->timeToSet >> 17) & 0x3F;
	p->month = (p->timeToSet >> 23) & 0xF;
	p->day = (p->timeToSet >> 27) & 0x1F;

	tempSec = ((p->second / 10) << 4) + ((p->second % 10) & 0xF);
	tempMin = ((p->minute / 10) << 4) + ((p->minute % 10) & 0xF);
	tempHour = ((p->hour / 10) << 4) + ((p->hour % 10) & 0xF);
	tempDOW = p->DOW & 0x3;
	tempDay = ((p->day / 10) << 4) + ((p->day % 10) & 0xF);
	tempMonth = ((p->month / 10) << 4) + ((p->month % 10) & 0xF);
	tempYear = ((p->year / 10) << 4) + ((p->year % 10) & 0xF);

	p->msInDay = (Uint32) p->hour * 3600000 + (Uint32) p->minute * 60000
			+ (Uint32) p->second * 1000;

	// Расчёт дня недели (пижонство)
	int16 a = (14 - p->month) / 12;
	int16 y = p->year - a;
	int16 m = p->month + 12 * a - 2;
	p->DOW = (7000 + (p->day + y + y / 4 - y / 100 + y / 400 + (31 * m) / 12))
			% 7;

	RTC->YEAR = tempYear;
	RTC->MONTH = tempMonth;
	RTC->DAY = tempDay;
	RTC->DOW = tempDOW;
	RTC->HOUR = tempHour;
	RTC->MIN = tempMin;
	RTC->SEC = tempSec;
}

void RTC_Clock_Ms_Calc(TRTCClock *p) {
	p->ms++;
	p->msInDay++;
#ifdef USE_RTC
	if (p->ms > 999) {
		p->ms = 0;
		p->readTimeFlag = 1;
	}

	//проверка работы часов реального времени и установка, в зависимсоти от этого, указателя для банка аварий
	if (p->secondPrev == p->second)	//секунда не меняется
		p->stoppedCounter++;				//считаем, как долго
	else										//сменилась, значит часы работают
		p->stoppedCounter = 0;

	if ((p->stoppedCounter < RTC_SECOND_WAITING_TIMEOUT) && (p->year<48))		//часы работают - тикают и год не 2048 (как когда нет батарейки)
		p->ClockOk=1;

	else
	{
		p->ClockOk=0;
		p->stoppedCounter = RTC_SECOND_WAITING_TIMEOUT;
	}
	p->secondPrev = p->second;





#else

	if (p->ms == 1000) {
		p->ms = 0;
		p->second++;

		if (p->second == 60) {
			p->second = 0;
			p->minute++;
			if (p->minute == 60) {
				p->minute = 0;
				p->hour++;
				if (p->hour == 24) {
					p->hour = 0;
					p->msInDay = 0;
					p->day++;
				}
			}
		}
		p->packed_time = ((Uint32)p->day << 27) + ((Uint32)p->month << 23) + ((Uint32)p->year << 17) +
		((Uint32)p->hour << 12) + ((Uint32)p->minute << 6) + (Uint32)p->second;
	}

#endif

}

void RTC_Clock_Slow_Calc(TRTCClock *p) {
	if (p->setTimeFlag == 1) {
		p->timeToSet = p->packed_time;
		p->set(p);
		p->read(p);
		p->msInDay = (Uint32) p->hour * 3600000 + (Uint32) p->minute * 60000
				+ (Uint32) p->second * 1000;
		p->setTimeFlag = 0;
	} else if (p->readTimeFlag == 1) {
		p->read(p);
		p->readTimeFlag = 0;
	}
}