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