Michael Baker / FONA_CellPhone

Update to work with latest mBed

Dependencies:   mbed-dev

Fork of FONA_CellPhone by Dream Team

Adafruit_FONA.cpp@2:aaef20ac9044, 2016-03-10 (annotated)

Committer:
George windoge T
Date:
Thu Mar 10 01:53:00 2016 -0500
Revision:
2:aaef20ac9044
Parent:
0:851248a56628
Child:
9:06eca688f2a3
GT: commented some of the code

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