Raghav Ganesh
/
AvnetATT_shape_hackathon
This program simply connects to a HTS221 I2C device to read Temperature
wnc_control.cpp@29:83d9bf7b52a4, 2016-07-16 (annotated)
- Committer:
- jet2mars
- Date:
- Sat Jul 16 17:24:50 2016 +0000
- Revision:
- 29:83d9bf7b52a4
- Parent:
- 22:41e6c417ace1
source-code
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
JMF | 2:0e2ef866af95 | 1 | #include "mbed.h" |
JMF | 2:0e2ef866af95 | 2 | #include <cctype> |
JMF | 2:0e2ef866af95 | 3 | #include <string> |
JMF | 2:0e2ef866af95 | 4 | #include "config_me.h" |
JMF | 2:0e2ef866af95 | 5 | #include "SerialBuffered.h" |
JMF | 2:0e2ef866af95 | 6 | #include "wnc_control.h" |
JMF | 2:0e2ef866af95 | 7 | |
JMF | 2:0e2ef866af95 | 8 | extern Serial pc; |
JMF | 2:0e2ef866af95 | 9 | extern Serial mdm; |
JMF | 2:0e2ef866af95 | 10 | extern string MyServerIpAddress; |
JMF | 2:0e2ef866af95 | 11 | extern string MySocketData; |
JMF | 2:0e2ef866af95 | 12 | |
JMF | 2:0e2ef866af95 | 13 | int reinitialize_mdm(void); |
JMF | 2:0e2ef866af95 | 14 | |
JMF | 2:0e2ef866af95 | 15 | enum WNC_ERR_e { |
JMF | 2:0e2ef866af95 | 16 | WNC_OK =0, |
JMF | 2:0e2ef866af95 | 17 | WNC_CMD_ERR = -1, |
JMF | 2:0e2ef866af95 | 18 | WNC_NO_RESPONSE = -2 |
JMF | 2:0e2ef866af95 | 19 | }; |
JMF | 2:0e2ef866af95 | 20 | |
JMF | 2:0e2ef866af95 | 21 | // Contains result of last call to send_wnc_cmd(..) |
JMF | 2:0e2ef866af95 | 22 | WNC_ERR_e WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 23 | |
JMF | 2:0e2ef866af95 | 24 | // Contains the RAW WNC UART responses |
JMF | 2:0e2ef866af95 | 25 | static string wncStr; |
fkellermavnet | 10:df54436ecd38 | 26 | static int socketOpen = 0; |
JMF | 2:0e2ef866af95 | 27 | |
JMF | 2:0e2ef866af95 | 28 | void software_init_mdm(void) |
JMF | 2:0e2ef866af95 | 29 | { |
JMF | 2:0e2ef866af95 | 30 | do |
JMF | 2:0e2ef866af95 | 31 | { |
JMF | 2:0e2ef866af95 | 32 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 33 | at_init_wnc(); |
JMF | 2:0e2ef866af95 | 34 | if (WNC_MDM_ERR != WNC_OK) |
JMF | 2:0e2ef866af95 | 35 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 36 | } while (WNC_MDM_ERR != WNC_OK); |
JMF | 2:0e2ef866af95 | 37 | } |
JMF | 2:0e2ef866af95 | 38 | |
JMF | 2:0e2ef866af95 | 39 | void resolve_mdm(void) |
JMF | 2:0e2ef866af95 | 40 | { |
JMF | 2:0e2ef866af95 | 41 | do |
JMF | 2:0e2ef866af95 | 42 | { |
JMF | 2:0e2ef866af95 | 43 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 44 | at_dnsresolve_wnc(MY_SERVER_URL, &MyServerIpAddress); |
JMF | 2:0e2ef866af95 | 45 | if (WNC_MDM_ERR == WNC_NO_RESPONSE) |
JMF | 2:0e2ef866af95 | 46 | { |
JMF | 2:0e2ef866af95 | 47 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 48 | software_init_mdm(); |
JMF | 2:0e2ef866af95 | 49 | } |
JMF | 2:0e2ef866af95 | 50 | else if (WNC_MDM_ERR == WNC_CMD_ERR) |
JMF | 2:0e2ef866af95 | 51 | { |
JMF | 2:0e2ef866af95 | 52 | pc.puts("Bad URL!!!!!!\r\n"); |
JMF | 2:0e2ef866af95 | 53 | MyServerIpAddress = "192.168.0.1"; |
JMF | 2:0e2ef866af95 | 54 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 55 | } |
JMF | 2:0e2ef866af95 | 56 | } while (WNC_MDM_ERR != WNC_OK); |
JMF | 2:0e2ef866af95 | 57 | |
JMF | 2:0e2ef866af95 | 58 | pc.printf("My Server IP: %s\r\n", MyServerIpAddress.data()); |
JMF | 2:0e2ef866af95 | 59 | } |
JMF | 2:0e2ef866af95 | 60 | |
JMF | 2:0e2ef866af95 | 61 | void sockopen_mdm(void) |
JMF | 2:0e2ef866af95 | 62 | { |
JMF | 2:0e2ef866af95 | 63 | do |
JMF | 2:0e2ef866af95 | 64 | { |
fkellermavnet | 19:f89baed3bd6f | 65 | at_at_wnc(); |
fkellermavnet | 19:f89baed3bd6f | 66 | at_at_wnc(); |
JMF | 2:0e2ef866af95 | 67 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 68 | at_sockopen_wnc(MyServerIpAddress, MY_PORT_STR); |
JMF | 2:0e2ef866af95 | 69 | if (WNC_MDM_ERR == WNC_NO_RESPONSE) |
JMF | 2:0e2ef866af95 | 70 | { |
JMF | 2:0e2ef866af95 | 71 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 72 | software_init_mdm(); |
JMF | 2:0e2ef866af95 | 73 | } |
JMF | 2:0e2ef866af95 | 74 | else if (WNC_MDM_ERR == WNC_CMD_ERR) |
JMF | 2:0e2ef866af95 | 75 | pc.puts("Socket open fail!!!!\r\n"); |
fkellermavnet | 10:df54436ecd38 | 76 | else |
fkellermavnet | 10:df54436ecd38 | 77 | socketOpen = 1; |
JMF | 2:0e2ef866af95 | 78 | } while (WNC_MDM_ERR != WNC_OK); |
JMF | 2:0e2ef866af95 | 79 | } |
JMF | 2:0e2ef866af95 | 80 | |
JMF | 2:0e2ef866af95 | 81 | void sockwrite_mdm(const char * s) |
JMF | 2:0e2ef866af95 | 82 | { |
fkellermavnet | 10:df54436ecd38 | 83 | if (socketOpen == 1) |
fkellermavnet | 10:df54436ecd38 | 84 | { |
JMF | 2:0e2ef866af95 | 85 | do |
JMF | 2:0e2ef866af95 | 86 | { |
JMF | 2:0e2ef866af95 | 87 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 88 | at_sockwrite_wnc(s); |
jet2mars | 29:83d9bf7b52a4 | 89 | printf("\n\nINSIDE SOCKWRITE\n\n"); |
JMF | 2:0e2ef866af95 | 90 | if (WNC_MDM_ERR == WNC_NO_RESPONSE) |
JMF | 2:0e2ef866af95 | 91 | { |
JMF | 2:0e2ef866af95 | 92 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 93 | software_init_mdm(); |
JMF | 2:0e2ef866af95 | 94 | } |
JMF | 2:0e2ef866af95 | 95 | else if (WNC_MDM_ERR == WNC_CMD_ERR) |
JMF | 2:0e2ef866af95 | 96 | { |
JMF | 2:0e2ef866af95 | 97 | pc.puts("Socket Write fail!!!\r\n"); |
JMF | 2:0e2ef866af95 | 98 | // Have seen when write fails modem gets stuck in bad state, try to recover |
JMF | 2:0e2ef866af95 | 99 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 100 | software_init_mdm(); |
JMF | 2:0e2ef866af95 | 101 | } |
JMF | 2:0e2ef866af95 | 102 | } while (WNC_MDM_ERR != WNC_OK); |
fkellermavnet | 10:df54436ecd38 | 103 | } |
fkellermavnet | 10:df54436ecd38 | 104 | else |
fkellermavnet | 10:df54436ecd38 | 105 | puts("Socket is closed for write!\r\n"); |
JMF | 2:0e2ef866af95 | 106 | } |
JMF | 2:0e2ef866af95 | 107 | |
JMF | 2:0e2ef866af95 | 108 | void sockread_mdm(string * sockData, int len, int retries) |
JMF | 2:0e2ef866af95 | 109 | { |
fkellermavnet | 10:df54436ecd38 | 110 | if (socketOpen == 1) |
fkellermavnet | 10:df54436ecd38 | 111 | { |
JMF | 2:0e2ef866af95 | 112 | do |
JMF | 2:0e2ef866af95 | 113 | { |
JMF | 2:0e2ef866af95 | 114 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 115 | at_sockread_wnc(sockData, len, retries); |
JMF | 2:0e2ef866af95 | 116 | if (WNC_MDM_ERR == WNC_NO_RESPONSE) |
JMF | 2:0e2ef866af95 | 117 | { |
JMF | 2:0e2ef866af95 | 118 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 119 | software_init_mdm(); |
JMF | 2:0e2ef866af95 | 120 | } |
JMF | 2:0e2ef866af95 | 121 | else if (WNC_MDM_ERR == WNC_CMD_ERR) |
JMF | 2:0e2ef866af95 | 122 | puts("Sock read fail!!!!\r\n"); |
JMF | 2:0e2ef866af95 | 123 | } while (WNC_MDM_ERR != WNC_OK); |
fkellermavnet | 10:df54436ecd38 | 124 | } |
fkellermavnet | 10:df54436ecd38 | 125 | else |
fkellermavnet | 10:df54436ecd38 | 126 | puts("Socket is closed for read\r\n"); |
JMF | 2:0e2ef866af95 | 127 | } |
JMF | 2:0e2ef866af95 | 128 | |
JMF | 2:0e2ef866af95 | 129 | void sockclose_mdm(void) |
JMF | 2:0e2ef866af95 | 130 | { |
JMF | 2:0e2ef866af95 | 131 | do |
JMF | 2:0e2ef866af95 | 132 | { |
JMF | 2:0e2ef866af95 | 133 | WNC_MDM_ERR = WNC_OK; |
JMF | 2:0e2ef866af95 | 134 | at_sockclose_wnc(); |
fkellermavnet | 10:df54436ecd38 | 135 | // Assume close happened even if it went bad |
fkellermavnet | 10:df54436ecd38 | 136 | // going bad will result in a re-init anyways and if close |
fkellermavnet | 10:df54436ecd38 | 137 | // fails we're pretty much in bad state and not much can do |
fkellermavnet | 10:df54436ecd38 | 138 | socketOpen = 0; |
JMF | 2:0e2ef866af95 | 139 | if (WNC_MDM_ERR == WNC_NO_RESPONSE) |
JMF | 2:0e2ef866af95 | 140 | { |
JMF | 2:0e2ef866af95 | 141 | reinitialize_mdm(); |
JMF | 2:0e2ef866af95 | 142 | software_init_mdm(); |
JMF | 2:0e2ef866af95 | 143 | } |
JMF | 2:0e2ef866af95 | 144 | else if (WNC_MDM_ERR == WNC_CMD_ERR) |
JMF | 2:0e2ef866af95 | 145 | puts("Sock close fail!!!\r\n"); |
JMF | 2:0e2ef866af95 | 146 | } while (WNC_MDM_ERR != WNC_OK); |
JMF | 2:0e2ef866af95 | 147 | } |
JMF | 2:0e2ef866af95 | 148 | |
JMF | 2:0e2ef866af95 | 149 | /** |
JMF | 2:0e2ef866af95 | 150 | * C++ version 0.4 char* style "itoa": |
JMF | 2:0e2ef866af95 | 151 | * Written by Lukás Chmela |
JMF | 2:0e2ef866af95 | 152 | * Released under GPLv3. |
JMF | 2:0e2ef866af95 | 153 | */ |
JMF | 2:0e2ef866af95 | 154 | |
JMF | 2:0e2ef866af95 | 155 | char* itoa(int value, char* result, int base) |
JMF | 2:0e2ef866af95 | 156 | { |
JMF | 2:0e2ef866af95 | 157 | // check that the base if valid |
JMF | 2:0e2ef866af95 | 158 | if ( base < 2 || base > 36 ) { |
JMF | 2:0e2ef866af95 | 159 | *result = '\0'; |
JMF | 2:0e2ef866af95 | 160 | return result; |
JMF | 2:0e2ef866af95 | 161 | } |
JMF | 2:0e2ef866af95 | 162 | |
JMF | 2:0e2ef866af95 | 163 | char* ptr = result, *ptr1 = result, tmp_char; |
JMF | 2:0e2ef866af95 | 164 | int tmp_value; |
JMF | 2:0e2ef866af95 | 165 | |
JMF | 2:0e2ef866af95 | 166 | do { |
JMF | 2:0e2ef866af95 | 167 | tmp_value = value; |
JMF | 2:0e2ef866af95 | 168 | value /= base; |
JMF | 2:0e2ef866af95 | 169 | *ptr++ = "zyxwvutsrqponmlkjihgfedcba9876543210123456789abcdefghijklmnopqrstuvwxyz"[35 + (tmp_value - value * base)]; |
JMF | 2:0e2ef866af95 | 170 | } while ( value ); |
JMF | 2:0e2ef866af95 | 171 | |
JMF | 2:0e2ef866af95 | 172 | // Apply negative sign |
JMF | 2:0e2ef866af95 | 173 | if ( tmp_value < 0 ) |
JMF | 2:0e2ef866af95 | 174 | *ptr++ = '-'; |
JMF | 2:0e2ef866af95 | 175 | *ptr-- = '\0'; |
JMF | 2:0e2ef866af95 | 176 | |
JMF | 2:0e2ef866af95 | 177 | while ( ptr1 < ptr ) { |
JMF | 2:0e2ef866af95 | 178 | tmp_char = *ptr; |
JMF | 2:0e2ef866af95 | 179 | *ptr-- = *ptr1; |
JMF | 2:0e2ef866af95 | 180 | *ptr1++ = tmp_char; |
JMF | 2:0e2ef866af95 | 181 | } |
JMF | 2:0e2ef866af95 | 182 | |
JMF | 2:0e2ef866af95 | 183 | return result; |
JMF | 2:0e2ef866af95 | 184 | } |
JMF | 2:0e2ef866af95 | 185 | |
JMF | 2:0e2ef866af95 | 186 | extern int mdm_sendAtCmdRsp(const char *cmd, const char **rsp_list, int timeout_ms, string * rsp, int * len); |
JMF | 2:0e2ef866af95 | 187 | |
JMF | 2:0e2ef866af95 | 188 | // Sets a global with failure or success, assumes 1 thread all the time |
JMF | 2:0e2ef866af95 | 189 | int send_wnc_cmd(const char * s, string ** r, int ms_timeout) |
JMF | 2:0e2ef866af95 | 190 | { |
JMF | 2:0e2ef866af95 | 191 | static const char * rsp_lst[] = { "OK", "ERROR", NULL }; |
JMF | 2:0e2ef866af95 | 192 | int len; |
JMF | 2:0e2ef866af95 | 193 | |
JMF | 2:0e2ef866af95 | 194 | pc.printf("Send: %s\r\n",s); |
JMF | 2:0e2ef866af95 | 195 | int res = mdm_sendAtCmdRsp(s, rsp_lst, ms_timeout, &wncStr, &len); |
JMF | 2:0e2ef866af95 | 196 | *r = &wncStr; // Return a pointer to the static string |
JMF | 2:0e2ef866af95 | 197 | |
jet2mars | 29:83d9bf7b52a4 | 198 | printf("\n\nIN SEND WNC COMMAND\n\n"); |
jet2mars | 29:83d9bf7b52a4 | 199 | |
JMF | 2:0e2ef866af95 | 200 | if (res >= 0) |
JMF | 2:0e2ef866af95 | 201 | { |
JMF | 2:0e2ef866af95 | 202 | pc.puts("["); |
JMF | 2:0e2ef866af95 | 203 | pc.puts(wncStr.data()); |
JMF | 2:0e2ef866af95 | 204 | pc.puts("]\n\r"); |
JMF | 2:0e2ef866af95 | 205 | if (res > 0) |
JMF | 2:0e2ef866af95 | 206 | { |
JMF | 2:0e2ef866af95 | 207 | if (WNC_MDM_ERR != WNC_NO_RESPONSE) |
JMF | 2:0e2ef866af95 | 208 | WNC_MDM_ERR = WNC_CMD_ERR; |
JMF | 2:0e2ef866af95 | 209 | return -1; |
JMF | 2:0e2ef866af95 | 210 | } |
JMF | 2:0e2ef866af95 | 211 | else |
JMF | 2:0e2ef866af95 | 212 | return 0; |
JMF | 2:0e2ef866af95 | 213 | } |
JMF | 2:0e2ef866af95 | 214 | else |
JMF | 2:0e2ef866af95 | 215 | { |
JMF | 2:0e2ef866af95 | 216 | WNC_MDM_ERR = WNC_NO_RESPONSE; |
JMF | 2:0e2ef866af95 | 217 | pc.puts("No response from WNC!\n\r"); |
JMF | 2:0e2ef866af95 | 218 | return -2; |
JMF | 2:0e2ef866af95 | 219 | } |
JMF | 2:0e2ef866af95 | 220 | } |
JMF | 2:0e2ef866af95 | 221 | |
fkellermavnet | 19:f89baed3bd6f | 222 | void at_at_wnc(void) |
fkellermavnet | 19:f89baed3bd6f | 223 | { |
fkellermavnet | 19:f89baed3bd6f | 224 | string * pRespStr; |
fkellermavnet | 19:f89baed3bd6f | 225 | send_wnc_cmd("AT", &pRespStr, WNC_TIMEOUT_MS); // Heartbeat? |
fkellermavnet | 19:f89baed3bd6f | 226 | } |
fkellermavnet | 19:f89baed3bd6f | 227 | |
JMF | 2:0e2ef866af95 | 228 | void at_init_wnc(void) |
JMF | 2:0e2ef866af95 | 229 | { |
JMF | 2:0e2ef866af95 | 230 | string * pRespStr; |
JMF | 2:0e2ef866af95 | 231 | send_wnc_cmd("AT", &pRespStr, WNC_TIMEOUT_MS); // Heartbeat? |
JMF | 2:0e2ef866af95 | 232 | send_wnc_cmd("ATE1", &pRespStr, WNC_TIMEOUT_MS); // Echo ON |
JMF | 2:0e2ef866af95 | 233 | string cmd_str("AT%PDNSET=1,"); |
JMF | 2:0e2ef866af95 | 234 | cmd_str += MY_APN_STR; |
JMF | 2:0e2ef866af95 | 235 | cmd_str += ",IP"; |
JMF | 2:0e2ef866af95 | 236 | send_wnc_cmd(cmd_str.data(), &pRespStr, 2*WNC_TIMEOUT_MS); // Set APN, cmd seems to take a little longer sometimes |
JMF | 2:0e2ef866af95 | 237 | send_wnc_cmd("AT@INTERNET=1", &pRespStr, WNC_TIMEOUT_MS); // Internet services enabled |
JMF | 2:0e2ef866af95 | 238 | send_wnc_cmd("AT@SOCKDIAL=1", &pRespStr, WNC_TIMEOUT_MS); |
JMF | 2:0e2ef866af95 | 239 | } |
JMF | 2:0e2ef866af95 | 240 | |
JMF | 2:0e2ef866af95 | 241 | void at_sockopen_wnc(const string & ipStr, const char * port ) |
JMF | 2:0e2ef866af95 | 242 | { |
JMF | 2:0e2ef866af95 | 243 | string * pRespStr; |
JMF | 2:0e2ef866af95 | 244 | send_wnc_cmd("AT@SOCKCREAT=1", &pRespStr, WNC_TIMEOUT_MS); |
JMF | 2:0e2ef866af95 | 245 | string cmd_str("AT@SOCKCONN=1,\""); |
JMF | 2:0e2ef866af95 | 246 | cmd_str += ipStr; |
JMF | 2:0e2ef866af95 | 247 | cmd_str += "\","; |
JMF | 2:0e2ef866af95 | 248 | cmd_str += port; |
JMF | 2:0e2ef866af95 | 249 | send_wnc_cmd(cmd_str.data(), &pRespStr, WNC_TIMEOUT_MS); |
JMF | 2:0e2ef866af95 | 250 | } |
JMF | 2:0e2ef866af95 | 251 | |
JMF | 2:0e2ef866af95 | 252 | void at_sockclose_wnc(void) |
JMF | 2:0e2ef866af95 | 253 | { |
JMF | 2:0e2ef866af95 | 254 | string * pRespStr; |
JMF | 2:0e2ef866af95 | 255 | send_wnc_cmd("AT@SOCKCLOSE=1", &pRespStr, WNC_TIMEOUT_MS); |
JMF | 2:0e2ef866af95 | 256 | } |
JMF | 2:0e2ef866af95 | 257 | |
JMF | 2:0e2ef866af95 | 258 | int at_dnsresolve_wnc(const char * s, string * ipStr) |
JMF | 2:0e2ef866af95 | 259 | { |
JMF | 2:0e2ef866af95 | 260 | string * pRespStr; |
JMF | 2:0e2ef866af95 | 261 | string str(s); |
JMF | 2:0e2ef866af95 | 262 | str = "AT@DNSRESVDON=\"" + str; |
JMF | 2:0e2ef866af95 | 263 | str += "\"\r\n"; |
JMF | 2:0e2ef866af95 | 264 | if (send_wnc_cmd(str.data(), &pRespStr, WNC_TIMEOUT_MS) == 0) |
JMF | 2:0e2ef866af95 | 265 | { |
JMF | 2:0e2ef866af95 | 266 | size_t pos_start = pRespStr->find(":\"") + 2; |
JMF | 2:0e2ef866af95 | 267 | if (pos_start != string::npos) |
JMF | 2:0e2ef866af95 | 268 | { |
JMF | 2:0e2ef866af95 | 269 | size_t pos_end = pRespStr->rfind("\"") - 1; |
JMF | 2:0e2ef866af95 | 270 | if (pos_end != string::npos) |
JMF | 2:0e2ef866af95 | 271 | { |
JMF | 2:0e2ef866af95 | 272 | if (pos_end > pos_start) |
JMF | 2:0e2ef866af95 | 273 | { |
JMF | 2:0e2ef866af95 | 274 | // Make a copy for use later (the source string is re-used) |
JMF | 2:0e2ef866af95 | 275 | *ipStr = pRespStr->substr(pos_start, pos_end - pos_start + 1); |
JMF | 2:0e2ef866af95 | 276 | return 1; |
JMF | 2:0e2ef866af95 | 277 | } |
JMF | 2:0e2ef866af95 | 278 | else |
JMF | 2:0e2ef866af95 | 279 | pc.puts("URL Resolve fail, substr Err\r\n"); |
JMF | 2:0e2ef866af95 | 280 | } |
JMF | 2:0e2ef866af95 | 281 | else |
JMF | 2:0e2ef866af95 | 282 | pc.puts("URL Resolve fail, no 2nd quote\r\n"); |
JMF | 2:0e2ef866af95 | 283 | } |
JMF | 2:0e2ef866af95 | 284 | else |
JMF | 2:0e2ef866af95 | 285 | pc.puts("URL Resolve fail, no quotes\r\n"); |
JMF | 2:0e2ef866af95 | 286 | } |
JMF | 2:0e2ef866af95 | 287 | else |
JMF | 2:0e2ef866af95 | 288 | pc.puts("URL Resolve fail, WNC cmd fail\r\n"); |
JMF | 2:0e2ef866af95 | 289 | |
JMF | 2:0e2ef866af95 | 290 | return -1; |
JMF | 2:0e2ef866af95 | 291 | } |
JMF | 2:0e2ef866af95 | 292 | |
JMF | 2:0e2ef866af95 | 293 | void at_sockwrite_wnc(const char * s) |
JMF | 2:0e2ef866af95 | 294 | { |
JMF | 2:0e2ef866af95 | 295 | string * pRespStr; |
JMF | 2:0e2ef866af95 | 296 | char num2str[6]; |
JMF | 2:0e2ef866af95 | 297 | size_t sLen = strlen(s); |
JMF | 2:0e2ef866af95 | 298 | if (sLen <= 99999) |
JMF | 2:0e2ef866af95 | 299 | { |
jet2mars | 29:83d9bf7b52a4 | 300 | printf("\n\nCreating String\n\n"); |
jet2mars | 29:83d9bf7b52a4 | 301 | static string cmd_str("AT@SOCKWRITE=1,"); |
jet2mars | 29:83d9bf7b52a4 | 302 | printf("\n\nSTARTING ITOA FUNCTION\n\n"); |
JMF | 2:0e2ef866af95 | 303 | itoa(sLen, num2str, 10); |
jet2mars | 29:83d9bf7b52a4 | 304 | printf("\n\n ENDING ITOA FUNCTION\n\n"); |
JMF | 2:0e2ef866af95 | 305 | cmd_str += num2str; |
JMF | 2:0e2ef866af95 | 306 | cmd_str += ",\""; |
JMF | 2:0e2ef866af95 | 307 | while(*s != '\0') |
JMF | 2:0e2ef866af95 | 308 | { |
JMF | 2:0e2ef866af95 | 309 | itoa((int)*s++, num2str, 16); |
JMF | 2:0e2ef866af95 | 310 | // Always 2-digit ascii hex: |
JMF | 2:0e2ef866af95 | 311 | if (strlen(num2str) == 1) |
JMF | 2:0e2ef866af95 | 312 | { |
JMF | 2:0e2ef866af95 | 313 | num2str[2] = '\0'; |
JMF | 2:0e2ef866af95 | 314 | num2str[1] = num2str[0]; |
JMF | 2:0e2ef866af95 | 315 | num2str[0] = '0'; |
JMF | 2:0e2ef866af95 | 316 | } |
JMF | 2:0e2ef866af95 | 317 | cmd_str += num2str; |
JMF | 2:0e2ef866af95 | 318 | } |
JMF | 2:0e2ef866af95 | 319 | cmd_str += "\""; |
jet2mars | 29:83d9bf7b52a4 | 320 | printf("\n\nAT SOCKWRTIE FUNCTION\n\n"); |
JMF | 2:0e2ef866af95 | 321 | send_wnc_cmd(cmd_str.data(), &pRespStr, WNC_TIMEOUT_MS); |
jet2mars | 29:83d9bf7b52a4 | 322 | cmd_str = ""; |
JMF | 2:0e2ef866af95 | 323 | } |
JMF | 2:0e2ef866af95 | 324 | else |
jet2mars | 29:83d9bf7b52a4 | 325 | printf("\n\nSTRING TO LOMG\n\n"); |
JMF | 2:0e2ef866af95 | 326 | pc.puts("sockwrite Err, string to long\r\n"); |
JMF | 2:0e2ef866af95 | 327 | } |
JMF | 2:0e2ef866af95 | 328 | |
JMF | 2:0e2ef866af95 | 329 | unsigned at_sockread_wnc(string * pS, unsigned n, unsigned retries = 0) |
JMF | 2:0e2ef866af95 | 330 | { |
JMF | 2:0e2ef866af95 | 331 | unsigned i; |
JMF | 2:0e2ef866af95 | 332 | string * pRespStr; |
JMF | 2:0e2ef866af95 | 333 | string cmd_str("AT@SOCKREAD=1,"); |
JMF | 2:0e2ef866af95 | 334 | if (n <= 1500) |
JMF | 2:0e2ef866af95 | 335 | { |
JMF | 2:0e2ef866af95 | 336 | char num2str[6]; |
fkellermavnet | 22:41e6c417ace1 | 337 | |
JMF | 2:0e2ef866af95 | 338 | itoa(n, num2str, 10); |
JMF | 2:0e2ef866af95 | 339 | cmd_str += num2str; |
JMF | 2:0e2ef866af95 | 340 | retries += 1; |
JMF | 2:0e2ef866af95 | 341 | while (retries--) |
JMF | 2:0e2ef866af95 | 342 | { |
fkellermavnet | 22:41e6c417ace1 | 343 | // Assuming someone is sending then calling this to receive response, invoke |
fkellermavnet | 22:41e6c417ace1 | 344 | // a pause to give the response some time to come back and then also |
fkellermavnet | 22:41e6c417ace1 | 345 | // between each retry. |
fkellermavnet | 22:41e6c417ace1 | 346 | wait_ms(10); |
fkellermavnet | 22:41e6c417ace1 | 347 | |
JMF | 2:0e2ef866af95 | 348 | send_wnc_cmd(cmd_str.data(), &pRespStr, WNC_TIMEOUT_MS); |
JMF | 2:0e2ef866af95 | 349 | size_t pos_start = pRespStr->find("\"") + 1; |
JMF | 2:0e2ef866af95 | 350 | size_t pos_end = pRespStr->rfind("\"") - 1; |
JMF | 2:0e2ef866af95 | 351 | i = pos_end - pos_start + 1; |
JMF | 2:0e2ef866af95 | 352 | if (i > 0) |
JMF | 2:0e2ef866af95 | 353 | { |
JMF | 2:0e2ef866af95 | 354 | retries = 0; // If any data found stop retrying |
JMF | 2:0e2ef866af95 | 355 | string byte; |
JMF | 2:0e2ef866af95 | 356 | pS->erase(); |
JMF | 2:0e2ef866af95 | 357 | while (pos_start < pos_end) |
JMF | 2:0e2ef866af95 | 358 | { |
JMF | 2:0e2ef866af95 | 359 | byte = pRespStr->substr(pos_start, 2); |
JMF | 2:0e2ef866af95 | 360 | *pS += (char)strtol(byte.data(), NULL, 16); |
JMF | 2:0e2ef866af95 | 361 | pos_start += 2; |
JMF | 2:0e2ef866af95 | 362 | } |
JMF | 2:0e2ef866af95 | 363 | return i; |
JMF | 2:0e2ef866af95 | 364 | } |
JMF | 2:0e2ef866af95 | 365 | } |
JMF | 2:0e2ef866af95 | 366 | } |
JMF | 2:0e2ef866af95 | 367 | else |
JMF | 2:0e2ef866af95 | 368 | pc.puts("sockread Err, to many to read\r\n"); |
JMF | 2:0e2ef866af95 | 369 | |
JMF | 2:0e2ef866af95 | 370 | return 0; |
JMF | 2:0e2ef866af95 | 371 | } |