Toyomasa Watarai
/
Mbed-example-WS-W27
Mbed Cloud example program for workshop in W27 2018.
easy-connect/wifi-x-nucleo-idw01m1/SPWFSA01/SPWFSA01.cpp@0:119624335925, 2018-06-30 (annotated)
- Committer:
- MACRUM
- Date:
- Sat Jun 30 01:40:30 2018 +0000
- Revision:
- 0:119624335925
Initial commit
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
MACRUM | 0:119624335925 | 1 | /* SPWFSA01 Device |
MACRUM | 0:119624335925 | 2 | * Copyright (c) 2015 ARM Limited |
MACRUM | 0:119624335925 | 3 | * |
MACRUM | 0:119624335925 | 4 | * Licensed under the Apache License, Version 2.0 (the "License"); |
MACRUM | 0:119624335925 | 5 | * you may not use this file except in compliance with the License. |
MACRUM | 0:119624335925 | 6 | * You may obtain a copy of the License at |
MACRUM | 0:119624335925 | 7 | * |
MACRUM | 0:119624335925 | 8 | * http://www.apache.org/licenses/LICENSE-2.0 |
MACRUM | 0:119624335925 | 9 | * |
MACRUM | 0:119624335925 | 10 | * Unless required by applicable law or agreed to in writing, software |
MACRUM | 0:119624335925 | 11 | * distributed under the License is distributed on an "AS IS" BASIS, |
MACRUM | 0:119624335925 | 12 | * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
MACRUM | 0:119624335925 | 13 | * See the License for the specific language governing permissions and |
MACRUM | 0:119624335925 | 14 | * limitations under the License. |
MACRUM | 0:119624335925 | 15 | */ |
MACRUM | 0:119624335925 | 16 | |
MACRUM | 0:119624335925 | 17 | #include "SPWFSA01.h" |
MACRUM | 0:119624335925 | 18 | #include "SpwfSAInterface.h" |
MACRUM | 0:119624335925 | 19 | #include "mbed_debug.h" |
MACRUM | 0:119624335925 | 20 | |
MACRUM | 0:119624335925 | 21 | #if MBED_CONF_IDW0XX1_EXPANSION_BOARD == IDW01M1 |
MACRUM | 0:119624335925 | 22 | |
MACRUM | 0:119624335925 | 23 | SPWFSA01::SPWFSA01(PinName tx, PinName rx, |
MACRUM | 0:119624335925 | 24 | PinName rts, PinName cts, |
MACRUM | 0:119624335925 | 25 | SpwfSAInterface &ifce, bool debug, |
MACRUM | 0:119624335925 | 26 | PinName wakeup, PinName reset) |
MACRUM | 0:119624335925 | 27 | : SPWFSAxx(tx, rx, rts, cts, ifce, debug, wakeup, reset) { |
MACRUM | 0:119624335925 | 28 | } |
MACRUM | 0:119624335925 | 29 | |
MACRUM | 0:119624335925 | 30 | bool SPWFSA01::open(const char *type, int* spwf_id, const char* addr, int port) |
MACRUM | 0:119624335925 | 31 | { |
MACRUM | 0:119624335925 | 32 | int socket_id; |
MACRUM | 0:119624335925 | 33 | int value; |
MACRUM | 0:119624335925 | 34 | int trials; |
MACRUM | 0:119624335925 | 35 | |
MACRUM | 0:119624335925 | 36 | if(!_parser.send("AT+S.SOCKON=%s,%d,%s,ind", addr, port, type)) |
MACRUM | 0:119624335925 | 37 | { |
MACRUM | 0:119624335925 | 38 | debug_if(_dbg_on, "\r\nSPWF> `SPWFSA01::open`: error opening socket (%d)\r\n", __LINE__); |
MACRUM | 0:119624335925 | 39 | return false; |
MACRUM | 0:119624335925 | 40 | } |
MACRUM | 0:119624335925 | 41 | |
MACRUM | 0:119624335925 | 42 | /* handle both response possibilities here before returning |
MACRUM | 0:119624335925 | 43 | * otherwise module seems to remain in inconsistent state. |
MACRUM | 0:119624335925 | 44 | */ |
MACRUM | 0:119624335925 | 45 | |
MACRUM | 0:119624335925 | 46 | /* wait for first character */ |
MACRUM | 0:119624335925 | 47 | trials = 0; |
MACRUM | 0:119624335925 | 48 | while((value = _parser.getc()) < 0) { |
MACRUM | 0:119624335925 | 49 | if(trials++ > SPWFXX_MAX_TRIALS) { |
MACRUM | 0:119624335925 | 50 | debug("\r\nSPWF> error opening socket (%d)\r\n", __LINE__); |
MACRUM | 0:119624335925 | 51 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 52 | return false; |
MACRUM | 0:119624335925 | 53 | } |
MACRUM | 0:119624335925 | 54 | } |
MACRUM | 0:119624335925 | 55 | |
MACRUM | 0:119624335925 | 56 | if(value != _cr_) { // Note: this is different to what the spec exactly says |
MACRUM | 0:119624335925 | 57 | debug_if(_dbg_on, "\r\nSPWF> error opening socket (%d)\r\n", __LINE__); |
MACRUM | 0:119624335925 | 58 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 59 | return false; |
MACRUM | 0:119624335925 | 60 | } |
MACRUM | 0:119624335925 | 61 | |
MACRUM | 0:119624335925 | 62 | if(!_recv_delim_lf()) { // Note: this is different to what the spec exactly says |
MACRUM | 0:119624335925 | 63 | debug_if(_dbg_on, "\r\nSPWF> error opening socket (%d)\r\n", __LINE__); |
MACRUM | 0:119624335925 | 64 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 65 | return false; |
MACRUM | 0:119624335925 | 66 | } |
MACRUM | 0:119624335925 | 67 | |
MACRUM | 0:119624335925 | 68 | value = _parser.getc(); |
MACRUM | 0:119624335925 | 69 | switch(value) { |
MACRUM | 0:119624335925 | 70 | case ' ': |
MACRUM | 0:119624335925 | 71 | if(_parser.recv("ID: %d\n", &socket_id) |
MACRUM | 0:119624335925 | 72 | && _recv_ok()) { |
MACRUM | 0:119624335925 | 73 | debug_if(_dbg_on, "AT^ ID: %d\r\n", socket_id); |
MACRUM | 0:119624335925 | 74 | |
MACRUM | 0:119624335925 | 75 | *spwf_id = socket_id; |
MACRUM | 0:119624335925 | 76 | return true; |
MACRUM | 0:119624335925 | 77 | } else { |
MACRUM | 0:119624335925 | 78 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 79 | } |
MACRUM | 0:119624335925 | 80 | break; |
MACRUM | 0:119624335925 | 81 | case 'E': |
MACRUM | 0:119624335925 | 82 | if(_parser.recv("RROR: %255[^\n]\n", _msg_buffer) && _recv_delim_lf()) { |
MACRUM | 0:119624335925 | 83 | debug_if(_dbg_on, "AT^ ERROR: %s (%d)\r\n", _msg_buffer, __LINE__); |
MACRUM | 0:119624335925 | 84 | } else { |
MACRUM | 0:119624335925 | 85 | debug_if(_dbg_on, "\r\nSPWF> error opening socket (%d)\r\n", __LINE__); |
MACRUM | 0:119624335925 | 86 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 87 | } |
MACRUM | 0:119624335925 | 88 | break; |
MACRUM | 0:119624335925 | 89 | default: |
MACRUM | 0:119624335925 | 90 | debug_if(_dbg_on, "\r\nSPWF> error opening socket (value=%d, %d)\r\n", value, __LINE__); |
MACRUM | 0:119624335925 | 91 | break; |
MACRUM | 0:119624335925 | 92 | } |
MACRUM | 0:119624335925 | 93 | |
MACRUM | 0:119624335925 | 94 | return false; |
MACRUM | 0:119624335925 | 95 | } |
MACRUM | 0:119624335925 | 96 | |
MACRUM | 0:119624335925 | 97 | int SPWFSA01::_read_in(char* buffer, int spwf_id, uint32_t amount) { |
MACRUM | 0:119624335925 | 98 | int ret = -1; |
MACRUM | 0:119624335925 | 99 | |
MACRUM | 0:119624335925 | 100 | MBED_ASSERT(buffer != NULL); |
MACRUM | 0:119624335925 | 101 | |
MACRUM | 0:119624335925 | 102 | /* block asynchronous indications */ |
MACRUM | 0:119624335925 | 103 | if(!_winds_off()) { |
MACRUM | 0:119624335925 | 104 | return -1; |
MACRUM | 0:119624335925 | 105 | } |
MACRUM | 0:119624335925 | 106 | |
MACRUM | 0:119624335925 | 107 | /* read in data */ |
MACRUM | 0:119624335925 | 108 | if(_parser.send("AT+S.SOCKR=%d,%u", spwf_id, (unsigned int)amount)) { |
MACRUM | 0:119624335925 | 109 | /* set high timeout */ |
MACRUM | 0:119624335925 | 110 | _parser.set_timeout(SPWF_READ_BIN_TIMEOUT); |
MACRUM | 0:119624335925 | 111 | /* read in binary data */ |
MACRUM | 0:119624335925 | 112 | int read = _parser.read(buffer, amount); |
MACRUM | 0:119624335925 | 113 | /* reset timeout value */ |
MACRUM | 0:119624335925 | 114 | _parser.set_timeout(_timeout); |
MACRUM | 0:119624335925 | 115 | if(read > 0) { |
MACRUM | 0:119624335925 | 116 | if(_recv_ok()) { |
MACRUM | 0:119624335925 | 117 | ret = amount; |
MACRUM | 0:119624335925 | 118 | |
MACRUM | 0:119624335925 | 119 | /* remove from pending sizes |
MACRUM | 0:119624335925 | 120 | * (MUST be done before next async indications handling (e.g. `_winds_on()`)) */ |
MACRUM | 0:119624335925 | 121 | _remove_pending_pkt_size(spwf_id, amount); |
MACRUM | 0:119624335925 | 122 | } else { |
MACRUM | 0:119624335925 | 123 | debug_if(_dbg_on, "\r\nSPWF> failed to receive OK (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 124 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 125 | } |
MACRUM | 0:119624335925 | 126 | } else { |
MACRUM | 0:119624335925 | 127 | debug_if(_dbg_on, "\r\nSPWF> failed to read binary data (%u:%d), (%s, %d)\r\n", amount, read, __func__, __LINE__); |
MACRUM | 0:119624335925 | 128 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 129 | } |
MACRUM | 0:119624335925 | 130 | } else { |
MACRUM | 0:119624335925 | 131 | debug_if(_dbg_on, "\r\nSPWF> failed to send SOCKR (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 132 | } |
MACRUM | 0:119624335925 | 133 | |
MACRUM | 0:119624335925 | 134 | debug_if(_dbg_on, "\r\nSPWF> %s():\t%d:%d\r\n", __func__, spwf_id, amount); |
MACRUM | 0:119624335925 | 135 | |
MACRUM | 0:119624335925 | 136 | /* unblock asynchronous indications */ |
MACRUM | 0:119624335925 | 137 | _winds_on(); |
MACRUM | 0:119624335925 | 138 | |
MACRUM | 0:119624335925 | 139 | return ret; |
MACRUM | 0:119624335925 | 140 | } |
MACRUM | 0:119624335925 | 141 | |
MACRUM | 0:119624335925 | 142 | /* betzw - TODO: improve performance! */ |
MACRUM | 0:119624335925 | 143 | bool SPWFSA01::_recv_ap(nsapi_wifi_ap_t *ap) |
MACRUM | 0:119624335925 | 144 | { |
MACRUM | 0:119624335925 | 145 | bool ret; |
MACRUM | 0:119624335925 | 146 | unsigned int channel; |
MACRUM | 0:119624335925 | 147 | int trials; |
MACRUM | 0:119624335925 | 148 | |
MACRUM | 0:119624335925 | 149 | ap->security = NSAPI_SECURITY_UNKNOWN; |
MACRUM | 0:119624335925 | 150 | |
MACRUM | 0:119624335925 | 151 | /* check for end of list */ |
MACRUM | 0:119624335925 | 152 | if(_recv_delim_cr_lf()) { |
MACRUM | 0:119624335925 | 153 | return false; |
MACRUM | 0:119624335925 | 154 | } |
MACRUM | 0:119624335925 | 155 | |
MACRUM | 0:119624335925 | 156 | /* run to 'horizontal tab' */ |
MACRUM | 0:119624335925 | 157 | trials = 0; |
MACRUM | 0:119624335925 | 158 | while(_parser.getc() != '\x09') { |
MACRUM | 0:119624335925 | 159 | if(trials++ > SPWFXX_MAX_TRIALS) { |
MACRUM | 0:119624335925 | 160 | debug("\r\nSPWF> WARNING: might happen in case of RX buffer overflow! (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 161 | return false; |
MACRUM | 0:119624335925 | 162 | } |
MACRUM | 0:119624335925 | 163 | } |
MACRUM | 0:119624335925 | 164 | |
MACRUM | 0:119624335925 | 165 | /* read in next line */ |
MACRUM | 0:119624335925 | 166 | ret = _parser.recv("%255[^\n]\n", _msg_buffer) && _recv_delim_lf(); |
MACRUM | 0:119624335925 | 167 | |
MACRUM | 0:119624335925 | 168 | /* parse line - first phase */ |
MACRUM | 0:119624335925 | 169 | if(ret) { |
MACRUM | 0:119624335925 | 170 | int val = sscanf(_msg_buffer, |
MACRUM | 0:119624335925 | 171 | " %*s %hhx:%hhx:%hhx:%hhx:%hhx:%hhx CHAN: %u RSSI: %hhd SSID: \'%*255[^\']\'", |
MACRUM | 0:119624335925 | 172 | &ap->bssid[0], &ap->bssid[1], &ap->bssid[2], &ap->bssid[3], &ap->bssid[4], &ap->bssid[5], |
MACRUM | 0:119624335925 | 173 | &channel, &ap->rssi); |
MACRUM | 0:119624335925 | 174 | if(val < 8) { |
MACRUM | 0:119624335925 | 175 | ret = false; |
MACRUM | 0:119624335925 | 176 | } |
MACRUM | 0:119624335925 | 177 | } |
MACRUM | 0:119624335925 | 178 | |
MACRUM | 0:119624335925 | 179 | /* parse line - second phase */ |
MACRUM | 0:119624335925 | 180 | if(ret) { // ret == true |
MACRUM | 0:119624335925 | 181 | char value; |
MACRUM | 0:119624335925 | 182 | char *rest, *first, *last; |
MACRUM | 0:119624335925 | 183 | |
MACRUM | 0:119624335925 | 184 | /* decide about position of `CAPS:` */ |
MACRUM | 0:119624335925 | 185 | first = strchr(_msg_buffer, '\''); |
MACRUM | 0:119624335925 | 186 | if(first == NULL) { |
MACRUM | 0:119624335925 | 187 | debug("\r\nSPWF> WARNING: might happen in case of RX buffer overflow! (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 188 | return false; |
MACRUM | 0:119624335925 | 189 | } |
MACRUM | 0:119624335925 | 190 | last = strrchr(_msg_buffer, '\''); |
MACRUM | 0:119624335925 | 191 | if((last == NULL) || (last < (first+1))) { |
MACRUM | 0:119624335925 | 192 | debug("\r\nSPWF> WARNING: might happen in case of RX buffer overflow! (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 193 | return false; |
MACRUM | 0:119624335925 | 194 | } |
MACRUM | 0:119624335925 | 195 | rest = strstr(last, "CAPS:"); |
MACRUM | 0:119624335925 | 196 | if(rest == NULL) { |
MACRUM | 0:119624335925 | 197 | debug("\r\nSPWF> WARNING: might happen in case of RX buffer overflow! (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 198 | return false; |
MACRUM | 0:119624335925 | 199 | } |
MACRUM | 0:119624335925 | 200 | |
MACRUM | 0:119624335925 | 201 | /* substitute '\'' with '\0' */ |
MACRUM | 0:119624335925 | 202 | *last = '\0'; |
MACRUM | 0:119624335925 | 203 | |
MACRUM | 0:119624335925 | 204 | /* copy values */ |
MACRUM | 0:119624335925 | 205 | memcpy(&ap->ssid, first+1, sizeof(ap->ssid)-1); |
MACRUM | 0:119624335925 | 206 | ap->ssid[sizeof(ap->ssid)-1] = '\0'; |
MACRUM | 0:119624335925 | 207 | ap->channel = channel; |
MACRUM | 0:119624335925 | 208 | |
MACRUM | 0:119624335925 | 209 | /* skip `CAPS: 0421 ` */ |
MACRUM | 0:119624335925 | 210 | if(strlen(rest) < 11) { |
MACRUM | 0:119624335925 | 211 | debug("\r\nSPWF> WARNING: might happen in case of RX buffer overflow! (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 212 | return false; |
MACRUM | 0:119624335925 | 213 | } |
MACRUM | 0:119624335925 | 214 | rest += 11; |
MACRUM | 0:119624335925 | 215 | |
MACRUM | 0:119624335925 | 216 | /* get next character */ |
MACRUM | 0:119624335925 | 217 | value = *rest++; |
MACRUM | 0:119624335925 | 218 | if(value != 'W') { // no security |
MACRUM | 0:119624335925 | 219 | ap->security = NSAPI_SECURITY_NONE; |
MACRUM | 0:119624335925 | 220 | return true; |
MACRUM | 0:119624335925 | 221 | } |
MACRUM | 0:119624335925 | 222 | |
MACRUM | 0:119624335925 | 223 | /* determine security */ |
MACRUM | 0:119624335925 | 224 | { |
MACRUM | 0:119624335925 | 225 | char buffer[10]; |
MACRUM | 0:119624335925 | 226 | |
MACRUM | 0:119624335925 | 227 | if(!(sscanf(rest, "%s%*[\x20]", (char*)&buffer) > 0)) { // '\0x20' == <space> |
MACRUM | 0:119624335925 | 228 | return true; |
MACRUM | 0:119624335925 | 229 | } else if(strncmp("EP", buffer, 10) == 0) { |
MACRUM | 0:119624335925 | 230 | ap->security = NSAPI_SECURITY_WEP; |
MACRUM | 0:119624335925 | 231 | return true; |
MACRUM | 0:119624335925 | 232 | } else if(strncmp("PA2", buffer, 10) == 0) { |
MACRUM | 0:119624335925 | 233 | ap->security = NSAPI_SECURITY_WPA2; |
MACRUM | 0:119624335925 | 234 | return true; |
MACRUM | 0:119624335925 | 235 | } else if(strncmp("PA", buffer, 10) != 0) { |
MACRUM | 0:119624335925 | 236 | return true; |
MACRUM | 0:119624335925 | 237 | } |
MACRUM | 0:119624335925 | 238 | |
MACRUM | 0:119624335925 | 239 | /* got a "WPA", check for "WPA2" */ |
MACRUM | 0:119624335925 | 240 | rest += strlen(buffer); |
MACRUM | 0:119624335925 | 241 | value = *rest++; |
MACRUM | 0:119624335925 | 242 | if(value == '\0') { // no further protocol |
MACRUM | 0:119624335925 | 243 | ap->security = NSAPI_SECURITY_WPA; |
MACRUM | 0:119624335925 | 244 | return true; |
MACRUM | 0:119624335925 | 245 | } else { // assume "WPA2" |
MACRUM | 0:119624335925 | 246 | ap->security = NSAPI_SECURITY_WPA_WPA2; |
MACRUM | 0:119624335925 | 247 | return true; |
MACRUM | 0:119624335925 | 248 | } |
MACRUM | 0:119624335925 | 249 | } |
MACRUM | 0:119624335925 | 250 | } else { // ret == false |
MACRUM | 0:119624335925 | 251 | debug("\r\nSPWF> WARNING: might happen in case of RX buffer overflow! (%s, %d)\r\n", __func__, __LINE__); |
MACRUM | 0:119624335925 | 252 | } |
MACRUM | 0:119624335925 | 253 | |
MACRUM | 0:119624335925 | 254 | return ret; |
MACRUM | 0:119624335925 | 255 | } |
MACRUM | 0:119624335925 | 256 | |
MACRUM | 0:119624335925 | 257 | int SPWFSA01::scan(WiFiAccessPoint *res, unsigned limit) |
MACRUM | 0:119624335925 | 258 | { |
MACRUM | 0:119624335925 | 259 | unsigned cnt = 0; |
MACRUM | 0:119624335925 | 260 | nsapi_wifi_ap_t ap; |
MACRUM | 0:119624335925 | 261 | |
MACRUM | 0:119624335925 | 262 | if (!_parser.send("AT+S.SCAN=a,s")) { |
MACRUM | 0:119624335925 | 263 | return NSAPI_ERROR_DEVICE_ERROR; |
MACRUM | 0:119624335925 | 264 | } |
MACRUM | 0:119624335925 | 265 | |
MACRUM | 0:119624335925 | 266 | while (_recv_ap(&ap)) { |
MACRUM | 0:119624335925 | 267 | if (cnt < limit) { |
MACRUM | 0:119624335925 | 268 | res[cnt] = WiFiAccessPoint(ap); |
MACRUM | 0:119624335925 | 269 | } |
MACRUM | 0:119624335925 | 270 | |
MACRUM | 0:119624335925 | 271 | cnt++; |
MACRUM | 0:119624335925 | 272 | if (limit != 0 && cnt >= limit) { |
MACRUM | 0:119624335925 | 273 | break; |
MACRUM | 0:119624335925 | 274 | } |
MACRUM | 0:119624335925 | 275 | } |
MACRUM | 0:119624335925 | 276 | |
MACRUM | 0:119624335925 | 277 | if(!_recv_ok()) { |
MACRUM | 0:119624335925 | 278 | empty_rx_buffer(); |
MACRUM | 0:119624335925 | 279 | } |
MACRUM | 0:119624335925 | 280 | |
MACRUM | 0:119624335925 | 281 | return cnt; |
MACRUM | 0:119624335925 | 282 | } |
MACRUM | 0:119624335925 | 283 | |
MACRUM | 0:119624335925 | 284 | #endif // MBED_CONF_IDW0XX1_EXPANSION_BOARD |