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