2014-05-03 16:27:38 -06:00
|
|
|
/*
|
|
|
|
* This file is part of the Micro Python project, http://micropython.org/
|
|
|
|
*
|
|
|
|
* The MIT License (MIT)
|
|
|
|
*
|
|
|
|
* Copyright (c) 2013, 2014 Damien P. George
|
|
|
|
*
|
|
|
|
* Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
|
|
* of this software and associated documentation files (the "Software"), to deal
|
|
|
|
* in the Software without restriction, including without limitation the rights
|
|
|
|
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
|
* copies of the Software, and to permit persons to whom the Software is
|
|
|
|
* furnished to do so, subject to the following conditions:
|
|
|
|
*
|
|
|
|
* The above copyright notice and this permission notice shall be included in
|
|
|
|
* all copies or substantial portions of the Software.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
|
|
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
|
|
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
|
|
* THE SOFTWARE.
|
|
|
|
*/
|
|
|
|
|
2014-03-15 06:54:48 -06:00
|
|
|
#include <stdio.h>
|
|
|
|
|
|
|
|
#include "stm32f4xx_hal.h"
|
|
|
|
|
|
|
|
#include "mpconfig.h"
|
2014-06-28 14:32:03 -06:00
|
|
|
#include "misc.h"
|
2014-03-15 06:54:48 -06:00
|
|
|
#include "qstr.h"
|
|
|
|
#include "obj.h"
|
2014-04-18 19:17:30 -06:00
|
|
|
#include "runtime.h"
|
2014-03-15 06:54:48 -06:00
|
|
|
#include "rtc.h"
|
|
|
|
|
2014-05-03 05:40:53 -06:00
|
|
|
/// \moduleref pyb
|
|
|
|
/// \class RTC - real time clock
|
|
|
|
///
|
|
|
|
/// The RTC is and independent clock that keeps track of the date
|
|
|
|
/// and time.
|
2014-05-03 06:02:21 -06:00
|
|
|
///
|
|
|
|
/// Example usage:
|
|
|
|
///
|
|
|
|
/// rtc = pyb.RTC()
|
|
|
|
/// rtc.datetime((2014, 5, 1, 4, 13, 0, 0, 0))
|
|
|
|
/// print(rtc.datetime())
|
2014-05-03 05:40:53 -06:00
|
|
|
|
2014-04-18 19:17:30 -06:00
|
|
|
RTC_HandleTypeDef RTCHandle;
|
2014-03-15 06:54:48 -06:00
|
|
|
|
2014-04-21 05:45:59 -06:00
|
|
|
// rtc_info indicates various things about RTC startup
|
|
|
|
// it's a bit of a hack at the moment
|
2014-07-03 06:25:24 -06:00
|
|
|
static mp_uint_t rtc_info;
|
2014-03-15 06:54:48 -06:00
|
|
|
|
|
|
|
// Note: LSI is around (32KHz), these dividers should work either way
|
|
|
|
// ck_spre(1Hz) = RTCCLK(LSE) /(uwAsynchPrediv + 1)*(uwSynchPrediv + 1)
|
|
|
|
#define RTC_ASYNCH_PREDIV (0x7f)
|
|
|
|
#define RTC_SYNCH_PREDIV (0x00ff)
|
|
|
|
|
|
|
|
#if 0
|
2014-04-21 05:45:59 -06:00
|
|
|
#define RTC_INFO_USE_EXISTING (0)
|
|
|
|
#define RTC_INFO_USE_LSE (1)
|
|
|
|
#define RTC_INFO_USE_LSI (3)
|
|
|
|
|
2014-03-15 06:54:48 -06:00
|
|
|
void rtc_init(void) {
|
|
|
|
// Enable the PWR clock
|
|
|
|
RCC_APB1PeriphClockCmd(RCC_APB1Periph_PWR, ENABLE);
|
|
|
|
|
|
|
|
// Allow access to RTC
|
|
|
|
PWR_BackupAccessCmd(ENABLE);
|
|
|
|
|
|
|
|
if (RTC_ReadBackupRegister(RTC_BKP_DR0) == 0x32F2) {
|
|
|
|
// RTC still alive, so don't re-init it
|
|
|
|
// wait for RTC APB register synchronisation
|
|
|
|
RTC_WaitForSynchro();
|
|
|
|
rtc_info = RTC_INFO_USE_EXISTING;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
uint32_t timeout = 10000000;
|
|
|
|
|
|
|
|
// Enable the PWR clock
|
|
|
|
RCC_APB1PeriphClockCmd(RCC_APB1Periph_PWR, ENABLE);
|
|
|
|
|
|
|
|
// Allow access to RTC
|
|
|
|
PWR_BackupAccessCmd(ENABLE);
|
|
|
|
|
|
|
|
// Enable the LSE OSC
|
|
|
|
RCC_LSEConfig(RCC_LSE_ON);
|
|
|
|
|
|
|
|
// Wait till LSE is ready
|
2014-07-03 06:25:24 -06:00
|
|
|
mp_uint_t sys_tick = sys_tick_counter;
|
2014-03-15 06:54:48 -06:00
|
|
|
while((RCC_GetFlagStatus(RCC_FLAG_LSERDY) == RESET) && (--timeout > 0)) {
|
|
|
|
}
|
|
|
|
|
|
|
|
// record how long it took for the RTC to start up
|
|
|
|
rtc_info = (sys_tick_counter - sys_tick) << 2;
|
|
|
|
|
|
|
|
// If LSE timed out, use LSI instead
|
|
|
|
if (timeout == 0) {
|
|
|
|
// Disable the LSE OSC
|
|
|
|
RCC_LSEConfig(RCC_LSE_OFF);
|
|
|
|
|
|
|
|
// Enable the LSI OSC
|
|
|
|
RCC_LSICmd(ENABLE);
|
|
|
|
|
|
|
|
// Wait till LSI is ready
|
|
|
|
while(RCC_GetFlagStatus(RCC_FLAG_LSIRDY) == RESET) {
|
|
|
|
}
|
|
|
|
|
|
|
|
// Use LSI as the RTC Clock Source
|
|
|
|
RCC_RTCCLKConfig(RCC_RTCCLKSource_LSI);
|
|
|
|
|
|
|
|
// record that we are using the LSI
|
|
|
|
rtc_info |= RTC_INFO_USE_LSI;
|
|
|
|
} else {
|
|
|
|
// Use LSE as the RTC Clock Source
|
|
|
|
RCC_RTCCLKConfig(RCC_RTCCLKSource_LSE);
|
|
|
|
|
|
|
|
// record that we are using the LSE
|
|
|
|
rtc_info |= RTC_INFO_USE_LSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Note: LSI is around (32KHz), these dividers should work either way
|
|
|
|
// ck_spre(1Hz) = RTCCLK(LSE) /(uwAsynchPrediv + 1)*(uwSynchPrediv + 1)
|
|
|
|
uint32_t uwSynchPrediv = 0xFF;
|
|
|
|
uint32_t uwAsynchPrediv = 0x7F;
|
|
|
|
|
|
|
|
// Enable the RTC Clock
|
|
|
|
RCC_RTCCLKCmd(ENABLE);
|
|
|
|
|
|
|
|
// Wait for RTC APB registers synchronisation
|
|
|
|
RTC_WaitForSynchro();
|
|
|
|
|
|
|
|
// Configure the RTC data register and RTC prescaler
|
|
|
|
RTC_InitTypeDef RTC_InitStructure;
|
|
|
|
RTC_InitStructure.RTC_AsynchPrediv = uwAsynchPrediv;
|
|
|
|
RTC_InitStructure.RTC_SynchPrediv = uwSynchPrediv;
|
|
|
|
RTC_InitStructure.RTC_HourFormat = RTC_HourFormat_24;
|
|
|
|
RTC_Init(&RTC_InitStructure);
|
|
|
|
|
|
|
|
// Set the date (BCD)
|
|
|
|
RTC_DateTypeDef RTC_DateStructure;
|
|
|
|
RTC_DateStructure.RTC_Year = 0x13;
|
|
|
|
RTC_DateStructure.RTC_Month = RTC_Month_October;
|
|
|
|
RTC_DateStructure.RTC_Date = 0x26;
|
|
|
|
RTC_DateStructure.RTC_WeekDay = RTC_Weekday_Saturday;
|
|
|
|
RTC_SetDate(RTC_Format_BCD, &RTC_DateStructure);
|
|
|
|
|
|
|
|
// Set the time (BCD)
|
|
|
|
RTC_TimeTypeDef RTC_TimeStructure;
|
|
|
|
RTC_TimeStructure.RTC_H12 = RTC_H12_AM;
|
|
|
|
RTC_TimeStructure.RTC_Hours = 0x01;
|
|
|
|
RTC_TimeStructure.RTC_Minutes = 0x53;
|
|
|
|
RTC_TimeStructure.RTC_Seconds = 0x00;
|
|
|
|
RTC_SetTime(RTC_Format_BCD, &RTC_TimeStructure);
|
|
|
|
|
|
|
|
// Indicator for the RTC configuration
|
|
|
|
RTC_WriteBackupRegister(RTC_BKP_DR0, 0x32F2);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
static void RTC_CalendarConfig(void);
|
|
|
|
|
|
|
|
void rtc_init(void) {
|
2014-04-21 05:45:59 -06:00
|
|
|
RTCHandle.Instance = RTC;
|
2014-03-15 06:54:48 -06:00
|
|
|
|
2014-04-21 05:45:59 -06:00
|
|
|
/* Configure RTC prescaler and RTC data registers */
|
|
|
|
/* RTC configured as follow:
|
2014-03-15 06:54:48 -06:00
|
|
|
- Hour Format = Format 24
|
|
|
|
- Asynch Prediv = Value according to source clock
|
|
|
|
- Synch Prediv = Value according to source clock
|
|
|
|
- OutPut = Output Disable
|
|
|
|
- OutPutPolarity = High Polarity
|
2014-04-21 05:45:59 -06:00
|
|
|
- OutPutType = Open Drain */
|
|
|
|
RTCHandle.Init.HourFormat = RTC_HOURFORMAT_24;
|
|
|
|
RTCHandle.Init.AsynchPrediv = RTC_ASYNCH_PREDIV;
|
|
|
|
RTCHandle.Init.SynchPrediv = RTC_SYNCH_PREDIV;
|
|
|
|
RTCHandle.Init.OutPut = RTC_OUTPUT_DISABLE;
|
|
|
|
RTCHandle.Init.OutPutPolarity = RTC_OUTPUT_POLARITY_HIGH;
|
|
|
|
RTCHandle.Init.OutPutType = RTC_OUTPUT_TYPE_OPENDRAIN;
|
|
|
|
|
2014-07-03 06:25:24 -06:00
|
|
|
mp_uint_t tick = HAL_GetTick();
|
2014-03-15 06:54:48 -06:00
|
|
|
|
2014-04-21 05:45:59 -06:00
|
|
|
if (HAL_RTC_Init(&RTCHandle) != HAL_OK) {
|
|
|
|
// init error
|
|
|
|
rtc_info = 0xffff; // indicate error
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2014-03-15 06:54:48 -06:00
|
|
|
// record how long it took for the RTC to start up
|
|
|
|
rtc_info = HAL_GetTick() - tick;
|
|
|
|
|
2014-04-21 05:45:59 -06:00
|
|
|
// check data stored in BackUp register0
|
|
|
|
if (HAL_RTCEx_BKUPRead(&RTCHandle, RTC_BKP_DR0) != 0x32f2) {
|
|
|
|
// fresh reset; configure RTC Calendar
|
|
|
|
RTC_CalendarConfig();
|
|
|
|
} else {
|
2014-05-03 05:40:53 -06:00
|
|
|
// RTC was previously set, so leave it alone
|
2014-04-21 05:45:59 -06:00
|
|
|
if(__HAL_RCC_GET_FLAG(RCC_FLAG_PORRST) != RESET) {
|
2014-05-03 05:40:53 -06:00
|
|
|
// power on reset occurred
|
2014-04-21 05:45:59 -06:00
|
|
|
rtc_info |= 0x10000;
|
|
|
|
}
|
|
|
|
if(__HAL_RCC_GET_FLAG(RCC_FLAG_PINRST) != RESET) {
|
2014-05-03 05:40:53 -06:00
|
|
|
// external reset occurred
|
2014-04-21 05:45:59 -06:00
|
|
|
rtc_info |= 0x20000;
|
|
|
|
}
|
|
|
|
// Clear source Reset Flag
|
|
|
|
__HAL_RCC_CLEAR_RESET_FLAGS();
|
2014-03-15 06:54:48 -06:00
|
|
|
}
|
2014-04-21 05:45:59 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
static void RTC_CalendarConfig(void) {
|
|
|
|
// set the date to 1st Jan 2014
|
|
|
|
RTC_DateTypeDef date;
|
2014-05-10 04:56:58 -06:00
|
|
|
date.Year = 14;
|
|
|
|
date.Month = 1;
|
|
|
|
date.Date = 1;
|
2014-04-21 05:45:59 -06:00
|
|
|
date.WeekDay = RTC_WEEKDAY_WEDNESDAY;
|
|
|
|
|
2014-05-10 04:56:58 -06:00
|
|
|
if(HAL_RTC_SetDate(&RTCHandle, &date, FORMAT_BIN) != HAL_OK) {
|
2014-04-21 05:45:59 -06:00
|
|
|
// init error
|
|
|
|
return;
|
2014-03-15 06:54:48 -06:00
|
|
|
}
|
|
|
|
|
2014-04-21 05:45:59 -06:00
|
|
|
// set the time to 00:00:00
|
|
|
|
RTC_TimeTypeDef time;
|
2014-05-10 04:56:58 -06:00
|
|
|
time.Hours = 0;
|
|
|
|
time.Minutes = 0;
|
|
|
|
time.Seconds = 0;
|
2014-04-21 05:45:59 -06:00
|
|
|
time.TimeFormat = RTC_HOURFORMAT12_AM;
|
|
|
|
time.DayLightSaving = RTC_DAYLIGHTSAVING_NONE;
|
|
|
|
time.StoreOperation = RTC_STOREOPERATION_RESET;
|
|
|
|
|
2014-05-10 04:56:58 -06:00
|
|
|
if (HAL_RTC_SetTime(&RTCHandle, &time, FORMAT_BIN) != HAL_OK) {
|
2014-04-21 05:45:59 -06:00
|
|
|
// init error
|
|
|
|
return;
|
|
|
|
}
|
2014-03-15 06:54:48 -06:00
|
|
|
|
2014-04-21 05:45:59 -06:00
|
|
|
// write data to indicate the RTC has been set
|
|
|
|
HAL_RTCEx_BKUPWrite(&RTCHandle, RTC_BKP_DR0, 0x32f2);
|
2014-03-15 06:54:48 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
/******************************************************************************/
|
|
|
|
// Micro Python bindings
|
|
|
|
|
2014-04-18 19:17:30 -06:00
|
|
|
typedef struct _pyb_rtc_obj_t {
|
|
|
|
mp_obj_base_t base;
|
|
|
|
} pyb_rtc_obj_t;
|
2014-03-15 06:54:48 -06:00
|
|
|
|
2014-04-18 19:17:30 -06:00
|
|
|
STATIC const pyb_rtc_obj_t pyb_rtc_obj = {{&pyb_rtc_type}};
|
2014-03-15 06:54:48 -06:00
|
|
|
|
2014-05-03 05:40:53 -06:00
|
|
|
/// \classmethod \constructor()
|
|
|
|
/// Create an RTC object.
|
2014-08-29 17:35:11 -06:00
|
|
|
STATIC mp_obj_t pyb_rtc_make_new(mp_obj_t type_in, mp_uint_t n_args, mp_uint_t n_kw, const mp_obj_t *args) {
|
2014-04-18 19:17:30 -06:00
|
|
|
// check arguments
|
2014-04-19 17:16:30 -06:00
|
|
|
mp_arg_check_num(n_args, n_kw, 0, 0, false);
|
2014-04-18 19:17:30 -06:00
|
|
|
|
|
|
|
// return constant object
|
|
|
|
return (mp_obj_t)&pyb_rtc_obj;
|
2014-03-15 06:54:48 -06:00
|
|
|
}
|
|
|
|
|
2014-05-03 05:40:53 -06:00
|
|
|
/// \method info()
|
|
|
|
/// Get information about the startup time and reset source.
|
|
|
|
///
|
|
|
|
/// - The lower 0xffff are the number of milliseconds the RTC took to
|
|
|
|
/// start up.
|
|
|
|
/// - Bit 0x10000 is set if a power-on reset occurred.
|
|
|
|
/// - Bit 0x20000 is set if an external reset occurred
|
2014-04-18 19:17:30 -06:00
|
|
|
mp_obj_t pyb_rtc_info(mp_obj_t self_in) {
|
|
|
|
return mp_obj_new_int(rtc_info);
|
|
|
|
}
|
|
|
|
MP_DEFINE_CONST_FUN_OBJ_1(pyb_rtc_info_obj, pyb_rtc_info);
|
|
|
|
|
2014-05-03 05:40:53 -06:00
|
|
|
/// \method datetime([datetimetuple])
|
|
|
|
/// Get or set the date and time of the RTC.
|
|
|
|
///
|
|
|
|
/// With no arguments, this method returns an 8-tuple with the current
|
|
|
|
/// date and time. With 1 argument (being an 8-tuple) it sets the date
|
|
|
|
/// and time.
|
|
|
|
///
|
|
|
|
/// The 8-tuple has the following format:
|
|
|
|
///
|
|
|
|
/// (year, month, day, weekday, hours, minutes, seconds, subseconds)
|
|
|
|
///
|
|
|
|
/// `weekday` is 1-7 for Monday through Sunday.
|
|
|
|
///
|
2014-05-03 11:28:11 -06:00
|
|
|
/// `subseconds` counts down from 255 to 0
|
2014-08-29 17:35:11 -06:00
|
|
|
mp_obj_t pyb_rtc_datetime(mp_uint_t n_args, const mp_obj_t *args) {
|
2014-04-18 19:17:30 -06:00
|
|
|
if (n_args == 1) {
|
|
|
|
// get date and time
|
|
|
|
// note: need to call get time then get date to correctly access the registers
|
|
|
|
RTC_DateTypeDef date;
|
|
|
|
RTC_TimeTypeDef time;
|
|
|
|
HAL_RTC_GetTime(&RTCHandle, &time, FORMAT_BIN);
|
|
|
|
HAL_RTC_GetDate(&RTCHandle, &date, FORMAT_BIN);
|
|
|
|
mp_obj_t tuple[8] = {
|
|
|
|
mp_obj_new_int(2000 + date.Year),
|
|
|
|
mp_obj_new_int(date.Month),
|
|
|
|
mp_obj_new_int(date.Date),
|
|
|
|
mp_obj_new_int(date.WeekDay),
|
|
|
|
mp_obj_new_int(time.Hours),
|
|
|
|
mp_obj_new_int(time.Minutes),
|
|
|
|
mp_obj_new_int(time.Seconds),
|
|
|
|
mp_obj_new_int(time.SubSeconds),
|
|
|
|
};
|
|
|
|
return mp_obj_new_tuple(8, tuple);
|
|
|
|
} else {
|
|
|
|
// set date and time
|
|
|
|
mp_obj_t *items;
|
|
|
|
mp_obj_get_array_fixed_n(args[1], 8, &items);
|
|
|
|
|
|
|
|
RTC_DateTypeDef date;
|
|
|
|
date.Year = mp_obj_get_int(items[0]) - 2000;
|
|
|
|
date.Month = mp_obj_get_int(items[1]);
|
|
|
|
date.Date = mp_obj_get_int(items[2]);
|
|
|
|
date.WeekDay = mp_obj_get_int(items[3]);
|
2014-05-10 04:56:58 -06:00
|
|
|
HAL_RTC_SetDate(&RTCHandle, &date, FORMAT_BIN);
|
2014-04-18 19:17:30 -06:00
|
|
|
|
|
|
|
RTC_TimeTypeDef time;
|
|
|
|
time.Hours = mp_obj_get_int(items[4]);
|
|
|
|
time.Minutes = mp_obj_get_int(items[5]);
|
|
|
|
time.Seconds = mp_obj_get_int(items[6]);
|
|
|
|
time.SubSeconds = mp_obj_get_int(items[7]);
|
|
|
|
time.TimeFormat = RTC_HOURFORMAT12_AM;
|
|
|
|
time.DayLightSaving = RTC_DAYLIGHTSAVING_NONE;
|
|
|
|
time.StoreOperation = RTC_STOREOPERATION_SET;
|
2014-05-10 04:56:58 -06:00
|
|
|
HAL_RTC_SetTime(&RTCHandle, &time, FORMAT_BIN);
|
2014-04-18 19:17:30 -06:00
|
|
|
|
|
|
|
return mp_const_none;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
MP_DEFINE_CONST_FUN_OBJ_VAR_BETWEEN(pyb_rtc_datetime_obj, 1, 2, pyb_rtc_datetime);
|
|
|
|
|
|
|
|
STATIC const mp_map_elem_t pyb_rtc_locals_dict_table[] = {
|
|
|
|
{ MP_OBJ_NEW_QSTR(MP_QSTR_info), (mp_obj_t)&pyb_rtc_info_obj },
|
|
|
|
{ MP_OBJ_NEW_QSTR(MP_QSTR_datetime), (mp_obj_t)&pyb_rtc_datetime_obj },
|
|
|
|
};
|
|
|
|
STATIC MP_DEFINE_CONST_DICT(pyb_rtc_locals_dict, pyb_rtc_locals_dict_table);
|
|
|
|
|
|
|
|
const mp_obj_type_t pyb_rtc_type = {
|
|
|
|
{ &mp_type_type },
|
|
|
|
.name = MP_QSTR_RTC,
|
|
|
|
.make_new = pyb_rtc_make_new,
|
|
|
|
.locals_dict = (mp_obj_t)&pyb_rtc_locals_dict,
|
|
|
|
};
|