Damien Frost / WiflyInterfaceMessaging

Important changes to repositories hosted on mbed.com

Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.

To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.

It is also possible to export all your personal repositories from the account settings page.

Fork of WiflyInterface by Damien Frost

Wifly/Wifly.cpp@36:8774837f5a78, 2016-08-05 (annotated)

Committer:
defrost
Date:
Fri Aug 05 16:13:33 2016 +0000
Revision:
36:8774837f5a78
Parent:
35:ce3afc021ec2
Child:
39:2b8018d66b68
- Updated reset function to clear the cmd_mode flag in reset.; - Turned off Debug

Who changed what in which revision?

UserRevisionLine numberNew contents of line
samux 1:fb4494783863 1 /* Copyright (C) 2012 mbed.org, MIT License
samux 1:fb4494783863 2 *
samux 1:fb4494783863 3 * Permission is hereby granted, free of charge, to any person obtaining a copy of this software
samux 1:fb4494783863 4 * and associated documentation files (the "Software"), to deal in the Software without restriction,
samux 1:fb4494783863 5 * including without limitation the rights to use, copy, modify, merge, publish, distribute,
samux 1:fb4494783863 6 * sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
samux 1:fb4494783863 7 * furnished to do so, subject to the following conditions:
samux 1:fb4494783863 8 *
samux 1:fb4494783863 9 * The above copyright notice and this permission notice shall be included in all copies or
samux 1:fb4494783863 10 * substantial portions of the Software.
samux 1:fb4494783863 11 *
samux 1:fb4494783863 12 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
samux 1:fb4494783863 13 * BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
samux 1:fb4494783863 14 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
samux 1:fb4494783863 15 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
samux 1:fb4494783863 16 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
samux 1:fb4494783863 17 */
samux 1:fb4494783863 18
samux 1:fb4494783863 19 #include "mbed.h"
samux 1:fb4494783863 20 #include "Wifly.h"
samux 1:fb4494783863 21 #include <string>
samux 1:fb4494783863 22 #include <algorithm>
defrost 22:6c5bcfa33922 23
defrost 36:8774837f5a78 24 //#define DEBUG
defrost 26:eaaedb036df1 25 #define INFOMESSAGES
defrost 34:a22a6343e3d4 26 #define WARNMESSAGES
defrost 34:a22a6343e3d4 27 #define ERRMESSAGES
defrost 34:a22a6343e3d4 28 #define FUNCNAME "Wifly"
defrost 34:a22a6343e3d4 29 #include "messages.h"
samux 1:fb4494783863 30
samux 1:fb4494783863 31 #define MAX_TRY_JOIN 3
samux 1:fb4494783863 32
samux 1:fb4494783863 33 Wifly * Wifly::inst;
samux 1:fb4494783863 34
samux 1:fb4494783863 35 Wifly::Wifly( PinName tx, PinName rx, PinName _reset, PinName tcp_status, const char * ssid, const char * phrase, Security sec):
defrost 25:36b2d76ca8d9 36 wifi(tx, rx), reset_pin(_reset), tcp_status(tcp_status), buf_wifly(1024)
samux 1:fb4494783863 37 {
defrost 35:ce3afc021ec2 38 // Set the default baud rate:
defrost 35:ce3afc021ec2 39 serial_baudrate = 9600;
defrost 35:ce3afc021ec2 40
samux 1:fb4494783863 41 memset(&state, 0, sizeof(state));
samux 1:fb4494783863 42 state.sec = sec;
samux 1:fb4494783863 43
samux 1:fb4494783863 44 // change all ' ' in '$' in the ssid and the passphrase
samux 1:fb4494783863 45 strcpy(this->ssid, ssid);
samux 1:fb4494783863 46 for (int i = 0; i < strlen(ssid); i++) {
samux 1:fb4494783863 47 if (this->ssid[i] == ' ')
samux 1:fb4494783863 48 this->ssid[i] = '$';
samux 1:fb4494783863 49 }
samux 1:fb4494783863 50 strcpy(this->phrase, phrase);
samux 1:fb4494783863 51 for (int i = 0; i < strlen(phrase); i++) {
samux 1:fb4494783863 52 if (this->phrase[i] == ' ')
samux 1:fb4494783863 53 this->phrase[i] = '$';
samux 1:fb4494783863 54 }
samux 1:fb4494783863 55
samux 1:fb4494783863 56 inst = this;
samux 1:fb4494783863 57 attach_rx(false);
samux 1:fb4494783863 58 state.cmd_mode = false;
defrost 35:ce3afc021ec2 59 DBG("Wifly Constructed");
samux 1:fb4494783863 60 }
samux 1:fb4494783863 61
defrost 15:eaa1ec0e26bf 62 void Wifly::setBaud(int baudrate)
defrost 15:eaa1ec0e26bf 63 {
defrost 18:cf3bd54703a5 64 char cmd[28];
defrost 35:ce3afc021ec2 65 // Save the baudrate:
defrost 35:ce3afc021ec2 66 if(baudrate > 0){
defrost 35:ce3afc021ec2 67 serial_baudrate = baudrate;
defrost 35:ce3afc021ec2 68 }
defrost 36:8774837f5a78 69 DBG("Setting wifi shield baudrate to: %d.", serial_baudrate);
defrost 15:eaa1ec0e26bf 70 // This sets the baud rate 'instantly'
defrost 35:ce3afc021ec2 71 sprintf(cmd, "set u i %d\r", serial_baudrate);
defrost 15:eaa1ec0e26bf 72 // This one sets it some other way that does not work
defrost 15:eaa1ec0e26bf 73 //sprintf(cmd, "set u b %d\r", baudrate);
defrost 15:eaa1ec0e26bf 74 // Set baud rate of wifly:
defrost 16:de16e8b077c1 75 sendCommand(cmd, NULL);
defrost 16:de16e8b077c1 76 wait(0.5);
defrost 15:eaa1ec0e26bf 77 // Set baud rate of UART:
defrost 35:ce3afc021ec2 78 wifi.baud(serial_baudrate);
defrost 16:de16e8b077c1 79 wait(0.5);
defrost 15:eaa1ec0e26bf 80 exit();
defrost 15:eaa1ec0e26bf 81 }
defrost 15:eaa1ec0e26bf 82
samux 1:fb4494783863 83 bool Wifly::join()
samux 1:fb4494783863 84 {
defrost 18:cf3bd54703a5 85 char cmd[28];
samux 1:fb4494783863 86
samux 1:fb4494783863 87 for (int i= 0; i < MAX_TRY_JOIN; i++) {
samux 2:8e54830d0df7 88
samux 2:8e54830d0df7 89 // no auto join
samux 2:8e54830d0df7 90 if (!sendCommand("set w j 0\r", "AOK"))
samux 2:8e54830d0df7 91 continue;
samux 2:8e54830d0df7 92
samux 2:8e54830d0df7 93 //no echo
samux 2:8e54830d0df7 94 if (!sendCommand("set u m 1\r", "AOK"))
samux 2:8e54830d0df7 95 continue;
samux 2:8e54830d0df7 96
samux 1:fb4494783863 97 // set time
samux 4:0bcec6272784 98 if (!sendCommand("set c t 30\r", "AOK"))
samux 1:fb4494783863 99 continue;
samux 1:fb4494783863 100
samux 1:fb4494783863 101 // set size
samux 4:0bcec6272784 102 if (!sendCommand("set c s 1024\r", "AOK"))
samux 1:fb4494783863 103 continue;
samux 1:fb4494783863 104
samux 1:fb4494783863 105 // red led on when tcp connection active
samux 1:fb4494783863 106 if (!sendCommand("set s i 0x40\r", "AOK"))
samux 1:fb4494783863 107 continue;
samux 1:fb4494783863 108
samux 1:fb4494783863 109 // no string sent to the tcp client
samux 1:fb4494783863 110 if (!sendCommand("set c r 0\r", "AOK"))
samux 1:fb4494783863 111 continue;
samux 1:fb4494783863 112
samux 1:fb4494783863 113 // tcp protocol
samux 1:fb4494783863 114 if (!sendCommand("set i p 2\r", "AOK"))
samux 1:fb4494783863 115 continue;
samux 1:fb4494783863 116
samux 1:fb4494783863 117 // tcp retry
samux 1:fb4494783863 118 if (!sendCommand("set i f 0x7\r", "AOK"))
samux 1:fb4494783863 119 continue;
samux 2:8e54830d0df7 120
samux 2:8e54830d0df7 121 // set dns server
samux 2:8e54830d0df7 122 if (!sendCommand("set d n rn.microchip.com\r", "AOK"))
samux 1:fb4494783863 123 continue;
samux 1:fb4494783863 124
samux 1:fb4494783863 125 //dhcp
samux 1:fb4494783863 126 sprintf(cmd, "set i d %d\r", (state.dhcp) ? 1 : 0);
samux 1:fb4494783863 127 if (!sendCommand(cmd, "AOK"))
samux 1:fb4494783863 128 continue;
samux 1:fb4494783863 129
samux 1:fb4494783863 130 // ssid
samux 1:fb4494783863 131 sprintf(cmd, "set w s %s\r", ssid);
lz307 7:3152fcc74390 132 if (!sendCommand(cmd, "AOK", NULL, 1000))
samux 1:fb4494783863 133 continue;
samux 1:fb4494783863 134
samux 1:fb4494783863 135 //auth
samux 1:fb4494783863 136 sprintf(cmd, "set w a %d\r", state.sec);
samux 1:fb4494783863 137 if (!sendCommand(cmd, "AOK"))
samux 1:fb4494783863 138 continue;
samux 1:fb4494783863 139
samux 1:fb4494783863 140 // if no dhcp, set ip, netmask and gateway
samux 1:fb4494783863 141 if (!state.dhcp) {
samux 1:fb4494783863 142 DBG("not dhcp\r");
samux 1:fb4494783863 143
samux 1:fb4494783863 144 sprintf(cmd, "set i a %s\r\n", ip);
samux 1:fb4494783863 145 if (!sendCommand(cmd, "AOK"))
samux 1:fb4494783863 146 continue;
samux 1:fb4494783863 147
samux 1:fb4494783863 148 sprintf(cmd, "set i n %s\r", netmask);
samux 1:fb4494783863 149 if (!sendCommand(cmd, "AOK"))
samux 1:fb4494783863 150 continue;
samux 1:fb4494783863 151
samux 1:fb4494783863 152 sprintf(cmd, "set i g %s\r", gateway);
samux 1:fb4494783863 153 if (!sendCommand(cmd, "AOK"))
samux 1:fb4494783863 154 continue;
samux 1:fb4494783863 155 }
samux 1:fb4494783863 156
samux 1:fb4494783863 157 //key step
samux 1:fb4494783863 158 if (state.sec != NONE) {
defrost 12:1aaea7f302e6 159 if ((state.sec == WPA)||(state.sec == WPA2))
samux 1:fb4494783863 160 sprintf(cmd, "set w p %s\r", phrase);
samux 1:fb4494783863 161 else if (state.sec == WEP_128)
samux 1:fb4494783863 162 sprintf(cmd, "set w k %s\r", phrase);
samux 1:fb4494783863 163
lz307 7:3152fcc74390 164 if (!sendCommand(cmd, "AOK", NULL, 1000))
samux 1:fb4494783863 165 continue;
samux 1:fb4494783863 166 }
samux 1:fb4494783863 167
samux 1:fb4494783863 168 //join the network
samux 1:fb4494783863 169 sprintf(cmd, "join\r");
samux 1:fb4494783863 170 if (!sendCommand(cmd, "Associated", NULL, 3000))
samux 1:fb4494783863 171 continue;
lz307 7:3152fcc74390 172
lz307 7:3152fcc74390 173 if (!sendCommand("", "IP=", NULL, 10000))
lz307 7:3152fcc74390 174 continue;
samux 1:fb4494783863 175
samux 1:fb4494783863 176 if (state.dhcp) {
lz307 7:3152fcc74390 177 if (!sendCommand("get i\r", "DHCP=ON", NULL, 3000))
samux 1:fb4494783863 178 continue;
samux 1:fb4494783863 179 }
samux 1:fb4494783863 180
samux 2:8e54830d0df7 181 if (!sendCommand("save\r", "Stor"))
samux 2:8e54830d0df7 182 continue;
samux 2:8e54830d0df7 183
samux 1:fb4494783863 184 exit();
samux 1:fb4494783863 185
samux 1:fb4494783863 186 state.associated = true;
defrost 36:8774837f5a78 187 INFO("ssid: %s", this->ssid);
defrost 36:8774837f5a78 188 INFO("phrase: %s", this->phrase);
defrost 36:8774837f5a78 189 INFO("security: %s", getStringSecurity());
defrost 13:8846f12fa277 190
samux 1:fb4494783863 191 return true;
samux 1:fb4494783863 192 }
samux 1:fb4494783863 193 return false;
samux 1:fb4494783863 194 }
samux 1:fb4494783863 195
samux 1:fb4494783863 196
samux 1:fb4494783863 197 bool Wifly::setProtocol(Protocol p)
samux 1:fb4494783863 198 {
samux 1:fb4494783863 199 // use udp auto pairing
samux 1:fb4494783863 200 char cmd[20];
samux 1:fb4494783863 201 sprintf(cmd, "set i p %d\r", p);
samux 1:fb4494783863 202 if (!sendCommand(cmd, "AOK"))
samux 1:fb4494783863 203 return false;
samux 1:fb4494783863 204
samux 1:fb4494783863 205 switch(p) {
samux 1:fb4494783863 206 case TCP:
samux 1:fb4494783863 207 // set ip flags: tcp retry enabled
samux 1:fb4494783863 208 if (!sendCommand("set i f 0x07\r", "AOK"))
samux 1:fb4494783863 209 return false;
samux 1:fb4494783863 210 break;
samux 1:fb4494783863 211 case UDP:
samux 1:fb4494783863 212 // set ip flags: udp auto pairing enabled
samux 1:fb4494783863 213 if (!sendCommand("set i h 0.0.0.0\r", "AOK"))
samux 1:fb4494783863 214 return false;
samux 4:0bcec6272784 215 if (!sendCommand("set i f 0x40\r", "AOK"))
samux 1:fb4494783863 216 return false;
samux 1:fb4494783863 217 break;
samux 1:fb4494783863 218 }
samux 1:fb4494783863 219 state.proto = p;
samux 1:fb4494783863 220 return true;
samux 1:fb4494783863 221 }
samux 1:fb4494783863 222
samux 1:fb4494783863 223 char * Wifly::getStringSecurity()
samux 1:fb4494783863 224 {
samux 1:fb4494783863 225 switch(state.sec) {
samux 1:fb4494783863 226 case NONE:
samux 1:fb4494783863 227 return "NONE";
samux 1:fb4494783863 228 case WEP_128:
samux 1:fb4494783863 229 return "WEP_128";
samux 1:fb4494783863 230 case WPA:
samux 1:fb4494783863 231 return "WPA";
defrost 13:8846f12fa277 232 case WPA2:
defrost 13:8846f12fa277 233 return "WPA2";
samux 1:fb4494783863 234 }
samux 1:fb4494783863 235 return "UNKNOWN";
samux 1:fb4494783863 236 }
samux 1:fb4494783863 237
samux 1:fb4494783863 238 bool Wifly::connect(const char * host, int port)
samux 1:fb4494783863 239 {
defrost 18:cf3bd54703a5 240 char rcv[28];
defrost 18:cf3bd54703a5 241 char cmd[28];
defrost 12:1aaea7f302e6 242
defrost 12:1aaea7f302e6 243
samux 1:fb4494783863 244
samux 2:8e54830d0df7 245 // try to open
samux 2:8e54830d0df7 246 sprintf(cmd, "open %s %d\r", host, port);
defrost 34:a22a6343e3d4 247 DBG("CMD1: %s",cmd);
defrost 18:cf3bd54703a5 248 if (sendCommand(cmd, "OPEN", rcv, 10000)) {
samux 2:8e54830d0df7 249 state.tcp = true;
samux 2:8e54830d0df7 250 state.cmd_mode = false;
samux 2:8e54830d0df7 251 return true;
samux 1:fb4494783863 252 }
defrost 34:a22a6343e3d4 253 DBG("CMD2: %s",cmd);
defrost 34:a22a6343e3d4 254 DBG("CMD4: %s",rcv);
samux 2:8e54830d0df7 255 // if failed, retry and parse the response
samux 2:8e54830d0df7 256 if (sendCommand(cmd, NULL, rcv, 5000)) {
defrost 34:a22a6343e3d4 257 DBG("CMD5: %s",rcv);
samux 1:fb4494783863 258 if (strstr(rcv, "OPEN") == NULL) {
samux 1:fb4494783863 259 if (strstr(rcv, "Connected") != NULL) {
samux 2:8e54830d0df7 260 wait(0.25);
samux 1:fb4494783863 261 if (!sendCommand("close\r", "CLOS"))
samux 1:fb4494783863 262 return false;
samux 2:8e54830d0df7 263 wait(0.25);
samux 2:8e54830d0df7 264 if (!sendCommand(cmd, "OPEN", NULL, 10000))
samux 1:fb4494783863 265 return false;
samux 1:fb4494783863 266 } else {
samux 1:fb4494783863 267 return false;
samux 1:fb4494783863 268 }
samux 1:fb4494783863 269 }
samux 1:fb4494783863 270 } else {
defrost 34:a22a6343e3d4 271 DBG("CMD5: %s",rcv);
samux 1:fb4494783863 272 return false;
samux 1:fb4494783863 273 }
defrost 12:1aaea7f302e6 274
samux 2:8e54830d0df7 275
samux 1:fb4494783863 276 state.tcp = true;
samux 1:fb4494783863 277 state.cmd_mode = false;
samux 1:fb4494783863 278
samux 1:fb4494783863 279 return true;
samux 1:fb4494783863 280 }
samux 1:fb4494783863 281
samux 1:fb4494783863 282
samux 1:fb4494783863 283 bool Wifly::gethostbyname(const char * host, char * ip)
samux 1:fb4494783863 284 {
samux 1:fb4494783863 285 string h = host;
samux 1:fb4494783863 286 char cmd[30], rcv[100];
samux 1:fb4494783863 287 int l = 0;
samux 1:fb4494783863 288 char * point;
samux 1:fb4494783863 289 int nb_digits = 0;
samux 1:fb4494783863 290
samux 1:fb4494783863 291 // no dns needed
samux 1:fb4494783863 292 int pos = h.find(".");
samux 1:fb4494783863 293 if (pos != string::npos) {
samux 1:fb4494783863 294 string sub = h.substr(0, h.find("."));
samux 1:fb4494783863 295 nb_digits = atoi(sub.c_str());
samux 1:fb4494783863 296 }
samux 1:fb4494783863 297 if (count(h.begin(), h.end(), '.') == 3 && nb_digits > 0) {
samux 1:fb4494783863 298 strcpy(ip, host);
samux 1:fb4494783863 299 }
samux 1:fb4494783863 300 // dns needed
samux 1:fb4494783863 301 else {
samux 1:fb4494783863 302 nb_digits = 0;
samux 1:fb4494783863 303 sprintf(cmd, "lookup %s\r", host);
samux 1:fb4494783863 304 if (!sendCommand(cmd, NULL, rcv))
samux 1:fb4494783863 305 return false;
samux 1:fb4494783863 306
samux 1:fb4494783863 307 // look for the ip address
samux 1:fb4494783863 308 char * begin = strstr(rcv, "=") + 1;
samux 1:fb4494783863 309 for (int i = 0; i < 3; i++) {
samux 1:fb4494783863 310 point = strstr(begin + l, ".");
samux 1:fb4494783863 311 DBG("str: %s", begin + l);
samux 1:fb4494783863 312 l += point - (begin + l) + 1;
samux 1:fb4494783863 313 }
samux 1:fb4494783863 314 DBG("str: %s", begin + l);
samux 1:fb4494783863 315 while(*(begin + l + nb_digits) >= '0' && *(begin + l + nb_digits) <= '9') {
samux 1:fb4494783863 316 DBG("digit: %c", *(begin + l + nb_digits));
samux 1:fb4494783863 317 nb_digits++;
samux 1:fb4494783863 318 }
samux 1:fb4494783863 319 memcpy(ip, begin, l + nb_digits);
samux 1:fb4494783863 320 ip[l+nb_digits] = 0;
samux 1:fb4494783863 321 DBG("ip from dns: %s", ip);
samux 1:fb4494783863 322 }
samux 1:fb4494783863 323 return true;
samux 1:fb4494783863 324 }
samux 1:fb4494783863 325
samux 1:fb4494783863 326
samux 1:fb4494783863 327 void Wifly::flush()
samux 1:fb4494783863 328 {
samux 1:fb4494783863 329 buf_wifly.flush();
samux 1:fb4494783863 330 }
samux 1:fb4494783863 331
samux 1:fb4494783863 332 bool Wifly::sendCommand(const char * cmd, const char * ack, char * res, int timeout)
samux 1:fb4494783863 333 {
samux 1:fb4494783863 334 if (!state.cmd_mode) {
samux 1:fb4494783863 335 cmdMode();
samux 1:fb4494783863 336 }
samux 1:fb4494783863 337 if (send(cmd, strlen(cmd), ack, res, timeout) == -1) {
defrost 23:cb8522185c56 338 ERR("sendCommand: cannot (%s)", cmd);
defrost 36:8774837f5a78 339 if(strcmp(cmd, "exit") != 0){
defrost 36:8774837f5a78 340 exit();
defrost 36:8774837f5a78 341 }else{
defrost 36:8774837f5a78 342 WARN("Manually setting cmd_mode to false.");
defrost 36:8774837f5a78 343 state.cmd_mode = false;
defrost 36:8774837f5a78 344 }
samux 1:fb4494783863 345 return false;
samux 1:fb4494783863 346 }
samux 1:fb4494783863 347 return true;
samux 1:fb4494783863 348 }
samux 1:fb4494783863 349
samux 1:fb4494783863 350 bool Wifly::cmdMode()
samux 1:fb4494783863 351 {
samux 1:fb4494783863 352 // if already in cmd mode, return
samux 1:fb4494783863 353 if (state.cmd_mode)
samux 1:fb4494783863 354 return true;
samux 1:fb4494783863 355
lz307 7:3152fcc74390 356 if (send("$$$", 3, "CMD") == -1 && send("\r",1,">") != true) {
defrost 34:a22a6343e3d4 357 ERR("cannot enter in cmd mode");
samux 2:8e54830d0df7 358 exit();
samux 1:fb4494783863 359 return false;
samux 1:fb4494783863 360 }
samux 1:fb4494783863 361 state.cmd_mode = true;
samux 1:fb4494783863 362 return true;
samux 1:fb4494783863 363 }
samux 1:fb4494783863 364
samux 1:fb4494783863 365 bool Wifly::disconnect()
samux 1:fb4494783863 366 {
samux 1:fb4494783863 367 // if already disconnected, return
samux 1:fb4494783863 368 if (!state.associated)
samux 1:fb4494783863 369 return true;
samux 2:8e54830d0df7 370
samux 1:fb4494783863 371 if (!sendCommand("leave\r", "DeAuth"))
samux 1:fb4494783863 372 return false;
samux 1:fb4494783863 373 exit();
samux 2:8e54830d0df7 374
samux 1:fb4494783863 375 state.associated = false;
samux 1:fb4494783863 376 return true;
samux 1:fb4494783863 377
samux 1:fb4494783863 378 }
samux 1:fb4494783863 379
samux 1:fb4494783863 380 bool Wifly::is_connected()
samux 1:fb4494783863 381 {
samux 1:fb4494783863 382 return (tcp_status.read() == 1) ? true : false;
samux 1:fb4494783863 383 }
samux 1:fb4494783863 384
samux 1:fb4494783863 385
samux 1:fb4494783863 386 void Wifly::reset()
samux 1:fb4494783863 387 {
defrost 36:8774837f5a78 388
samux 1:fb4494783863 389 reset_pin = 0;
defrost 36:8774837f5a78 390 wifi.baud(9600);
defrost 36:8774837f5a78 391 flush();
defrost 36:8774837f5a78 392 state.cmd_mode = false;
defrost 35:ce3afc021ec2 393 wait(0.5);
samux 1:fb4494783863 394 reset_pin = 1;
defrost 36:8774837f5a78 395 // Set the serial port baud rate back to default:
defrost 35:ce3afc021ec2 396 wait(0.5);
defrost 36:8774837f5a78 397 INFO("Wifi Shield Reset");
defrost 35:ce3afc021ec2 398 setBaud(-1);
defrost 35:ce3afc021ec2 399 DBG("Baud Rate updated from Reset.");
samux 1:fb4494783863 400 }
samux 1:fb4494783863 401
samux 3:9aa05e19c62e 402 bool Wifly::reboot()
samux 3:9aa05e19c62e 403 {
samux 3:9aa05e19c62e 404 // if already in cmd mode, return
samux 3:9aa05e19c62e 405 if (!sendCommand("reboot\r"))
samux 3:9aa05e19c62e 406 return false;
samux 3:9aa05e19c62e 407
samux 3:9aa05e19c62e 408 wait(0.3);
samux 3:9aa05e19c62e 409
samux 3:9aa05e19c62e 410 state.cmd_mode = false;
samux 3:9aa05e19c62e 411 return true;
samux 3:9aa05e19c62e 412 }
samux 3:9aa05e19c62e 413
samux 1:fb4494783863 414 bool Wifly::close()
samux 1:fb4494783863 415 {
samux 1:fb4494783863 416 // if not connected, return
samux 1:fb4494783863 417 if (!state.tcp)
samux 1:fb4494783863 418 return true;
samux 2:8e54830d0df7 419
samux 1:fb4494783863 420 wait(0.25);
samux 1:fb4494783863 421 if (!sendCommand("close\r", "CLOS"))
samux 1:fb4494783863 422 return false;
samux 1:fb4494783863 423 exit();
samux 2:8e54830d0df7 424
samux 1:fb4494783863 425 state.tcp = false;
samux 1:fb4494783863 426 return true;
samux 1:fb4494783863 427 }
samux 1:fb4494783863 428
samux 1:fb4494783863 429
samux 1:fb4494783863 430 int Wifly::putc(char c)
samux 1:fb4494783863 431 {
samux 1:fb4494783863 432 while (!wifi.writeable());
samux 1:fb4494783863 433 return wifi.putc(c);
samux 1:fb4494783863 434 }
samux 1:fb4494783863 435
samux 1:fb4494783863 436
samux 1:fb4494783863 437 bool Wifly::exit()
samux 1:fb4494783863 438 {
samux 1:fb4494783863 439 flush();
samux 1:fb4494783863 440 if (!state.cmd_mode)
samux 1:fb4494783863 441 return true;
samux 1:fb4494783863 442 if (!sendCommand("exit\r", "EXIT"))
samux 1:fb4494783863 443 return false;
samux 1:fb4494783863 444 state.cmd_mode = false;
samux 1:fb4494783863 445 flush();
samux 1:fb4494783863 446 return true;
samux 1:fb4494783863 447 }
samux 1:fb4494783863 448
samux 1:fb4494783863 449
samux 1:fb4494783863 450 int Wifly::readable()
samux 1:fb4494783863 451 {
samux 1:fb4494783863 452 return buf_wifly.available();
samux 1:fb4494783863 453 }
samux 1:fb4494783863 454
samux 1:fb4494783863 455 int Wifly::writeable()
samux 1:fb4494783863 456 {
samux 1:fb4494783863 457 return wifi.writeable();
samux 1:fb4494783863 458 }
samux 1:fb4494783863 459
samux 1:fb4494783863 460 char Wifly::getc()
samux 1:fb4494783863 461 {
samux 1:fb4494783863 462 char c;
defrost 24:705480e2e482 463 //DBG("Waiting for buf_wifly.available() to return true...");
samux 1:fb4494783863 464 while (!buf_wifly.available());
defrost 24:705480e2e482 465 //DBG("Dequeue-ing c...");
samux 1:fb4494783863 466 buf_wifly.dequeue(&c);
defrost 24:705480e2e482 467 //DBG("Return c:(%c)",c);
samux 1:fb4494783863 468 return c;
samux 1:fb4494783863 469 }
samux 1:fb4494783863 470
samux 1:fb4494783863 471 void Wifly::handler_rx(void)
samux 1:fb4494783863 472 {
samux 1:fb4494783863 473 //read characters
samux 1:fb4494783863 474 while (wifi.readable())
samux 1:fb4494783863 475 buf_wifly.queue(wifi.getc());
samux 1:fb4494783863 476 }
samux 1:fb4494783863 477
samux 1:fb4494783863 478 void Wifly::attach_rx(bool callback)
samux 1:fb4494783863 479 {
samux 1:fb4494783863 480 if (!callback)
samux 1:fb4494783863 481 wifi.attach(NULL);
samux 1:fb4494783863 482 else
samux 1:fb4494783863 483 wifi.attach(this, &Wifly::handler_rx);
samux 1:fb4494783863 484 }
samux 1:fb4494783863 485
samux 1:fb4494783863 486
samux 1:fb4494783863 487 int Wifly::send(const char * str, int len, const char * ACK, char * res, int timeout)
samux 1:fb4494783863 488 {
samux 1:fb4494783863 489 char read;
samux 1:fb4494783863 490 size_t found = string::npos;
samux 1:fb4494783863 491 string checking;
samux 1:fb4494783863 492 Timer tmr;
samux 1:fb4494783863 493 int result = 0;
defrost 30:2c704a72d88a 494
defrost 33:26a14bc6d90e 495 // Don't display the string that we will be sending because it is encoded, thus may screw up printf()
defrost 30:2c704a72d88a 496 if(ACK == NULL){
defrost 33:26a14bc6d90e 497 DBG("Will send a string, no ACK requested.");
defrost 30:2c704a72d88a 498 }else{
defrost 33:26a14bc6d90e 499 DBG("Will send a string, looking for ACK: %s", ACK);
defrost 30:2c704a72d88a 500 }
samux 1:fb4494783863 501
samux 1:fb4494783863 502 attach_rx(false);
samux 1:fb4494783863 503
samux 1:fb4494783863 504 //We flush the buffer
samux 1:fb4494783863 505 while (wifi.readable())
samux 1:fb4494783863 506 wifi.getc();
samux 1:fb4494783863 507
samux 1:fb4494783863 508 if (!ACK || !strcmp(ACK, "NO")) {
samux 1:fb4494783863 509 for (int i = 0; i < len; i++)
samux 1:fb4494783863 510 result = (putc(str[i]) == str[i]) ? result + 1 : result;
samux 1:fb4494783863 511 } else {
samux 1:fb4494783863 512 //We flush the buffer
samux 1:fb4494783863 513 while (wifi.readable())
samux 1:fb4494783863 514 wifi.getc();
samux 1:fb4494783863 515
samux 1:fb4494783863 516 tmr.start();
samux 1:fb4494783863 517 for (int i = 0; i < len; i++)
samux 1:fb4494783863 518 result = (putc(str[i]) == str[i]) ? result + 1 : result;
samux 1:fb4494783863 519
samux 1:fb4494783863 520 while (1) {
samux 1:fb4494783863 521 if (tmr.read_ms() > timeout) {
samux 1:fb4494783863 522 //We flush the buffer
samux 1:fb4494783863 523 while (wifi.readable())
samux 1:fb4494783863 524 wifi.getc();
samux 1:fb4494783863 525
defrost 23:cb8522185c56 526 DBG("check: %s", checking.c_str());
defrost 23:cb8522185c56 527 DBG("result ignored: %d", result)
samux 1:fb4494783863 528 attach_rx(true);
samux 1:fb4494783863 529 return -1;
samux 1:fb4494783863 530 } else if (wifi.readable()) {
samux 1:fb4494783863 531 read = wifi.getc();
samux 1:fb4494783863 532 if ( read != '\r' && read != '\n') {
samux 1:fb4494783863 533 checking += read;
samux 1:fb4494783863 534 found = checking.find(ACK);
samux 1:fb4494783863 535 if (found != string::npos) {
samux 1:fb4494783863 536 wait(0.01);
samux 1:fb4494783863 537
samux 1:fb4494783863 538 //We flush the buffer
samux 1:fb4494783863 539 while (wifi.readable())
samux 1:fb4494783863 540 wifi.getc();
samux 1:fb4494783863 541
samux 1:fb4494783863 542 break;
samux 1:fb4494783863 543 }
defrost 24:705480e2e482 544 }
samux 1:fb4494783863 545 }
samux 1:fb4494783863 546 }
defrost 23:cb8522185c56 547 DBG("check: %s", checking.c_str());
defrost 23:cb8522185c56 548 DBG("result: %d", result)
samux 1:fb4494783863 549 attach_rx(true);
samux 1:fb4494783863 550 return result;
samux 1:fb4494783863 551 }
samux 1:fb4494783863 552
samux 1:fb4494783863 553 //the user wants the result from the command (ACK == NULL, res != NULL)
samux 1:fb4494783863 554 if ( res != NULL) {
samux 1:fb4494783863 555 int i = 0;
samux 1:fb4494783863 556 Timer timeout;
samux 1:fb4494783863 557 timeout.start();
samux 1:fb4494783863 558 tmr.reset();
samux 1:fb4494783863 559 while (1) {
samux 1:fb4494783863 560 if (timeout.read() > 2) {
samux 1:fb4494783863 561 if (i == 0) {
samux 1:fb4494783863 562 res = NULL;
samux 1:fb4494783863 563 break;
samux 1:fb4494783863 564 }
samux 1:fb4494783863 565 res[i] = '\0';
defrost 23:cb8522185c56 566 DBG("user str 1: %s", res);
samux 1:fb4494783863 567
samux 1:fb4494783863 568 break;
samux 1:fb4494783863 569 } else {
samux 1:fb4494783863 570 if (tmr.read_ms() > 300) {
samux 1:fb4494783863 571 res[i] = '\0';
defrost 23:cb8522185c56 572 DBG("user str2: %s", res);
samux 1:fb4494783863 573
samux 1:fb4494783863 574 break;
samux 1:fb4494783863 575 }
samux 1:fb4494783863 576 if (wifi.readable()) {
samux 1:fb4494783863 577 tmr.start();
samux 1:fb4494783863 578 read = wifi.getc();
samux 1:fb4494783863 579
samux 1:fb4494783863 580 // we drop \r and \n
samux 1:fb4494783863 581 if ( read != '\r' && read != '\n') {
samux 1:fb4494783863 582 res[i++] = read;
samux 1:fb4494783863 583 }
samux 1:fb4494783863 584 }
samux 1:fb4494783863 585 }
samux 1:fb4494783863 586 }
defrost 23:cb8522185c56 587 DBG("user str3: %s", res);
samux 1:fb4494783863 588 }
samux 1:fb4494783863 589
samux 1:fb4494783863 590 //We flush the buffer
samux 1:fb4494783863 591 while (wifi.readable())
samux 1:fb4494783863 592 wifi.getc();
samux 1:fb4494783863 593
samux 1:fb4494783863 594 attach_rx(true);
defrost 23:cb8522185c56 595 DBG("result: %d", result)
samux 1:fb4494783863 596 return result;
defrost 30:2c704a72d88a 597 }
defrost 30:2c704a72d88a 598
defrost 30:2c704a72d88a 599 int Wifly::checkNetworkStatus(void){
defrost 30:2c704a72d88a 600 int status = 0;
defrost 30:2c704a72d88a 601 char rcv[128];
defrost 31:2846355deb7e 602 unsigned int ConnectionReg;
defrost 30:2c704a72d88a 603
defrost 31:2846355deb7e 604 if(!sendCommand("show c\r", NULL, rcv, 5000)){
defrost 30:2c704a72d88a 605 status = 0;
defrost 30:2c704a72d88a 606 // the sendCommand function quits command mode if there is an error
defrost 30:2c704a72d88a 607 }else{
defrost 30:2c704a72d88a 608 // check the response:
defrost 31:2846355deb7e 609 sscanf(rcv, "%x%*s", &ConnectionReg);
defrost 31:2846355deb7e 610 if(((ConnectionReg & CC_ASSOCIATION)>0) && ((ConnectionReg & CC_AUTHENTICATION)>0)){
defrost 31:2846355deb7e 611 // Associated and Authenticated:
defrost 31:2846355deb7e 612 status = 3;
defrost 31:2846355deb7e 613 }else if((ConnectionReg & CC_ASSOCIATION)>0){
defrost 31:2846355deb7e 614 // Associated:
defrost 31:2846355deb7e 615 status = 1;
defrost 31:2846355deb7e 616 }else if((ConnectionReg & CC_AUTHENTICATION)>0){
defrost 31:2846355deb7e 617 // Athenticated:
defrost 31:2846355deb7e 618 status = 2;
defrost 31:2846355deb7e 619 }else{
defrost 31:2846355deb7e 620 // Disconnected:
defrost 31:2846355deb7e 621 status = 0;
defrost 31:2846355deb7e 622 }
defrost 31:2846355deb7e 623 INFO("Wifly Check network response: 0x%x, Status: %d", ConnectionReg, status);
defrost 30:2c704a72d88a 624 exit(); // Quit command mode
defrost 30:2c704a72d88a 625 }
defrost 30:2c704a72d88a 626
defrost 30:2c704a72d88a 627 return status;
defrost 32:ab206f7f5090 628 }
defrost 32:ab206f7f5090 629
defrost 32:ab206f7f5090 630 void Wifly::sleep(void){
defrost 32:ab206f7f5090 631 // This function puts the module to sleep:
defrost 32:ab206f7f5090 632 sendCommand("sleep\r", NULL);
defrost 32:ab206f7f5090 633 // It will wake up from sleep if any characters are sent to it.
defrost 32:ab206f7f5090 634 return;
samux 1:fb4494783863 635 }