Bowen Feng / Mbed 2 deprecated Hiking_Pal

The Hiking Pal tracking device firmware. See full description on the detail page: https://www.hackster.io/bowenfeng/hiking-pal-v1-07c02d

Dependencies:   FXOS8700CQ MODSERIAL mbed

Fork of Avnet_ATT_Cellular_IOT by Avnet

main.cpp@48:93a4ab6ac177, 2016-07-24 (annotated)

Committer:
fkellermavnet
Date:
Sun Jul 24 20:18:33 2016 +0000
Revision:
48:93a4ab6ac177
Parent:
47:c07656706ca1
Parent:
41:9b14c40eebf6
Child:
49:97f823273dc0
Merged (hopefully correctly) Stefan's changes into mine.  Also changed it to copy from the C++ string to the char buffer so that the C based JSON parser will work correctly everytime.  The latter is what was causing an OS exception when no readback.

Who changed what in which revision?

UserRevisionLine numberNew contents of line
JMF 29:c69379977ae5 1 #include "mbed.h"
JMF 0:9d5134074d84 2 #include <cctype>
JMF 0:9d5134074d84 3 #include <string>
JMF 0:9d5134074d84 4 #include "SerialBuffered.h"
JMF 0:9d5134074d84 5 #include "HTS221.h"
JMF 2:0e2ef866af95 6 #include "config_me.h"
JMF 2:0e2ef866af95 7 #include "wnc_control.h"
stefanrousseau 4:f83bedd9cab4 8 #include "sensors.h"
JMF 0:9d5134074d84 9
stefanrousseau 11:e6602513730f 10 #include "hardware.h"
stefanrousseau 11:e6602513730f 11 I2C i2c(PTC11, PTC10); //SDA, SCL -- define the I2C pins being used
stefanrousseau 11:e6602513730f 12
JMF 0:9d5134074d84 13 // comment out the following line if color is not supported on the terminal
JMF 0:9d5134074d84 14 #define USE_COLOR
JMF 0:9d5134074d84 15 #ifdef USE_COLOR
JMF 0:9d5134074d84 16 #define BLK "\033[30m"
JMF 0:9d5134074d84 17 #define RED "\033[31m"
JMF 0:9d5134074d84 18 #define GRN "\033[32m"
JMF 0:9d5134074d84 19 #define YEL "\033[33m"
JMF 0:9d5134074d84 20 #define BLU "\033[34m"
JMF 0:9d5134074d84 21 #define MAG "\033[35m"
JMF 0:9d5134074d84 22 #define CYN "\033[36m"
JMF 0:9d5134074d84 23 #define WHT "\033[37m"
JMF 0:9d5134074d84 24 #define DEF "\033[39m"
JMF 0:9d5134074d84 25 #else
JMF 0:9d5134074d84 26 #define BLK
JMF 0:9d5134074d84 27 #define RED
JMF 0:9d5134074d84 28 #define GRN
JMF 0:9d5134074d84 29 #define YEL
JMF 0:9d5134074d84 30 #define BLU
JMF 0:9d5134074d84 31 #define MAG
JMF 0:9d5134074d84 32 #define CYN
JMF 0:9d5134074d84 33 #define WHT
JMF 0:9d5134074d84 34 #define DEF
JMF 0:9d5134074d84 35 #endif
JMF 0:9d5134074d84 36
JMF 0:9d5134074d84 37 #define MDM_DBG_OFF 0
JMF 0:9d5134074d84 38 #define MDM_DBG_AT_CMDS (1 << 0)
JMF 0:9d5134074d84 39 int mdm_dbgmask = MDM_DBG_OFF;
JMF 0:9d5134074d84 40
fkellermavnet 33:fa964b8b3b19 41 #define WNC_WAIT_FOR_AT_CMD_MS 40
fkellermavnet 33:fa964b8b3b19 42
JMF 0:9d5134074d84 43 Serial pc(USBTX, USBRX);
fkellermavnet 38:564b312a719f 44 SerialBuffered mdm(PTD3, PTD2, 4096);
stefanrousseau 16:17c5916f2d12 45 DigitalOut led_green(LED_GREEN);
stefanrousseau 16:17c5916f2d12 46 DigitalOut led_red(LED_RED);
stefanrousseau 16:17c5916f2d12 47 DigitalOut led_blue(LED_BLUE);
JMF 0:9d5134074d84 48
JMF 0:9d5134074d84 49 DigitalOut mdm_uart2_rx_boot_mode_sel(PTC17); // on powerup, 0 = boot mode, 1 = normal boot
JMF 0:9d5134074d84 50 DigitalOut mdm_power_on(PTB9); // 0 = turn modem on, 1 = turn modem off (should be held high for >5 seconds to cycle modem)
JMF 0:9d5134074d84 51 DigitalOut mdm_wakeup_in(PTC2); // 0 = let modem sleep, 1 = keep modem awake -- Note: pulled high on shield
JMF 0:9d5134074d84 52
fkellermavnet 14:0c353e212296 53 DigitalOut mdm_reset(PTC12); // active high
fkellermavnet 14:0c353e212296 54
JMF 0:9d5134074d84 55 DigitalOut shield_3v3_1v8_sig_trans_ena(PTC4); // 0 = disabled (all signals high impedence, 1 = translation active
JMF 0:9d5134074d84 56 DigitalOut mdm_uart1_cts(PTD0);
JMF 0:9d5134074d84 57
JMF 0:9d5134074d84 58 #define TOUPPER(a) (a) //toupper(a)
JMF 0:9d5134074d84 59
JMF 0:9d5134074d84 60 const char ok_str[] = "OK";
JMF 0:9d5134074d84 61 const char error_str[] = "ERROR";
JMF 0:9d5134074d84 62
JMF 0:9d5134074d84 63 #define MDM_OK 0
JMF 0:9d5134074d84 64 #define MDM_ERR_TIMEOUT -1
JMF 0:9d5134074d84 65
JMF 0:9d5134074d84 66 #define MAX_AT_RSP_LEN 255
JMF 0:9d5134074d84 67
JMF 0:9d5134074d84 68 ssize_t mdm_getline(char *buff, size_t size, int timeout_ms) {
JMF 0:9d5134074d84 69 int cin = -1;
JMF 0:9d5134074d84 70 int cin_last;
JMF 0:9d5134074d84 71
JMF 0:9d5134074d84 72 if (NULL == buff || size == 0) {
JMF 0:9d5134074d84 73 return -1;
JMF 0:9d5134074d84 74 }
JMF 0:9d5134074d84 75
JMF 0:9d5134074d84 76 size_t len = 0;
JMF 0:9d5134074d84 77 Timer timer;
JMF 0:9d5134074d84 78 timer.start();
JMF 0:9d5134074d84 79 while ((len < (size-1)) && (timer.read_ms() < timeout_ms)) {
JMF 0:9d5134074d84 80 if (mdm.readable()) {
JMF 0:9d5134074d84 81 cin_last = cin;
JMF 0:9d5134074d84 82 cin = mdm.getc();
JMF 0:9d5134074d84 83 if (isprint(cin)) {
JMF 0:9d5134074d84 84 buff[len++] = (char)cin;
JMF 0:9d5134074d84 85 continue;
JMF 0:9d5134074d84 86 } else if (('\r' == cin_last) && ('\n' == cin)) {
JMF 0:9d5134074d84 87 break;
JMF 0:9d5134074d84 88 }
JMF 0:9d5134074d84 89 }
fkellermavnet 32:1e052a3e73fe 90 // wait_ms(1);
JMF 0:9d5134074d84 91 }
JMF 2:0e2ef866af95 92 buff[len] = (char)NULL;
JMF 0:9d5134074d84 93
JMF 0:9d5134074d84 94 return len;
JMF 0:9d5134074d84 95 }
JMF 0:9d5134074d84 96
JMF 0:9d5134074d84 97 int mdm_sendAtCmd(const char *cmd, const char **rsp_list, int timeout_ms) {
fkellermavnet 32:1e052a3e73fe 98 // Per WNC wait:
fkellermavnet 33:fa964b8b3b19 99 wait_ms(WNC_WAIT_FOR_AT_CMD_MS);
fkellermavnet 32:1e052a3e73fe 100
JMF 0:9d5134074d84 101 if (cmd && strlen(cmd) > 0) {
JMF 0:9d5134074d84 102 if (mdm_dbgmask & MDM_DBG_AT_CMDS) {
JMF 0:9d5134074d84 103 printf(MAG "ATCMD: " DEF "--> " GRN "%s" DEF "\n", cmd);
JMF 0:9d5134074d84 104 }
fkellermavnet 32:1e052a3e73fe 105 mdm.puts(cmd);
fkellermavnet 32:1e052a3e73fe 106 mdm.puts("\r\n");
JMF 0:9d5134074d84 107 }
fkellermavnet 32:1e052a3e73fe 108
JMF 0:9d5134074d84 109 if (rsp_list) {
JMF 0:9d5134074d84 110 Timer timer;
JMF 0:9d5134074d84 111 char rsp[MAX_AT_RSP_LEN+1];
JMF 0:9d5134074d84 112 int len;
JMF 0:9d5134074d84 113
JMF 0:9d5134074d84 114 timer.start();
JMF 0:9d5134074d84 115 while (timer.read_ms() < timeout_ms) {
JMF 0:9d5134074d84 116 len = mdm_getline(rsp, sizeof(rsp), timeout_ms - timer.read_ms());
JMF 0:9d5134074d84 117
JMF 0:9d5134074d84 118 if (len < 0)
JMF 0:9d5134074d84 119 return MDM_ERR_TIMEOUT;
JMF 0:9d5134074d84 120
JMF 0:9d5134074d84 121 if (len == 0)
JMF 0:9d5134074d84 122 continue;
JMF 0:9d5134074d84 123
JMF 0:9d5134074d84 124 if (mdm_dbgmask & MDM_DBG_AT_CMDS) {
JMF 0:9d5134074d84 125 printf(MAG "ATRSP: " DEF "<-- " CYN "%s" DEF "\n", rsp);
JMF 0:9d5134074d84 126 }
JMF 0:9d5134074d84 127
JMF 0:9d5134074d84 128 if (rsp_list) {
JMF 0:9d5134074d84 129 int rsp_idx = 0;
JMF 0:9d5134074d84 130 while (rsp_list[rsp_idx]) {
JMF 0:9d5134074d84 131 if (strcasecmp(rsp, rsp_list[rsp_idx]) == 0) {
JMF 0:9d5134074d84 132 return rsp_idx;
JMF 0:9d5134074d84 133 }
JMF 0:9d5134074d84 134 rsp_idx++;
JMF 0:9d5134074d84 135 }
JMF 0:9d5134074d84 136 }
JMF 0:9d5134074d84 137 }
JMF 0:9d5134074d84 138 return MDM_ERR_TIMEOUT;
JMF 0:9d5134074d84 139 }
JMF 0:9d5134074d84 140 return MDM_OK;
JMF 0:9d5134074d84 141 }
JMF 0:9d5134074d84 142
JMF 0:9d5134074d84 143 int mdm_init(void) {
fkellermavnet 14:0c353e212296 144 // Hard reset the modem (doesn't go through
fkellermavnet 14:0c353e212296 145 // the signal level translator)
fkellermavnet 14:0c353e212296 146 mdm_reset = 0;
JMF 17:38a8cc0c6ba5 147
JMF 17:38a8cc0c6ba5 148 // disable signal level translator (necessary
JMF 17:38a8cc0c6ba5 149 // for the modem to boot properly). All signals
JMF 17:38a8cc0c6ba5 150 // except mdm_reset go through the level translator
JMF 17:38a8cc0c6ba5 151 // and have internal pull-up/down in the module. While
JMF 17:38a8cc0c6ba5 152 // the level translator is disabled, these pins will
JMF 17:38a8cc0c6ba5 153 // be in the correct state.
JMF 17:38a8cc0c6ba5 154 shield_3v3_1v8_sig_trans_ena = 0;
JMF 17:38a8cc0c6ba5 155
JMF 17:38a8cc0c6ba5 156 // While the level translator is disabled and ouptut pins
JMF 17:38a8cc0c6ba5 157 // are tristated, make sure the inputs are in the same state
JMF 17:38a8cc0c6ba5 158 // as the WNC Module pins so that when the level translator is
JMF 17:38a8cc0c6ba5 159 // enabled, there are no differences.
JMF 17:38a8cc0c6ba5 160 mdm_uart2_rx_boot_mode_sel = 1; // UART2_RX should be high
JMF 17:38a8cc0c6ba5 161 mdm_power_on = 0; // powr_on should be low
JMF 17:38a8cc0c6ba5 162 mdm_wakeup_in = 1; // wake-up should be high
JMF 17:38a8cc0c6ba5 163 mdm_uart1_cts = 0; // indicate that it is ok to send
JMF 17:38a8cc0c6ba5 164
JMF 17:38a8cc0c6ba5 165 // Now, wait for the WNC Module to perform its initial boot correctly
fkellermavnet 14:0c353e212296 166 wait(1.0);
JMF 17:38a8cc0c6ba5 167
JMF 17:38a8cc0c6ba5 168 // The WNC module initializes comms at 115200 8N1 so set it up
JMF 17:38a8cc0c6ba5 169 mdm.baud(115200);
JMF 0:9d5134074d84 170
JMF 17:38a8cc0c6ba5 171 //Now, enable the level translator, the input pins should now be the
JMF 17:38a8cc0c6ba5 172 //same as how the M14A module is driving them with internal pull ups/downs.
JMF 17:38a8cc0c6ba5 173 //When enabled, there will be no changes in these 4 pins...
JMF 17:38a8cc0c6ba5 174 shield_3v3_1v8_sig_trans_ena = 1;
JMF 2:0e2ef866af95 175
JMF 17:38a8cc0c6ba5 176 // Now, give the modem 60 secons to start responding by
JMF 0:9d5134074d84 177 // sending simple 'AT' commands to modem once per second.
JMF 0:9d5134074d84 178 Timer timer;
JMF 0:9d5134074d84 179 timer.start();
JMF 0:9d5134074d84 180 while (timer.read() < 60) {
JMF 0:9d5134074d84 181 const char * rsp_lst[] = { ok_str, error_str, NULL };
JMF 0:9d5134074d84 182 int rc = mdm_sendAtCmd("AT", rsp_lst, 500);
JMF 0:9d5134074d84 183 if (rc == 0)
fkellermavnet 14:0c353e212296 184 return true; //timer.read();
JMF 0:9d5134074d84 185 wait_ms(1000 - (timer.read_ms() % 1000));
JMF 0:9d5134074d84 186 pc.printf("\r%d",timer.read_ms()/1000);
JMF 0:9d5134074d84 187 }
JMF 0:9d5134074d84 188 return false;
JMF 0:9d5134074d84 189 }
JMF 0:9d5134074d84 190
JMF 2:0e2ef866af95 191 int mdm_sendAtCmdRsp(const char *cmd, const char **rsp_list, int timeout_ms, string * rsp, int * len) {
JMF 2:0e2ef866af95 192 static char cmd_buf[3200]; // Need enough room for the WNC sockreads (over 3000 chars)
fkellermavnet 6:713b4cbf1a7d 193 size_t n = strlen(cmd);
fkellermavnet 32:1e052a3e73fe 194
fkellermavnet 32:1e052a3e73fe 195 // Per WNC wait:
fkellermavnet 33:fa964b8b3b19 196 wait_ms(WNC_WAIT_FOR_AT_CMD_MS);
fkellermavnet 32:1e052a3e73fe 197
fkellermavnet 6:713b4cbf1a7d 198 if (cmd && n > 0) {
JMF 2:0e2ef866af95 199 if (mdm_dbgmask & MDM_DBG_AT_CMDS) {
JMF 2:0e2ef866af95 200 printf(MAG "ATCMD: " DEF "--> " GRN "%s" DEF "\n", cmd);
JMF 2:0e2ef866af95 201 }
fkellermavnet 43:6821a9c78c4b 202 // mdm.puts(cmd);
fkellermavnet 43:6821a9c78c4b 203 // mdm.puts("\r\n");
fkellermavnet 43:6821a9c78c4b 204 while (n--) {
fkellermavnet 43:6821a9c78c4b 205 mdm.putc(*cmd++);
fkellermavnet 43:6821a9c78c4b 206 wait_us(1000);
fkellermavnet 43:6821a9c78c4b 207 };
fkellermavnet 43:6821a9c78c4b 208 mdm.putc('\r');
fkellermavnet 43:6821a9c78c4b 209 wait_us(1000);
fkellermavnet 43:6821a9c78c4b 210 mdm.putc('\n');
fkellermavnet 43:6821a9c78c4b 211 wait_us(1000);
JMF 2:0e2ef866af95 212 }
JMF 2:0e2ef866af95 213
JMF 2:0e2ef866af95 214 if (rsp_list) {
JMF 2:0e2ef866af95 215 rsp->erase(); // Clean up from prior cmd response
JMF 2:0e2ef866af95 216 *len = 0;
JMF 2:0e2ef866af95 217 Timer timer;
JMF 2:0e2ef866af95 218 timer.start();
JMF 2:0e2ef866af95 219 while (timer.read_ms() < timeout_ms) {
JMF 2:0e2ef866af95 220 int lenCmd = mdm_getline(cmd_buf, sizeof(cmd_buf), timeout_ms - timer.read_ms());
JMF 2:0e2ef866af95 221
JMF 2:0e2ef866af95 222 if (lenCmd == 0)
JMF 2:0e2ef866af95 223 continue;
JMF 2:0e2ef866af95 224
JMF 2:0e2ef866af95 225 if (lenCmd < 0)
JMF 2:0e2ef866af95 226 return MDM_ERR_TIMEOUT;
JMF 2:0e2ef866af95 227 else {
JMF 2:0e2ef866af95 228 *len += lenCmd;
JMF 2:0e2ef866af95 229 *rsp += cmd_buf;
JMF 2:0e2ef866af95 230 }
JMF 2:0e2ef866af95 231
JMF 2:0e2ef866af95 232 if (mdm_dbgmask & MDM_DBG_AT_CMDS) {
JMF 2:0e2ef866af95 233 printf(MAG "ATRSP: " DEF "<-- " CYN "%s" DEF "\n", cmd_buf);
JMF 2:0e2ef866af95 234 }
JMF 2:0e2ef866af95 235
JMF 2:0e2ef866af95 236 int rsp_idx = 0;
JMF 2:0e2ef866af95 237 while (rsp_list[rsp_idx]) {
JMF 2:0e2ef866af95 238 if (strcasecmp(cmd_buf, rsp_list[rsp_idx]) == 0) {
JMF 2:0e2ef866af95 239 return rsp_idx;
JMF 2:0e2ef866af95 240 }
JMF 2:0e2ef866af95 241 rsp_idx++;
JMF 2:0e2ef866af95 242 }
JMF 2:0e2ef866af95 243 }
JMF 2:0e2ef866af95 244 return MDM_ERR_TIMEOUT;
JMF 2:0e2ef866af95 245 }
JMF 2:0e2ef866af95 246 pc.printf("D %s",rsp);
JMF 2:0e2ef866af95 247 return MDM_OK;
JMF 2:0e2ef866af95 248 }
JMF 2:0e2ef866af95 249
JMF 2:0e2ef866af95 250 void reinitialize_mdm(void)
JMF 2:0e2ef866af95 251 {
JMF 2:0e2ef866af95 252 // Initialize the modem
JMF 2:0e2ef866af95 253 printf(GRN "Modem RE-initializing..." DEF "\r\n");
JMF 2:0e2ef866af95 254 if (!mdm_init()) {
JMF 2:0e2ef866af95 255 printf(RED "\n\rModem RE-initialization failed!" DEF "\n");
JMF 2:0e2ef866af95 256 }
JMF 2:0e2ef866af95 257 printf("\r\n");
JMF 2:0e2ef866af95 258 }
JMF 2:0e2ef866af95 259 // These are built on the fly
JMF 2:0e2ef866af95 260 string MyServerIpAddress;
JMF 2:0e2ef866af95 261 string MySocketData;
JMF 2:0e2ef866af95 262
JMF 2:0e2ef866af95 263 // These are to be built on the fly
JMF 2:0e2ef866af95 264 string my_temp;
JMF 2:0e2ef866af95 265 string my_humidity;
JMF 2:0e2ef866af95 266
JMF 0:9d5134074d84 267 #define CTOF(x) ((x)*1.8+32)
JMF 0:9d5134074d84 268
stefanrousseau 3:26b3cc155f39 269 //********************************************************************************************************************************************
stefanrousseau 12:7c94ec5069dc 270 //* Create string with sensor readings that can be sent to flow as an HTTP get
stefanrousseau 3:26b3cc155f39 271 //********************************************************************************************************************************************
stefanrousseau 12:7c94ec5069dc 272 K64F_Sensors_t SENSOR_DATA =
stefanrousseau 3:26b3cc155f39 273 {
stefanrousseau 12:7c94ec5069dc 274 .Temperature = "0",
stefanrousseau 12:7c94ec5069dc 275 .Humidity = "0",
stefanrousseau 12:7c94ec5069dc 276 .AccelX = "0",
stefanrousseau 12:7c94ec5069dc 277 .AccelY = "0",
stefanrousseau 12:7c94ec5069dc 278 .AccelZ = "0",
stefanrousseau 12:7c94ec5069dc 279 .MagnetometerX = "0",
stefanrousseau 12:7c94ec5069dc 280 .MagnetometerY = "0",
stefanrousseau 12:7c94ec5069dc 281 .MagnetometerZ = "0",
stefanrousseau 12:7c94ec5069dc 282 .AmbientLightVis = "0",
stefanrousseau 12:7c94ec5069dc 283 .AmbientLightIr = "0",
stefanrousseau 12:7c94ec5069dc 284 .UVindex = "0",
stefanrousseau 12:7c94ec5069dc 285 .Proximity = "0",
stefanrousseau 12:7c94ec5069dc 286 .Temperature_Si7020 = "0",
stefanrousseau 12:7c94ec5069dc 287 .Humidity_Si7020 = "0"
stefanrousseau 3:26b3cc155f39 288 };
stefanrousseau 12:7c94ec5069dc 289
stefanrousseau 3:26b3cc155f39 290 void GenerateModemString(char * modem_string)
stefanrousseau 3:26b3cc155f39 291 {
stefanrousseau 12:7c94ec5069dc 292 switch(iSensorsToReport)
stefanrousseau 12:7c94ec5069dc 293 {
stefanrousseau 12:7c94ec5069dc 294 case TEMP_HUMIDITY_ONLY:
stefanrousseau 12:7c94ec5069dc 295 {
stefanrousseau 12:7c94ec5069dc 296 sprintf(modem_string, "GET %s%s?serial=%s&temp=%s&humidity=%s %s%s\r\n\r\n", FLOW_BASE_URL, FLOW_INPUT_NAME, FLOW_DEVICE_NAME, SENSOR_DATA.Temperature, SENSOR_DATA.Humidity, FLOW_URL_TYPE, MY_SERVER_URL);
stefanrousseau 12:7c94ec5069dc 297 break;
stefanrousseau 12:7c94ec5069dc 298 }
stefanrousseau 12:7c94ec5069dc 299 case TEMP_HUMIDITY_ACCELEROMETER:
stefanrousseau 12:7c94ec5069dc 300 {
stefanrousseau 12:7c94ec5069dc 301 sprintf(modem_string, "GET %s%s?serial=%s&temp=%s&humidity=%s&accelX=%s&accelY=%s&accelZ=%s %s%s\r\n\r\n", FLOW_BASE_URL, FLOW_INPUT_NAME, FLOW_DEVICE_NAME, SENSOR_DATA.Temperature, SENSOR_DATA.Humidity, SENSOR_DATA.AccelX,SENSOR_DATA.AccelY,SENSOR_DATA.AccelZ, FLOW_URL_TYPE, MY_SERVER_URL);
stefanrousseau 12:7c94ec5069dc 302 break;
stefanrousseau 12:7c94ec5069dc 303 }
stefanrousseau 12:7c94ec5069dc 304 case TEMP_HUMIDITY_ACCELEROMETER_PMODSENSORS:
stefanrousseau 12:7c94ec5069dc 305 {
stefanrousseau 12:7c94ec5069dc 306 sprintf(modem_string, "GET %s%s?serial=%s&temp=%s&humidity=%s&accelX=%s&accelY=%s&accelZ=%s&proximity=%s&light_uv=%s&light_vis=%s&light_ir=%s %s%s\r\n\r\n", FLOW_BASE_URL, FLOW_INPUT_NAME, FLOW_DEVICE_NAME, SENSOR_DATA.Temperature, SENSOR_DATA.Humidity, SENSOR_DATA.AccelX,SENSOR_DATA.AccelY,SENSOR_DATA.AccelZ, SENSOR_DATA.Proximity, SENSOR_DATA.UVindex, SENSOR_DATA.AmbientLightVis, SENSOR_DATA.AmbientLightIr, FLOW_URL_TYPE, MY_SERVER_URL);
stefanrousseau 12:7c94ec5069dc 307 break;
stefanrousseau 12:7c94ec5069dc 308 }
stefanrousseau 12:7c94ec5069dc 309 default:
stefanrousseau 12:7c94ec5069dc 310 {
stefanrousseau 12:7c94ec5069dc 311 sprintf(modem_string, "Invalid sensor selected\r\n\r\n");
stefanrousseau 12:7c94ec5069dc 312 break;
stefanrousseau 12:7c94ec5069dc 313 }
stefanrousseau 16:17c5916f2d12 314 } //switch(iSensorsToReport)
stefanrousseau 3:26b3cc155f39 315 } //GenerateModemString
stefanrousseau 3:26b3cc155f39 316
stefanrousseau 3:26b3cc155f39 317
stefanrousseau 3:26b3cc155f39 318 //Periodic timer
stefanrousseau 3:26b3cc155f39 319 Ticker OneMsTicker;
stefanrousseau 3:26b3cc155f39 320 volatile bool bTimerExpiredFlag = false;
stefanrousseau 3:26b3cc155f39 321 int OneMsTicks = 0;
stefanrousseau 3:26b3cc155f39 322 int iTimer1Interval_ms = 1000;
stefanrousseau 3:26b3cc155f39 323 //********************************************************************************************************************************************
stefanrousseau 3:26b3cc155f39 324 //* Periodic 1ms timer tick
stefanrousseau 3:26b3cc155f39 325 //********************************************************************************************************************************************
stefanrousseau 3:26b3cc155f39 326 void OneMsFunction()
stefanrousseau 3:26b3cc155f39 327 {
stefanrousseau 3:26b3cc155f39 328 OneMsTicks++;
stefanrousseau 3:26b3cc155f39 329 if ((OneMsTicks % iTimer1Interval_ms) == 0)
stefanrousseau 3:26b3cc155f39 330 {
stefanrousseau 3:26b3cc155f39 331 bTimerExpiredFlag = true;
stefanrousseau 3:26b3cc155f39 332 }
stefanrousseau 3:26b3cc155f39 333 } //OneMsFunction()
stefanrousseau 3:26b3cc155f39 334
stefanrousseau 16:17c5916f2d12 335 //********************************************************************************************************************************************
stefanrousseau 16:17c5916f2d12 336 //* Set the RGB LED's Color
stefanrousseau 16:17c5916f2d12 337 //* LED Color 0=Off to 7=White. 3 bits represent BGR (bit0=Red, bit1=Green, bit2=Blue)
stefanrousseau 16:17c5916f2d12 338 //********************************************************************************************************************************************
stefanrousseau 16:17c5916f2d12 339 void SetLedColor(unsigned char ucColor)
stefanrousseau 16:17c5916f2d12 340 {
stefanrousseau 16:17c5916f2d12 341 //Note that when an LED is on, you write a 0 to it:
stefanrousseau 16:17c5916f2d12 342 led_red = !(ucColor & 0x1); //bit 0
stefanrousseau 16:17c5916f2d12 343 led_green = !(ucColor & 0x2); //bit 1
stefanrousseau 16:17c5916f2d12 344 led_blue = !(ucColor & 0x4); //bit 2
stefanrousseau 16:17c5916f2d12 345 } //SetLedColor()
stefanrousseau 16:17c5916f2d12 346
stefanrousseau 16:17c5916f2d12 347 //********************************************************************************************************************************************
stefanrousseau 16:17c5916f2d12 348 //* Process JSON response messages
stefanrousseau 16:17c5916f2d12 349 //********************************************************************************************************************************************
stefanrousseau 16:17c5916f2d12 350 bool extract_JSON(char* search_field, char* found_string)
stefanrousseau 16:17c5916f2d12 351 {
stefanrousseau 16:17c5916f2d12 352 char* beginquote;
stefanrousseau 16:17c5916f2d12 353 char* endquote;
stefanrousseau 16:17c5916f2d12 354 beginquote = strchr(search_field, '{'); //start of JSON
stefanrousseau 16:17c5916f2d12 355 endquote = strchr(search_field, '}'); //end of JSON
stefanrousseau 41:9b14c40eebf6 356 if (beginquote)
stefanrousseau 16:17c5916f2d12 357 {
stefanrousseau 16:17c5916f2d12 358 uint16_t ifoundlen;
stefanrousseau 41:9b14c40eebf6 359 if (endquote)
stefanrousseau 16:17c5916f2d12 360 {
stefanrousseau 16:17c5916f2d12 361 ifoundlen = (uint16_t) (endquote - beginquote) + 1;
stefanrousseau 16:17c5916f2d12 362 strncpy(found_string, beginquote, ifoundlen );
stefanrousseau 16:17c5916f2d12 363 found_string[ifoundlen] = 0; //null terminate
stefanrousseau 16:17c5916f2d12 364 return true;
stefanrousseau 16:17c5916f2d12 365 }
stefanrousseau 16:17c5916f2d12 366 else
stefanrousseau 16:17c5916f2d12 367 {
stefanrousseau 16:17c5916f2d12 368 endquote = strchr(search_field, '\0'); //end of string... sometimes the end bracket is missing
stefanrousseau 16:17c5916f2d12 369 ifoundlen = (uint16_t) (endquote - beginquote) + 1;
stefanrousseau 16:17c5916f2d12 370 strncpy(found_string, beginquote, ifoundlen );
stefanrousseau 16:17c5916f2d12 371 found_string[ifoundlen] = 0; //null terminate
stefanrousseau 16:17c5916f2d12 372 return false;
stefanrousseau 16:17c5916f2d12 373 }
stefanrousseau 16:17c5916f2d12 374 }
stefanrousseau 16:17c5916f2d12 375 else
stefanrousseau 16:17c5916f2d12 376 {
stefanrousseau 16:17c5916f2d12 377 return false;
stefanrousseau 16:17c5916f2d12 378 }
stefanrousseau 16:17c5916f2d12 379 } //extract_JSON
stefanrousseau 16:17c5916f2d12 380
stefanrousseau 16:17c5916f2d12 381 bool parse_JSON(char* json_string)
stefanrousseau 16:17c5916f2d12 382 {
stefanrousseau 16:17c5916f2d12 383 char* beginquote;
stefanrousseau 16:17c5916f2d12 384 char token[] = "\"LED\":\"";
stefanrousseau 16:17c5916f2d12 385 beginquote = strstr(json_string, token );
stefanrousseau 16:17c5916f2d12 386 if ((beginquote != 0))
stefanrousseau 16:17c5916f2d12 387 {
stefanrousseau 16:17c5916f2d12 388 char cLedColor = beginquote[strlen(token)];
stefanrousseau 16:17c5916f2d12 389 printf(GRN "LED Found : %c" DEF "\r\n", cLedColor);
stefanrousseau 16:17c5916f2d12 390 switch(cLedColor)
stefanrousseau 16:17c5916f2d12 391 {
stefanrousseau 16:17c5916f2d12 392 case 'O':
stefanrousseau 16:17c5916f2d12 393 { //Off
stefanrousseau 16:17c5916f2d12 394 SetLedColor(0);
stefanrousseau 16:17c5916f2d12 395 break;
stefanrousseau 16:17c5916f2d12 396 }
stefanrousseau 16:17c5916f2d12 397 case 'R':
stefanrousseau 16:17c5916f2d12 398 { //Red
stefanrousseau 16:17c5916f2d12 399 SetLedColor(1);
stefanrousseau 16:17c5916f2d12 400 break;
stefanrousseau 16:17c5916f2d12 401 }
stefanrousseau 16:17c5916f2d12 402 case 'G':
stefanrousseau 16:17c5916f2d12 403 { //Green
stefanrousseau 16:17c5916f2d12 404 SetLedColor(2);
stefanrousseau 16:17c5916f2d12 405 break;
stefanrousseau 16:17c5916f2d12 406 }
stefanrousseau 16:17c5916f2d12 407 case 'Y':
stefanrousseau 16:17c5916f2d12 408 { //Yellow
stefanrousseau 16:17c5916f2d12 409 SetLedColor(3);
stefanrousseau 16:17c5916f2d12 410 break;
stefanrousseau 16:17c5916f2d12 411 }
stefanrousseau 16:17c5916f2d12 412 case 'B':
stefanrousseau 16:17c5916f2d12 413 { //Blue
stefanrousseau 16:17c5916f2d12 414 SetLedColor(4);
stefanrousseau 16:17c5916f2d12 415 break;
stefanrousseau 16:17c5916f2d12 416 }
stefanrousseau 16:17c5916f2d12 417 case 'M':
stefanrousseau 16:17c5916f2d12 418 { //Magenta
stefanrousseau 16:17c5916f2d12 419 SetLedColor(5);
stefanrousseau 16:17c5916f2d12 420 break;
stefanrousseau 16:17c5916f2d12 421 }
stefanrousseau 16:17c5916f2d12 422 case 'T':
stefanrousseau 16:17c5916f2d12 423 { //Turquoise
stefanrousseau 16:17c5916f2d12 424 SetLedColor(6);
stefanrousseau 16:17c5916f2d12 425 break;
stefanrousseau 16:17c5916f2d12 426 }
stefanrousseau 16:17c5916f2d12 427 case 'W':
stefanrousseau 16:17c5916f2d12 428 { //White
stefanrousseau 16:17c5916f2d12 429 SetLedColor(7);
stefanrousseau 16:17c5916f2d12 430 break;
stefanrousseau 16:17c5916f2d12 431 }
stefanrousseau 16:17c5916f2d12 432 default:
stefanrousseau 16:17c5916f2d12 433 {
stefanrousseau 16:17c5916f2d12 434 break;
stefanrousseau 16:17c5916f2d12 435 }
stefanrousseau 16:17c5916f2d12 436 } //switch(cLedColor)
stefanrousseau 16:17c5916f2d12 437 return true;
stefanrousseau 16:17c5916f2d12 438 }
stefanrousseau 16:17c5916f2d12 439 else
stefanrousseau 16:17c5916f2d12 440 {
stefanrousseau 16:17c5916f2d12 441 return false;
stefanrousseau 16:17c5916f2d12 442 }
stefanrousseau 16:17c5916f2d12 443 } //parse_JSON
stefanrousseau 16:17c5916f2d12 444
JMF 0:9d5134074d84 445 int main() {
JMF 2:0e2ef866af95 446 int i;
JMF 0:9d5134074d84 447 HTS221 hts221;
JMF 0:9d5134074d84 448 pc.baud(115200);
JMF 0:9d5134074d84 449
JMF 0:9d5134074d84 450 void hts221_init(void);
JMF 0:9d5134074d84 451
fkellermavnet 20:27a4f27254d0 452 // Set LED to RED until init finishes
fkellermavnet 20:27a4f27254d0 453 SetLedColor(0x1);
fkellermavnet 20:27a4f27254d0 454
JMF 1:af7a42f7d465 455 pc.printf(BLU "Hello World from AT&T Shape!\r\n\n\r");
JMF 0:9d5134074d84 456 pc.printf(GRN "Initialize the HTS221\n\r");
JMF 0:9d5134074d84 457
JMF 0:9d5134074d84 458 i = hts221.begin();
JMF 0:9d5134074d84 459 if( i )
JMF 0:9d5134074d84 460 pc.printf(BLU "HTS221 Detected! (0x%02X)\n\r",i);
JMF 0:9d5134074d84 461 else
JMF 0:9d5134074d84 462 pc.printf(RED "HTS221 NOT DETECTED!!\n\r");
JMF 0:9d5134074d84 463
JMF 0:9d5134074d84 464 printf("Temp is: %0.2f F \n\r",CTOF(hts221.readTemperature()));
JMF 0:9d5134074d84 465 printf("Humid is: %02d %%\n\r",hts221.readHumidity());
JMF 0:9d5134074d84 466
stefanrousseau 11:e6602513730f 467 sensors_init();
stefanrousseau 12:7c94ec5069dc 468 read_sensors();
stefanrousseau 11:e6602513730f 469
JMF 0:9d5134074d84 470 // Initialize the modem
JMF 0:9d5134074d84 471 printf(GRN "Modem initializing... will take up to 60 seconds" DEF "\r\n");
fkellermavnet 14:0c353e212296 472 do {
fkellermavnet 14:0c353e212296 473 i=mdm_init();
fkellermavnet 14:0c353e212296 474 if (!i) {
fkellermavnet 14:0c353e212296 475 pc.printf(RED "Modem initialization failed!" DEF "\n");
fkellermavnet 14:0c353e212296 476 }
fkellermavnet 14:0c353e212296 477 } while (!i);
JMF 0:9d5134074d84 478
JMF 2:0e2ef866af95 479 //Software init
JMF 2:0e2ef866af95 480 software_init_mdm();
fkellermavnet 19:f89baed3bd6f 481
JMF 2:0e2ef866af95 482 // Resolve URL to IP address to connect to
JMF 2:0e2ef866af95 483 resolve_mdm();
JMF 0:9d5134074d84 484
stefanrousseau 3:26b3cc155f39 485 //Create a 1ms timer tick function:
stefanrousseau 3:26b3cc155f39 486 OneMsTicker.attach(OneMsFunction, 0.001f) ;
fkellermavnet 26:8d6e7e7cdcae 487
stefanrousseau 24:bd480d2aade4 488 iTimer1Interval_ms = SENSOR_UPDATE_INTERVAL_MS;
stefanrousseau 3:26b3cc155f39 489
fkellermavnet 26:8d6e7e7cdcae 490 // Open the socket (connect to the server)
fkellermavnet 25:e7996d22a7e6 491 sockopen_mdm();
stefanrousseau 3:26b3cc155f39 492
fkellermavnet 20:27a4f27254d0 493 // Set LED BLUE for partial init
fkellermavnet 20:27a4f27254d0 494 SetLedColor(0x4);
fkellermavnet 20:27a4f27254d0 495
JMF 2:0e2ef866af95 496 // Send and receive data perpetually
JMF 2:0e2ef866af95 497 while(1) {
fkellermavnet 20:27a4f27254d0 498 static unsigned ledOnce = 0;
stefanrousseau 3:26b3cc155f39 499 if (bTimerExpiredFlag)
stefanrousseau 3:26b3cc155f39 500 {
stefanrousseau 3:26b3cc155f39 501 bTimerExpiredFlag = false;
stefanrousseau 3:26b3cc155f39 502 sprintf(SENSOR_DATA.Temperature, "%0.2f", CTOF(hts221.readTemperature()));
stefanrousseau 3:26b3cc155f39 503 sprintf(SENSOR_DATA.Humidity, "%02d", hts221.readHumidity());
stefanrousseau 4:f83bedd9cab4 504 read_sensors(); //read available external sensors from a PMOD and the on-board motion sensor
stefanrousseau 3:26b3cc155f39 505 char modem_string[512];
stefanrousseau 3:26b3cc155f39 506 GenerateModemString(&modem_string[0]);
stefanrousseau 41:9b14c40eebf6 507 printf(BLU "\r\nSending to modem : %s" DEF "\r\n", modem_string);
stefanrousseau 3:26b3cc155f39 508 sockwrite_mdm(modem_string);
stefanrousseau 3:26b3cc155f39 509 sockread_mdm(&MySocketData, 1024, 20);
fkellermavnet 48:93a4ab6ac177 510
stefanrousseau 41:9b14c40eebf6 511 if (sockread_mdm(&MySocketData, 1024, 20))
fkellermavnet 20:27a4f27254d0 512 {
stefanrousseau 41:9b14c40eebf6 513 // If any non-zero response from server, make it GREEN one-time
stefanrousseau 41:9b14c40eebf6 514 // then the actual FLOW responses will set the color.
stefanrousseau 41:9b14c40eebf6 515 if (!ledOnce)
stefanrousseau 41:9b14c40eebf6 516 {
stefanrousseau 41:9b14c40eebf6 517 ledOnce = 1;
stefanrousseau 41:9b14c40eebf6 518 SetLedColor(0x2);
stefanrousseau 41:9b14c40eebf6 519 }
stefanrousseau 41:9b14c40eebf6 520 printf(YEL "Read back : %s" DEF "\r\n", &MySocketData[0]);
stefanrousseau 41:9b14c40eebf6 521 char myJsonResponse[512];
fkellermavnet 48:93a4ab6ac177 522 char stringToCharBuf[1501]; // WNC can return max of 1500
fkellermavnet 48:93a4ab6ac177 523 strcpy(stringToCharBuf, MySocketData.c_str());
fkellermavnet 48:93a4ab6ac177 524 if (extract_JSON(stringToCharBuf, &myJsonResponse[0]))
stefanrousseau 41:9b14c40eebf6 525 {
stefanrousseau 41:9b14c40eebf6 526 printf(GRN "JSON : %s" DEF "\n", &myJsonResponse[0]);
stefanrousseau 41:9b14c40eebf6 527 parse_JSON(&myJsonResponse[0]);
stefanrousseau 41:9b14c40eebf6 528 }
stefanrousseau 16:17c5916f2d12 529 }
stefanrousseau 16:17c5916f2d12 530 else
stefanrousseau 16:17c5916f2d12 531 {
stefanrousseau 41:9b14c40eebf6 532 printf(RED "No response..." DEF "\r\n");
stefanrousseau 16:17c5916f2d12 533 }
stefanrousseau 3:26b3cc155f39 534 } //bTimerExpiredFlag
stefanrousseau 3:26b3cc155f39 535 } //forever loop
JMF 0:9d5134074d84 536 }