mbed library sources. Supersedes mbed-src.

Dependents:   Nucleo_Hello_Encoder BLE_iBeaconScan AM1805_DEMO DISCO-F429ZI_ExportTemplate1 ... more

Committer:
AnnaBridge
Date:
Wed Feb 20 22:31:08 2019 +0000
Revision:
189:f392fc9709a3
Parent:
186:707f6e361f3e
mbed library release version 165

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Anna Bridge 186:707f6e361f3e 1 /*******************************************************************************
Anna Bridge 186:707f6e361f3e 2 * Copyright (C) 2017 Maxim Integrated Products, Inc., All Rights Reserved.
Anna Bridge 186:707f6e361f3e 3 *
Anna Bridge 186:707f6e361f3e 4 * Permission is hereby granted, free of charge, to any person obtaining a
Anna Bridge 186:707f6e361f3e 5 * copy of this software and associated documentation files (the "Software"),
Anna Bridge 186:707f6e361f3e 6 * to deal in the Software without restriction, including without limitation
Anna Bridge 186:707f6e361f3e 7 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
Anna Bridge 186:707f6e361f3e 8 * and/or sell copies of the Software, and to permit persons to whom the
Anna Bridge 186:707f6e361f3e 9 * Software is furnished to do so, subject to the following conditions:
Anna Bridge 186:707f6e361f3e 10 *
Anna Bridge 186:707f6e361f3e 11 * The above copyright notice and this permission notice shall be included
Anna Bridge 186:707f6e361f3e 12 * in all copies or substantial portions of the Software.
Anna Bridge 186:707f6e361f3e 13 *
Anna Bridge 186:707f6e361f3e 14 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
Anna Bridge 186:707f6e361f3e 15 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
Anna Bridge 186:707f6e361f3e 16 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
Anna Bridge 186:707f6e361f3e 17 * IN NO EVENT SHALL MAXIM INTEGRATED BE LIABLE FOR ANY CLAIM, DAMAGES
Anna Bridge 186:707f6e361f3e 18 * OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
Anna Bridge 186:707f6e361f3e 19 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
Anna Bridge 186:707f6e361f3e 20 * OTHER DEALINGS IN THE SOFTWARE.
Anna Bridge 186:707f6e361f3e 21 *
Anna Bridge 186:707f6e361f3e 22 * Except as contained in this notice, the name of Maxim Integrated
Anna Bridge 186:707f6e361f3e 23 * Products, Inc. shall not be used except as stated in the Maxim Integrated
Anna Bridge 186:707f6e361f3e 24 * Products, Inc. Branding Policy.
Anna Bridge 186:707f6e361f3e 25 *
Anna Bridge 186:707f6e361f3e 26 * The mere transfer of this software does not imply any licenses
Anna Bridge 186:707f6e361f3e 27 * of trade secrets, proprietary technology, copyrights, patents,
Anna Bridge 186:707f6e361f3e 28 * trademarks, maskwork rights, or any other form of intellectual
Anna Bridge 186:707f6e361f3e 29 * property whatsoever. Maxim Integrated Products, Inc. retains all
Anna Bridge 186:707f6e361f3e 30 * ownership rights.
Anna Bridge 186:707f6e361f3e 31 *******************************************************************************
Anna Bridge 186:707f6e361f3e 32 */
Anna Bridge 186:707f6e361f3e 33
Anna Bridge 186:707f6e361f3e 34 #include <stddef.h>
Anna Bridge 186:707f6e361f3e 35 #include "cmsis.h"
Anna Bridge 186:707f6e361f3e 36 #include "gpio_irq_api.h"
Anna Bridge 186:707f6e361f3e 37 #include "mbed_error.h"
Anna Bridge 186:707f6e361f3e 38
Anna Bridge 186:707f6e361f3e 39 static gpio_irq_t *objs[MXC_GPIO_NUM_PORTS][MXC_GPIO_MAX_PINS_PER_PORT] = {{0}};
Anna Bridge 186:707f6e361f3e 40 static gpio_irq_handler irq_handler;
Anna Bridge 186:707f6e361f3e 41
Anna Bridge 186:707f6e361f3e 42 static void handle_irq(unsigned int port)
Anna Bridge 186:707f6e361f3e 43 {
Anna Bridge 186:707f6e361f3e 44 uint32_t intfl, in_val;
Anna Bridge 186:707f6e361f3e 45 uint32_t mask;
Anna Bridge 186:707f6e361f3e 46 unsigned int pin;
Anna Bridge 186:707f6e361f3e 47
Anna Bridge 186:707f6e361f3e 48 /* Read pin state */
Anna Bridge 186:707f6e361f3e 49 in_val = MXC_GPIO->in_val[port];
Anna Bridge 186:707f6e361f3e 50
Anna Bridge 186:707f6e361f3e 51 /* Read interrupts */
Anna Bridge 186:707f6e361f3e 52 intfl = MXC_GPIO->intfl[port] & MXC_GPIO->inten[port];
Anna Bridge 186:707f6e361f3e 53
Anna Bridge 186:707f6e361f3e 54 mask = 1;
Anna Bridge 186:707f6e361f3e 55
Anna Bridge 186:707f6e361f3e 56 for (pin = 0; pin < MXC_GPIO_MAX_PINS_PER_PORT; pin++) {
Anna Bridge 186:707f6e361f3e 57 if (intfl & mask) {
Anna Bridge 186:707f6e361f3e 58 MXC_GPIO->intfl[port] = mask; /* clear interrupt */
Anna Bridge 186:707f6e361f3e 59 gpio_irq_event event = (in_val & mask) ? IRQ_RISE : IRQ_FALL;
Anna Bridge 186:707f6e361f3e 60 gpio_irq_t *obj = objs[port][pin];
Anna Bridge 186:707f6e361f3e 61 if (obj && obj->id) {
Anna Bridge 186:707f6e361f3e 62 if ((event == IRQ_RISE) && obj->rise_en) {
Anna Bridge 186:707f6e361f3e 63 irq_handler(obj->id, IRQ_RISE);
Anna Bridge 186:707f6e361f3e 64 } else if ((event == IRQ_FALL) && obj->fall_en) {
Anna Bridge 186:707f6e361f3e 65 irq_handler(obj->id, IRQ_FALL);
Anna Bridge 186:707f6e361f3e 66 }
Anna Bridge 186:707f6e361f3e 67 }
Anna Bridge 186:707f6e361f3e 68 }
Anna Bridge 186:707f6e361f3e 69 mask <<= 1;
Anna Bridge 186:707f6e361f3e 70 }
Anna Bridge 186:707f6e361f3e 71 }
Anna Bridge 186:707f6e361f3e 72
Anna Bridge 186:707f6e361f3e 73 void gpio_irq_0(void) { handle_irq(0); }
Anna Bridge 186:707f6e361f3e 74 void gpio_irq_1(void) { handle_irq(1); }
Anna Bridge 186:707f6e361f3e 75 void gpio_irq_2(void) { handle_irq(2); }
Anna Bridge 186:707f6e361f3e 76 void gpio_irq_3(void) { handle_irq(3); }
Anna Bridge 186:707f6e361f3e 77 void gpio_irq_4(void) { handle_irq(4); }
Anna Bridge 186:707f6e361f3e 78 void gpio_irq_5(void) { handle_irq(5); }
Anna Bridge 186:707f6e361f3e 79 void gpio_irq_6(void) { handle_irq(6); }
Anna Bridge 186:707f6e361f3e 80
Anna Bridge 186:707f6e361f3e 81 int gpio_irq_init(gpio_irq_t *obj, PinName name, gpio_irq_handler handler, uint32_t id)
Anna Bridge 186:707f6e361f3e 82 {
Anna Bridge 186:707f6e361f3e 83 if (name == NC) {
Anna Bridge 186:707f6e361f3e 84 return -1;
Anna Bridge 186:707f6e361f3e 85 }
Anna Bridge 186:707f6e361f3e 86
Anna Bridge 186:707f6e361f3e 87 uint8_t port = PINNAME_TO_PORT(name);
Anna Bridge 186:707f6e361f3e 88 uint8_t pin = PINNAME_TO_PIN(name);
Anna Bridge 186:707f6e361f3e 89
Anna Bridge 186:707f6e361f3e 90 if ((port > MXC_GPIO_NUM_PORTS) || (pin > MXC_GPIO_MAX_PINS_PER_PORT)) {
Anna Bridge 186:707f6e361f3e 91 return 1;
Anna Bridge 186:707f6e361f3e 92 }
Anna Bridge 186:707f6e361f3e 93
Anna Bridge 186:707f6e361f3e 94 obj->port = port;
Anna Bridge 186:707f6e361f3e 95 obj->pin = pin;
Anna Bridge 186:707f6e361f3e 96 obj->id = id;
Anna Bridge 186:707f6e361f3e 97 objs[port][pin] = obj;
Anna Bridge 186:707f6e361f3e 98
Anna Bridge 186:707f6e361f3e 99 /* register handlers */
Anna Bridge 186:707f6e361f3e 100 irq_handler = handler;
Anna Bridge 186:707f6e361f3e 101 NVIC_SetVector(GPIO_P0_IRQn, (uint32_t)gpio_irq_0);
Anna Bridge 186:707f6e361f3e 102 NVIC_SetVector(GPIO_P1_IRQn, (uint32_t)gpio_irq_1);
Anna Bridge 186:707f6e361f3e 103 NVIC_SetVector(GPIO_P2_IRQn, (uint32_t)gpio_irq_2);
Anna Bridge 186:707f6e361f3e 104 NVIC_SetVector(GPIO_P3_IRQn, (uint32_t)gpio_irq_3);
Anna Bridge 186:707f6e361f3e 105 NVIC_SetVector(GPIO_P4_IRQn, (uint32_t)gpio_irq_4);
Anna Bridge 186:707f6e361f3e 106 NVIC_SetVector(GPIO_P5_IRQn, (uint32_t)gpio_irq_5);
Anna Bridge 186:707f6e361f3e 107 NVIC_SetVector(GPIO_P6_IRQn, (uint32_t)gpio_irq_6);
Anna Bridge 186:707f6e361f3e 108
Anna Bridge 186:707f6e361f3e 109 /* disable the interrupt locally */
Anna Bridge 186:707f6e361f3e 110 MXC_GPIO->int_mode[port] &= ~(0xF << (pin*4));
Anna Bridge 186:707f6e361f3e 111
Anna Bridge 186:707f6e361f3e 112 /* clear a pending request */
Anna Bridge 186:707f6e361f3e 113 MXC_GPIO->intfl[port] = 1 << pin;
Anna Bridge 186:707f6e361f3e 114
Anna Bridge 186:707f6e361f3e 115 /* enable the requested interrupt */
Anna Bridge 186:707f6e361f3e 116 MXC_GPIO->inten[port] |= (1 << pin);
Anna Bridge 186:707f6e361f3e 117 NVIC_EnableIRQ((IRQn_Type)((uint32_t)GPIO_P0_IRQn + port));
Anna Bridge 186:707f6e361f3e 118
Anna Bridge 186:707f6e361f3e 119 return 0;
Anna Bridge 186:707f6e361f3e 120 }
Anna Bridge 186:707f6e361f3e 121
Anna Bridge 186:707f6e361f3e 122 void gpio_irq_free(gpio_irq_t *obj)
Anna Bridge 186:707f6e361f3e 123 {
Anna Bridge 186:707f6e361f3e 124 /* disable interrupt */
Anna Bridge 186:707f6e361f3e 125 MXC_GPIO->inten[obj->port] &= ~(1 << obj->pin);
Anna Bridge 186:707f6e361f3e 126 MXC_GPIO->int_mode[obj->port] &= ~(MXC_V_GPIO_INT_MODE_ANY_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 127 objs[obj->port][obj->pin] = NULL;
Anna Bridge 186:707f6e361f3e 128 }
Anna Bridge 186:707f6e361f3e 129
Anna Bridge 186:707f6e361f3e 130 void gpio_irq_set(gpio_irq_t *obj, gpio_irq_event event, uint32_t enable)
Anna Bridge 186:707f6e361f3e 131 {
Anna Bridge 186:707f6e361f3e 132 if (event == IRQ_FALL) {
Anna Bridge 186:707f6e361f3e 133 obj->fall_en = enable;
Anna Bridge 186:707f6e361f3e 134 } else if (event == IRQ_RISE) {
Anna Bridge 186:707f6e361f3e 135 obj->rise_en = enable;
Anna Bridge 186:707f6e361f3e 136 }
Anna Bridge 186:707f6e361f3e 137
Anna Bridge 186:707f6e361f3e 138 if (obj->fall_en && obj->rise_en) {
Anna Bridge 186:707f6e361f3e 139 MXC_GPIO->int_mode[obj->port] |= (MXC_V_GPIO_INT_MODE_ANY_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 140 } else if (obj->fall_en) {
Anna Bridge 186:707f6e361f3e 141 uint32_t int_mode = MXC_GPIO->int_mode[obj->port];
Anna Bridge 186:707f6e361f3e 142 int_mode &= ~(MXC_V_GPIO_INT_MODE_ANY_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 143 int_mode |= (MXC_V_GPIO_INT_MODE_FALLING_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 144 MXC_GPIO->int_mode[obj->port] = int_mode;
Anna Bridge 186:707f6e361f3e 145 } else if (obj->rise_en) {
Anna Bridge 186:707f6e361f3e 146 uint32_t int_mode = MXC_GPIO->int_mode[obj->port];
Anna Bridge 186:707f6e361f3e 147 int_mode &= ~(MXC_V_GPIO_INT_MODE_ANY_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 148 int_mode |= (MXC_V_GPIO_INT_MODE_RISING_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 149 MXC_GPIO->int_mode[obj->port] = int_mode;
Anna Bridge 186:707f6e361f3e 150 } else {
Anna Bridge 186:707f6e361f3e 151 MXC_GPIO->int_mode[obj->port] &= ~(MXC_V_GPIO_INT_MODE_ANY_EDGE << (obj->pin*4));
Anna Bridge 186:707f6e361f3e 152 }
Anna Bridge 186:707f6e361f3e 153 }
Anna Bridge 186:707f6e361f3e 154
Anna Bridge 186:707f6e361f3e 155 void gpio_irq_enable(gpio_irq_t *obj)
Anna Bridge 186:707f6e361f3e 156 {
Anna Bridge 186:707f6e361f3e 157 MXC_GPIO->inten[obj->port] |= (1 << obj->pin);
Anna Bridge 186:707f6e361f3e 158 }
Anna Bridge 186:707f6e361f3e 159
Anna Bridge 186:707f6e361f3e 160 void gpio_irq_disable(gpio_irq_t *obj)
Anna Bridge 186:707f6e361f3e 161 {
Anna Bridge 186:707f6e361f3e 162 MXC_GPIO->inten[obj->port] &= ~(1 << obj->pin);
Anna Bridge 186:707f6e361f3e 163 }
Anna Bridge 186:707f6e361f3e 164
Anna Bridge 186:707f6e361f3e 165 gpio_irq_t *gpio_irq_get_obj(PinName name)
Anna Bridge 186:707f6e361f3e 166 {
Anna Bridge 186:707f6e361f3e 167 if (name == NC) {
Anna Bridge 186:707f6e361f3e 168 return NULL;
Anna Bridge 186:707f6e361f3e 169 }
Anna Bridge 186:707f6e361f3e 170
Anna Bridge 186:707f6e361f3e 171 unsigned int port = PINNAME_TO_PORT(name);
Anna Bridge 186:707f6e361f3e 172 unsigned int pin = PINNAME_TO_PIN(name);
Anna Bridge 186:707f6e361f3e 173
Anna Bridge 186:707f6e361f3e 174 if ((port > MXC_GPIO_NUM_PORTS) || (pin > MXC_GPIO_MAX_PINS_PER_PORT)) {
Anna Bridge 186:707f6e361f3e 175 return NULL;
Anna Bridge 186:707f6e361f3e 176 }
Anna Bridge 186:707f6e361f3e 177
Anna Bridge 186:707f6e361f3e 178 return objs[port][pin];
Anna Bridge 186:707f6e361f3e 179 }