Michael Baker / FONA_CellPhone

Update to work with latest mBed

Dependencies:   mbed-dev

Fork of FONA_CellPhone by Dream Team

Adafruit_FONA.cpp@19:06dd156420a5, 2017-01-27 (annotated)

Committer:
michaelVisimid
Date:
Fri Jan 27 00:22:31 2017 +0000
Revision:
19:06dd156420a5
Parent:
18:d52017f1d087 
Pre-compiled mbed libraries don't work correctly when exported

Who changed what in which revision?

UserRevisionLine numberNew contents of line
gtzintzarov3 0:851248a56628 1 /***************************************************
gtzintzarov3 0:851248a56628 2 This is a library for our Adafruit FONA Cellular Module
gtzintzarov3 0:851248a56628 3
gtzintzarov3 0:851248a56628 4 Designed specifically to work with the Adafruit FONA
gtzintzarov3 0:851248a56628 5 ----> http://www.adafruit.com/products/1946
gtzintzarov3 0:851248a56628 6 ----> http://www.adafruit.com/products/1963
gtzintzarov3 0:851248a56628 7
gtzintzarov3 0:851248a56628 8 These displays use TTL Serial to communicate, 2 pins are required to
gtzintzarov3 0:851248a56628 9 interface
gtzintzarov3 0:851248a56628 10 Adafruit invests time and resources providing this open source code,
gtzintzarov3 0:851248a56628 11 please support Adafruit and open-source hardware by purchasing
gtzintzarov3 0:851248a56628 12 products from Adafruit!
gtzintzarov3 0:851248a56628 13
gtzintzarov3 0:851248a56628 14 Written by Limor Fried/Ladyada for Adafruit Industries.
gtzintzarov3 0:851248a56628 15 BSD license, all text above must be included in any redistribution
gtzintzarov3 0:851248a56628 16 ****************************************************/
gtzintzarov3 0:851248a56628 17
gtzintzarov3 0:851248a56628 18 /*
gtzintzarov3 9:06eca688f2a3 19 * Modified by George Tzintzarov & Jesse Baker 03/14/2016 for use in mbed LPC1768
gtzintzarov3 0:851248a56628 20 */
gtzintzarov3 0:851248a56628 21 #include <algorithm>
gtzintzarov3 0:851248a56628 22 #include "Adafruit_FONA.h"
gtzintzarov3 0:851248a56628 23
gtzintzarov3 0:851248a56628 24 #define HIGH 1
gtzintzarov3 0:851248a56628 25 #define LOW 0
gtzintzarov3 0:851248a56628 26
George windoge T 2:aaef20ac9044 27 /*
George windoge T 2:aaef20ac9044 28 Notes George is taking:
George windoge T 2:aaef20ac9044 29 sendCheckReply returns a boolean where its true when FONA responds with the string of its second input
George windoge T 2:aaef20ac9044 30
George windoge T 2:aaef20ac9044 31 */
George windoge T 2:aaef20ac9044 32
gtzintzarov3 9:06eca688f2a3 33
gtzintzarov3 0:851248a56628 34 bool Adafruit_FONA::begin(int baudrate) {
George windoge T 2:aaef20ac9044 35 mySerial.baud(baudrate); //set the baud rate of the fona serial connection
michaelVisimid 18:d52017f1d087 36 mySerial.attach(Callback<void()>(this, &Adafruit_FONA::onSerialDataReceived), Serial::RxIrq);
gtzintzarov3 0:851248a56628 37
George windoge T 2:aaef20ac9044 38 // INIT Reboot process
gtzintzarov3 0:851248a56628 39 _rstpin = HIGH;
gtzintzarov3 0:851248a56628 40 wait_ms(10);
gtzintzarov3 0:851248a56628 41 _rstpin = LOW;
gtzintzarov3 0:851248a56628 42 wait_ms(100);
gtzintzarov3 0:851248a56628 43 _rstpin = HIGH;
gtzintzarov3 0:851248a56628 44
gtzintzarov3 0:851248a56628 45 // give 3 seconds to reboot
gtzintzarov3 0:851248a56628 46 wait_ms(3000);
gtzintzarov3 0:851248a56628 47
George windoge T 2:aaef20ac9044 48 // flushes the serial port
gtzintzarov3 0:851248a56628 49 while (readable()) getc();
gtzintzarov3 0:851248a56628 50
George windoge T 2:aaef20ac9044 51 // Make sure FONA is alive
gtzintzarov3 0:851248a56628 52 sendCheckReply("AT", "OK");
gtzintzarov3 0:851248a56628 53 wait_ms(100);
gtzintzarov3 0:851248a56628 54 sendCheckReply("AT", "OK");
gtzintzarov3 0:851248a56628 55 wait_ms(100);
gtzintzarov3 0:851248a56628 56 sendCheckReply("AT", "OK");
gtzintzarov3 0:851248a56628 57 wait_ms(100);
gtzintzarov3 0:851248a56628 58
gtzintzarov3 0:851248a56628 59 // turn off Echo!
gtzintzarov3 0:851248a56628 60 sendCheckReply("ATE0", "OK");
gtzintzarov3 0:851248a56628 61 wait_ms(100);
gtzintzarov3 0:851248a56628 62
George windoge T 2:aaef20ac9044 63 // Just checks if the FONA even responds, if it doesnt, then return false
gtzintzarov3 0:851248a56628 64 if (! sendCheckReply("ATE0", "OK")) {
gtzintzarov3 0:851248a56628 65 return false;
gtzintzarov3 0:851248a56628 66 }
michaelVisimid 18:d52017f1d087 67 sendCheckReply("AT+CVHU=0", "OK");
michaelVisimid 18:d52017f1d087 68 wait_ms(100);
michaelVisimid 18:d52017f1d087 69 _incomingCall = false;
gtzintzarov3 0:851248a56628 70 return true;
gtzintzarov3 0:851248a56628 71 }
gtzintzarov3 0:851248a56628 72
gtzintzarov3 0:851248a56628 73 void Adafruit_FONA::setEventListener(EventListener *eventListener) {
gtzintzarov3 0:851248a56628 74 this->eventListener = eventListener;
gtzintzarov3 0:851248a56628 75 }
gtzintzarov3 0:851248a56628 76
michaelVisimid 18:d52017f1d087 77 bool Adafruit_FONA::setBaudrate(uint16_t baud) {
michaelVisimid 18:d52017f1d087 78 return sendCheckReply("AT+IPREX=", baud, "OK");
michaelVisimid 18:d52017f1d087 79 }
michaelVisimid 18:d52017f1d087 80
gtzintzarov3 0:851248a56628 81 /********* Stream ********************************************/
gtzintzarov3 0:851248a56628 82
gtzintzarov3 0:851248a56628 83 int Adafruit_FONA::_putc(int value) {
gtzintzarov3 0:851248a56628 84 return mySerial.putc(value);
gtzintzarov3 0:851248a56628 85 }
gtzintzarov3 0:851248a56628 86
gtzintzarov3 0:851248a56628 87 int Adafruit_FONA::_getc() {
gtzintzarov3 0:851248a56628 88 __disable_irq(); // Start Critical Section - don't interrupt while changing global buffer variables
gtzintzarov3 0:851248a56628 89
gtzintzarov3 0:851248a56628 90 // Wait for data if the buffer is empty
gtzintzarov3 0:851248a56628 91 if (isRxBufferEmpty()) {
gtzintzarov3 0:851248a56628 92 __enable_irq(); // End Critical Section - need to allow rx interrupt to get new characters for buffer
gtzintzarov3 0:851248a56628 93
gtzintzarov3 0:851248a56628 94 while(isRxBufferEmpty());
gtzintzarov3 0:851248a56628 95
gtzintzarov3 0:851248a56628 96 __disable_irq(); // Start Critical Section - don't interrupt while changing global buffer variables
gtzintzarov3 0:851248a56628 97 }
gtzintzarov3 0:851248a56628 98
gtzintzarov3 0:851248a56628 99 int data = rxBuffer[rxBufferOutIndex];
gtzintzarov3 0:851248a56628 100 incrementRxBufferOutIndex();
gtzintzarov3 0:851248a56628 101
gtzintzarov3 0:851248a56628 102 __enable_irq(); // End Critical Section
gtzintzarov3 0:851248a56628 103
gtzintzarov3 0:851248a56628 104 return data;
gtzintzarov3 0:851248a56628 105 }
gtzintzarov3 0:851248a56628 106
gtzintzarov3 0:851248a56628 107 int Adafruit_FONA::readable() {
gtzintzarov3 0:851248a56628 108 return !isRxBufferEmpty();
gtzintzarov3 0:851248a56628 109 }
gtzintzarov3 0:851248a56628 110
gtzintzarov3 0:851248a56628 111 void Adafruit_FONA::onSerialDataReceived() {
gtzintzarov3 0:851248a56628 112 while (mySerial.readable() && !isRxBufferFull()) {
gtzintzarov3 0:851248a56628 113 int data = mySerial.getc();
gtzintzarov3 0:851248a56628 114 rxBuffer[rxBufferInIndex] = data;
gtzintzarov3 0:851248a56628 115
gtzintzarov3 0:851248a56628 116 //
gtzintzarov3 0:851248a56628 117 // Analyze the received data in order to detect events like RING or NO CARRIER
gtzintzarov3 0:851248a56628 118 //
gtzintzarov3 0:851248a56628 119
gtzintzarov3 0:851248a56628 120 // Copy the data in the current line
gtzintzarov3 0:851248a56628 121 if (currentReceivedLineSize < RX_BUFFER_SIZE && data != '\r' && data != '\n') {
gtzintzarov3 0:851248a56628 122 currentReceivedLine[currentReceivedLineSize] = (char) data;
gtzintzarov3 0:851248a56628 123 currentReceivedLineSize++;
gtzintzarov3 0:851248a56628 124 }
gtzintzarov3 0:851248a56628 125
gtzintzarov3 0:851248a56628 126 // Check if the line is complete
gtzintzarov3 0:851248a56628 127 if (data == '\n') {
gtzintzarov3 0:851248a56628 128 currentReceivedLine[currentReceivedLineSize] = 0;
gtzintzarov3 0:851248a56628 129
gtzintzarov3 0:851248a56628 130 if (eventListener != NULL) {
gtzintzarov3 0:851248a56628 131 // Check if we have a special event
gtzintzarov3 0:851248a56628 132 if (strcmp(currentReceivedLine, "RING") == 0) {
gtzintzarov3 0:851248a56628 133 eventListener->onRing();
gtzintzarov3 0:851248a56628 134 } else if (strcmp(currentReceivedLine, "NO CARRIER") == 0) {
gtzintzarov3 0:851248a56628 135 eventListener->onNoCarrier();
gtzintzarov3 0:851248a56628 136 }
gtzintzarov3 0:851248a56628 137 }
gtzintzarov3 0:851248a56628 138
gtzintzarov3 0:851248a56628 139 currentReceivedLineSize = 0;
gtzintzarov3 0:851248a56628 140 }
gtzintzarov3 0:851248a56628 141
gtzintzarov3 0:851248a56628 142 incrementRxBufferInIndex();
gtzintzarov3 0:851248a56628 143 }
gtzintzarov3 0:851248a56628 144 }
gtzintzarov3 0:851248a56628 145
gtzintzarov3 0:851248a56628 146 /********* Real Time Clock ********************************************/
michaelVisimid 18:d52017f1d087 147 bool Adafruit_FONA::readRTC(uint8_t *year, uint8_t *month, uint8_t *date, uint8_t *hr, uint8_t *min, uint8_t *sec) {
michaelVisimid 18:d52017f1d087 148 uint16_t v;
michaelVisimid 18:d52017f1d087 149 sendParseReply("AT+CCLK?", "+CCLK: ", &v, '/', 0);
michaelVisimid 18:d52017f1d087 150 *year = v;
michaelVisimid 18:d52017f1d087 151 return true;
michaelVisimid 18:d52017f1d087 152 }
gtzintzarov3 0:851248a56628 153 bool Adafruit_FONA::enableRTC(uint8_t i) {
gtzintzarov3 0:851248a56628 154 if (! sendCheckReply("AT+CLTS=", i, "OK"))
gtzintzarov3 0:851248a56628 155 return false;
gtzintzarov3 0:851248a56628 156 return sendCheckReply("AT&W", "OK");
gtzintzarov3 0:851248a56628 157 }
gtzintzarov3 0:851248a56628 158
gtzintzarov3 0:851248a56628 159 /********* BATTERY & ADC ********************************************/
gtzintzarov3 0:851248a56628 160
gtzintzarov3 0:851248a56628 161 /* returns value in mV (uint16_t) */
gtzintzarov3 0:851248a56628 162 bool Adafruit_FONA::getBattVoltage(uint16_t *v) {
gtzintzarov3 0:851248a56628 163 return sendParseReply("AT+CBC", "+CBC: ", v, ',', 2);
gtzintzarov3 0:851248a56628 164 }
gtzintzarov3 0:851248a56628 165
gtzintzarov3 0:851248a56628 166 /* returns the percentage charge of battery as reported by sim800 */
gtzintzarov3 0:851248a56628 167 bool Adafruit_FONA::getBattPercent(uint16_t *p) {
gtzintzarov3 0:851248a56628 168 return sendParseReply("AT+CBC", "+CBC: ", p, ',', 1);
gtzintzarov3 0:851248a56628 169 }
gtzintzarov3 0:851248a56628 170
gtzintzarov3 0:851248a56628 171 bool Adafruit_FONA::getADCVoltage(uint16_t *v) {
gtzintzarov3 0:851248a56628 172 return sendParseReply("AT+CADC?", "+CADC: 1,", v);
gtzintzarov3 0:851248a56628 173 }
gtzintzarov3 0:851248a56628 174
gtzintzarov3 0:851248a56628 175 /********* SIM ***********************************************************/
gtzintzarov3 0:851248a56628 176
gtzintzarov3 0:851248a56628 177 bool Adafruit_FONA::unlockSIM(char *pin)
gtzintzarov3 0:851248a56628 178 {
gtzintzarov3 0:851248a56628 179 char sendbuff[14] = "AT+CPIN=";
gtzintzarov3 0:851248a56628 180 sendbuff[8] = pin[0];
gtzintzarov3 0:851248a56628 181 sendbuff[9] = pin[1];
gtzintzarov3 0:851248a56628 182 sendbuff[10] = pin[2];
gtzintzarov3 0:851248a56628 183 sendbuff[11] = pin[3];
gtzintzarov3 0:851248a56628 184 sendbuff[12] = NULL;
gtzintzarov3 0:851248a56628 185
gtzintzarov3 0:851248a56628 186 return sendCheckReply(sendbuff, "OK");
gtzintzarov3 0:851248a56628 187 }
gtzintzarov3 0:851248a56628 188
gtzintzarov3 0:851248a56628 189 uint8_t Adafruit_FONA::getSIMCCID(char *ccid) {
gtzintzarov3 0:851248a56628 190 getReply("AT+CCID");
gtzintzarov3 0:851248a56628 191 // up to 20 chars
gtzintzarov3 0:851248a56628 192 strncpy(ccid, replybuffer, 20);
gtzintzarov3 0:851248a56628 193 ccid[20] = 0;
gtzintzarov3 0:851248a56628 194
gtzintzarov3 0:851248a56628 195 readline(); // eat 'OK'
gtzintzarov3 0:851248a56628 196
gtzintzarov3 0:851248a56628 197 return strlen(ccid);
gtzintzarov3 0:851248a56628 198 }
gtzintzarov3 0:851248a56628 199
gtzintzarov3 0:851248a56628 200 /********* IMEI **********************************************************/
gtzintzarov3 0:851248a56628 201
gtzintzarov3 0:851248a56628 202 uint8_t Adafruit_FONA::getIMEI(char *imei) {
gtzintzarov3 0:851248a56628 203 getReply("AT+GSN");
gtzintzarov3 0:851248a56628 204
gtzintzarov3 0:851248a56628 205 // up to 15 chars
gtzintzarov3 0:851248a56628 206 strncpy(imei, replybuffer, 15);
gtzintzarov3 0:851248a56628 207 imei[15] = 0;
gtzintzarov3 0:851248a56628 208
gtzintzarov3 0:851248a56628 209 readline(); // eat 'OK'
gtzintzarov3 0:851248a56628 210
gtzintzarov3 0:851248a56628 211 return strlen(imei);
gtzintzarov3 0:851248a56628 212 }
gtzintzarov3 0:851248a56628 213
gtzintzarov3 0:851248a56628 214 /********* NETWORK *******************************************************/
gtzintzarov3 0:851248a56628 215
gtzintzarov3 0:851248a56628 216 uint8_t Adafruit_FONA::getNetworkStatus(void) {
gtzintzarov3 0:851248a56628 217 uint16_t status;
gtzintzarov3 0:851248a56628 218
gtzintzarov3 0:851248a56628 219 if (! sendParseReply("AT+CREG?", "+CREG: ", &status, ',', 1)) return 0;
gtzintzarov3 0:851248a56628 220
gtzintzarov3 0:851248a56628 221 return status;
gtzintzarov3 0:851248a56628 222 }
gtzintzarov3 0:851248a56628 223
gtzintzarov3 0:851248a56628 224
gtzintzarov3 0:851248a56628 225 uint8_t Adafruit_FONA::getRSSI(void) {
gtzintzarov3 0:851248a56628 226 uint16_t reply;
gtzintzarov3 0:851248a56628 227
gtzintzarov3 0:851248a56628 228 if (! sendParseReply("AT+CSQ", "+CSQ: ", &reply) ) return 0;
gtzintzarov3 0:851248a56628 229
gtzintzarov3 0:851248a56628 230 return reply;
gtzintzarov3 0:851248a56628 231 }
gtzintzarov3 0:851248a56628 232
gtzintzarov3 0:851248a56628 233 /********* AUDIO *******************************************************/
gtzintzarov3 0:851248a56628 234
gtzintzarov3 0:851248a56628 235 bool Adafruit_FONA::setAudio(uint8_t a) {
gtzintzarov3 0:851248a56628 236 // 0 is headset, 1 is external audio
gtzintzarov3 0:851248a56628 237 if (a > 1) return false;
gtzintzarov3 0:851248a56628 238
gtzintzarov3 0:851248a56628 239 return sendCheckReply("AT+CHFA=", a, "OK");
gtzintzarov3 0:851248a56628 240 }
gtzintzarov3 0:851248a56628 241
gtzintzarov3 0:851248a56628 242 uint8_t Adafruit_FONA::getVolume(void) {
gtzintzarov3 0:851248a56628 243 uint16_t reply;
gtzintzarov3 0:851248a56628 244
gtzintzarov3 0:851248a56628 245 if (! sendParseReply("AT+CLVL?", "+CLVL: ", &reply) ) return 0;
gtzintzarov3 0:851248a56628 246
gtzintzarov3 0:851248a56628 247 return reply;
gtzintzarov3 0:851248a56628 248 }
gtzintzarov3 0:851248a56628 249
gtzintzarov3 0:851248a56628 250 bool Adafruit_FONA::setVolume(uint8_t i) {
gtzintzarov3 0:851248a56628 251 return sendCheckReply("AT+CLVL=", i, "OK");
gtzintzarov3 0:851248a56628 252 }
gtzintzarov3 0:851248a56628 253
gtzintzarov3 0:851248a56628 254
gtzintzarov3 0:851248a56628 255 bool Adafruit_FONA::playDTMF(char dtmf) {
gtzintzarov3 0:851248a56628 256 char str[4];
gtzintzarov3 0:851248a56628 257 str[0] = '\"';
gtzintzarov3 0:851248a56628 258 str[1] = dtmf;
gtzintzarov3 0:851248a56628 259 str[2] = '\"';
gtzintzarov3 0:851248a56628 260 str[3] = 0;
gtzintzarov3 0:851248a56628 261 return sendCheckReply("AT+CLDTMF=3,", str, "OK");
gtzintzarov3 0:851248a56628 262 }
gtzintzarov3 0:851248a56628 263
gtzintzarov3 0:851248a56628 264 bool Adafruit_FONA::playToolkitTone(uint8_t t, uint16_t len) {
gtzintzarov3 0:851248a56628 265 return sendCheckReply("AT+STTONE=1,", t, len, "OK");
gtzintzarov3 0:851248a56628 266 }
gtzintzarov3 0:851248a56628 267
gtzintzarov3 0:851248a56628 268 bool Adafruit_FONA::setMicVolume(uint8_t a, uint8_t level) {
gtzintzarov3 0:851248a56628 269 // 0 is headset, 1 is external audio
gtzintzarov3 0:851248a56628 270 if (a > 1) return false;
gtzintzarov3 0:851248a56628 271
gtzintzarov3 0:851248a56628 272 return sendCheckReply("AT+CMIC=", a, level, "OK");
gtzintzarov3 0:851248a56628 273 }
gtzintzarov3 0:851248a56628 274
gtzintzarov3 0:851248a56628 275 /********* FM RADIO *******************************************************/
gtzintzarov3 0:851248a56628 276
gtzintzarov3 0:851248a56628 277
gtzintzarov3 0:851248a56628 278 bool Adafruit_FONA::FMradio(bool onoff, uint8_t a) {
gtzintzarov3 0:851248a56628 279 if (! onoff) {
gtzintzarov3 0:851248a56628 280 return sendCheckReply("AT+FMCLOSE", "OK");
gtzintzarov3 0:851248a56628 281 }
gtzintzarov3 0:851248a56628 282
gtzintzarov3 0:851248a56628 283 // 0 is headset, 1 is external audio
gtzintzarov3 0:851248a56628 284 if (a > 1) return false;
gtzintzarov3 0:851248a56628 285
gtzintzarov3 0:851248a56628 286 return sendCheckReply("AT+FMOPEN=", a, "OK");
gtzintzarov3 0:851248a56628 287 }
gtzintzarov3 0:851248a56628 288
gtzintzarov3 0:851248a56628 289 bool Adafruit_FONA::tuneFMradio(uint16_t station) {
gtzintzarov3 0:851248a56628 290 // Fail if FM station is outside allowed range.
gtzintzarov3 0:851248a56628 291 if ((station < 870) || (station > 1090))
gtzintzarov3 0:851248a56628 292 return false;
gtzintzarov3 0:851248a56628 293
gtzintzarov3 0:851248a56628 294 return sendCheckReply("AT+FMFREQ=", station, "OK");
gtzintzarov3 0:851248a56628 295 }
gtzintzarov3 0:851248a56628 296
gtzintzarov3 0:851248a56628 297 bool Adafruit_FONA::setFMVolume(uint8_t i) {
gtzintzarov3 0:851248a56628 298 // Fail if volume is outside allowed range (0-6).
gtzintzarov3 0:851248a56628 299 if (i > 6) {
gtzintzarov3 0:851248a56628 300 return false;
gtzintzarov3 0:851248a56628 301 }
gtzintzarov3 0:851248a56628 302 // Send FM volume command and verify response.
gtzintzarov3 0:851248a56628 303 return sendCheckReply("AT+FMVOLUME=", i, "OK");
gtzintzarov3 0:851248a56628 304 }
gtzintzarov3 0:851248a56628 305
gtzintzarov3 0:851248a56628 306 int8_t Adafruit_FONA::getFMVolume() {
gtzintzarov3 0:851248a56628 307 uint16_t level;
gtzintzarov3 0:851248a56628 308
gtzintzarov3 0:851248a56628 309 if (! sendParseReply("AT+FMVOLUME?", "+FMVOLUME: ", &level) ) return 0;
gtzintzarov3 0:851248a56628 310
gtzintzarov3 0:851248a56628 311 return level;
gtzintzarov3 0:851248a56628 312 }
gtzintzarov3 0:851248a56628 313
gtzintzarov3 0:851248a56628 314 int8_t Adafruit_FONA::getFMSignalLevel(uint16_t station) {
gtzintzarov3 0:851248a56628 315 // Fail if FM station is outside allowed range.
gtzintzarov3 0:851248a56628 316 if ((station < 875) || (station > 1080)) {
gtzintzarov3 0:851248a56628 317 return -1;
gtzintzarov3 0:851248a56628 318 }
gtzintzarov3 0:851248a56628 319
gtzintzarov3 0:851248a56628 320 // Send FM signal level query command.
gtzintzarov3 0:851248a56628 321 // Note, need to explicitly send timeout so right overload is chosen.
gtzintzarov3 0:851248a56628 322 getReply("AT+FMSIGNAL=", station, FONA_DEFAULT_TIMEOUT_MS);
gtzintzarov3 0:851248a56628 323 // Check response starts with expected value.
gtzintzarov3 0:851248a56628 324 char *p = strstr(replybuffer, "+FMSIGNAL: ");
gtzintzarov3 0:851248a56628 325 if (p == 0) return -1;
gtzintzarov3 0:851248a56628 326 p+=11;
gtzintzarov3 0:851248a56628 327 // Find second colon to get start of signal quality.
gtzintzarov3 0:851248a56628 328 p = strchr(p, ':');
gtzintzarov3 0:851248a56628 329 if (p == 0) return -1;
gtzintzarov3 0:851248a56628 330 p+=1;
gtzintzarov3 0:851248a56628 331 // Parse signal quality.
gtzintzarov3 0:851248a56628 332 int8_t level = atoi(p);
gtzintzarov3 0:851248a56628 333 readline(); // eat the "OK"
gtzintzarov3 0:851248a56628 334 return level;
gtzintzarov3 0:851248a56628 335 }
gtzintzarov3 0:851248a56628 336
gtzintzarov3 0:851248a56628 337 /********* PWM/BUZZER **************************************************/
gtzintzarov3 0:851248a56628 338
gtzintzarov3 0:851248a56628 339 bool Adafruit_FONA::setPWM(uint16_t period, uint8_t duty) {
gtzintzarov3 0:851248a56628 340 if (period > 2000) return false;
gtzintzarov3 0:851248a56628 341 if (duty > 100) return false;
gtzintzarov3 0:851248a56628 342
gtzintzarov3 0:851248a56628 343 return sendCheckReply("AT+SPWM=0,", period, duty, "OK");
gtzintzarov3 0:851248a56628 344 }
gtzintzarov3 0:851248a56628 345
gtzintzarov3 0:851248a56628 346 /********* CALL PHONES **************************************************/
gtzintzarov3 0:851248a56628 347 bool Adafruit_FONA::callPhone(char *number) {
gtzintzarov3 0:851248a56628 348 char sendbuff[35] = "ATD";
gtzintzarov3 0:851248a56628 349 strncpy(sendbuff+3, number, min((int)30, (int)strlen(number)));
gtzintzarov3 0:851248a56628 350 uint8_t x = strlen(sendbuff);
gtzintzarov3 0:851248a56628 351 sendbuff[x] = ';';
gtzintzarov3 0:851248a56628 352 sendbuff[x+1] = 0;
gtzintzarov3 0:851248a56628 353
gtzintzarov3 0:851248a56628 354 return sendCheckReply(sendbuff, "OK");
gtzintzarov3 0:851248a56628 355 }
michaelVisimid 18:d52017f1d087 356 uint8_t Adafruit_FONA::getCallStatus(void) {
michaelVisimid 18:d52017f1d087 357 uint16_t phoneStatus;
michaelVisimid 18:d52017f1d087 358
michaelVisimid 18:d52017f1d087 359 if (! sendParseReply("AT+CPAS", "+CPAS: ", &phoneStatus))
michaelVisimid 18:d52017f1d087 360 return FONA_CALL_FAILED; // 1, since 0 is actually a known, good reply
michaelVisimid 18:d52017f1d087 361
michaelVisimid 18:d52017f1d087 362 return phoneStatus; // 0 ready, 2 unkown, 3 ringing, 4 call in progress
michaelVisimid 18:d52017f1d087 363 }
gtzintzarov3 0:851248a56628 364
gtzintzarov3 0:851248a56628 365 bool Adafruit_FONA::hangUp(void) {
gtzintzarov3 0:851248a56628 366 return sendCheckReply("ATH0", "OK");
gtzintzarov3 0:851248a56628 367 }
gtzintzarov3 0:851248a56628 368
gtzintzarov3 0:851248a56628 369 bool Adafruit_FONA::pickUp(void) {
gtzintzarov3 0:851248a56628 370 return sendCheckReply("ATA", "OK");
gtzintzarov3 0:851248a56628 371 }
gtzintzarov3 0:851248a56628 372
gtzintzarov3 0:851248a56628 373 void Adafruit_FONA::onIncomingCall() {
gtzintzarov3 0:851248a56628 374 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 375 printf("> Incoming call...\r\n");
gtzintzarov3 0:851248a56628 376 #endif
gtzintzarov3 0:851248a56628 377 _incomingCall = true;
gtzintzarov3 0:851248a56628 378 }
gtzintzarov3 0:851248a56628 379 bool Adafruit_FONA::callerIdNotification(bool enable) {
gtzintzarov3 0:851248a56628 380 if(enable){
michaelVisimid 18:d52017f1d087 381 _ringIndicatorInterruptIn.fall(Callback<void()>(this, &Adafruit_FONA::onIncomingCall));
gtzintzarov3 0:851248a56628 382 return sendCheckReply("AT+CLIP=1", "OK");
gtzintzarov3 0:851248a56628 383 }
gtzintzarov3 0:851248a56628 384
gtzintzarov3 0:851248a56628 385 _ringIndicatorInterruptIn.fall(NULL);
gtzintzarov3 0:851248a56628 386 return sendCheckReply("AT+CLIP=0", "OK");
gtzintzarov3 0:851248a56628 387 }
gtzintzarov3 0:851248a56628 388
gtzintzarov3 0:851248a56628 389 bool Adafruit_FONA::incomingCallNumber(char* phonenum) {
gtzintzarov3 0:851248a56628 390 //+CLIP: "<incoming phone number>",145,"",0,"",0
gtzintzarov3 0:851248a56628 391 if(!_incomingCall)
gtzintzarov3 0:851248a56628 392 return false;
gtzintzarov3 0:851248a56628 393
gtzintzarov3 0:851248a56628 394 readline();
gtzintzarov3 0:851248a56628 395 while(!strcmp(replybuffer, "RING") == 0) {
gtzintzarov3 0:851248a56628 396 flushInput();
gtzintzarov3 0:851248a56628 397 readline();
gtzintzarov3 0:851248a56628 398 }
gtzintzarov3 0:851248a56628 399
gtzintzarov3 0:851248a56628 400 readline(); //reads incoming phone number line
gtzintzarov3 0:851248a56628 401
gtzintzarov3 0:851248a56628 402 parseReply("+CLIP: \"", phonenum, '"');
gtzintzarov3 0:851248a56628 403
gtzintzarov3 0:851248a56628 404 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 405 printf("Phone Number: %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 406 #endif
gtzintzarov3 0:851248a56628 407
gtzintzarov3 0:851248a56628 408 _incomingCall = false;
gtzintzarov3 0:851248a56628 409 return true;
gtzintzarov3 0:851248a56628 410 }
gtzintzarov3 0:851248a56628 411
gtzintzarov3 0:851248a56628 412 /********* SMS **********************************************************/
gtzintzarov3 0:851248a56628 413
gtzintzarov3 0:851248a56628 414 uint8_t Adafruit_FONA::getSMSInterrupt(void) {
gtzintzarov3 0:851248a56628 415 uint16_t reply;
gtzintzarov3 0:851248a56628 416
gtzintzarov3 0:851248a56628 417 if (! sendParseReply("AT+CFGRI?", "+CFGRI: ", &reply) ) return 0;
gtzintzarov3 0:851248a56628 418
gtzintzarov3 0:851248a56628 419 return reply;
gtzintzarov3 0:851248a56628 420 }
gtzintzarov3 0:851248a56628 421
gtzintzarov3 0:851248a56628 422 bool Adafruit_FONA::setSMSInterrupt(uint8_t i) {
gtzintzarov3 0:851248a56628 423 return sendCheckReply("AT+CFGRI=", i, "OK");
gtzintzarov3 0:851248a56628 424 }
gtzintzarov3 0:851248a56628 425
gtzintzarov3 0:851248a56628 426 int8_t Adafruit_FONA::getNumSMS(void) {
gtzintzarov3 0:851248a56628 427 uint16_t numsms;
gtzintzarov3 0:851248a56628 428
gtzintzarov3 0:851248a56628 429 if (! sendCheckReply("AT+CMGF=1", "OK")) return -1;
gtzintzarov3 0:851248a56628 430 // ask how many sms are stored
michaelVisimid 18:d52017f1d087 431 if (sendParseReply("AT+CPMS?", "\"SM\",", &numsms))
michaelVisimid 18:d52017f1d087 432 return numsms;
michaelVisimid 18:d52017f1d087 433 if (sendParseReply("AT+CPMS?", "\"SM_P\",", &numsms))
michaelVisimid 18:d52017f1d087 434 return numsms;
michaelVisimid 18:d52017f1d087 435
michaelVisimid 18:d52017f1d087 436 return -1;
michaelVisimid 18:d52017f1d087 437
gtzintzarov3 0:851248a56628 438 }
gtzintzarov3 0:851248a56628 439
gtzintzarov3 0:851248a56628 440 // Reading SMS's is a bit involved so we don't use helpers that may cause delays or debug
gtzintzarov3 0:851248a56628 441 // printouts!
gtzintzarov3 0:851248a56628 442 bool Adafruit_FONA::readSMS(uint8_t i, char *smsbuff, uint16_t maxlen, uint16_t *readlen) {
gtzintzarov3 0:851248a56628 443 // text mode
gtzintzarov3 0:851248a56628 444 if (! sendCheckReply("AT+CMGF=1", "OK")) return false;
gtzintzarov3 0:851248a56628 445
gtzintzarov3 0:851248a56628 446 // show all text mode parameters
gtzintzarov3 0:851248a56628 447 if (! sendCheckReply("AT+CSDH=1", "OK")) return false;
gtzintzarov3 0:851248a56628 448
gtzintzarov3 0:851248a56628 449 // parse out the SMS len
gtzintzarov3 0:851248a56628 450 uint16_t thesmslen = 0;
gtzintzarov3 0:851248a56628 451
gtzintzarov3 0:851248a56628 452 //getReply(F("AT+CMGR="), i, 1000); // do not print debug!
gtzintzarov3 0:851248a56628 453 mySerial.printf("AT+CMGR=%d\r\n", i);
gtzintzarov3 0:851248a56628 454 readline(1000); // timeout
gtzintzarov3 0:851248a56628 455
gtzintzarov3 0:851248a56628 456 // parse it out...
gtzintzarov3 0:851248a56628 457 if (! parseReply("+CMGR:", &thesmslen, ',', 11)) {
gtzintzarov3 0:851248a56628 458 *readlen = 0;
gtzintzarov3 0:851248a56628 459 return false;
gtzintzarov3 0:851248a56628 460 }
gtzintzarov3 0:851248a56628 461
gtzintzarov3 0:851248a56628 462 readRaw(thesmslen);
gtzintzarov3 0:851248a56628 463
gtzintzarov3 0:851248a56628 464 flushInput();
gtzintzarov3 0:851248a56628 465
gtzintzarov3 0:851248a56628 466 uint16_t thelen = min(maxlen, (uint16_t)strlen(replybuffer));
gtzintzarov3 0:851248a56628 467 strncpy(smsbuff, replybuffer, thelen);
gtzintzarov3 0:851248a56628 468 smsbuff[thelen] = 0; // end the string
gtzintzarov3 0:851248a56628 469
gtzintzarov3 0:851248a56628 470 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 471 printf("%s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 472 #endif
gtzintzarov3 0:851248a56628 473 *readlen = thelen;
gtzintzarov3 0:851248a56628 474 return true;
gtzintzarov3 0:851248a56628 475 }
gtzintzarov3 0:851248a56628 476
gtzintzarov3 0:851248a56628 477 // Retrieve the sender of the specified SMS message and copy it as a string to
gtzintzarov3 0:851248a56628 478 // the sender buffer. Up to senderlen characters of the sender will be copied
gtzintzarov3 0:851248a56628 479 // and a null terminator will be added if less than senderlen charactesr are
gtzintzarov3 0:851248a56628 480 // copied to the result. Returns true if a result was successfully retrieved,
gtzintzarov3 0:851248a56628 481 // otherwise false.
gtzintzarov3 0:851248a56628 482 bool Adafruit_FONA::getSMSSender(uint8_t i, char *sender, int senderlen) {
gtzintzarov3 0:851248a56628 483 // Ensure text mode and all text mode parameters are sent.
gtzintzarov3 0:851248a56628 484 if (! sendCheckReply("AT+CMGF=1", "OK")) return false;
gtzintzarov3 0:851248a56628 485 if (! sendCheckReply("AT+CSDH=1", "OK")) return false;
gtzintzarov3 0:851248a56628 486 // Send command to retrieve SMS message and parse a line of response.
gtzintzarov3 0:851248a56628 487 mySerial.printf("AT+CMGR=%d\r\n", i);
gtzintzarov3 0:851248a56628 488 readline(1000);
gtzintzarov3 0:851248a56628 489 // Parse the second field in the response.
gtzintzarov3 0:851248a56628 490 bool result = parseReplyQuoted("+CMGR:", sender, senderlen, ',', 1);
gtzintzarov3 0:851248a56628 491 // Drop any remaining data from the response.
gtzintzarov3 0:851248a56628 492 flushInput();
gtzintzarov3 0:851248a56628 493 return result;
gtzintzarov3 0:851248a56628 494 }
gtzintzarov3 0:851248a56628 495
gtzintzarov3 0:851248a56628 496 bool Adafruit_FONA::sendSMS(char *smsaddr, char *smsmsg) {
gtzintzarov3 0:851248a56628 497 if (! sendCheckReply("AT+CMGF=1", "OK")) return -1;
gtzintzarov3 0:851248a56628 498
gtzintzarov3 0:851248a56628 499 char sendcmd[30] = "AT+CMGS=\"";
gtzintzarov3 0:851248a56628 500 strncpy(sendcmd+9, smsaddr, 30-9-2); // 9 bytes beginning, 2 bytes for close quote + null
gtzintzarov3 0:851248a56628 501 sendcmd[strlen(sendcmd)] = '\"';
gtzintzarov3 0:851248a56628 502
gtzintzarov3 0:851248a56628 503 if (! sendCheckReply(sendcmd, "> ")) return false;
gtzintzarov3 0:851248a56628 504 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 505 printf("> %s\r\n", smsmsg);
gtzintzarov3 0:851248a56628 506 #endif
gtzintzarov3 0:851248a56628 507 mySerial.printf("%s\r\n\r\n", smsmsg);
gtzintzarov3 0:851248a56628 508 mySerial.putc(0x1A);
gtzintzarov3 0:851248a56628 509 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 510 printf("^Z\r\n");
gtzintzarov3 0:851248a56628 511 #endif
gtzintzarov3 0:851248a56628 512 readline(10000); // read the +CMGS reply, wait up to 10 seconds!!!
gtzintzarov3 0:851248a56628 513 //Serial.print("* "); Serial.println(replybuffer);
gtzintzarov3 0:851248a56628 514 if (strstr(replybuffer, "+CMGS") == 0) {
gtzintzarov3 0:851248a56628 515 return false;
gtzintzarov3 0:851248a56628 516 }
gtzintzarov3 0:851248a56628 517 readline(1000); // read OK
gtzintzarov3 0:851248a56628 518 //Serial.print("* "); Serial.println(replybuffer);
gtzintzarov3 0:851248a56628 519
gtzintzarov3 0:851248a56628 520 if (strcmp(replybuffer, "OK") != 0) {
gtzintzarov3 0:851248a56628 521 return false;
gtzintzarov3 0:851248a56628 522 }
gtzintzarov3 0:851248a56628 523
gtzintzarov3 0:851248a56628 524 return true;
gtzintzarov3 0:851248a56628 525 }
gtzintzarov3 0:851248a56628 526
gtzintzarov3 0:851248a56628 527
gtzintzarov3 0:851248a56628 528 bool Adafruit_FONA::deleteSMS(uint8_t i) {
gtzintzarov3 0:851248a56628 529 if (! sendCheckReply("AT+CMGF=1", "OK")) return -1;
gtzintzarov3 0:851248a56628 530 // read an sms
gtzintzarov3 0:851248a56628 531 char sendbuff[12] = "AT+CMGD=000";
gtzintzarov3 0:851248a56628 532 sendbuff[8] = (i / 100) + '0';
gtzintzarov3 0:851248a56628 533 i %= 100;
gtzintzarov3 0:851248a56628 534 sendbuff[9] = (i / 10) + '0';
gtzintzarov3 0:851248a56628 535 i %= 10;
gtzintzarov3 0:851248a56628 536 sendbuff[10] = i + '0';
gtzintzarov3 0:851248a56628 537
gtzintzarov3 0:851248a56628 538 return sendCheckReply(sendbuff, "OK", 2000);
gtzintzarov3 0:851248a56628 539 }
gtzintzarov3 0:851248a56628 540
gtzintzarov3 0:851248a56628 541 /********* TIME **********************************************************/
michaelVisimid 18:d52017f1d087 542 bool Adafruit_FONA::sendUSSD(char *ussdmsg, char *ussdbuff, uint16_t maxlen, uint16_t *readlen) {
michaelVisimid 18:d52017f1d087 543 if (! sendCheckReply("AT+CUSD=1", "OK")) return false;
michaelVisimid 18:d52017f1d087 544
michaelVisimid 18:d52017f1d087 545 char sendcmd[30] = "AT+CUSD=1,\"";
michaelVisimid 18:d52017f1d087 546 strncpy(sendcmd+11, ussdmsg, 30-11-2); // 11 bytes beginning, 2 bytes for close quote + null
michaelVisimid 18:d52017f1d087 547 sendcmd[strlen(sendcmd)] = '\"';
michaelVisimid 18:d52017f1d087 548
michaelVisimid 18:d52017f1d087 549 if (! sendCheckReply(sendcmd, "OK")) {
michaelVisimid 18:d52017f1d087 550 *readlen = 0;
michaelVisimid 18:d52017f1d087 551 return false;
michaelVisimid 18:d52017f1d087 552 } else {
michaelVisimid 18:d52017f1d087 553 readline(10000); // read the +CUSD reply, wait up to 10 seconds!!!
michaelVisimid 18:d52017f1d087 554 //DEBUG_PRINT("* "); DEBUG_PRINTLN(replybuffer);
michaelVisimid 18:d52017f1d087 555 char *p = strstr(replybuffer, "+CUSD: ");
michaelVisimid 18:d52017f1d087 556 if (p == 0) {
michaelVisimid 18:d52017f1d087 557 *readlen = 0;
michaelVisimid 18:d52017f1d087 558 return false;
michaelVisimid 18:d52017f1d087 559 }
michaelVisimid 18:d52017f1d087 560 p+=7; //+CUSD
michaelVisimid 18:d52017f1d087 561 // Find " to get start of ussd message.
michaelVisimid 18:d52017f1d087 562 p = strchr(p, '\"');
michaelVisimid 18:d52017f1d087 563 if (p == 0) {
michaelVisimid 18:d52017f1d087 564 *readlen = 0;
michaelVisimid 18:d52017f1d087 565 return false;
michaelVisimid 18:d52017f1d087 566 }
michaelVisimid 18:d52017f1d087 567 p+=1; //"
michaelVisimid 18:d52017f1d087 568 // Find " to get end of ussd message.
michaelVisimid 18:d52017f1d087 569 char *strend = strchr(p, '\"');
michaelVisimid 18:d52017f1d087 570
michaelVisimid 18:d52017f1d087 571 uint16_t lentocopy = min(maxlen-1, strend - p);
michaelVisimid 18:d52017f1d087 572 strncpy(ussdbuff, p, lentocopy+1);
michaelVisimid 18:d52017f1d087 573 ussdbuff[lentocopy] = 0;
michaelVisimid 18:d52017f1d087 574 *readlen = lentocopy;
michaelVisimid 18:d52017f1d087 575 }
michaelVisimid 18:d52017f1d087 576 return true;
michaelVisimid 18:d52017f1d087 577 }
gtzintzarov3 0:851248a56628 578
gtzintzarov3 0:851248a56628 579 bool Adafruit_FONA::enableNetworkTimeSync(bool onoff) {
gtzintzarov3 0:851248a56628 580 if (onoff) {
gtzintzarov3 0:851248a56628 581 if (! sendCheckReply("AT+CLTS=1", "OK"))
gtzintzarov3 0:851248a56628 582 return false;
gtzintzarov3 0:851248a56628 583 } else {
gtzintzarov3 0:851248a56628 584 if (! sendCheckReply("AT+CLTS=0", "OK"))
gtzintzarov3 0:851248a56628 585 return false;
gtzintzarov3 0:851248a56628 586 }
gtzintzarov3 0:851248a56628 587
gtzintzarov3 0:851248a56628 588 flushInput(); // eat any 'Unsolicted Result Code'
gtzintzarov3 0:851248a56628 589
gtzintzarov3 0:851248a56628 590 return true;
gtzintzarov3 0:851248a56628 591 }
gtzintzarov3 0:851248a56628 592
gtzintzarov3 0:851248a56628 593 bool Adafruit_FONA::enableNTPTimeSync(bool onoff, const char* ntpserver) {
gtzintzarov3 0:851248a56628 594 if (onoff) {
gtzintzarov3 0:851248a56628 595 if (! sendCheckReply("AT+CNTPCID=1", "OK"))
gtzintzarov3 0:851248a56628 596 return false;
gtzintzarov3 0:851248a56628 597
gtzintzarov3 0:851248a56628 598 mySerial.printf("AT+CNTP=\"");
gtzintzarov3 0:851248a56628 599 if (ntpserver != 0) {
gtzintzarov3 0:851248a56628 600 mySerial.printf(ntpserver);
gtzintzarov3 0:851248a56628 601 } else {
gtzintzarov3 0:851248a56628 602 mySerial.printf("pool.ntp.org");
gtzintzarov3 0:851248a56628 603 }
gtzintzarov3 0:851248a56628 604 mySerial.printf("\",0\r\n");
gtzintzarov3 0:851248a56628 605 readline(FONA_DEFAULT_TIMEOUT_MS);
gtzintzarov3 0:851248a56628 606 if (strcmp(replybuffer, "OK") != 0)
gtzintzarov3 0:851248a56628 607 return false;
gtzintzarov3 0:851248a56628 608
gtzintzarov3 0:851248a56628 609 if (! sendCheckReply("AT+CNTP", "OK", 10000))
gtzintzarov3 0:851248a56628 610 return false;
gtzintzarov3 0:851248a56628 611
gtzintzarov3 0:851248a56628 612 uint16_t status;
gtzintzarov3 0:851248a56628 613 readline(10000);
gtzintzarov3 0:851248a56628 614 if (! parseReply("+CNTP:", &status))
gtzintzarov3 0:851248a56628 615 return false;
gtzintzarov3 0:851248a56628 616 } else {
gtzintzarov3 0:851248a56628 617 if (! sendCheckReply("AT+CNTPCID=0", "OK"))
gtzintzarov3 0:851248a56628 618 return false;
gtzintzarov3 0:851248a56628 619 }
gtzintzarov3 0:851248a56628 620
gtzintzarov3 0:851248a56628 621 return true;
gtzintzarov3 0:851248a56628 622 }
gtzintzarov3 0:851248a56628 623
gtzintzarov3 0:851248a56628 624 bool Adafruit_FONA::getTime(char* buff, uint16_t maxlen) {
gtzintzarov3 0:851248a56628 625 getReply("AT+CCLK?", (uint16_t) 10000);
gtzintzarov3 0:851248a56628 626 if (strncmp(replybuffer, "+CCLK: ", 7) != 0)
gtzintzarov3 0:851248a56628 627 return false;
gtzintzarov3 0:851248a56628 628
gtzintzarov3 0:851248a56628 629 char *p = replybuffer+7;
gtzintzarov3 0:851248a56628 630 uint16_t lentocopy = min((uint16_t)(maxlen-1), (uint16_t)strlen(p));
gtzintzarov3 0:851248a56628 631 strncpy(buff, p, lentocopy+1);
gtzintzarov3 0:851248a56628 632 buff[lentocopy] = 0;
gtzintzarov3 0:851248a56628 633
gtzintzarov3 0:851248a56628 634 readline(); // eat OK
gtzintzarov3 0:851248a56628 635
gtzintzarov3 0:851248a56628 636 return true;
gtzintzarov3 0:851248a56628 637 }
gtzintzarov3 0:851248a56628 638
gtzintzarov3 0:851248a56628 639 /********* GPS **********************************************************/
gtzintzarov3 0:851248a56628 640
gtzintzarov3 0:851248a56628 641
gtzintzarov3 0:851248a56628 642 bool Adafruit_FONA::enableGPS(bool onoff) {
gtzintzarov3 0:851248a56628 643 uint16_t state;
gtzintzarov3 0:851248a56628 644
gtzintzarov3 0:851248a56628 645 // first check if its already on or off
gtzintzarov3 0:851248a56628 646 if (! sendParseReply("AT+CGPSPWR?", "+CGPSPWR: ", &state) )
gtzintzarov3 0:851248a56628 647 return false;
gtzintzarov3 0:851248a56628 648
gtzintzarov3 0:851248a56628 649 if (onoff && !state) {
gtzintzarov3 0:851248a56628 650 if (! sendCheckReply("AT+CGPSPWR=1", "OK"))
gtzintzarov3 0:851248a56628 651 return false;
gtzintzarov3 0:851248a56628 652 } else if (!onoff && state) {
gtzintzarov3 0:851248a56628 653 if (! sendCheckReply("AT+CGPSPWR=0", "OK"))
gtzintzarov3 0:851248a56628 654 return false;
gtzintzarov3 0:851248a56628 655 }
gtzintzarov3 0:851248a56628 656 return true;
gtzintzarov3 0:851248a56628 657 }
gtzintzarov3 0:851248a56628 658
gtzintzarov3 0:851248a56628 659 int8_t Adafruit_FONA::GPSstatus(void) {
gtzintzarov3 0:851248a56628 660 getReply("AT+CGPSSTATUS?");
gtzintzarov3 0:851248a56628 661
gtzintzarov3 0:851248a56628 662 char *p = strstr(replybuffer, "+CGPSSTATUS: Location ");
gtzintzarov3 0:851248a56628 663 if (p == 0) return -1;
gtzintzarov3 0:851248a56628 664
gtzintzarov3 0:851248a56628 665 p+=22;
gtzintzarov3 0:851248a56628 666
gtzintzarov3 0:851248a56628 667 readline(); // eat 'OK'
gtzintzarov3 0:851248a56628 668
gtzintzarov3 0:851248a56628 669
gtzintzarov3 0:851248a56628 670 if (p[0] == 'U') return 0;
gtzintzarov3 0:851248a56628 671 if (p[0] == 'N') return 1;
gtzintzarov3 0:851248a56628 672 if (p[0] == '2') return 2;
gtzintzarov3 0:851248a56628 673 if (p[0] == '3') return 3;
gtzintzarov3 0:851248a56628 674
gtzintzarov3 0:851248a56628 675 // else
gtzintzarov3 0:851248a56628 676 return 0;
gtzintzarov3 0:851248a56628 677 }
gtzintzarov3 0:851248a56628 678
gtzintzarov3 0:851248a56628 679 uint8_t Adafruit_FONA::getGPS(uint8_t arg, char *buffer, uint8_t maxbuff) {
gtzintzarov3 0:851248a56628 680 int32_t x = arg;
gtzintzarov3 0:851248a56628 681
gtzintzarov3 0:851248a56628 682 getReply("AT+CGPSINF=", x);
gtzintzarov3 0:851248a56628 683
gtzintzarov3 0:851248a56628 684 char *p = strstr(replybuffer, "CGPSINF: ");
gtzintzarov3 0:851248a56628 685 if (p == 0){
gtzintzarov3 0:851248a56628 686 buffer[0] = 0;
gtzintzarov3 0:851248a56628 687 return 0;
gtzintzarov3 0:851248a56628 688 }
gtzintzarov3 0:851248a56628 689 p+=9;
gtzintzarov3 0:851248a56628 690 uint8_t len = max((uint8_t)(maxbuff-1), (uint8_t)strlen(p));
gtzintzarov3 0:851248a56628 691 strncpy(buffer, p, len);
gtzintzarov3 0:851248a56628 692 buffer[len] = 0;
gtzintzarov3 0:851248a56628 693
gtzintzarov3 0:851248a56628 694 readline(); // eat 'OK'
gtzintzarov3 0:851248a56628 695 return len;
gtzintzarov3 0:851248a56628 696 }
gtzintzarov3 0:851248a56628 697
gtzintzarov3 0:851248a56628 698 bool Adafruit_FONA::getGPS(float *lat, float *lon, float *speed_kph, float *heading, float *altitude) {
gtzintzarov3 0:851248a56628 699 char gpsbuffer[120];
gtzintzarov3 0:851248a56628 700
gtzintzarov3 0:851248a56628 701 // we need at least a 2D fix
gtzintzarov3 0:851248a56628 702 if (GPSstatus() < 2)
gtzintzarov3 0:851248a56628 703 return false;
gtzintzarov3 0:851248a56628 704
gtzintzarov3 0:851248a56628 705 // grab the mode 2^5 gps csv from the sim808
gtzintzarov3 0:851248a56628 706 uint8_t res_len = getGPS(32, gpsbuffer, 120);
gtzintzarov3 0:851248a56628 707
gtzintzarov3 0:851248a56628 708 // make sure we have a response
gtzintzarov3 0:851248a56628 709 if (res_len == 0)
gtzintzarov3 0:851248a56628 710 return false;
gtzintzarov3 0:851248a56628 711
gtzintzarov3 0:851248a56628 712 // skip mode
gtzintzarov3 0:851248a56628 713 char *tok = strtok(gpsbuffer, ",");
gtzintzarov3 0:851248a56628 714 if (! tok) return false;
gtzintzarov3 0:851248a56628 715
gtzintzarov3 0:851248a56628 716 // skip date
gtzintzarov3 0:851248a56628 717 tok = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 718 if (! tok) return false;
gtzintzarov3 0:851248a56628 719
gtzintzarov3 0:851248a56628 720 // skip fix
gtzintzarov3 0:851248a56628 721 tok = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 722 if (! tok) return false;
gtzintzarov3 0:851248a56628 723
gtzintzarov3 0:851248a56628 724 // grab the latitude
gtzintzarov3 0:851248a56628 725 char *latp = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 726 if (! latp) return false;
gtzintzarov3 0:851248a56628 727
gtzintzarov3 0:851248a56628 728 // grab latitude direction
gtzintzarov3 0:851248a56628 729 char *latdir = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 730 if (! latdir) return false;
gtzintzarov3 0:851248a56628 731
gtzintzarov3 0:851248a56628 732 // grab longitude
gtzintzarov3 0:851248a56628 733 char *longp = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 734 if (! longp) return false;
gtzintzarov3 0:851248a56628 735
gtzintzarov3 0:851248a56628 736 // grab longitude direction
gtzintzarov3 0:851248a56628 737 char *longdir = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 738 if (! longdir) return false;
gtzintzarov3 0:851248a56628 739
gtzintzarov3 0:851248a56628 740 double latitude = atof(latp);
gtzintzarov3 0:851248a56628 741 double longitude = atof(longp);
gtzintzarov3 0:851248a56628 742
gtzintzarov3 0:851248a56628 743 // convert latitude from minutes to decimal
gtzintzarov3 0:851248a56628 744 float degrees = floor(latitude / 100);
gtzintzarov3 0:851248a56628 745 double minutes = latitude - (100 * degrees);
gtzintzarov3 0:851248a56628 746 minutes /= 60;
gtzintzarov3 0:851248a56628 747 degrees += minutes;
gtzintzarov3 0:851248a56628 748
gtzintzarov3 0:851248a56628 749 // turn direction into + or -
gtzintzarov3 0:851248a56628 750 if (latdir[0] == 'S') degrees *= -1;
gtzintzarov3 0:851248a56628 751
gtzintzarov3 0:851248a56628 752 *lat = degrees;
gtzintzarov3 0:851248a56628 753
gtzintzarov3 0:851248a56628 754 // convert longitude from minutes to decimal
gtzintzarov3 0:851248a56628 755 degrees = floor(longitude / 100);
gtzintzarov3 0:851248a56628 756 minutes = longitude - (100 * degrees);
gtzintzarov3 0:851248a56628 757 minutes /= 60;
gtzintzarov3 0:851248a56628 758 degrees += minutes;
gtzintzarov3 0:851248a56628 759
gtzintzarov3 0:851248a56628 760 // turn direction into + or -
gtzintzarov3 0:851248a56628 761 if (longdir[0] == 'W') degrees *= -1;
gtzintzarov3 0:851248a56628 762
gtzintzarov3 0:851248a56628 763 *lon = degrees;
gtzintzarov3 0:851248a56628 764
gtzintzarov3 0:851248a56628 765 // only grab speed if needed
gtzintzarov3 0:851248a56628 766 if (speed_kph != NULL) {
gtzintzarov3 0:851248a56628 767
gtzintzarov3 0:851248a56628 768 // grab the speed in knots
gtzintzarov3 0:851248a56628 769 char *speedp = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 770 if (! speedp) return false;
gtzintzarov3 0:851248a56628 771
gtzintzarov3 0:851248a56628 772 // convert to kph
gtzintzarov3 0:851248a56628 773 *speed_kph = atof(speedp) * 1.852;
gtzintzarov3 0:851248a56628 774
gtzintzarov3 0:851248a56628 775 }
gtzintzarov3 0:851248a56628 776
gtzintzarov3 0:851248a56628 777 // only grab heading if needed
gtzintzarov3 0:851248a56628 778 if (heading != NULL) {
gtzintzarov3 0:851248a56628 779
gtzintzarov3 0:851248a56628 780 // grab the speed in knots
gtzintzarov3 0:851248a56628 781 char *coursep = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 782 if (! coursep) return false;
gtzintzarov3 0:851248a56628 783
gtzintzarov3 0:851248a56628 784 *heading = atof(coursep);
gtzintzarov3 0:851248a56628 785
gtzintzarov3 0:851248a56628 786 }
gtzintzarov3 0:851248a56628 787
gtzintzarov3 0:851248a56628 788 // no need to continue
gtzintzarov3 0:851248a56628 789 if (altitude == NULL)
gtzintzarov3 0:851248a56628 790 return true;
gtzintzarov3 0:851248a56628 791
gtzintzarov3 0:851248a56628 792 // we need at least a 3D fix for altitude
gtzintzarov3 0:851248a56628 793 if (GPSstatus() < 3)
gtzintzarov3 0:851248a56628 794 return false;
gtzintzarov3 0:851248a56628 795
gtzintzarov3 0:851248a56628 796 // grab the mode 0 gps csv from the sim808
gtzintzarov3 0:851248a56628 797 res_len = getGPS(0, gpsbuffer, 120);
gtzintzarov3 0:851248a56628 798
gtzintzarov3 0:851248a56628 799 // make sure we have a response
gtzintzarov3 0:851248a56628 800 if (res_len == 0)
gtzintzarov3 0:851248a56628 801 return false;
gtzintzarov3 0:851248a56628 802
gtzintzarov3 0:851248a56628 803 // skip mode
gtzintzarov3 0:851248a56628 804 tok = strtok(gpsbuffer, ",");
gtzintzarov3 0:851248a56628 805 if (! tok) return false;
gtzintzarov3 0:851248a56628 806
gtzintzarov3 0:851248a56628 807 // skip lat
gtzintzarov3 0:851248a56628 808 tok = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 809 if (! tok) return false;
gtzintzarov3 0:851248a56628 810
gtzintzarov3 0:851248a56628 811 // skip long
gtzintzarov3 0:851248a56628 812 tok = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 813 if (! tok) return false;
gtzintzarov3 0:851248a56628 814
gtzintzarov3 0:851248a56628 815 // grab altitude
gtzintzarov3 0:851248a56628 816 char *altp = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 817 if (! altp) return false;
gtzintzarov3 0:851248a56628 818
gtzintzarov3 0:851248a56628 819 *altitude = atof(altp);
gtzintzarov3 0:851248a56628 820
gtzintzarov3 0:851248a56628 821 return true;
gtzintzarov3 0:851248a56628 822 }
gtzintzarov3 0:851248a56628 823
gtzintzarov3 0:851248a56628 824 bool Adafruit_FONA::enableGPSNMEA(uint8_t i) {
gtzintzarov3 0:851248a56628 825 char sendbuff[15] = "AT+CGPSOUT=000";
gtzintzarov3 0:851248a56628 826 sendbuff[11] = (i / 100) + '0';
gtzintzarov3 0:851248a56628 827 i %= 100;
gtzintzarov3 0:851248a56628 828 sendbuff[12] = (i / 10) + '0';
gtzintzarov3 0:851248a56628 829 i %= 10;
gtzintzarov3 0:851248a56628 830 sendbuff[13] = i + '0';
gtzintzarov3 0:851248a56628 831
gtzintzarov3 0:851248a56628 832 return sendCheckReply(sendbuff, "OK", 2000);
gtzintzarov3 0:851248a56628 833 }
gtzintzarov3 0:851248a56628 834
gtzintzarov3 0:851248a56628 835
gtzintzarov3 0:851248a56628 836 /********* GPRS **********************************************************/
michaelVisimid 18:d52017f1d087 837 #define CIPSHUT_DELAY (uint16_t)65000
michaelVisimid 18:d52017f1d087 838 #define CGATT_DELAY (uint16_t)10000
michaelVisimid 18:d52017f1d087 839 #define SAPBR_DELAY (uint16_t)85000
michaelVisimid 18:d52017f1d087 840 #define CIICR_DELAY (uint16_t)85000
gtzintzarov3 0:851248a56628 841
gtzintzarov3 0:851248a56628 842
gtzintzarov3 0:851248a56628 843 bool Adafruit_FONA::enableGPRS(bool onoff) {
gtzintzarov3 0:851248a56628 844 if (onoff) {
gtzintzarov3 0:851248a56628 845 // disconnect all sockets
michaelVisimid 18:d52017f1d087 846 sendCheckReply("AT+CIPSHUT", "SHUT OK", CIPSHUT_DELAY);
gtzintzarov3 0:851248a56628 847
michaelVisimid 18:d52017f1d087 848 if (! sendCheckReply("AT+CGATT=1", "OK", CGATT_DELAY))
gtzintzarov3 0:851248a56628 849 return false;
gtzintzarov3 0:851248a56628 850
gtzintzarov3 0:851248a56628 851 // set bearer profile! connection type GPRS
michaelVisimid 18:d52017f1d087 852 if (! sendCheckReply("AT+SAPBR=3,1,\"CONTYPE\",\"GPRS\"", "OK", SAPBR_DELAY))
gtzintzarov3 0:851248a56628 853 return false;
gtzintzarov3 0:851248a56628 854
gtzintzarov3 0:851248a56628 855 // set bearer profile access point name
gtzintzarov3 0:851248a56628 856 if (apn) {
gtzintzarov3 0:851248a56628 857 // Send command AT+SAPBR=3,1,"APN","<apn value>" where <apn value> is the configured APN value.
michaelVisimid 18:d52017f1d087 858 if (! sendCheckReplyQuoted("AT+SAPBR=3,1,\"APN\",", apn, "OK", SAPBR_DELAY))
gtzintzarov3 0:851248a56628 859 return false;
gtzintzarov3 0:851248a56628 860
michaelVisimid 18:d52017f1d087 861 flushInput();
michaelVisimid 18:d52017f1d087 862
michaelVisimid 18:d52017f1d087 863 mySerial.printf("AT+CSTT=\"");
michaelVisimid 18:d52017f1d087 864 mySerial.printf(apn);
michaelVisimid 18:d52017f1d087 865 if (apnusername) {
michaelVisimid 18:d52017f1d087 866 mySerial.printf("\",\"");
michaelVisimid 18:d52017f1d087 867 mySerial.printf(apnusername);
michaelVisimid 18:d52017f1d087 868 }
michaelVisimid 18:d52017f1d087 869 if (apnpassword) {
michaelVisimid 18:d52017f1d087 870 mySerial.printf("\",\"");
michaelVisimid 18:d52017f1d087 871 mySerial.printf(apnpassword);
michaelVisimid 18:d52017f1d087 872 }
michaelVisimid 18:d52017f1d087 873 mySerial.printf("\"");
michaelVisimid 18:d52017f1d087 874 mySerial.printf("\r\n");
michaelVisimid 18:d52017f1d087 875
michaelVisimid 18:d52017f1d087 876
michaelVisimid 18:d52017f1d087 877
michaelVisimid 18:d52017f1d087 878 if (! expectReply("OK")) return false;
michaelVisimid 18:d52017f1d087 879
gtzintzarov3 0:851248a56628 880 // set username/password
gtzintzarov3 0:851248a56628 881 if (apnusername) {
gtzintzarov3 0:851248a56628 882 // Send command AT+SAPBR=3,1,"USER","<user>" where <user> is the configured APN username.
michaelVisimid 18:d52017f1d087 883 if (! sendCheckReplyQuoted("AT+SAPBR=3,1,\"USER\",", apnusername, "OK", SAPBR_DELAY))
gtzintzarov3 0:851248a56628 884 return false;
gtzintzarov3 0:851248a56628 885 }
gtzintzarov3 0:851248a56628 886 if (apnpassword) {
gtzintzarov3 0:851248a56628 887 // Send command AT+SAPBR=3,1,"PWD","<password>" where <password> is the configured APN password.
michaelVisimid 18:d52017f1d087 888 if (! sendCheckReplyQuoted("AT+SAPBR=3,1,\"PWD\",", apnpassword, "OK", SAPBR_DELAY))
gtzintzarov3 0:851248a56628 889 return false;
gtzintzarov3 0:851248a56628 890 }
gtzintzarov3 0:851248a56628 891 }
gtzintzarov3 0:851248a56628 892
gtzintzarov3 0:851248a56628 893 // open GPRS context
michaelVisimid 18:d52017f1d087 894 if (! sendCheckReply("AT+SAPBR=1,1", "OK", SAPBR_DELAY))
gtzintzarov3 0:851248a56628 895 return false;
michaelVisimid 18:d52017f1d087 896
michaelVisimid 18:d52017f1d087 897 if (! sendCheckReply("AT+CIICR", "OK", CIICR_DELAY))
michaelVisimid 18:d52017f1d087 898 return false;
michaelVisimid 18:d52017f1d087 899
gtzintzarov3 0:851248a56628 900 } else {
gtzintzarov3 0:851248a56628 901 // disconnect all sockets
michaelVisimid 18:d52017f1d087 902 if (! sendCheckReply("AT+CIPSHUT", "SHUT OK", CIPSHUT_DELAY))
gtzintzarov3 0:851248a56628 903 return false;
gtzintzarov3 0:851248a56628 904
gtzintzarov3 0:851248a56628 905 // close GPRS context
michaelVisimid 18:d52017f1d087 906 if (! sendCheckReply("AT+SAPBR=0,1", "OK", SAPBR_DELAY))
gtzintzarov3 0:851248a56628 907 return false;
gtzintzarov3 0:851248a56628 908
michaelVisimid 18:d52017f1d087 909 if (! sendCheckReply("AT+CGATT=0", "OK", CGATT_DELAY))
gtzintzarov3 0:851248a56628 910 return false;
gtzintzarov3 0:851248a56628 911 }
gtzintzarov3 0:851248a56628 912 return true;
gtzintzarov3 0:851248a56628 913 }
gtzintzarov3 0:851248a56628 914
gtzintzarov3 0:851248a56628 915 uint8_t Adafruit_FONA::GPRSstate(void) {
gtzintzarov3 0:851248a56628 916 uint16_t state;
gtzintzarov3 0:851248a56628 917
gtzintzarov3 0:851248a56628 918 if (! sendParseReply("AT+CGATT?", "+CGATT: ", &state) )
michaelVisimid 18:d52017f1d087 919 return 0xFF;
gtzintzarov3 0:851248a56628 920
gtzintzarov3 0:851248a56628 921 return state;
gtzintzarov3 0:851248a56628 922 }
gtzintzarov3 0:851248a56628 923
gtzintzarov3 0:851248a56628 924 void Adafruit_FONA::setGPRSNetworkSettings(const char* apn, const char* ausername, const char* apassword) {
gtzintzarov3 0:851248a56628 925 this->apn = (char*) apn;
gtzintzarov3 0:851248a56628 926 this->apnusername = (char*) ausername;
gtzintzarov3 0:851248a56628 927 this->apnpassword = (char*) apassword;
gtzintzarov3 0:851248a56628 928 }
gtzintzarov3 0:851248a56628 929
gtzintzarov3 0:851248a56628 930 bool Adafruit_FONA::getGSMLoc(uint16_t *errorcode, char *buff, uint16_t maxlen) {
michaelVisimid 18:d52017f1d087 931 getReply("AT+CIPGSMLOC=1,1", CIPGSMLOC_DELAY);
gtzintzarov3 0:851248a56628 932
gtzintzarov3 0:851248a56628 933 if (! parseReply("+CIPGSMLOC: ", errorcode))
gtzintzarov3 0:851248a56628 934 return false;
gtzintzarov3 0:851248a56628 935
gtzintzarov3 0:851248a56628 936 char *p = replybuffer+14;
gtzintzarov3 0:851248a56628 937 uint16_t lentocopy = min((uint16_t)(maxlen-1), (uint16_t)strlen(p));
gtzintzarov3 0:851248a56628 938 strncpy(buff, p, lentocopy+1);
gtzintzarov3 0:851248a56628 939
gtzintzarov3 0:851248a56628 940 readline(); // eat OK
gtzintzarov3 0:851248a56628 941
gtzintzarov3 0:851248a56628 942 return true;
gtzintzarov3 0:851248a56628 943 }
gtzintzarov3 0:851248a56628 944
gtzintzarov3 0:851248a56628 945 bool Adafruit_FONA::getGSMLoc(float *lat, float *lon) {
gtzintzarov3 0:851248a56628 946 uint16_t returncode;
gtzintzarov3 0:851248a56628 947 char gpsbuffer[120];
gtzintzarov3 0:851248a56628 948
gtzintzarov3 0:851248a56628 949 // make sure we could get a response
gtzintzarov3 0:851248a56628 950 if (! getGSMLoc(&returncode, gpsbuffer, 120))
gtzintzarov3 0:851248a56628 951 return false;
gtzintzarov3 0:851248a56628 952
gtzintzarov3 0:851248a56628 953 // make sure we have a valid return code
gtzintzarov3 0:851248a56628 954 if (returncode != 0)
gtzintzarov3 0:851248a56628 955 return false;
gtzintzarov3 0:851248a56628 956
gtzintzarov3 0:851248a56628 957 // tokenize the gps buffer to locate the lat & long
gtzintzarov3 0:851248a56628 958 char *latp = strtok(gpsbuffer, ",");
gtzintzarov3 0:851248a56628 959 if (! latp) return false;
gtzintzarov3 0:851248a56628 960
gtzintzarov3 0:851248a56628 961 char *longp = strtok(NULL, ",");
gtzintzarov3 0:851248a56628 962 if (! longp) return false;
gtzintzarov3 0:851248a56628 963
gtzintzarov3 0:851248a56628 964 *lat = atof(latp);
gtzintzarov3 0:851248a56628 965 *lon = atof(longp);
gtzintzarov3 0:851248a56628 966
gtzintzarov3 0:851248a56628 967 return true;
gtzintzarov3 0:851248a56628 968 }
gtzintzarov3 0:851248a56628 969
gtzintzarov3 0:851248a56628 970 /********* TCP FUNCTIONS ************************************/
gtzintzarov3 0:851248a56628 971
gtzintzarov3 0:851248a56628 972
gtzintzarov3 0:851248a56628 973 bool Adafruit_FONA::TCPconnect(char *server, uint16_t port) {
gtzintzarov3 0:851248a56628 974 flushInput();
gtzintzarov3 0:851248a56628 975
gtzintzarov3 0:851248a56628 976 // close all old connections
michaelVisimid 18:d52017f1d087 977 if (! sendCheckReply("AT+CIPSHUT", "SHUT OK", CIPSHUT_DELAY) ) return false;
gtzintzarov3 0:851248a56628 978
gtzintzarov3 0:851248a56628 979 // single connection at a time
michaelVisimid 18:d52017f1d087 980 if (! sendCheckReply("AT+CIPMUX=0", "OK",CPIMUX_DELAY) ) return false;
gtzintzarov3 0:851248a56628 981
gtzintzarov3 0:851248a56628 982 // manually read data
gtzintzarov3 0:851248a56628 983 if (! sendCheckReply("AT+CIPRXGET=1", "OK") ) return false;
gtzintzarov3 0:851248a56628 984
gtzintzarov3 0:851248a56628 985 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 986 printf("AT+CIPSTART=\"TCP\",\"%s\",\"%d\"\r\n", server, port);
gtzintzarov3 0:851248a56628 987 #endif
gtzintzarov3 0:851248a56628 988
gtzintzarov3 0:851248a56628 989 mySerial.printf("AT+CIPSTART=\"TCP\",\"%s\",\"%d\"\r\n", server, port);
gtzintzarov3 0:851248a56628 990
gtzintzarov3 0:851248a56628 991 if (! expectReply("OK")) return false;
gtzintzarov3 0:851248a56628 992 if (! expectReply("CONNECT OK")) return false;
gtzintzarov3 0:851248a56628 993 return true;
gtzintzarov3 0:851248a56628 994 }
gtzintzarov3 0:851248a56628 995
gtzintzarov3 0:851248a56628 996 bool Adafruit_FONA::TCPclose(void) {
gtzintzarov3 0:851248a56628 997 return sendCheckReply("AT+CIPCLOSE", "OK");
gtzintzarov3 0:851248a56628 998 }
gtzintzarov3 0:851248a56628 999
gtzintzarov3 0:851248a56628 1000 bool Adafruit_FONA::TCPconnected(void) {
michaelVisimid 18:d52017f1d087 1001 if (! sendCheckReply("AT+CIPSTATUS", "OK") ) return false;
gtzintzarov3 0:851248a56628 1002 readline(100);
gtzintzarov3 0:851248a56628 1003 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1004 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1005 #endif
gtzintzarov3 0:851248a56628 1006 return (strcmp(replybuffer, "STATE: CONNECT OK") == 0);
gtzintzarov3 0:851248a56628 1007 }
gtzintzarov3 0:851248a56628 1008
gtzintzarov3 0:851248a56628 1009 bool Adafruit_FONA::TCPsend(char *packet, uint8_t len) {
gtzintzarov3 0:851248a56628 1010 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1011 printf("AT+CIPSEND=%d\r\n", len);
gtzintzarov3 0:851248a56628 1012
gtzintzarov3 0:851248a56628 1013 for (uint16_t i=0; i<len; i++) {
gtzintzarov3 0:851248a56628 1014 printf(" 0x%#02x", packet[i]);
gtzintzarov3 0:851248a56628 1015 }
gtzintzarov3 0:851248a56628 1016 printf("\r\n");
gtzintzarov3 0:851248a56628 1017 #endif
gtzintzarov3 0:851248a56628 1018
gtzintzarov3 0:851248a56628 1019
gtzintzarov3 0:851248a56628 1020 mySerial.printf("AT+CIPSEND=%d\r\n", len);
gtzintzarov3 0:851248a56628 1021 readline();
gtzintzarov3 0:851248a56628 1022 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1023 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1024 #endif
gtzintzarov3 0:851248a56628 1025 if (replybuffer[0] != '>') return false;
gtzintzarov3 0:851248a56628 1026
gtzintzarov3 0:851248a56628 1027 for (uint16_t i=0; i<len; i++) {
gtzintzarov3 0:851248a56628 1028 mySerial.putc(packet[i]);
gtzintzarov3 0:851248a56628 1029 }
gtzintzarov3 0:851248a56628 1030 readline(3000); // wait up to 3 seconds to send the data
gtzintzarov3 0:851248a56628 1031 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1032 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1033 #endif
gtzintzarov3 0:851248a56628 1034
gtzintzarov3 0:851248a56628 1035 return (strcmp(replybuffer, "SEND OK") == 0);
gtzintzarov3 0:851248a56628 1036 }
gtzintzarov3 0:851248a56628 1037
gtzintzarov3 0:851248a56628 1038 uint16_t Adafruit_FONA::TCPavailable(void) {
gtzintzarov3 0:851248a56628 1039 uint16_t avail;
gtzintzarov3 0:851248a56628 1040
gtzintzarov3 0:851248a56628 1041 if (! sendParseReply("AT+CIPRXGET=4", "+CIPRXGET: 4,", &avail, ',', 0) ) return false;
gtzintzarov3 0:851248a56628 1042
gtzintzarov3 0:851248a56628 1043 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1044 printf("%d bytes available\r\n", avail);
gtzintzarov3 0:851248a56628 1045 #endif
gtzintzarov3 0:851248a56628 1046
gtzintzarov3 0:851248a56628 1047 return avail;
gtzintzarov3 0:851248a56628 1048 }
gtzintzarov3 0:851248a56628 1049
gtzintzarov3 0:851248a56628 1050
gtzintzarov3 0:851248a56628 1051 uint16_t Adafruit_FONA::TCPread(uint8_t *buff, uint8_t len) {
gtzintzarov3 0:851248a56628 1052 uint16_t avail;
gtzintzarov3 0:851248a56628 1053
gtzintzarov3 0:851248a56628 1054 mySerial.printf("AT+CIPRXGET=2,%d\r\n", len);
gtzintzarov3 0:851248a56628 1055 readline();
gtzintzarov3 0:851248a56628 1056 if (! parseReply("+CIPRXGET: 2,", &avail, ',', 0)) return false;
gtzintzarov3 0:851248a56628 1057
gtzintzarov3 0:851248a56628 1058 readRaw(avail);
gtzintzarov3 0:851248a56628 1059
gtzintzarov3 0:851248a56628 1060 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1061 printf("%d bytes read\r\n", avail);
gtzintzarov3 0:851248a56628 1062 for (uint8_t i=0;i<avail;i++) {
gtzintzarov3 0:851248a56628 1063 printf(" 0x%#02x", replybuffer[i]);
gtzintzarov3 0:851248a56628 1064 }
gtzintzarov3 0:851248a56628 1065 printf("\r\n");
gtzintzarov3 0:851248a56628 1066 #endif
gtzintzarov3 0:851248a56628 1067
gtzintzarov3 0:851248a56628 1068 memcpy(buff, replybuffer, avail);
gtzintzarov3 0:851248a56628 1069
gtzintzarov3 0:851248a56628 1070 return avail;
gtzintzarov3 0:851248a56628 1071 }
gtzintzarov3 0:851248a56628 1072
gtzintzarov3 0:851248a56628 1073 /********* HTTP LOW LEVEL FUNCTIONS ************************************/
gtzintzarov3 0:851248a56628 1074
gtzintzarov3 0:851248a56628 1075 bool Adafruit_FONA::HTTP_init() {
gtzintzarov3 0:851248a56628 1076 return sendCheckReply("AT+HTTPINIT", "OK");
gtzintzarov3 0:851248a56628 1077 }
gtzintzarov3 0:851248a56628 1078
gtzintzarov3 0:851248a56628 1079 bool Adafruit_FONA::HTTP_term() {
gtzintzarov3 0:851248a56628 1080 return sendCheckReply("AT+HTTPTERM", "OK");
gtzintzarov3 0:851248a56628 1081 }
gtzintzarov3 0:851248a56628 1082
gtzintzarov3 0:851248a56628 1083 void Adafruit_FONA::HTTP_para_start(const char* parameter, bool quoted) {
gtzintzarov3 0:851248a56628 1084 flushInput();
gtzintzarov3 0:851248a56628 1085
gtzintzarov3 0:851248a56628 1086 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1087 printf("\t---> AT+HTTPPARA=\"%s\"\r\n", parameter);
gtzintzarov3 0:851248a56628 1088 #endif
gtzintzarov3 0:851248a56628 1089
gtzintzarov3 0:851248a56628 1090 mySerial.printf("AT+HTTPPARA=\"%s", parameter);
gtzintzarov3 0:851248a56628 1091 if (quoted)
gtzintzarov3 0:851248a56628 1092 mySerial.printf("\",\"");
gtzintzarov3 0:851248a56628 1093 else
gtzintzarov3 0:851248a56628 1094 mySerial.printf("\",");
gtzintzarov3 0:851248a56628 1095 }
gtzintzarov3 0:851248a56628 1096
gtzintzarov3 0:851248a56628 1097 bool Adafruit_FONA::HTTP_para_end(bool quoted) {
gtzintzarov3 0:851248a56628 1098 if (quoted)
gtzintzarov3 0:851248a56628 1099 mySerial.printf("\"\r\n");
gtzintzarov3 0:851248a56628 1100 else
gtzintzarov3 0:851248a56628 1101 mySerial.printf("\r\n");
gtzintzarov3 0:851248a56628 1102
gtzintzarov3 0:851248a56628 1103 return expectReply("OK");
gtzintzarov3 0:851248a56628 1104 }
gtzintzarov3 0:851248a56628 1105
gtzintzarov3 0:851248a56628 1106 bool Adafruit_FONA::HTTP_para(const char* parameter, const char* value) {
gtzintzarov3 0:851248a56628 1107 HTTP_para_start(parameter, true);
gtzintzarov3 0:851248a56628 1108 mySerial.printf(value);
gtzintzarov3 0:851248a56628 1109 return HTTP_para_end(true);
gtzintzarov3 0:851248a56628 1110 }
gtzintzarov3 0:851248a56628 1111
gtzintzarov3 0:851248a56628 1112 bool Adafruit_FONA::HTTP_para(const char* parameter, int32_t value) {
gtzintzarov3 0:851248a56628 1113 HTTP_para_start(parameter, false);
gtzintzarov3 0:851248a56628 1114 mySerial.printf("%d", value);
gtzintzarov3 0:851248a56628 1115 return HTTP_para_end(false);
gtzintzarov3 0:851248a56628 1116 }
gtzintzarov3 0:851248a56628 1117
gtzintzarov3 0:851248a56628 1118 bool Adafruit_FONA::HTTP_data(uint32_t size, uint32_t maxTime) {
gtzintzarov3 0:851248a56628 1119 flushInput();
gtzintzarov3 0:851248a56628 1120
gtzintzarov3 0:851248a56628 1121 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1122 printf("\t---> AT+HTTPDATA=%d,%d\r\n", size, maxTime);
gtzintzarov3 0:851248a56628 1123 #endif
gtzintzarov3 0:851248a56628 1124
gtzintzarov3 0:851248a56628 1125 mySerial.printf("AT+HTTPDATA=%d,%d\r\n", size, maxTime);
gtzintzarov3 0:851248a56628 1126
gtzintzarov3 0:851248a56628 1127 return expectReply("DOWNLOAD");
gtzintzarov3 0:851248a56628 1128 }
gtzintzarov3 0:851248a56628 1129
gtzintzarov3 0:851248a56628 1130 bool Adafruit_FONA::HTTP_action(uint8_t method, uint16_t *status, uint16_t *datalen, int32_t timeout) {
gtzintzarov3 0:851248a56628 1131 // Send request.
gtzintzarov3 0:851248a56628 1132 if (! sendCheckReply("AT+HTTPACTION=", method, "OK"))
gtzintzarov3 0:851248a56628 1133 return false;
gtzintzarov3 0:851248a56628 1134
gtzintzarov3 0:851248a56628 1135 // Parse response status and size.
gtzintzarov3 0:851248a56628 1136 readline(timeout);
gtzintzarov3 0:851248a56628 1137 if (! parseReply("+HTTPACTION:", status, ',', 1))
gtzintzarov3 0:851248a56628 1138 return false;
gtzintzarov3 0:851248a56628 1139 if (! parseReply("+HTTPACTION:", datalen, ',', 2))
gtzintzarov3 0:851248a56628 1140 return false;
gtzintzarov3 0:851248a56628 1141
gtzintzarov3 0:851248a56628 1142 return true;
gtzintzarov3 0:851248a56628 1143 }
gtzintzarov3 0:851248a56628 1144
gtzintzarov3 0:851248a56628 1145 bool Adafruit_FONA::HTTP_readall(uint16_t *datalen) {
gtzintzarov3 0:851248a56628 1146 getReply("AT+HTTPREAD");
gtzintzarov3 0:851248a56628 1147 if (! parseReply("+HTTPREAD:", datalen, ',', 0))
gtzintzarov3 0:851248a56628 1148 return false;
gtzintzarov3 0:851248a56628 1149
gtzintzarov3 0:851248a56628 1150 return true;
gtzintzarov3 0:851248a56628 1151 }
gtzintzarov3 0:851248a56628 1152
gtzintzarov3 0:851248a56628 1153 bool Adafruit_FONA::HTTP_ssl(bool onoff) {
gtzintzarov3 0:851248a56628 1154 return sendCheckReply("AT+HTTPSSL=", onoff ? 1 : 0, "OK");
gtzintzarov3 0:851248a56628 1155 }
gtzintzarov3 0:851248a56628 1156
gtzintzarov3 0:851248a56628 1157 /********* HTTP HIGH LEVEL FUNCTIONS ***************************/
gtzintzarov3 0:851248a56628 1158
gtzintzarov3 0:851248a56628 1159 bool Adafruit_FONA::HTTP_GET_start(char *url, uint16_t *status, uint16_t *datalen){
gtzintzarov3 0:851248a56628 1160 if (! HTTP_setup(url))
gtzintzarov3 0:851248a56628 1161 return false;
gtzintzarov3 0:851248a56628 1162
gtzintzarov3 0:851248a56628 1163 // HTTP GET
gtzintzarov3 0:851248a56628 1164 if (! HTTP_action(FONA_HTTP_GET, status, datalen))
gtzintzarov3 0:851248a56628 1165 return false;
gtzintzarov3 0:851248a56628 1166
gtzintzarov3 0:851248a56628 1167 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1168 printf("Status: %d\r\n", *status);
gtzintzarov3 0:851248a56628 1169 printf("Len: %d\r\n", *datalen);
gtzintzarov3 0:851248a56628 1170 #endif
gtzintzarov3 0:851248a56628 1171
gtzintzarov3 0:851248a56628 1172 // HTTP response data
gtzintzarov3 0:851248a56628 1173 if (! HTTP_readall(datalen))
gtzintzarov3 0:851248a56628 1174 return false;
gtzintzarov3 0:851248a56628 1175
gtzintzarov3 0:851248a56628 1176 return true;
gtzintzarov3 0:851248a56628 1177 }
gtzintzarov3 0:851248a56628 1178
gtzintzarov3 0:851248a56628 1179 void Adafruit_FONA::HTTP_GET_end(void) {
gtzintzarov3 0:851248a56628 1180 HTTP_term();
gtzintzarov3 0:851248a56628 1181 }
gtzintzarov3 0:851248a56628 1182
gtzintzarov3 0:851248a56628 1183 bool Adafruit_FONA::HTTP_POST_start(char *url, const char* contenttype, const uint8_t *postdata, uint16_t postdatalen, uint16_t *status, uint16_t *datalen) {
gtzintzarov3 0:851248a56628 1184 if (! HTTP_setup(url))
gtzintzarov3 0:851248a56628 1185 return false;
gtzintzarov3 0:851248a56628 1186
gtzintzarov3 0:851248a56628 1187 if (! HTTP_para("CONTENT", contenttype)) {
gtzintzarov3 0:851248a56628 1188 return false;
gtzintzarov3 0:851248a56628 1189 }
gtzintzarov3 0:851248a56628 1190
gtzintzarov3 0:851248a56628 1191 // HTTP POST data
gtzintzarov3 0:851248a56628 1192 if (! HTTP_data(postdatalen, 10000))
gtzintzarov3 0:851248a56628 1193 return false;
gtzintzarov3 0:851248a56628 1194 for (uint16_t i = 0; i < postdatalen; i++) {
gtzintzarov3 0:851248a56628 1195 mySerial.putc(postdata[i]);
gtzintzarov3 0:851248a56628 1196 }
gtzintzarov3 0:851248a56628 1197 if (! expectReply("OK"))
gtzintzarov3 0:851248a56628 1198 return false;
gtzintzarov3 0:851248a56628 1199
gtzintzarov3 0:851248a56628 1200 // HTTP POST
gtzintzarov3 0:851248a56628 1201 if (! HTTP_action(FONA_HTTP_POST, status, datalen))
gtzintzarov3 0:851248a56628 1202 return false;
gtzintzarov3 0:851248a56628 1203
gtzintzarov3 0:851248a56628 1204 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1205 printf("Status: %d\r\n", *status);
gtzintzarov3 0:851248a56628 1206 printf("Len: %d\r\n", *datalen);
gtzintzarov3 0:851248a56628 1207 #endif
gtzintzarov3 0:851248a56628 1208
gtzintzarov3 0:851248a56628 1209 // HTTP response data
gtzintzarov3 0:851248a56628 1210 if (! HTTP_readall(datalen))
gtzintzarov3 0:851248a56628 1211 return false;
gtzintzarov3 0:851248a56628 1212
gtzintzarov3 0:851248a56628 1213 return true;
gtzintzarov3 0:851248a56628 1214 }
gtzintzarov3 0:851248a56628 1215
gtzintzarov3 0:851248a56628 1216 void Adafruit_FONA::HTTP_POST_end(void) {
gtzintzarov3 0:851248a56628 1217 HTTP_term();
gtzintzarov3 0:851248a56628 1218 }
gtzintzarov3 0:851248a56628 1219
gtzintzarov3 0:851248a56628 1220 void Adafruit_FONA::setUserAgent(const char* useragent) {
gtzintzarov3 0:851248a56628 1221 this->useragent = (char*) useragent;
gtzintzarov3 0:851248a56628 1222 }
gtzintzarov3 0:851248a56628 1223
gtzintzarov3 0:851248a56628 1224 void Adafruit_FONA::setHTTPSRedirect(bool onoff) {
gtzintzarov3 0:851248a56628 1225 httpsredirect = onoff;
gtzintzarov3 0:851248a56628 1226 }
gtzintzarov3 0:851248a56628 1227
gtzintzarov3 0:851248a56628 1228 /********* HTTP HELPERS ****************************************/
gtzintzarov3 0:851248a56628 1229
gtzintzarov3 0:851248a56628 1230 bool Adafruit_FONA::HTTP_setup(char *url) {
gtzintzarov3 0:851248a56628 1231 // Handle any pending
gtzintzarov3 0:851248a56628 1232 HTTP_term();
gtzintzarov3 0:851248a56628 1233
gtzintzarov3 0:851248a56628 1234 // Initialize and set parameters
gtzintzarov3 0:851248a56628 1235 if (! HTTP_init())
gtzintzarov3 0:851248a56628 1236 return false;
gtzintzarov3 0:851248a56628 1237 if (! HTTP_para("CID", 1))
gtzintzarov3 0:851248a56628 1238 return false;
gtzintzarov3 0:851248a56628 1239 if (! HTTP_para("UA", useragent))
gtzintzarov3 0:851248a56628 1240 return false;
gtzintzarov3 0:851248a56628 1241 if (! HTTP_para("URL", url))
gtzintzarov3 0:851248a56628 1242 return false;
gtzintzarov3 0:851248a56628 1243
gtzintzarov3 0:851248a56628 1244 // HTTPS redirect
gtzintzarov3 0:851248a56628 1245 if (httpsredirect) {
gtzintzarov3 0:851248a56628 1246 if (! HTTP_para("REDIR",1))
gtzintzarov3 0:851248a56628 1247 return false;
gtzintzarov3 0:851248a56628 1248
gtzintzarov3 0:851248a56628 1249 if (! HTTP_ssl(true))
gtzintzarov3 0:851248a56628 1250 return false;
gtzintzarov3 0:851248a56628 1251 }
gtzintzarov3 0:851248a56628 1252
gtzintzarov3 0:851248a56628 1253 return true;
gtzintzarov3 0:851248a56628 1254 }
gtzintzarov3 0:851248a56628 1255
gtzintzarov3 0:851248a56628 1256
gtzintzarov3 0:851248a56628 1257 /********* HELPERS *********************************************/
gtzintzarov3 0:851248a56628 1258
gtzintzarov3 0:851248a56628 1259 bool Adafruit_FONA::expectReply(const char* reply, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1260 readline(timeout);
gtzintzarov3 0:851248a56628 1261 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1262 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1263 #endif
gtzintzarov3 0:851248a56628 1264 return (strcmp(replybuffer, reply) == 0);
gtzintzarov3 0:851248a56628 1265 }
gtzintzarov3 0:851248a56628 1266
gtzintzarov3 0:851248a56628 1267 /********* LOW LEVEL *******************************************/
gtzintzarov3 0:851248a56628 1268
gtzintzarov3 0:851248a56628 1269 void Adafruit_FONA::flushInput() {
gtzintzarov3 0:851248a56628 1270 // Read all available serial input to flush pending data.
gtzintzarov3 0:851248a56628 1271 uint16_t timeoutloop = 0;
gtzintzarov3 0:851248a56628 1272 while (timeoutloop++ < 40) {
gtzintzarov3 0:851248a56628 1273 while(readable()) {
gtzintzarov3 0:851248a56628 1274 getc();
gtzintzarov3 0:851248a56628 1275 timeoutloop = 0; // If char was received reset the timer
gtzintzarov3 0:851248a56628 1276 }
gtzintzarov3 0:851248a56628 1277 wait_ms(1);
gtzintzarov3 0:851248a56628 1278 }
gtzintzarov3 0:851248a56628 1279 }
gtzintzarov3 0:851248a56628 1280
gtzintzarov3 0:851248a56628 1281 uint16_t Adafruit_FONA::readRaw(uint16_t b) {
gtzintzarov3 0:851248a56628 1282 uint16_t idx = 0;
gtzintzarov3 0:851248a56628 1283
gtzintzarov3 0:851248a56628 1284 while (b && (idx < sizeof(replybuffer)-1)) {
gtzintzarov3 0:851248a56628 1285 if (readable()) {
gtzintzarov3 0:851248a56628 1286 replybuffer[idx] = getc();
gtzintzarov3 0:851248a56628 1287 idx++;
gtzintzarov3 0:851248a56628 1288 b--;
gtzintzarov3 0:851248a56628 1289 }
gtzintzarov3 0:851248a56628 1290 }
gtzintzarov3 0:851248a56628 1291 replybuffer[idx] = 0;
gtzintzarov3 0:851248a56628 1292
gtzintzarov3 0:851248a56628 1293 return idx;
gtzintzarov3 0:851248a56628 1294 }
gtzintzarov3 0:851248a56628 1295
George windoge T 2:aaef20ac9044 1296 // This function just reads the output from FONA after an AT command is sent to it
gtzintzarov3 0:851248a56628 1297 uint8_t Adafruit_FONA::readline(uint16_t timeout, bool multiline) {
gtzintzarov3 0:851248a56628 1298 uint16_t replyidx = 0;
gtzintzarov3 0:851248a56628 1299
gtzintzarov3 0:851248a56628 1300 while (timeout--) {
gtzintzarov3 0:851248a56628 1301 if (replyidx >= 254) {
gtzintzarov3 0:851248a56628 1302 break;
gtzintzarov3 0:851248a56628 1303 }
gtzintzarov3 0:851248a56628 1304
gtzintzarov3 0:851248a56628 1305 while(readable()) {
gtzintzarov3 0:851248a56628 1306 char c = getc();
gtzintzarov3 0:851248a56628 1307 if (c == '\r') continue;
gtzintzarov3 0:851248a56628 1308 if (c == 0xA) {
gtzintzarov3 0:851248a56628 1309 if (replyidx == 0) // the first 0x0A is ignored
gtzintzarov3 0:851248a56628 1310 continue;
gtzintzarov3 0:851248a56628 1311
gtzintzarov3 0:851248a56628 1312 if (!multiline) {
gtzintzarov3 0:851248a56628 1313 timeout = 0; // the second 0x0A is the end of the line
gtzintzarov3 0:851248a56628 1314 break;
gtzintzarov3 0:851248a56628 1315 }
gtzintzarov3 0:851248a56628 1316 }
gtzintzarov3 0:851248a56628 1317 replybuffer[replyidx] = c;
gtzintzarov3 0:851248a56628 1318 replyidx++;
gtzintzarov3 0:851248a56628 1319 }
gtzintzarov3 0:851248a56628 1320
gtzintzarov3 0:851248a56628 1321 if (timeout == 0) {
gtzintzarov3 0:851248a56628 1322 break;
gtzintzarov3 0:851248a56628 1323 }
gtzintzarov3 0:851248a56628 1324 wait_ms(1);
gtzintzarov3 0:851248a56628 1325 }
gtzintzarov3 0:851248a56628 1326 replybuffer[replyidx] = 0; // null term
gtzintzarov3 0:851248a56628 1327 return replyidx;
gtzintzarov3 0:851248a56628 1328 }
gtzintzarov3 0:851248a56628 1329
gtzintzarov3 0:851248a56628 1330 uint8_t Adafruit_FONA::getReply(const char* send, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1331 flushInput();
gtzintzarov3 0:851248a56628 1332
gtzintzarov3 0:851248a56628 1333 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1334 printf("\t---> %s\r\n", send);
gtzintzarov3 0:851248a56628 1335 #endif
gtzintzarov3 0:851248a56628 1336
gtzintzarov3 0:851248a56628 1337 mySerial.printf("%s\r\n",send);
gtzintzarov3 0:851248a56628 1338
gtzintzarov3 0:851248a56628 1339 uint8_t l = readline(timeout);
gtzintzarov3 0:851248a56628 1340 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1341 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1342 #endif
gtzintzarov3 0:851248a56628 1343 return l;
gtzintzarov3 0:851248a56628 1344 }
gtzintzarov3 0:851248a56628 1345
gtzintzarov3 0:851248a56628 1346 // Send prefix, suffix, and newline. Return response (and also set replybuffer with response).
gtzintzarov3 0:851248a56628 1347 uint8_t Adafruit_FONA::getReply(const char* prefix, char* suffix, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1348 flushInput();
gtzintzarov3 0:851248a56628 1349
gtzintzarov3 0:851248a56628 1350 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1351 printf("\t---> %s%s\r\n", prefix, suffix);
gtzintzarov3 0:851248a56628 1352 #endif
gtzintzarov3 0:851248a56628 1353
gtzintzarov3 0:851248a56628 1354 mySerial.printf("%s%s\r\n", prefix, suffix);
gtzintzarov3 0:851248a56628 1355
gtzintzarov3 0:851248a56628 1356 uint8_t l = readline(timeout);
gtzintzarov3 0:851248a56628 1357 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1358 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1359 #endif
gtzintzarov3 0:851248a56628 1360 return l;
gtzintzarov3 0:851248a56628 1361 }
gtzintzarov3 0:851248a56628 1362
gtzintzarov3 0:851248a56628 1363 // Send prefix, suffix, and newline. Return response (and also set replybuffer with response).
gtzintzarov3 0:851248a56628 1364 uint8_t Adafruit_FONA::getReply(const char* prefix, int32_t suffix, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1365 flushInput();
gtzintzarov3 0:851248a56628 1366
gtzintzarov3 0:851248a56628 1367 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1368 printf("\t---> %s%d\r\n", prefix, suffix);
gtzintzarov3 0:851248a56628 1369 #endif
gtzintzarov3 0:851248a56628 1370
gtzintzarov3 0:851248a56628 1371 mySerial.printf("%s%d\r\n", prefix, suffix);
gtzintzarov3 0:851248a56628 1372
gtzintzarov3 0:851248a56628 1373 uint8_t l = readline(timeout);
gtzintzarov3 0:851248a56628 1374 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1375 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1376 #endif
gtzintzarov3 0:851248a56628 1377 return l;
gtzintzarov3 0:851248a56628 1378 }
gtzintzarov3 0:851248a56628 1379
gtzintzarov3 0:851248a56628 1380 // Send prefix, suffix, suffix2, and newline. Return response (and also set replybuffer with response).
gtzintzarov3 0:851248a56628 1381 uint8_t Adafruit_FONA::getReply(const char* prefix, int32_t suffix1, int32_t suffix2, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1382 flushInput();
gtzintzarov3 0:851248a56628 1383
gtzintzarov3 0:851248a56628 1384 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1385 printf("\t---> %s%d,%d\r\n", prefix, suffix1, suffix2);
gtzintzarov3 0:851248a56628 1386 #endif
gtzintzarov3 0:851248a56628 1387
gtzintzarov3 0:851248a56628 1388 mySerial.printf("%s%d,%d\r\n", prefix, suffix1, suffix2);
gtzintzarov3 0:851248a56628 1389
gtzintzarov3 0:851248a56628 1390 uint8_t l = readline(timeout);
gtzintzarov3 0:851248a56628 1391 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1392 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1393 #endif
gtzintzarov3 0:851248a56628 1394 return l;
gtzintzarov3 0:851248a56628 1395 }
gtzintzarov3 0:851248a56628 1396
gtzintzarov3 0:851248a56628 1397 // Send prefix, ", suffix, ", and newline. Return response (and also set replybuffer with response).
gtzintzarov3 0:851248a56628 1398 uint8_t Adafruit_FONA::getReplyQuoted(const char* prefix, const char* suffix, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1399 flushInput();
gtzintzarov3 0:851248a56628 1400
gtzintzarov3 0:851248a56628 1401 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1402 printf("\t---> %s\"%s\"\r\n", prefix, suffix);
gtzintzarov3 0:851248a56628 1403 #endif
gtzintzarov3 0:851248a56628 1404
gtzintzarov3 0:851248a56628 1405 mySerial.printf("%s\"%s\"\r\n", prefix, suffix);
gtzintzarov3 0:851248a56628 1406
gtzintzarov3 0:851248a56628 1407 uint8_t l = readline(timeout);
gtzintzarov3 0:851248a56628 1408 #ifdef ADAFRUIT_FONA_DEBUG
gtzintzarov3 0:851248a56628 1409 printf("\t<--- %s\r\n", replybuffer);
gtzintzarov3 0:851248a56628 1410 #endif
gtzintzarov3 0:851248a56628 1411 return l;
gtzintzarov3 0:851248a56628 1412 }
gtzintzarov3 0:851248a56628 1413
gtzintzarov3 0:851248a56628 1414
gtzintzarov3 0:851248a56628 1415 bool Adafruit_FONA::sendCheckReply(const char *send, const char *reply, uint16_t timeout) {
michaelVisimid 18:d52017f1d087 1416 if (! getReply(send, timeout) )
michaelVisimid 18:d52017f1d087 1417 return false;
gtzintzarov3 0:851248a56628 1418
gtzintzarov3 0:851248a56628 1419 return (strcmp(replybuffer, reply) == 0);
gtzintzarov3 0:851248a56628 1420 }
gtzintzarov3 0:851248a56628 1421
gtzintzarov3 0:851248a56628 1422 // Send prefix, suffix, and newline. Verify FONA response matches reply parameter.
gtzintzarov3 0:851248a56628 1423 bool Adafruit_FONA::sendCheckReply(const char* prefix, char *suffix, const char* reply, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1424 getReply(prefix, suffix, timeout);
gtzintzarov3 0:851248a56628 1425 return (strcmp(replybuffer, reply) == 0);
gtzintzarov3 0:851248a56628 1426 }
gtzintzarov3 0:851248a56628 1427
gtzintzarov3 0:851248a56628 1428 // Send prefix, suffix, and newline. Verify FONA response matches reply parameter.
gtzintzarov3 0:851248a56628 1429 bool Adafruit_FONA::sendCheckReply(const char* prefix, int32_t suffix, const char* reply, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1430 getReply(prefix, suffix, timeout);
gtzintzarov3 0:851248a56628 1431 return (strcmp(replybuffer, reply) == 0);
gtzintzarov3 0:851248a56628 1432 }
gtzintzarov3 0:851248a56628 1433
gtzintzarov3 0:851248a56628 1434 // Send prefix, suffix, suffix2, and newline. Verify FONA response matches reply parameter.
gtzintzarov3 0:851248a56628 1435 bool Adafruit_FONA::sendCheckReply(const char* prefix, int32_t suffix1, int32_t suffix2, const char* reply, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1436 getReply(prefix, suffix1, suffix2, timeout);
gtzintzarov3 0:851248a56628 1437 return (strcmp(replybuffer, reply) == 0);
gtzintzarov3 0:851248a56628 1438 }
gtzintzarov3 0:851248a56628 1439
gtzintzarov3 0:851248a56628 1440 // Send prefix, ", suffix, ", and newline. Verify FONA response matches reply parameter.
gtzintzarov3 0:851248a56628 1441 bool Adafruit_FONA::sendCheckReplyQuoted(const char* prefix, const char* suffix, const char* reply, uint16_t timeout) {
gtzintzarov3 0:851248a56628 1442 getReplyQuoted(prefix, suffix, timeout);
gtzintzarov3 0:851248a56628 1443 return (strcmp(replybuffer, reply) == 0);
gtzintzarov3 0:851248a56628 1444 }
gtzintzarov3 0:851248a56628 1445
gtzintzarov3 0:851248a56628 1446 bool Adafruit_FONA::parseReply(const char* toreply, uint16_t *v, char divider, uint8_t index) {
gtzintzarov3 0:851248a56628 1447 char *p = strstr(replybuffer, toreply); // get the pointer to the voltage
gtzintzarov3 0:851248a56628 1448 if (p == 0) return false;
gtzintzarov3 0:851248a56628 1449 p += strlen(toreply);
gtzintzarov3 0:851248a56628 1450
gtzintzarov3 0:851248a56628 1451 for (uint8_t i=0; i<index;i++) {
gtzintzarov3 0:851248a56628 1452 // increment dividers
gtzintzarov3 0:851248a56628 1453 p = strchr(p, divider);
gtzintzarov3 0:851248a56628 1454 if (!p) return false;
gtzintzarov3 0:851248a56628 1455 p++;
gtzintzarov3 0:851248a56628 1456 }
gtzintzarov3 0:851248a56628 1457
gtzintzarov3 0:851248a56628 1458 *v = atoi(p);
gtzintzarov3 0:851248a56628 1459
gtzintzarov3 0:851248a56628 1460 return true;
gtzintzarov3 0:851248a56628 1461 }
gtzintzarov3 0:851248a56628 1462
gtzintzarov3 0:851248a56628 1463 bool Adafruit_FONA::parseReply(const char* toreply, char *v, char divider, uint8_t index) {
gtzintzarov3 0:851248a56628 1464 uint8_t i=0;
gtzintzarov3 0:851248a56628 1465 char *p = strstr(replybuffer, toreply);
gtzintzarov3 0:851248a56628 1466 if (p == 0) return false;
gtzintzarov3 0:851248a56628 1467 p+=strlen(toreply);
gtzintzarov3 0:851248a56628 1468
gtzintzarov3 0:851248a56628 1469 for (i=0; i<index;i++) {
gtzintzarov3 0:851248a56628 1470 // increment dividers
gtzintzarov3 0:851248a56628 1471 p = strchr(p, divider);
gtzintzarov3 0:851248a56628 1472 if (!p) return false;
gtzintzarov3 0:851248a56628 1473 p++;
gtzintzarov3 0:851248a56628 1474 }
gtzintzarov3 0:851248a56628 1475
gtzintzarov3 0:851248a56628 1476 for(i=0; i<strlen(p);i++) {
gtzintzarov3 0:851248a56628 1477 if(p[i] == divider)
gtzintzarov3 0:851248a56628 1478 break;
gtzintzarov3 0:851248a56628 1479 v[i] = p[i];
gtzintzarov3 0:851248a56628 1480 }
gtzintzarov3 0:851248a56628 1481
gtzintzarov3 0:851248a56628 1482 v[i] = '\0';
gtzintzarov3 0:851248a56628 1483
gtzintzarov3 0:851248a56628 1484 return true;
gtzintzarov3 0:851248a56628 1485 }
gtzintzarov3 0:851248a56628 1486
gtzintzarov3 0:851248a56628 1487 // Parse a quoted string in the response fields and copy its value (without quotes)
gtzintzarov3 0:851248a56628 1488 // to the specified character array (v). Only up to maxlen characters are copied
gtzintzarov3 0:851248a56628 1489 // into the result buffer, so make sure to pass a large enough buffer to handle the
gtzintzarov3 0:851248a56628 1490 // response.
gtzintzarov3 0:851248a56628 1491 bool Adafruit_FONA::parseReplyQuoted(const char* toreply, char* v, int maxlen, char divider, uint8_t index) {
gtzintzarov3 0:851248a56628 1492 uint8_t i=0, j;
gtzintzarov3 0:851248a56628 1493 // Verify response starts with toreply.
gtzintzarov3 0:851248a56628 1494 char *p = strstr(replybuffer, toreply);
gtzintzarov3 0:851248a56628 1495 if (p == 0) return false;
gtzintzarov3 0:851248a56628 1496 p+=strlen(toreply);
gtzintzarov3 0:851248a56628 1497
gtzintzarov3 0:851248a56628 1498 // Find location of desired response field.
gtzintzarov3 0:851248a56628 1499 for (i=0; i<index;i++) {
gtzintzarov3 0:851248a56628 1500 // increment dividers
gtzintzarov3 0:851248a56628 1501 p = strchr(p, divider);
gtzintzarov3 0:851248a56628 1502 if (!p) return false;
gtzintzarov3 0:851248a56628 1503 p++;
gtzintzarov3 0:851248a56628 1504 }
gtzintzarov3 0:851248a56628 1505
gtzintzarov3 0:851248a56628 1506 // Copy characters from response field into result string.
gtzintzarov3 0:851248a56628 1507 for(i=0, j=0; j<maxlen && i<strlen(p); ++i) {
gtzintzarov3 0:851248a56628 1508 // Stop if a divier is found.
gtzintzarov3 0:851248a56628 1509 if(p[i] == divider)
gtzintzarov3 0:851248a56628 1510 break;
gtzintzarov3 0:851248a56628 1511 // Skip any quotation marks.
gtzintzarov3 0:851248a56628 1512 else if(p[i] == '"')
gtzintzarov3 0:851248a56628 1513 continue;
gtzintzarov3 0:851248a56628 1514 v[j++] = p[i];
gtzintzarov3 0:851248a56628 1515 }
gtzintzarov3 0:851248a56628 1516
gtzintzarov3 0:851248a56628 1517 // Add a null terminator if result string buffer was not filled.
gtzintzarov3 0:851248a56628 1518 if (j < maxlen)
gtzintzarov3 0:851248a56628 1519 v[j] = '\0';
gtzintzarov3 0:851248a56628 1520
gtzintzarov3 0:851248a56628 1521 return true;
gtzintzarov3 0:851248a56628 1522 }
gtzintzarov3 0:851248a56628 1523
gtzintzarov3 0:851248a56628 1524 bool Adafruit_FONA::sendParseReply(const char* tosend, const char* toreply, uint16_t *v, char divider, uint8_t index) {
gtzintzarov3 0:851248a56628 1525 getReply(tosend);
gtzintzarov3 0:851248a56628 1526
gtzintzarov3 0:851248a56628 1527 if (! parseReply(toreply, v, divider, index)) return false;
gtzintzarov3 0:851248a56628 1528
gtzintzarov3 0:851248a56628 1529 readline(); // eat 'OK'
gtzintzarov3 0:851248a56628 1530
gtzintzarov3 0:851248a56628 1531 return true;
michaelVisimid 18:d52017f1d087 1532 }