mbed library sources. Supersedes mbed-src. Fixed broken STM32F1xx RTC on rtc_api.c

Dependents:   Nucleo_F103RB_RTC_battery_bkup_pwr_off_okay

Fork of mbed-dev by mbed official

Committer:
AnnaBridge
Date:
Wed Jun 21 17:46:44 2017 +0100
Revision:
167:e84263d55307
Child:
168:9672193075cf
This updates the lib to the mbed lib v 145

Who changed what in which revision?

UserRevisionLine numberNew contents of line
AnnaBridge 167:e84263d55307 1 /* mbed Microcontroller Library
AnnaBridge 167:e84263d55307 2 *******************************************************************************
AnnaBridge 167:e84263d55307 3 * Copyright (c) 2015, STMicroelectronics
AnnaBridge 167:e84263d55307 4 * All rights reserved.
AnnaBridge 167:e84263d55307 5 *
AnnaBridge 167:e84263d55307 6 * Redistribution and use in source and binary forms, with or without
AnnaBridge 167:e84263d55307 7 * modification, are permitted provided that the following conditions are met:
AnnaBridge 167:e84263d55307 8 *
AnnaBridge 167:e84263d55307 9 * 1. Redistributions of source code must retain the above copyright notice,
AnnaBridge 167:e84263d55307 10 * this list of conditions and the following disclaimer.
AnnaBridge 167:e84263d55307 11 * 2. Redistributions in binary form must reproduce the above copyright notice,
AnnaBridge 167:e84263d55307 12 * this list of conditions and the following disclaimer in the documentation
AnnaBridge 167:e84263d55307 13 * and/or other materials provided with the distribution.
AnnaBridge 167:e84263d55307 14 * 3. Neither the name of STMicroelectronics nor the names of its contributors
AnnaBridge 167:e84263d55307 15 * may be used to endorse or promote products derived from this software
AnnaBridge 167:e84263d55307 16 * without specific prior written permission.
AnnaBridge 167:e84263d55307 17 *
AnnaBridge 167:e84263d55307 18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AnnaBridge 167:e84263d55307 19 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
AnnaBridge 167:e84263d55307 20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
AnnaBridge 167:e84263d55307 21 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
AnnaBridge 167:e84263d55307 22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
AnnaBridge 167:e84263d55307 23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
AnnaBridge 167:e84263d55307 24 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
AnnaBridge 167:e84263d55307 25 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
AnnaBridge 167:e84263d55307 26 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
AnnaBridge 167:e84263d55307 27 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
AnnaBridge 167:e84263d55307 28 *******************************************************************************
AnnaBridge 167:e84263d55307 29 */
AnnaBridge 167:e84263d55307 30
AnnaBridge 167:e84263d55307 31 #include "mbed_assert.h"
AnnaBridge 167:e84263d55307 32 #include "serial_api.h"
AnnaBridge 167:e84263d55307 33 #include "serial_api_hal.h"
AnnaBridge 167:e84263d55307 34
AnnaBridge 167:e84263d55307 35 #if DEVICE_SERIAL
AnnaBridge 167:e84263d55307 36
AnnaBridge 167:e84263d55307 37 #include "cmsis.h"
AnnaBridge 167:e84263d55307 38 #include "pinmap.h"
AnnaBridge 167:e84263d55307 39 #include <string.h>
AnnaBridge 167:e84263d55307 40 #include "PeripheralPins.h"
AnnaBridge 167:e84263d55307 41 #include "mbed_error.h"
AnnaBridge 167:e84263d55307 42
AnnaBridge 167:e84263d55307 43 #define UART_NUM (8)
AnnaBridge 167:e84263d55307 44 static uint32_t serial_irq_ids[UART_NUM] = {0};
AnnaBridge 167:e84263d55307 45 UART_HandleTypeDef uart_handlers[UART_NUM];
AnnaBridge 167:e84263d55307 46
AnnaBridge 167:e84263d55307 47 static uart_irq_handler irq_handler;
AnnaBridge 167:e84263d55307 48
AnnaBridge 167:e84263d55307 49 int stdio_uart_inited = 0;
AnnaBridge 167:e84263d55307 50 serial_t stdio_uart;
AnnaBridge 167:e84263d55307 51
AnnaBridge 167:e84263d55307 52 void serial_init(serial_t *obj, PinName tx, PinName rx)
AnnaBridge 167:e84263d55307 53 {
AnnaBridge 167:e84263d55307 54 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 55
AnnaBridge 167:e84263d55307 56 // Determine the UART to use (UART_1, UART_2, ...)
AnnaBridge 167:e84263d55307 57 UARTName uart_tx = (UARTName)pinmap_peripheral(tx, PinMap_UART_TX);
AnnaBridge 167:e84263d55307 58 UARTName uart_rx = (UARTName)pinmap_peripheral(rx, PinMap_UART_RX);
AnnaBridge 167:e84263d55307 59
AnnaBridge 167:e84263d55307 60 // Get the peripheral name (UART_1, UART_2, ...) from the pin and assign it to the object
AnnaBridge 167:e84263d55307 61 obj_s->uart = (UARTName)pinmap_merge(uart_tx, uart_rx);
AnnaBridge 167:e84263d55307 62 MBED_ASSERT(obj_s->uart != (UARTName)NC);
AnnaBridge 167:e84263d55307 63
AnnaBridge 167:e84263d55307 64 // Enable USART clock
AnnaBridge 167:e84263d55307 65 switch (obj_s->uart) {
AnnaBridge 167:e84263d55307 66 case UART_1:
AnnaBridge 167:e84263d55307 67 __HAL_RCC_USART1_FORCE_RESET();
AnnaBridge 167:e84263d55307 68 __HAL_RCC_USART1_RELEASE_RESET();
AnnaBridge 167:e84263d55307 69 __HAL_RCC_USART1_CLK_ENABLE();
AnnaBridge 167:e84263d55307 70 obj_s->index = 0;
AnnaBridge 167:e84263d55307 71 break;
AnnaBridge 167:e84263d55307 72
AnnaBridge 167:e84263d55307 73 case UART_2:
AnnaBridge 167:e84263d55307 74 __HAL_RCC_USART2_FORCE_RESET();
AnnaBridge 167:e84263d55307 75 __HAL_RCC_USART2_RELEASE_RESET();
AnnaBridge 167:e84263d55307 76 __HAL_RCC_USART2_CLK_ENABLE();
AnnaBridge 167:e84263d55307 77 obj_s->index = 1;
AnnaBridge 167:e84263d55307 78 break;
AnnaBridge 167:e84263d55307 79 #if defined(USART3_BASE)
AnnaBridge 167:e84263d55307 80 case UART_3:
AnnaBridge 167:e84263d55307 81 __HAL_RCC_USART3_FORCE_RESET();
AnnaBridge 167:e84263d55307 82 __HAL_RCC_USART3_RELEASE_RESET();
AnnaBridge 167:e84263d55307 83 __HAL_RCC_USART3_CLK_ENABLE();
AnnaBridge 167:e84263d55307 84 obj_s->index = 2;
AnnaBridge 167:e84263d55307 85 break;
AnnaBridge 167:e84263d55307 86 #endif
AnnaBridge 167:e84263d55307 87 #if defined(UART4_BASE)
AnnaBridge 167:e84263d55307 88 case UART_4:
AnnaBridge 167:e84263d55307 89 __HAL_RCC_UART4_FORCE_RESET();
AnnaBridge 167:e84263d55307 90 __HAL_RCC_UART4_RELEASE_RESET();
AnnaBridge 167:e84263d55307 91 __HAL_RCC_UART4_CLK_ENABLE();
AnnaBridge 167:e84263d55307 92 obj_s->index = 3;
AnnaBridge 167:e84263d55307 93 break;
AnnaBridge 167:e84263d55307 94 #endif
AnnaBridge 167:e84263d55307 95 #if defined(UART5_BASE)
AnnaBridge 167:e84263d55307 96 case UART_5:
AnnaBridge 167:e84263d55307 97 __HAL_RCC_UART5_FORCE_RESET();
AnnaBridge 167:e84263d55307 98 __HAL_RCC_UART5_RELEASE_RESET();
AnnaBridge 167:e84263d55307 99 __HAL_RCC_UART5_CLK_ENABLE();
AnnaBridge 167:e84263d55307 100 obj_s->index = 4;
AnnaBridge 167:e84263d55307 101 break;
AnnaBridge 167:e84263d55307 102 #endif
AnnaBridge 167:e84263d55307 103 #if defined(USART6_BASE)
AnnaBridge 167:e84263d55307 104 case UART_6:
AnnaBridge 167:e84263d55307 105 __HAL_RCC_USART6_FORCE_RESET();
AnnaBridge 167:e84263d55307 106 __HAL_RCC_USART6_RELEASE_RESET();
AnnaBridge 167:e84263d55307 107 __HAL_RCC_USART6_CLK_ENABLE();
AnnaBridge 167:e84263d55307 108 obj_s->index = 5;
AnnaBridge 167:e84263d55307 109 break;
AnnaBridge 167:e84263d55307 110 #endif
AnnaBridge 167:e84263d55307 111 #if defined(UART7_BASE)
AnnaBridge 167:e84263d55307 112 case UART_7:
AnnaBridge 167:e84263d55307 113 __HAL_RCC_UART7_FORCE_RESET();
AnnaBridge 167:e84263d55307 114 __HAL_RCC_UART7_RELEASE_RESET();
AnnaBridge 167:e84263d55307 115 __HAL_RCC_UART7_CLK_ENABLE();
AnnaBridge 167:e84263d55307 116 obj_s->index = 6;
AnnaBridge 167:e84263d55307 117 break;
AnnaBridge 167:e84263d55307 118 #endif
AnnaBridge 167:e84263d55307 119 #if defined(UART8_BASE)
AnnaBridge 167:e84263d55307 120 case UART_8:
AnnaBridge 167:e84263d55307 121 __HAL_RCC_UART8_FORCE_RESET();
AnnaBridge 167:e84263d55307 122 __HAL_RCC_UART8_RELEASE_RESET();
AnnaBridge 167:e84263d55307 123 __HAL_RCC_UART8_CLK_ENABLE();
AnnaBridge 167:e84263d55307 124 obj_s->index = 7;
AnnaBridge 167:e84263d55307 125 break;
AnnaBridge 167:e84263d55307 126 #endif
AnnaBridge 167:e84263d55307 127 }
AnnaBridge 167:e84263d55307 128
AnnaBridge 167:e84263d55307 129 // Configure the UART pins
AnnaBridge 167:e84263d55307 130 pinmap_pinout(tx, PinMap_UART_TX);
AnnaBridge 167:e84263d55307 131 pinmap_pinout(rx, PinMap_UART_RX);
AnnaBridge 167:e84263d55307 132
AnnaBridge 167:e84263d55307 133 if (tx != NC) {
AnnaBridge 167:e84263d55307 134 pin_mode(tx, PullUp);
AnnaBridge 167:e84263d55307 135 }
AnnaBridge 167:e84263d55307 136 if (rx != NC) {
AnnaBridge 167:e84263d55307 137 pin_mode(rx, PullUp);
AnnaBridge 167:e84263d55307 138 }
AnnaBridge 167:e84263d55307 139
AnnaBridge 167:e84263d55307 140 // Configure UART
AnnaBridge 167:e84263d55307 141 obj_s->baudrate = 9600;
AnnaBridge 167:e84263d55307 142 obj_s->databits = UART_WORDLENGTH_8B;
AnnaBridge 167:e84263d55307 143 obj_s->stopbits = UART_STOPBITS_1;
AnnaBridge 167:e84263d55307 144 obj_s->parity = UART_PARITY_NONE;
AnnaBridge 167:e84263d55307 145
AnnaBridge 167:e84263d55307 146 #if DEVICE_SERIAL_FC
AnnaBridge 167:e84263d55307 147 obj_s->hw_flow_ctl = UART_HWCONTROL_NONE;
AnnaBridge 167:e84263d55307 148 #endif
AnnaBridge 167:e84263d55307 149
AnnaBridge 167:e84263d55307 150 obj_s->pin_tx = tx;
AnnaBridge 167:e84263d55307 151 obj_s->pin_rx = rx;
AnnaBridge 167:e84263d55307 152
AnnaBridge 167:e84263d55307 153 init_uart(obj);
AnnaBridge 167:e84263d55307 154
AnnaBridge 167:e84263d55307 155 // For stdio management
AnnaBridge 167:e84263d55307 156 if (obj_s->uart == STDIO_UART) {
AnnaBridge 167:e84263d55307 157 stdio_uart_inited = 1;
AnnaBridge 167:e84263d55307 158 memcpy(&stdio_uart, obj, sizeof(serial_t));
AnnaBridge 167:e84263d55307 159 }
AnnaBridge 167:e84263d55307 160 }
AnnaBridge 167:e84263d55307 161
AnnaBridge 167:e84263d55307 162 void serial_free(serial_t *obj)
AnnaBridge 167:e84263d55307 163 {
AnnaBridge 167:e84263d55307 164 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 165
AnnaBridge 167:e84263d55307 166 // Reset UART and disable clock
AnnaBridge 167:e84263d55307 167 switch (obj_s->index) {
AnnaBridge 167:e84263d55307 168 case 0:
AnnaBridge 167:e84263d55307 169 __HAL_RCC_USART1_FORCE_RESET();
AnnaBridge 167:e84263d55307 170 __HAL_RCC_USART1_RELEASE_RESET();
AnnaBridge 167:e84263d55307 171 __HAL_RCC_USART1_CLK_DISABLE();
AnnaBridge 167:e84263d55307 172 break;
AnnaBridge 167:e84263d55307 173 case 1:
AnnaBridge 167:e84263d55307 174 __HAL_RCC_USART2_FORCE_RESET();
AnnaBridge 167:e84263d55307 175 __HAL_RCC_USART2_RELEASE_RESET();
AnnaBridge 167:e84263d55307 176 __HAL_RCC_USART2_CLK_DISABLE();
AnnaBridge 167:e84263d55307 177 break;
AnnaBridge 167:e84263d55307 178 #if defined(USART3_BASE)
AnnaBridge 167:e84263d55307 179 case 2:
AnnaBridge 167:e84263d55307 180 __HAL_RCC_USART3_FORCE_RESET();
AnnaBridge 167:e84263d55307 181 __HAL_RCC_USART3_RELEASE_RESET();
AnnaBridge 167:e84263d55307 182 __HAL_RCC_USART3_CLK_DISABLE();
AnnaBridge 167:e84263d55307 183 break;
AnnaBridge 167:e84263d55307 184 #endif
AnnaBridge 167:e84263d55307 185 #if defined(UART4_BASE)
AnnaBridge 167:e84263d55307 186 case 3:
AnnaBridge 167:e84263d55307 187 __HAL_RCC_UART4_FORCE_RESET();
AnnaBridge 167:e84263d55307 188 __HAL_RCC_UART4_RELEASE_RESET();
AnnaBridge 167:e84263d55307 189 __HAL_RCC_UART4_CLK_DISABLE();
AnnaBridge 167:e84263d55307 190 break;
AnnaBridge 167:e84263d55307 191 #endif
AnnaBridge 167:e84263d55307 192 #if defined(UART5_BASE)
AnnaBridge 167:e84263d55307 193 case 4:
AnnaBridge 167:e84263d55307 194 __HAL_RCC_UART5_FORCE_RESET();
AnnaBridge 167:e84263d55307 195 __HAL_RCC_UART5_RELEASE_RESET();
AnnaBridge 167:e84263d55307 196 __HAL_RCC_UART5_CLK_DISABLE();
AnnaBridge 167:e84263d55307 197 break;
AnnaBridge 167:e84263d55307 198 #endif
AnnaBridge 167:e84263d55307 199 #if defined(USART6_BASE)
AnnaBridge 167:e84263d55307 200 case 5:
AnnaBridge 167:e84263d55307 201 __HAL_RCC_USART6_FORCE_RESET();
AnnaBridge 167:e84263d55307 202 __HAL_RCC_USART6_RELEASE_RESET();
AnnaBridge 167:e84263d55307 203 __HAL_RCC_USART6_CLK_DISABLE();
AnnaBridge 167:e84263d55307 204 break;
AnnaBridge 167:e84263d55307 205 #endif
AnnaBridge 167:e84263d55307 206 #if defined(UART7_BASE)
AnnaBridge 167:e84263d55307 207 case 6:
AnnaBridge 167:e84263d55307 208 __HAL_RCC_UART7_FORCE_RESET();
AnnaBridge 167:e84263d55307 209 __HAL_RCC_UART7_RELEASE_RESET();
AnnaBridge 167:e84263d55307 210 __HAL_RCC_UART7_CLK_DISABLE();
AnnaBridge 167:e84263d55307 211 break;
AnnaBridge 167:e84263d55307 212 #endif
AnnaBridge 167:e84263d55307 213 #if defined(UART8_BASE)
AnnaBridge 167:e84263d55307 214 case 7:
AnnaBridge 167:e84263d55307 215 __HAL_RCC_UART8_FORCE_RESET();
AnnaBridge 167:e84263d55307 216 __HAL_RCC_UART8_RELEASE_RESET();
AnnaBridge 167:e84263d55307 217 __HAL_RCC_UART8_CLK_DISABLE();
AnnaBridge 167:e84263d55307 218 break;
AnnaBridge 167:e84263d55307 219 #endif
AnnaBridge 167:e84263d55307 220 }
AnnaBridge 167:e84263d55307 221
AnnaBridge 167:e84263d55307 222 // Configure GPIOs
AnnaBridge 167:e84263d55307 223 pin_function(obj_s->pin_tx, STM_PIN_DATA(STM_MODE_INPUT, GPIO_NOPULL, 0));
AnnaBridge 167:e84263d55307 224 pin_function(obj_s->pin_rx, STM_PIN_DATA(STM_MODE_INPUT, GPIO_NOPULL, 0));
AnnaBridge 167:e84263d55307 225
AnnaBridge 167:e84263d55307 226 serial_irq_ids[obj_s->index] = 0;
AnnaBridge 167:e84263d55307 227 }
AnnaBridge 167:e84263d55307 228
AnnaBridge 167:e84263d55307 229 void serial_baud(serial_t *obj, int baudrate)
AnnaBridge 167:e84263d55307 230 {
AnnaBridge 167:e84263d55307 231 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 232
AnnaBridge 167:e84263d55307 233 obj_s->baudrate = baudrate;
AnnaBridge 167:e84263d55307 234 init_uart(obj);
AnnaBridge 167:e84263d55307 235 }
AnnaBridge 167:e84263d55307 236
AnnaBridge 167:e84263d55307 237 /******************************************************************************
AnnaBridge 167:e84263d55307 238 * INTERRUPTS HANDLING
AnnaBridge 167:e84263d55307 239 ******************************************************************************/
AnnaBridge 167:e84263d55307 240
AnnaBridge 167:e84263d55307 241 static void uart_irq(int id)
AnnaBridge 167:e84263d55307 242 {
AnnaBridge 167:e84263d55307 243 UART_HandleTypeDef * huart = &uart_handlers[id];
AnnaBridge 167:e84263d55307 244
AnnaBridge 167:e84263d55307 245 if (serial_irq_ids[id] != 0) {
AnnaBridge 167:e84263d55307 246 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_TC) != RESET) {
AnnaBridge 167:e84263d55307 247 if (__HAL_UART_GET_IT_SOURCE(huart, UART_IT_TC) != RESET) {
AnnaBridge 167:e84263d55307 248 irq_handler(serial_irq_ids[id], TxIrq);
AnnaBridge 167:e84263d55307 249 __HAL_UART_CLEAR_FLAG(huart, UART_FLAG_TC);
AnnaBridge 167:e84263d55307 250 }
AnnaBridge 167:e84263d55307 251 }
AnnaBridge 167:e84263d55307 252 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_RXNE) != RESET) {
AnnaBridge 167:e84263d55307 253 if (__HAL_UART_GET_IT_SOURCE(huart, UART_IT_RXNE) != RESET) {
AnnaBridge 167:e84263d55307 254 irq_handler(serial_irq_ids[id], RxIrq);
AnnaBridge 167:e84263d55307 255 __HAL_UART_CLEAR_FLAG(huart, UART_FLAG_RXNE);
AnnaBridge 167:e84263d55307 256 }
AnnaBridge 167:e84263d55307 257 }
AnnaBridge 167:e84263d55307 258 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_ORE) != RESET) {
AnnaBridge 167:e84263d55307 259 if (__HAL_UART_GET_IT_SOURCE(huart, USART_IT_ERR) != RESET) {
AnnaBridge 167:e84263d55307 260 volatile uint32_t tmpval = huart->Instance->DR; // Clear ORE flag
AnnaBridge 167:e84263d55307 261 }
AnnaBridge 167:e84263d55307 262 }
AnnaBridge 167:e84263d55307 263 }
AnnaBridge 167:e84263d55307 264 }
AnnaBridge 167:e84263d55307 265
AnnaBridge 167:e84263d55307 266 static void uart1_irq(void)
AnnaBridge 167:e84263d55307 267 {
AnnaBridge 167:e84263d55307 268 uart_irq(0);
AnnaBridge 167:e84263d55307 269 }
AnnaBridge 167:e84263d55307 270
AnnaBridge 167:e84263d55307 271 static void uart2_irq(void)
AnnaBridge 167:e84263d55307 272 {
AnnaBridge 167:e84263d55307 273 uart_irq(1);
AnnaBridge 167:e84263d55307 274 }
AnnaBridge 167:e84263d55307 275
AnnaBridge 167:e84263d55307 276 #if defined(USART3_BASE)
AnnaBridge 167:e84263d55307 277 static void uart3_irq(void)
AnnaBridge 167:e84263d55307 278 {
AnnaBridge 167:e84263d55307 279 uart_irq(2);
AnnaBridge 167:e84263d55307 280 }
AnnaBridge 167:e84263d55307 281 #endif
AnnaBridge 167:e84263d55307 282
AnnaBridge 167:e84263d55307 283 #if defined(UART4_BASE)
AnnaBridge 167:e84263d55307 284 static void uart4_irq(void)
AnnaBridge 167:e84263d55307 285 {
AnnaBridge 167:e84263d55307 286 uart_irq(3);
AnnaBridge 167:e84263d55307 287 }
AnnaBridge 167:e84263d55307 288 #endif
AnnaBridge 167:e84263d55307 289
AnnaBridge 167:e84263d55307 290 #if defined(UART5_BASE)
AnnaBridge 167:e84263d55307 291 static void uart5_irq(void)
AnnaBridge 167:e84263d55307 292 {
AnnaBridge 167:e84263d55307 293 uart_irq(4);
AnnaBridge 167:e84263d55307 294 }
AnnaBridge 167:e84263d55307 295 #endif
AnnaBridge 167:e84263d55307 296
AnnaBridge 167:e84263d55307 297 #if defined(USART6_BASE)
AnnaBridge 167:e84263d55307 298 static void uart6_irq(void)
AnnaBridge 167:e84263d55307 299 {
AnnaBridge 167:e84263d55307 300 uart_irq(5);
AnnaBridge 167:e84263d55307 301 }
AnnaBridge 167:e84263d55307 302 #endif
AnnaBridge 167:e84263d55307 303
AnnaBridge 167:e84263d55307 304 #if defined(UART7_BASE)
AnnaBridge 167:e84263d55307 305 static void uart7_irq(void)
AnnaBridge 167:e84263d55307 306 {
AnnaBridge 167:e84263d55307 307 uart_irq(6);
AnnaBridge 167:e84263d55307 308 }
AnnaBridge 167:e84263d55307 309 #endif
AnnaBridge 167:e84263d55307 310
AnnaBridge 167:e84263d55307 311 #if defined(UART8_BASE)
AnnaBridge 167:e84263d55307 312 static void uart8_irq(void)
AnnaBridge 167:e84263d55307 313 {
AnnaBridge 167:e84263d55307 314 uart_irq(7);
AnnaBridge 167:e84263d55307 315 }
AnnaBridge 167:e84263d55307 316 #endif
AnnaBridge 167:e84263d55307 317
AnnaBridge 167:e84263d55307 318 void serial_irq_handler(serial_t *obj, uart_irq_handler handler, uint32_t id)
AnnaBridge 167:e84263d55307 319 {
AnnaBridge 167:e84263d55307 320 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 321
AnnaBridge 167:e84263d55307 322 irq_handler = handler;
AnnaBridge 167:e84263d55307 323 serial_irq_ids[obj_s->index] = id;
AnnaBridge 167:e84263d55307 324 }
AnnaBridge 167:e84263d55307 325
AnnaBridge 167:e84263d55307 326 void serial_irq_set(serial_t *obj, SerialIrq irq, uint32_t enable)
AnnaBridge 167:e84263d55307 327 {
AnnaBridge 167:e84263d55307 328 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 329 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 330 IRQn_Type irq_n = (IRQn_Type)0;
AnnaBridge 167:e84263d55307 331 uint32_t vector = 0;
AnnaBridge 167:e84263d55307 332
AnnaBridge 167:e84263d55307 333 switch (obj_s->index) {
AnnaBridge 167:e84263d55307 334 case 0:
AnnaBridge 167:e84263d55307 335 irq_n = USART1_IRQn;
AnnaBridge 167:e84263d55307 336 vector = (uint32_t)&uart1_irq;
AnnaBridge 167:e84263d55307 337 break;
AnnaBridge 167:e84263d55307 338
AnnaBridge 167:e84263d55307 339 case 1:
AnnaBridge 167:e84263d55307 340 irq_n = USART2_IRQn;
AnnaBridge 167:e84263d55307 341 vector = (uint32_t)&uart2_irq;
AnnaBridge 167:e84263d55307 342 break;
AnnaBridge 167:e84263d55307 343 #if defined(USART3_BASE)
AnnaBridge 167:e84263d55307 344 case 2:
AnnaBridge 167:e84263d55307 345 irq_n = USART3_IRQn;
AnnaBridge 167:e84263d55307 346 vector = (uint32_t)&uart3_irq;
AnnaBridge 167:e84263d55307 347 break;
AnnaBridge 167:e84263d55307 348 #endif
AnnaBridge 167:e84263d55307 349 #if defined(UART4_BASE)
AnnaBridge 167:e84263d55307 350 case 3:
AnnaBridge 167:e84263d55307 351 irq_n = UART4_IRQn;
AnnaBridge 167:e84263d55307 352 vector = (uint32_t)&uart4_irq;
AnnaBridge 167:e84263d55307 353 break;
AnnaBridge 167:e84263d55307 354 #endif
AnnaBridge 167:e84263d55307 355 #if defined(UART5_BASE)
AnnaBridge 167:e84263d55307 356 case 4:
AnnaBridge 167:e84263d55307 357 irq_n = UART5_IRQn;
AnnaBridge 167:e84263d55307 358 vector = (uint32_t)&uart5_irq;
AnnaBridge 167:e84263d55307 359 break;
AnnaBridge 167:e84263d55307 360 #endif
AnnaBridge 167:e84263d55307 361 #if defined(USART6_BASE)
AnnaBridge 167:e84263d55307 362 case 5:
AnnaBridge 167:e84263d55307 363 irq_n = USART6_IRQn;
AnnaBridge 167:e84263d55307 364 vector = (uint32_t)&uart6_irq;
AnnaBridge 167:e84263d55307 365 break;
AnnaBridge 167:e84263d55307 366 #endif
AnnaBridge 167:e84263d55307 367 #if defined(UART7_BASE)
AnnaBridge 167:e84263d55307 368 case 6:
AnnaBridge 167:e84263d55307 369 irq_n = UART7_IRQn;
AnnaBridge 167:e84263d55307 370 vector = (uint32_t)&uart7_irq;
AnnaBridge 167:e84263d55307 371 break;
AnnaBridge 167:e84263d55307 372 #endif
AnnaBridge 167:e84263d55307 373 #if defined(UART8_BASE)
AnnaBridge 167:e84263d55307 374 case 7:
AnnaBridge 167:e84263d55307 375 irq_n = UART8_IRQn;
AnnaBridge 167:e84263d55307 376 vector = (uint32_t)&uart8_irq;
AnnaBridge 167:e84263d55307 377 break;
AnnaBridge 167:e84263d55307 378 #endif
AnnaBridge 167:e84263d55307 379 }
AnnaBridge 167:e84263d55307 380
AnnaBridge 167:e84263d55307 381 if (enable) {
AnnaBridge 167:e84263d55307 382 if (irq == RxIrq) {
AnnaBridge 167:e84263d55307 383 __HAL_UART_ENABLE_IT(huart, UART_IT_RXNE);
AnnaBridge 167:e84263d55307 384 } else { // TxIrq
AnnaBridge 167:e84263d55307 385 __HAL_UART_ENABLE_IT(huart, UART_IT_TC);
AnnaBridge 167:e84263d55307 386 }
AnnaBridge 167:e84263d55307 387 NVIC_SetVector(irq_n, vector);
AnnaBridge 167:e84263d55307 388 NVIC_EnableIRQ(irq_n);
AnnaBridge 167:e84263d55307 389
AnnaBridge 167:e84263d55307 390 } else { // disable
AnnaBridge 167:e84263d55307 391 int all_disabled = 0;
AnnaBridge 167:e84263d55307 392 if (irq == RxIrq) {
AnnaBridge 167:e84263d55307 393 __HAL_UART_DISABLE_IT(huart, UART_IT_RXNE);
AnnaBridge 167:e84263d55307 394 // Check if TxIrq is disabled too
AnnaBridge 167:e84263d55307 395 if ((huart->Instance->CR1 & USART_CR1_TXEIE) == 0) {
AnnaBridge 167:e84263d55307 396 all_disabled = 1;
AnnaBridge 167:e84263d55307 397 }
AnnaBridge 167:e84263d55307 398 } else { // TxIrq
AnnaBridge 167:e84263d55307 399 __HAL_UART_DISABLE_IT(huart, UART_IT_TC);
AnnaBridge 167:e84263d55307 400 // Check if RxIrq is disabled too
AnnaBridge 167:e84263d55307 401 if ((huart->Instance->CR1 & USART_CR1_RXNEIE) == 0) {
AnnaBridge 167:e84263d55307 402 all_disabled = 1;
AnnaBridge 167:e84263d55307 403 }
AnnaBridge 167:e84263d55307 404 }
AnnaBridge 167:e84263d55307 405
AnnaBridge 167:e84263d55307 406 if (all_disabled) {
AnnaBridge 167:e84263d55307 407 NVIC_DisableIRQ(irq_n);
AnnaBridge 167:e84263d55307 408 }
AnnaBridge 167:e84263d55307 409 }
AnnaBridge 167:e84263d55307 410 }
AnnaBridge 167:e84263d55307 411
AnnaBridge 167:e84263d55307 412 /******************************************************************************
AnnaBridge 167:e84263d55307 413 * READ/WRITE
AnnaBridge 167:e84263d55307 414 ******************************************************************************/
AnnaBridge 167:e84263d55307 415
AnnaBridge 167:e84263d55307 416 int serial_getc(serial_t *obj)
AnnaBridge 167:e84263d55307 417 {
AnnaBridge 167:e84263d55307 418 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 419 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 420
AnnaBridge 167:e84263d55307 421 while (!serial_readable(obj));
AnnaBridge 167:e84263d55307 422 return (int)(huart->Instance->DR & 0x1FF);
AnnaBridge 167:e84263d55307 423 }
AnnaBridge 167:e84263d55307 424
AnnaBridge 167:e84263d55307 425 void serial_putc(serial_t *obj, int c)
AnnaBridge 167:e84263d55307 426 {
AnnaBridge 167:e84263d55307 427 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 428 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 429
AnnaBridge 167:e84263d55307 430 while (!serial_writable(obj));
AnnaBridge 167:e84263d55307 431 huart->Instance->DR = (uint32_t)(c & 0x1FF);
AnnaBridge 167:e84263d55307 432 }
AnnaBridge 167:e84263d55307 433
AnnaBridge 167:e84263d55307 434 void serial_clear(serial_t *obj)
AnnaBridge 167:e84263d55307 435 {
AnnaBridge 167:e84263d55307 436 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 437 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 438
AnnaBridge 167:e84263d55307 439 huart->TxXferCount = 0;
AnnaBridge 167:e84263d55307 440 huart->RxXferCount = 0;
AnnaBridge 167:e84263d55307 441 }
AnnaBridge 167:e84263d55307 442
AnnaBridge 167:e84263d55307 443 void serial_break_set(serial_t *obj)
AnnaBridge 167:e84263d55307 444 {
AnnaBridge 167:e84263d55307 445 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 446 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 447
AnnaBridge 167:e84263d55307 448 HAL_LIN_SendBreak(huart);
AnnaBridge 167:e84263d55307 449 }
AnnaBridge 167:e84263d55307 450
AnnaBridge 167:e84263d55307 451 #if DEVICE_SERIAL_ASYNCH
AnnaBridge 167:e84263d55307 452
AnnaBridge 167:e84263d55307 453 /******************************************************************************
AnnaBridge 167:e84263d55307 454 * LOCAL HELPER FUNCTIONS
AnnaBridge 167:e84263d55307 455 ******************************************************************************/
AnnaBridge 167:e84263d55307 456
AnnaBridge 167:e84263d55307 457 /**
AnnaBridge 167:e84263d55307 458 * Configure the TX buffer for an asynchronous write serial transaction
AnnaBridge 167:e84263d55307 459 *
AnnaBridge 167:e84263d55307 460 * @param obj The serial object.
AnnaBridge 167:e84263d55307 461 * @param tx The buffer for sending.
AnnaBridge 167:e84263d55307 462 * @param tx_length The number of words to transmit.
AnnaBridge 167:e84263d55307 463 */
AnnaBridge 167:e84263d55307 464 static void serial_tx_buffer_set(serial_t *obj, void *tx, int tx_length, uint8_t width)
AnnaBridge 167:e84263d55307 465 {
AnnaBridge 167:e84263d55307 466 (void)width;
AnnaBridge 167:e84263d55307 467
AnnaBridge 167:e84263d55307 468 // Exit if a transmit is already on-going
AnnaBridge 167:e84263d55307 469 if (serial_tx_active(obj)) {
AnnaBridge 167:e84263d55307 470 return;
AnnaBridge 167:e84263d55307 471 }
AnnaBridge 167:e84263d55307 472
AnnaBridge 167:e84263d55307 473 obj->tx_buff.buffer = tx;
AnnaBridge 167:e84263d55307 474 obj->tx_buff.length = tx_length;
AnnaBridge 167:e84263d55307 475 obj->tx_buff.pos = 0;
AnnaBridge 167:e84263d55307 476 }
AnnaBridge 167:e84263d55307 477
AnnaBridge 167:e84263d55307 478 /**
AnnaBridge 167:e84263d55307 479 * Configure the RX buffer for an asynchronous write serial transaction
AnnaBridge 167:e84263d55307 480 *
AnnaBridge 167:e84263d55307 481 * @param obj The serial object.
AnnaBridge 167:e84263d55307 482 * @param tx The buffer for sending.
AnnaBridge 167:e84263d55307 483 * @param tx_length The number of words to transmit.
AnnaBridge 167:e84263d55307 484 */
AnnaBridge 167:e84263d55307 485 static void serial_rx_buffer_set(serial_t *obj, void *rx, int rx_length, uint8_t width)
AnnaBridge 167:e84263d55307 486 {
AnnaBridge 167:e84263d55307 487 (void)width;
AnnaBridge 167:e84263d55307 488
AnnaBridge 167:e84263d55307 489 // Exit if a reception is already on-going
AnnaBridge 167:e84263d55307 490 if (serial_rx_active(obj)) {
AnnaBridge 167:e84263d55307 491 return;
AnnaBridge 167:e84263d55307 492 }
AnnaBridge 167:e84263d55307 493
AnnaBridge 167:e84263d55307 494 obj->rx_buff.buffer = rx;
AnnaBridge 167:e84263d55307 495 obj->rx_buff.length = rx_length;
AnnaBridge 167:e84263d55307 496 obj->rx_buff.pos = 0;
AnnaBridge 167:e84263d55307 497 }
AnnaBridge 167:e84263d55307 498
AnnaBridge 167:e84263d55307 499 /**
AnnaBridge 167:e84263d55307 500 * Configure events
AnnaBridge 167:e84263d55307 501 *
AnnaBridge 167:e84263d55307 502 * @param obj The serial object
AnnaBridge 167:e84263d55307 503 * @param event The logical OR of the events to configure
AnnaBridge 167:e84263d55307 504 * @param enable Set to non-zero to enable events, or zero to disable them
AnnaBridge 167:e84263d55307 505 */
AnnaBridge 167:e84263d55307 506 static void serial_enable_event(serial_t *obj, int event, uint8_t enable)
AnnaBridge 167:e84263d55307 507 {
AnnaBridge 167:e84263d55307 508 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 509
AnnaBridge 167:e84263d55307 510 // Shouldn't have to enable interrupt here, just need to keep track of the requested events.
AnnaBridge 167:e84263d55307 511 if (enable) {
AnnaBridge 167:e84263d55307 512 obj_s->events |= event;
AnnaBridge 167:e84263d55307 513 } else {
AnnaBridge 167:e84263d55307 514 obj_s->events &= ~event;
AnnaBridge 167:e84263d55307 515 }
AnnaBridge 167:e84263d55307 516 }
AnnaBridge 167:e84263d55307 517
AnnaBridge 167:e84263d55307 518
AnnaBridge 167:e84263d55307 519 /**
AnnaBridge 167:e84263d55307 520 * Get index of serial object TX IRQ, relating it to the physical peripheral.
AnnaBridge 167:e84263d55307 521 *
AnnaBridge 167:e84263d55307 522 * @param obj pointer to serial object
AnnaBridge 167:e84263d55307 523 * @return internal NVIC TX IRQ index of U(S)ART peripheral
AnnaBridge 167:e84263d55307 524 */
AnnaBridge 167:e84263d55307 525 static IRQn_Type serial_get_irq_n(serial_t *obj)
AnnaBridge 167:e84263d55307 526 {
AnnaBridge 167:e84263d55307 527 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 528 IRQn_Type irq_n;
AnnaBridge 167:e84263d55307 529
AnnaBridge 167:e84263d55307 530 switch (obj_s->index) {
AnnaBridge 167:e84263d55307 531 #if defined(USART1_BASE)
AnnaBridge 167:e84263d55307 532 case 0:
AnnaBridge 167:e84263d55307 533 irq_n = USART1_IRQn;
AnnaBridge 167:e84263d55307 534 break;
AnnaBridge 167:e84263d55307 535 #endif
AnnaBridge 167:e84263d55307 536 #if defined(USART2_BASE)
AnnaBridge 167:e84263d55307 537 case 1:
AnnaBridge 167:e84263d55307 538 irq_n = USART2_IRQn;
AnnaBridge 167:e84263d55307 539 break;
AnnaBridge 167:e84263d55307 540 #endif
AnnaBridge 167:e84263d55307 541 #if defined(USART3_BASE)
AnnaBridge 167:e84263d55307 542 case 2:
AnnaBridge 167:e84263d55307 543 irq_n = USART3_IRQn;
AnnaBridge 167:e84263d55307 544 break;
AnnaBridge 167:e84263d55307 545 #endif
AnnaBridge 167:e84263d55307 546 #if defined(UART4_BASE)
AnnaBridge 167:e84263d55307 547 case 3:
AnnaBridge 167:e84263d55307 548 irq_n = UART4_IRQn;
AnnaBridge 167:e84263d55307 549 break;
AnnaBridge 167:e84263d55307 550 #endif
AnnaBridge 167:e84263d55307 551 #if defined(USART5_BASE)
AnnaBridge 167:e84263d55307 552 case 4:
AnnaBridge 167:e84263d55307 553 irq_n = UART5_IRQn;
AnnaBridge 167:e84263d55307 554 break;
AnnaBridge 167:e84263d55307 555 #endif
AnnaBridge 167:e84263d55307 556 #if defined(USART6_BASE)
AnnaBridge 167:e84263d55307 557 case 5:
AnnaBridge 167:e84263d55307 558 irq_n = USART6_IRQn;
AnnaBridge 167:e84263d55307 559 break;
AnnaBridge 167:e84263d55307 560 #endif
AnnaBridge 167:e84263d55307 561 #if defined(UART7_BASE)
AnnaBridge 167:e84263d55307 562 case 6:
AnnaBridge 167:e84263d55307 563 irq_n = UART7_IRQn;
AnnaBridge 167:e84263d55307 564 break;
AnnaBridge 167:e84263d55307 565 #endif
AnnaBridge 167:e84263d55307 566 #if defined(UART8_BASE)
AnnaBridge 167:e84263d55307 567 case 7:
AnnaBridge 167:e84263d55307 568 irq_n = UART8_IRQn;
AnnaBridge 167:e84263d55307 569 break;
AnnaBridge 167:e84263d55307 570 #endif
AnnaBridge 167:e84263d55307 571 default:
AnnaBridge 167:e84263d55307 572 irq_n = (IRQn_Type)0;
AnnaBridge 167:e84263d55307 573 }
AnnaBridge 167:e84263d55307 574
AnnaBridge 167:e84263d55307 575 return irq_n;
AnnaBridge 167:e84263d55307 576 }
AnnaBridge 167:e84263d55307 577
AnnaBridge 167:e84263d55307 578 /******************************************************************************
AnnaBridge 167:e84263d55307 579 * MBED API FUNCTIONS
AnnaBridge 167:e84263d55307 580 ******************************************************************************/
AnnaBridge 167:e84263d55307 581
AnnaBridge 167:e84263d55307 582 /**
AnnaBridge 167:e84263d55307 583 * Begin asynchronous TX transfer. The used buffer is specified in the serial
AnnaBridge 167:e84263d55307 584 * object, tx_buff
AnnaBridge 167:e84263d55307 585 *
AnnaBridge 167:e84263d55307 586 * @param obj The serial object
AnnaBridge 167:e84263d55307 587 * @param tx The buffer for sending
AnnaBridge 167:e84263d55307 588 * @param tx_length The number of words to transmit
AnnaBridge 167:e84263d55307 589 * @param tx_width The bit width of buffer word
AnnaBridge 167:e84263d55307 590 * @param handler The serial handler
AnnaBridge 167:e84263d55307 591 * @param event The logical OR of events to be registered
AnnaBridge 167:e84263d55307 592 * @param hint A suggestion for how to use DMA with this transfer
AnnaBridge 167:e84263d55307 593 * @return Returns number of data transfered, or 0 otherwise
AnnaBridge 167:e84263d55307 594 */
AnnaBridge 167:e84263d55307 595 int serial_tx_asynch(serial_t *obj, const void *tx, size_t tx_length, uint8_t tx_width, uint32_t handler, uint32_t event, DMAUsage hint)
AnnaBridge 167:e84263d55307 596 {
AnnaBridge 167:e84263d55307 597 // TODO: DMA usage is currently ignored
AnnaBridge 167:e84263d55307 598 (void) hint;
AnnaBridge 167:e84263d55307 599
AnnaBridge 167:e84263d55307 600 // Check buffer is ok
AnnaBridge 167:e84263d55307 601 MBED_ASSERT(tx != (void*)0);
AnnaBridge 167:e84263d55307 602 MBED_ASSERT(tx_width == 8); // support only 8b width
AnnaBridge 167:e84263d55307 603
AnnaBridge 167:e84263d55307 604 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 605 UART_HandleTypeDef * huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 606
AnnaBridge 167:e84263d55307 607 if (tx_length == 0) {
AnnaBridge 167:e84263d55307 608 return 0;
AnnaBridge 167:e84263d55307 609 }
AnnaBridge 167:e84263d55307 610
AnnaBridge 167:e84263d55307 611 // Set up buffer
AnnaBridge 167:e84263d55307 612 serial_tx_buffer_set(obj, (void *)tx, tx_length, tx_width);
AnnaBridge 167:e84263d55307 613
AnnaBridge 167:e84263d55307 614 // Set up events
AnnaBridge 167:e84263d55307 615 serial_enable_event(obj, SERIAL_EVENT_TX_ALL, 0); // Clear all events
AnnaBridge 167:e84263d55307 616 serial_enable_event(obj, event, 1); // Set only the wanted events
AnnaBridge 167:e84263d55307 617
AnnaBridge 167:e84263d55307 618 // Enable interrupt
AnnaBridge 167:e84263d55307 619 IRQn_Type irq_n = serial_get_irq_n(obj);
AnnaBridge 167:e84263d55307 620 NVIC_ClearPendingIRQ(irq_n);
AnnaBridge 167:e84263d55307 621 NVIC_DisableIRQ(irq_n);
AnnaBridge 167:e84263d55307 622 NVIC_SetPriority(irq_n, 1);
AnnaBridge 167:e84263d55307 623 NVIC_SetVector(irq_n, (uint32_t)handler);
AnnaBridge 167:e84263d55307 624 NVIC_EnableIRQ(irq_n);
AnnaBridge 167:e84263d55307 625
AnnaBridge 167:e84263d55307 626 // the following function will enable UART_IT_TXE and error interrupts
AnnaBridge 167:e84263d55307 627 if (HAL_UART_Transmit_IT(huart, (uint8_t*)tx, tx_length) != HAL_OK) {
AnnaBridge 167:e84263d55307 628 return 0;
AnnaBridge 167:e84263d55307 629 }
AnnaBridge 167:e84263d55307 630
AnnaBridge 167:e84263d55307 631 return tx_length;
AnnaBridge 167:e84263d55307 632 }
AnnaBridge 167:e84263d55307 633
AnnaBridge 167:e84263d55307 634 /**
AnnaBridge 167:e84263d55307 635 * Begin asynchronous RX transfer (enable interrupt for data collecting)
AnnaBridge 167:e84263d55307 636 * The used buffer is specified in the serial object, rx_buff
AnnaBridge 167:e84263d55307 637 *
AnnaBridge 167:e84263d55307 638 * @param obj The serial object
AnnaBridge 167:e84263d55307 639 * @param rx The buffer for sending
AnnaBridge 167:e84263d55307 640 * @param rx_length The number of words to transmit
AnnaBridge 167:e84263d55307 641 * @param rx_width The bit width of buffer word
AnnaBridge 167:e84263d55307 642 * @param handler The serial handler
AnnaBridge 167:e84263d55307 643 * @param event The logical OR of events to be registered
AnnaBridge 167:e84263d55307 644 * @param handler The serial handler
AnnaBridge 167:e84263d55307 645 * @param char_match A character in range 0-254 to be matched
AnnaBridge 167:e84263d55307 646 * @param hint A suggestion for how to use DMA with this transfer
AnnaBridge 167:e84263d55307 647 */
AnnaBridge 167:e84263d55307 648 void serial_rx_asynch(serial_t *obj, void *rx, size_t rx_length, uint8_t rx_width, uint32_t handler, uint32_t event, uint8_t char_match, DMAUsage hint)
AnnaBridge 167:e84263d55307 649 {
AnnaBridge 167:e84263d55307 650 // TODO: DMA usage is currently ignored
AnnaBridge 167:e84263d55307 651 (void) hint;
AnnaBridge 167:e84263d55307 652
AnnaBridge 167:e84263d55307 653 /* Sanity check arguments */
AnnaBridge 167:e84263d55307 654 MBED_ASSERT(obj);
AnnaBridge 167:e84263d55307 655 MBED_ASSERT(rx != (void*)0);
AnnaBridge 167:e84263d55307 656 MBED_ASSERT(rx_width == 8); // support only 8b width
AnnaBridge 167:e84263d55307 657
AnnaBridge 167:e84263d55307 658 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 659 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 660
AnnaBridge 167:e84263d55307 661 serial_enable_event(obj, SERIAL_EVENT_RX_ALL, 0);
AnnaBridge 167:e84263d55307 662 serial_enable_event(obj, event, 1);
AnnaBridge 167:e84263d55307 663
AnnaBridge 167:e84263d55307 664 // set CharMatch
AnnaBridge 167:e84263d55307 665 obj->char_match = char_match;
AnnaBridge 167:e84263d55307 666
AnnaBridge 167:e84263d55307 667 serial_rx_buffer_set(obj, rx, rx_length, rx_width);
AnnaBridge 167:e84263d55307 668
AnnaBridge 167:e84263d55307 669 IRQn_Type irq_n = serial_get_irq_n(obj);
AnnaBridge 167:e84263d55307 670 NVIC_ClearPendingIRQ(irq_n);
AnnaBridge 167:e84263d55307 671 NVIC_DisableIRQ(irq_n);
AnnaBridge 167:e84263d55307 672 NVIC_SetPriority(irq_n, 0);
AnnaBridge 167:e84263d55307 673 NVIC_SetVector(irq_n, (uint32_t)handler);
AnnaBridge 167:e84263d55307 674 NVIC_EnableIRQ(irq_n);
AnnaBridge 167:e84263d55307 675
AnnaBridge 167:e84263d55307 676 // following HAL function will enable the RXNE interrupt + error interrupts
AnnaBridge 167:e84263d55307 677 HAL_UART_Receive_IT(huart, (uint8_t*)rx, rx_length);
AnnaBridge 167:e84263d55307 678 }
AnnaBridge 167:e84263d55307 679
AnnaBridge 167:e84263d55307 680 /**
AnnaBridge 167:e84263d55307 681 * Attempts to determine if the serial peripheral is already in use for TX
AnnaBridge 167:e84263d55307 682 *
AnnaBridge 167:e84263d55307 683 * @param obj The serial object
AnnaBridge 167:e84263d55307 684 * @return Non-zero if the TX transaction is ongoing, 0 otherwise
AnnaBridge 167:e84263d55307 685 */
AnnaBridge 167:e84263d55307 686 uint8_t serial_tx_active(serial_t *obj)
AnnaBridge 167:e84263d55307 687 {
AnnaBridge 167:e84263d55307 688 MBED_ASSERT(obj);
AnnaBridge 167:e84263d55307 689
AnnaBridge 167:e84263d55307 690 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 691 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 692
AnnaBridge 167:e84263d55307 693 return ((HAL_UART_GetState(huart) == HAL_UART_STATE_BUSY_TX) ? 1 : 0);
AnnaBridge 167:e84263d55307 694 }
AnnaBridge 167:e84263d55307 695
AnnaBridge 167:e84263d55307 696 /**
AnnaBridge 167:e84263d55307 697 * Attempts to determine if the serial peripheral is already in use for RX
AnnaBridge 167:e84263d55307 698 *
AnnaBridge 167:e84263d55307 699 * @param obj The serial object
AnnaBridge 167:e84263d55307 700 * @return Non-zero if the RX transaction is ongoing, 0 otherwise
AnnaBridge 167:e84263d55307 701 */
AnnaBridge 167:e84263d55307 702 uint8_t serial_rx_active(serial_t *obj)
AnnaBridge 167:e84263d55307 703 {
AnnaBridge 167:e84263d55307 704 MBED_ASSERT(obj);
AnnaBridge 167:e84263d55307 705
AnnaBridge 167:e84263d55307 706 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 707 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 708
AnnaBridge 167:e84263d55307 709 return ((HAL_UART_GetState(huart) == HAL_UART_STATE_BUSY_RX) ? 1 : 0);
AnnaBridge 167:e84263d55307 710 }
AnnaBridge 167:e84263d55307 711
AnnaBridge 167:e84263d55307 712 void HAL_UART_TxCpltCallback(UART_HandleTypeDef *huart) {
AnnaBridge 167:e84263d55307 713 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_TC) != RESET) {
AnnaBridge 167:e84263d55307 714 __HAL_UART_CLEAR_FLAG(huart, UART_FLAG_TC);
AnnaBridge 167:e84263d55307 715 }
AnnaBridge 167:e84263d55307 716 }
AnnaBridge 167:e84263d55307 717
AnnaBridge 167:e84263d55307 718 void HAL_UART_ErrorCallback(UART_HandleTypeDef *huart) {
AnnaBridge 167:e84263d55307 719 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_PE) != RESET) {
AnnaBridge 167:e84263d55307 720 volatile uint32_t tmpval = huart->Instance->DR; // Clear PE flag
AnnaBridge 167:e84263d55307 721 } else if (__HAL_UART_GET_FLAG(huart, UART_FLAG_FE) != RESET) {
AnnaBridge 167:e84263d55307 722 volatile uint32_t tmpval = huart->Instance->DR; // Clear FE flag
AnnaBridge 167:e84263d55307 723 } else if (__HAL_UART_GET_FLAG(huart, UART_FLAG_NE) != RESET) {
AnnaBridge 167:e84263d55307 724 volatile uint32_t tmpval = huart->Instance->DR; // Clear NE flag
AnnaBridge 167:e84263d55307 725 } else if (__HAL_UART_GET_FLAG(huart, UART_FLAG_ORE) != RESET) {
AnnaBridge 167:e84263d55307 726 volatile uint32_t tmpval = huart->Instance->DR; // Clear ORE flag
AnnaBridge 167:e84263d55307 727 }
AnnaBridge 167:e84263d55307 728 }
AnnaBridge 167:e84263d55307 729
AnnaBridge 167:e84263d55307 730 /**
AnnaBridge 167:e84263d55307 731 * The asynchronous TX and RX handler.
AnnaBridge 167:e84263d55307 732 *
AnnaBridge 167:e84263d55307 733 * @param obj The serial object
AnnaBridge 167:e84263d55307 734 * @return Returns event flags if a TX/RX transfer termination condition was met or 0 otherwise
AnnaBridge 167:e84263d55307 735 */
AnnaBridge 167:e84263d55307 736 int serial_irq_handler_asynch(serial_t *obj)
AnnaBridge 167:e84263d55307 737 {
AnnaBridge 167:e84263d55307 738 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 739 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 740
AnnaBridge 167:e84263d55307 741 volatile int return_event = 0;
AnnaBridge 167:e84263d55307 742 uint8_t *buf = (uint8_t*)(obj->rx_buff.buffer);
AnnaBridge 167:e84263d55307 743 uint8_t i = 0;
AnnaBridge 167:e84263d55307 744
AnnaBridge 167:e84263d55307 745 // TX PART:
AnnaBridge 167:e84263d55307 746 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_TC) != RESET) {
AnnaBridge 167:e84263d55307 747 if (__HAL_UART_GET_IT_SOURCE(huart, UART_IT_TC) != RESET) {
AnnaBridge 167:e84263d55307 748 // Return event SERIAL_EVENT_TX_COMPLETE if requested
AnnaBridge 167:e84263d55307 749 if ((obj_s->events & SERIAL_EVENT_TX_COMPLETE ) != 0) {
AnnaBridge 167:e84263d55307 750 return_event |= (SERIAL_EVENT_TX_COMPLETE & obj_s->events);
AnnaBridge 167:e84263d55307 751 }
AnnaBridge 167:e84263d55307 752 }
AnnaBridge 167:e84263d55307 753 }
AnnaBridge 167:e84263d55307 754
AnnaBridge 167:e84263d55307 755 // Handle error events
AnnaBridge 167:e84263d55307 756 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_PE) != RESET) {
AnnaBridge 167:e84263d55307 757 if (__HAL_UART_GET_IT_SOURCE(huart, USART_IT_ERR) != RESET) {
AnnaBridge 167:e84263d55307 758 return_event |= (SERIAL_EVENT_RX_PARITY_ERROR & obj_s->events);
AnnaBridge 167:e84263d55307 759 }
AnnaBridge 167:e84263d55307 760 }
AnnaBridge 167:e84263d55307 761
AnnaBridge 167:e84263d55307 762 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_FE) != RESET) {
AnnaBridge 167:e84263d55307 763 if (__HAL_UART_GET_IT_SOURCE(huart, USART_IT_ERR) != RESET) {
AnnaBridge 167:e84263d55307 764 return_event |= (SERIAL_EVENT_RX_FRAMING_ERROR & obj_s->events);
AnnaBridge 167:e84263d55307 765 }
AnnaBridge 167:e84263d55307 766 }
AnnaBridge 167:e84263d55307 767
AnnaBridge 167:e84263d55307 768 if (__HAL_UART_GET_FLAG(huart, UART_FLAG_ORE) != RESET) {
AnnaBridge 167:e84263d55307 769 if (__HAL_UART_GET_IT_SOURCE(huart, USART_IT_ERR) != RESET) {
AnnaBridge 167:e84263d55307 770 return_event |= (SERIAL_EVENT_RX_OVERRUN_ERROR & obj_s->events);
AnnaBridge 167:e84263d55307 771 }
AnnaBridge 167:e84263d55307 772 }
AnnaBridge 167:e84263d55307 773
AnnaBridge 167:e84263d55307 774 HAL_UART_IRQHandler(huart);
AnnaBridge 167:e84263d55307 775
AnnaBridge 167:e84263d55307 776 // Abort if an error occurs
AnnaBridge 167:e84263d55307 777 if (return_event & SERIAL_EVENT_RX_PARITY_ERROR ||
AnnaBridge 167:e84263d55307 778 return_event & SERIAL_EVENT_RX_FRAMING_ERROR ||
AnnaBridge 167:e84263d55307 779 return_event & SERIAL_EVENT_RX_OVERRUN_ERROR) {
AnnaBridge 167:e84263d55307 780 return return_event;
AnnaBridge 167:e84263d55307 781 }
AnnaBridge 167:e84263d55307 782
AnnaBridge 167:e84263d55307 783 //RX PART
AnnaBridge 167:e84263d55307 784 if (huart->RxXferSize != 0) {
AnnaBridge 167:e84263d55307 785 obj->rx_buff.pos = huart->RxXferSize - huart->RxXferCount;
AnnaBridge 167:e84263d55307 786 }
AnnaBridge 167:e84263d55307 787 if ((huart->RxXferCount == 0) && (obj->rx_buff.pos >= (obj->rx_buff.length - 1))) {
AnnaBridge 167:e84263d55307 788 return_event |= (SERIAL_EVENT_RX_COMPLETE & obj_s->events);
AnnaBridge 167:e84263d55307 789 }
AnnaBridge 167:e84263d55307 790
AnnaBridge 167:e84263d55307 791 // Check if char_match is present
AnnaBridge 167:e84263d55307 792 if (obj_s->events & SERIAL_EVENT_RX_CHARACTER_MATCH) {
AnnaBridge 167:e84263d55307 793 if (buf != NULL) {
AnnaBridge 167:e84263d55307 794 for (i = 0; i < obj->rx_buff.pos; i++) {
AnnaBridge 167:e84263d55307 795 if (buf[i] == obj->char_match) {
AnnaBridge 167:e84263d55307 796 obj->rx_buff.pos = i;
AnnaBridge 167:e84263d55307 797 return_event |= (SERIAL_EVENT_RX_CHARACTER_MATCH & obj_s->events);
AnnaBridge 167:e84263d55307 798 serial_rx_abort_asynch(obj);
AnnaBridge 167:e84263d55307 799 break;
AnnaBridge 167:e84263d55307 800 }
AnnaBridge 167:e84263d55307 801 }
AnnaBridge 167:e84263d55307 802 }
AnnaBridge 167:e84263d55307 803 }
AnnaBridge 167:e84263d55307 804
AnnaBridge 167:e84263d55307 805 return return_event;
AnnaBridge 167:e84263d55307 806 }
AnnaBridge 167:e84263d55307 807
AnnaBridge 167:e84263d55307 808 /**
AnnaBridge 167:e84263d55307 809 * Abort the ongoing TX transaction. It disables the enabled interupt for TX and
AnnaBridge 167:e84263d55307 810 * flush TX hardware buffer if TX FIFO is used
AnnaBridge 167:e84263d55307 811 *
AnnaBridge 167:e84263d55307 812 * @param obj The serial object
AnnaBridge 167:e84263d55307 813 */
AnnaBridge 167:e84263d55307 814 void serial_tx_abort_asynch(serial_t *obj)
AnnaBridge 167:e84263d55307 815 {
AnnaBridge 167:e84263d55307 816 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 817 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 818
AnnaBridge 167:e84263d55307 819 __HAL_UART_DISABLE_IT(huart, UART_IT_TC);
AnnaBridge 167:e84263d55307 820 __HAL_UART_DISABLE_IT(huart, UART_IT_TXE);
AnnaBridge 167:e84263d55307 821
AnnaBridge 167:e84263d55307 822 // clear flags
AnnaBridge 167:e84263d55307 823 __HAL_UART_CLEAR_FLAG(huart, UART_FLAG_TC);
AnnaBridge 167:e84263d55307 824
AnnaBridge 167:e84263d55307 825 // reset states
AnnaBridge 167:e84263d55307 826 huart->TxXferCount = 0;
AnnaBridge 167:e84263d55307 827 // update handle state
AnnaBridge 167:e84263d55307 828 if(huart->gState == HAL_UART_STATE_BUSY_TX_RX) {
AnnaBridge 167:e84263d55307 829 huart->gState = HAL_UART_STATE_BUSY_RX;
AnnaBridge 167:e84263d55307 830 } else {
AnnaBridge 167:e84263d55307 831 huart->gState = HAL_UART_STATE_READY;
AnnaBridge 167:e84263d55307 832 }
AnnaBridge 167:e84263d55307 833 }
AnnaBridge 167:e84263d55307 834
AnnaBridge 167:e84263d55307 835 /**
AnnaBridge 167:e84263d55307 836 * Abort the ongoing RX transaction It disables the enabled interrupt for RX and
AnnaBridge 167:e84263d55307 837 * flush RX hardware buffer if RX FIFO is used
AnnaBridge 167:e84263d55307 838 *
AnnaBridge 167:e84263d55307 839 * @param obj The serial object
AnnaBridge 167:e84263d55307 840 */
AnnaBridge 167:e84263d55307 841 void serial_rx_abort_asynch(serial_t *obj)
AnnaBridge 167:e84263d55307 842 {
AnnaBridge 167:e84263d55307 843 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 844 UART_HandleTypeDef *huart = &uart_handlers[obj_s->index];
AnnaBridge 167:e84263d55307 845
AnnaBridge 167:e84263d55307 846 // disable interrupts
AnnaBridge 167:e84263d55307 847 __HAL_UART_DISABLE_IT(huart, UART_IT_RXNE);
AnnaBridge 167:e84263d55307 848 __HAL_UART_DISABLE_IT(huart, UART_IT_PE);
AnnaBridge 167:e84263d55307 849 __HAL_UART_DISABLE_IT(huart, UART_IT_ERR);
AnnaBridge 167:e84263d55307 850
AnnaBridge 167:e84263d55307 851 // clear flags
AnnaBridge 167:e84263d55307 852 __HAL_UART_CLEAR_FLAG(huart, UART_FLAG_RXNE);
AnnaBridge 167:e84263d55307 853 volatile uint32_t tmpval = huart->Instance->DR; // Clear errors flag
AnnaBridge 167:e84263d55307 854
AnnaBridge 167:e84263d55307 855 // reset states
AnnaBridge 167:e84263d55307 856 huart->RxXferCount = 0;
AnnaBridge 167:e84263d55307 857 // update handle state
AnnaBridge 167:e84263d55307 858 if(huart->RxState == HAL_UART_STATE_BUSY_TX_RX) {
AnnaBridge 167:e84263d55307 859 huart->RxState = HAL_UART_STATE_BUSY_TX;
AnnaBridge 167:e84263d55307 860 } else {
AnnaBridge 167:e84263d55307 861 huart->RxState = HAL_UART_STATE_READY;
AnnaBridge 167:e84263d55307 862 }
AnnaBridge 167:e84263d55307 863 }
AnnaBridge 167:e84263d55307 864
AnnaBridge 167:e84263d55307 865 #endif
AnnaBridge 167:e84263d55307 866
AnnaBridge 167:e84263d55307 867 #if DEVICE_SERIAL_FC
AnnaBridge 167:e84263d55307 868
AnnaBridge 167:e84263d55307 869 /**
AnnaBridge 167:e84263d55307 870 * Set HW Control Flow
AnnaBridge 167:e84263d55307 871 * @param obj The serial object
AnnaBridge 167:e84263d55307 872 * @param type The Control Flow type (FlowControlNone, FlowControlRTS, FlowControlCTS, FlowControlRTSCTS)
AnnaBridge 167:e84263d55307 873 * @param rxflow Pin for the rxflow
AnnaBridge 167:e84263d55307 874 * @param txflow Pin for the txflow
AnnaBridge 167:e84263d55307 875 */
AnnaBridge 167:e84263d55307 876 void serial_set_flow_control(serial_t *obj, FlowControl type, PinName rxflow, PinName txflow)
AnnaBridge 167:e84263d55307 877 {
AnnaBridge 167:e84263d55307 878 struct serial_s *obj_s = SERIAL_S(obj);
AnnaBridge 167:e84263d55307 879
AnnaBridge 167:e84263d55307 880 // Determine the UART to use (UART_1, UART_2, ...)
AnnaBridge 167:e84263d55307 881 UARTName uart_rts = (UARTName)pinmap_peripheral(rxflow, PinMap_UART_RTS);
AnnaBridge 167:e84263d55307 882 UARTName uart_cts = (UARTName)pinmap_peripheral(txflow, PinMap_UART_CTS);
AnnaBridge 167:e84263d55307 883
AnnaBridge 167:e84263d55307 884 // Get the peripheral name (UART_1, UART_2, ...) from the pin and assign it to the object
AnnaBridge 167:e84263d55307 885 obj_s->uart = (UARTName)pinmap_merge(uart_cts, uart_rts);
AnnaBridge 167:e84263d55307 886 MBED_ASSERT(obj_s->uart != (UARTName)NC);
AnnaBridge 167:e84263d55307 887
AnnaBridge 167:e84263d55307 888 if(type == FlowControlNone) {
AnnaBridge 167:e84263d55307 889 // Disable hardware flow control
AnnaBridge 167:e84263d55307 890 obj_s->hw_flow_ctl = UART_HWCONTROL_NONE;
AnnaBridge 167:e84263d55307 891 }
AnnaBridge 167:e84263d55307 892 if (type == FlowControlRTS) {
AnnaBridge 167:e84263d55307 893 // Enable RTS
AnnaBridge 167:e84263d55307 894 MBED_ASSERT(uart_rts != (UARTName)NC);
AnnaBridge 167:e84263d55307 895 obj_s->hw_flow_ctl = UART_HWCONTROL_RTS;
AnnaBridge 167:e84263d55307 896 obj_s->pin_rts = rxflow;
AnnaBridge 167:e84263d55307 897 // Enable the pin for RTS function
AnnaBridge 167:e84263d55307 898 pinmap_pinout(rxflow, PinMap_UART_RTS);
AnnaBridge 167:e84263d55307 899 }
AnnaBridge 167:e84263d55307 900 if (type == FlowControlCTS) {
AnnaBridge 167:e84263d55307 901 // Enable CTS
AnnaBridge 167:e84263d55307 902 MBED_ASSERT(uart_cts != (UARTName)NC);
AnnaBridge 167:e84263d55307 903 obj_s->hw_flow_ctl = UART_HWCONTROL_CTS;
AnnaBridge 167:e84263d55307 904 obj_s->pin_cts = txflow;
AnnaBridge 167:e84263d55307 905 // Enable the pin for CTS function
AnnaBridge 167:e84263d55307 906 pinmap_pinout(txflow, PinMap_UART_CTS);
AnnaBridge 167:e84263d55307 907 }
AnnaBridge 167:e84263d55307 908 if (type == FlowControlRTSCTS) {
AnnaBridge 167:e84263d55307 909 // Enable CTS & RTS
AnnaBridge 167:e84263d55307 910 MBED_ASSERT(uart_rts != (UARTName)NC);
AnnaBridge 167:e84263d55307 911 MBED_ASSERT(uart_cts != (UARTName)NC);
AnnaBridge 167:e84263d55307 912 obj_s->hw_flow_ctl = UART_HWCONTROL_RTS_CTS;
AnnaBridge 167:e84263d55307 913 obj_s->pin_rts = rxflow;
AnnaBridge 167:e84263d55307 914 obj_s->pin_cts = txflow;
AnnaBridge 167:e84263d55307 915 // Enable the pin for CTS function
AnnaBridge 167:e84263d55307 916 pinmap_pinout(txflow, PinMap_UART_CTS);
AnnaBridge 167:e84263d55307 917 // Enable the pin for RTS function
AnnaBridge 167:e84263d55307 918 pinmap_pinout(rxflow, PinMap_UART_RTS);
AnnaBridge 167:e84263d55307 919 }
AnnaBridge 167:e84263d55307 920
AnnaBridge 167:e84263d55307 921 init_uart(obj);
AnnaBridge 167:e84263d55307 922 }
AnnaBridge 167:e84263d55307 923
AnnaBridge 167:e84263d55307 924 #endif
AnnaBridge 167:e84263d55307 925
AnnaBridge 167:e84263d55307 926 #endif