Giung Kim
/
WIZnet-IoTShield-WM01-TCP
Init Project for TCP
main.cpp@0:8f61900631fe, 2019-09-11 (annotated)
- Committer:
- AustinKim
- Date:
- Wed Sep 11 07:35:05 2019 +0000
- Revision:
- 0:8f61900631fe
Init Project for TCP
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
AustinKim | 0:8f61900631fe | 1 | /* WIZnet IoT Shield Cat.M1 Sample code for Arm MBED |
AustinKim | 0:8f61900631fe | 2 | * Copyright (c) 2019 WIZnet Co., Ltd. |
AustinKim | 0:8f61900631fe | 3 | * SPDX-License-Identifier: Apache-2.0 |
AustinKim | 0:8f61900631fe | 4 | */ |
AustinKim | 0:8f61900631fe | 5 | |
AustinKim | 0:8f61900631fe | 6 | /* |
AustinKim | 0:8f61900631fe | 7 | * Licensed under the Apache License, Version 2.0 (the "License"); |
AustinKim | 0:8f61900631fe | 8 | * you may not use this file except in compliance with the License. |
AustinKim | 0:8f61900631fe | 9 | * You may obtain a copy of the License at |
AustinKim | 0:8f61900631fe | 10 | * |
AustinKim | 0:8f61900631fe | 11 | * http://www.apache.org/licenses/LICENSE-2.0 |
AustinKim | 0:8f61900631fe | 12 | * |
AustinKim | 0:8f61900631fe | 13 | * Unless required by applicable law or agreed to in writing, software |
AustinKim | 0:8f61900631fe | 14 | * distributed under the License is distributed on an "AS IS" BASIS, |
AustinKim | 0:8f61900631fe | 15 | * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
AustinKim | 0:8f61900631fe | 16 | * |
AustinKim | 0:8f61900631fe | 17 | * See the License for the specific language governing permissions and |
AustinKim | 0:8f61900631fe | 18 | * limitations under the License. |
AustinKim | 0:8f61900631fe | 19 | * |
AustinKim | 0:8f61900631fe | 20 | */ |
AustinKim | 0:8f61900631fe | 21 | |
AustinKim | 0:8f61900631fe | 22 | #include "mbed.h" |
AustinKim | 0:8f61900631fe | 23 | |
AustinKim | 0:8f61900631fe | 24 | #include <string> |
AustinKim | 0:8f61900631fe | 25 | |
AustinKim | 0:8f61900631fe | 26 | #define RET_OK 1 |
AustinKim | 0:8f61900631fe | 27 | #define RET_NOK -1 |
AustinKim | 0:8f61900631fe | 28 | #define DEBUG_ENABLE 1 |
AustinKim | 0:8f61900631fe | 29 | #define DEBUG_DISABLE 0 |
AustinKim | 0:8f61900631fe | 30 | #define ON 1 |
AustinKim | 0:8f61900631fe | 31 | #define OFF 0 |
AustinKim | 0:8f61900631fe | 32 | |
AustinKim | 0:8f61900631fe | 33 | #define MAX_BUF_SIZE 1024 |
AustinKim | 0:8f61900631fe | 34 | |
AustinKim | 0:8f61900631fe | 35 | #define WM01_APN_PROTOCOL_IPv4 1 |
AustinKim | 0:8f61900631fe | 36 | #define WM01_APN_PROTOCOL_IPv6 2 |
AustinKim | 0:8f61900631fe | 37 | #define WM01_DEFAULT_TIMEOUT 1000 |
AustinKim | 0:8f61900631fe | 38 | #define WM01_CONNECT_TIMEOUT 15000 |
AustinKim | 0:8f61900631fe | 39 | #define WM01_SEND_TIMEOUT 500 |
AustinKim | 0:8f61900631fe | 40 | #define WM01_RECV_TIMEOUT 500 |
AustinKim | 0:8f61900631fe | 41 | #define WM01_BOOTING_TIME 15000 |
AustinKim | 0:8f61900631fe | 42 | |
AustinKim | 0:8f61900631fe | 43 | #define WM01_APN_PROTOCOL WM01_APN_PROTOCOL_IPv6 |
AustinKim | 0:8f61900631fe | 44 | #define WM01_DEFAULT_BAUD_RATE 115200 |
AustinKim | 0:8f61900631fe | 45 | #define WM01_PARSER_DELIMITER "\r\n" |
AustinKim | 0:8f61900631fe | 46 | |
AustinKim | 0:8f61900631fe | 47 | #define CATM1_APN_SKT "lte-internet.sktelecom.com" |
AustinKim | 0:8f61900631fe | 48 | |
AustinKim | 0:8f61900631fe | 49 | #define CATM1_DEVICE_NAME_WM01 "WM01" |
AustinKim | 0:8f61900631fe | 50 | #define DEVNAME CATM1_DEVICE_NAME_WM01 |
AustinKim | 0:8f61900631fe | 51 | |
AustinKim | 0:8f61900631fe | 52 | #define devlog(f_, ...) if(CATM1_DEVICE_DEBUG == DEBUG_ENABLE) { pc.printf("\r\n[%s] ", DEVNAME); pc.printf((f_), ##__VA_ARGS__); } |
AustinKim | 0:8f61900631fe | 53 | #define myprintf(f_, ...) {pc.printf("\r\n[MAIN] "); pc.printf((f_), ##__VA_ARGS__);} |
AustinKim | 0:8f61900631fe | 54 | |
AustinKim | 0:8f61900631fe | 55 | /* Pin configuraiton */ |
AustinKim | 0:8f61900631fe | 56 | // Cat.M1 |
AustinKim | 0:8f61900631fe | 57 | #define MBED_CONF_IOTSHIELD_CATM1_TX D8 |
AustinKim | 0:8f61900631fe | 58 | #define MBED_CONF_IOTSHIELD_CATM1_RX D2 |
AustinKim | 0:8f61900631fe | 59 | #define MBED_CONF_IOTSHIELD_CATM1_RESET D7 |
AustinKim | 0:8f61900631fe | 60 | #define MBED_CONF_IOTSHIELD_CATM1_PWRKEY D9 |
AustinKim | 0:8f61900631fe | 61 | |
AustinKim | 0:8f61900631fe | 62 | // Sensors |
AustinKim | 0:8f61900631fe | 63 | #define MBED_CONF_IOTSHIELD_SENSOR_CDS A0 |
AustinKim | 0:8f61900631fe | 64 | #define MBED_CONF_IOTSHIELD_SENSOR_TEMP A1 |
AustinKim | 0:8f61900631fe | 65 | |
AustinKim | 0:8f61900631fe | 66 | /* Debug message settings */ |
AustinKim | 0:8f61900631fe | 67 | #define WM01_PARSER_DEBUG DEBUG_DISABLE |
AustinKim | 0:8f61900631fe | 68 | #define CATM1_DEVICE_DEBUG DEBUG_ENABLE |
AustinKim | 0:8f61900631fe | 69 | |
AustinKim | 0:8f61900631fe | 70 | // Destination (Remote Host) |
AustinKim | 0:8f61900631fe | 71 | // IP address and Port number |
AustinKim | 0:8f61900631fe | 72 | // char dest_ip[] = "222.xxx.xxx.xxx"; |
AustinKim | 0:8f61900631fe | 73 | // int dest_port = xxxx; |
AustinKim | 0:8f61900631fe | 74 | char dest_ip[] = "222.98.173.214"; // Test IP |
AustinKim | 0:8f61900631fe | 75 | int dest_port = 8080; |
AustinKim | 0:8f61900631fe | 76 | int protocol = 1; // 1 : TCP, 2 : UPD |
AustinKim | 0:8f61900631fe | 77 | int packet_type = 0; // 0 : ASCII, 1 : HEX, 2 : Binary |
AustinKim | 0:8f61900631fe | 78 | |
AustinKim | 0:8f61900631fe | 79 | // Functions: Print information |
AustinKim | 0:8f61900631fe | 80 | void printInfo(void); |
AustinKim | 0:8f61900631fe | 81 | |
AustinKim | 0:8f61900631fe | 82 | // Functions: Module Status |
AustinKim | 0:8f61900631fe | 83 | void waitCatM1Ready(void); |
AustinKim | 0:8f61900631fe | 84 | int8_t setEchoStatus_WM01(bool onoff); |
AustinKim | 0:8f61900631fe | 85 | int8_t getUsimStatus_WM01(void); |
AustinKim | 0:8f61900631fe | 86 | int8_t getNetworkStatus_WM01(void); |
AustinKim | 0:8f61900631fe | 87 | |
AustinKim | 0:8f61900631fe | 88 | // Functions: PDP context |
AustinKim | 0:8f61900631fe | 89 | int8_t setContextActivate_WM01(void); // Activate a PDP Context |
AustinKim | 0:8f61900631fe | 90 | int8_t setContextDeactivate_WM01(void); // Deactivate a PDP Context |
AustinKim | 0:8f61900631fe | 91 | |
AustinKim | 0:8f61900631fe | 92 | // Functions: TCP/UDP Socket service |
AustinKim | 0:8f61900631fe | 93 | int8_t sockOpenConnect_WM01(int protocol, const char *addr, int port, int pckttype); |
AustinKim | 0:8f61900631fe | 94 | int8_t sockClose_WM01(void); |
AustinKim | 0:8f61900631fe | 95 | int8_t sendData_WM01(char *data, int len); |
AustinKim | 0:8f61900631fe | 96 | int8_t recvData_WM01(char *data, int *len); |
AustinKim | 0:8f61900631fe | 97 | |
AustinKim | 0:8f61900631fe | 98 | Serial pc(USBTX, USBRX); // tx, rx |
AustinKim | 0:8f61900631fe | 99 | |
AustinKim | 0:8f61900631fe | 100 | UARTSerial *_serial; |
AustinKim | 0:8f61900631fe | 101 | ATCmdParser *_parser; |
AustinKim | 0:8f61900631fe | 102 | |
AustinKim | 0:8f61900631fe | 103 | DigitalOut _RESET_WM01(MBED_CONF_IOTSHIELD_CATM1_RESET); |
AustinKim | 0:8f61900631fe | 104 | DigitalOut _PWRKEY_WM01(MBED_CONF_IOTSHIELD_CATM1_PWRKEY); |
AustinKim | 0:8f61900631fe | 105 | |
AustinKim | 0:8f61900631fe | 106 | void serialPcInit(void) |
AustinKim | 0:8f61900631fe | 107 | { |
AustinKim | 0:8f61900631fe | 108 | pc.baud(115200); |
AustinKim | 0:8f61900631fe | 109 | pc.format(8, Serial::None, 1); |
AustinKim | 0:8f61900631fe | 110 | } |
AustinKim | 0:8f61900631fe | 111 | |
AustinKim | 0:8f61900631fe | 112 | void serialDeviceInit(PinName tx, PinName rx, int baudrate) |
AustinKim | 0:8f61900631fe | 113 | { |
AustinKim | 0:8f61900631fe | 114 | _serial = new UARTSerial(tx, rx, baudrate); |
AustinKim | 0:8f61900631fe | 115 | } |
AustinKim | 0:8f61900631fe | 116 | |
AustinKim | 0:8f61900631fe | 117 | void serialAtParserInit(const char *delimiter, bool debug_en) |
AustinKim | 0:8f61900631fe | 118 | { |
AustinKim | 0:8f61900631fe | 119 | _parser = new ATCmdParser(_serial); |
AustinKim | 0:8f61900631fe | 120 | _parser->debug_on(debug_en); |
AustinKim | 0:8f61900631fe | 121 | _parser->set_delimiter(delimiter); |
AustinKim | 0:8f61900631fe | 122 | _parser->set_timeout(WM01_DEFAULT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 123 | } |
AustinKim | 0:8f61900631fe | 124 | |
AustinKim | 0:8f61900631fe | 125 | void catm1DeviceInit(void) |
AustinKim | 0:8f61900631fe | 126 | { |
AustinKim | 0:8f61900631fe | 127 | serialDeviceInit( MBED_CONF_IOTSHIELD_CATM1_TX, |
AustinKim | 0:8f61900631fe | 128 | MBED_CONF_IOTSHIELD_CATM1_RX, |
AustinKim | 0:8f61900631fe | 129 | WM01_DEFAULT_BAUD_RATE); |
AustinKim | 0:8f61900631fe | 130 | |
AustinKim | 0:8f61900631fe | 131 | serialAtParserInit( WM01_PARSER_DELIMITER, |
AustinKim | 0:8f61900631fe | 132 | WM01_PARSER_DEBUG); |
AustinKim | 0:8f61900631fe | 133 | } |
AustinKim | 0:8f61900631fe | 134 | |
AustinKim | 0:8f61900631fe | 135 | void catm1DeviceReset_WM01(void) |
AustinKim | 0:8f61900631fe | 136 | { |
AustinKim | 0:8f61900631fe | 137 | _RESET_WM01 = 1; |
AustinKim | 0:8f61900631fe | 138 | _PWRKEY_WM01 = 1; |
AustinKim | 0:8f61900631fe | 139 | wait_ms(300); |
AustinKim | 0:8f61900631fe | 140 | |
AustinKim | 0:8f61900631fe | 141 | _RESET_WM01 = 0; |
AustinKim | 0:8f61900631fe | 142 | _PWRKEY_WM01 = 0; |
AustinKim | 0:8f61900631fe | 143 | wait_ms(400); |
AustinKim | 0:8f61900631fe | 144 | |
AustinKim | 0:8f61900631fe | 145 | _RESET_WM01 = 1; |
AustinKim | 0:8f61900631fe | 146 | wait_ms(1000); |
AustinKim | 0:8f61900631fe | 147 | } |
AustinKim | 0:8f61900631fe | 148 | |
AustinKim | 0:8f61900631fe | 149 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 150 | // Main routine |
AustinKim | 0:8f61900631fe | 151 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 152 | |
AustinKim | 0:8f61900631fe | 153 | int main() |
AustinKim | 0:8f61900631fe | 154 | { |
AustinKim | 0:8f61900631fe | 155 | char sendbuf[] = "Hello Cat.M1\r\n"; |
AustinKim | 0:8f61900631fe | 156 | |
AustinKim | 0:8f61900631fe | 157 | serialPcInit(); |
AustinKim | 0:8f61900631fe | 158 | catm1DeviceInit(); |
AustinKim | 0:8f61900631fe | 159 | |
AustinKim | 0:8f61900631fe | 160 | myprintf("Waiting for Cat.M1 Module Ready...\r\n"); |
AustinKim | 0:8f61900631fe | 161 | |
AustinKim | 0:8f61900631fe | 162 | catm1DeviceReset_WM01(); |
AustinKim | 0:8f61900631fe | 163 | |
AustinKim | 0:8f61900631fe | 164 | wait_ms(WM01_BOOTING_TIME); // WM01 booting time |
AustinKim | 0:8f61900631fe | 165 | |
AustinKim | 0:8f61900631fe | 166 | waitCatM1Ready(); |
AustinKim | 0:8f61900631fe | 167 | |
AustinKim | 0:8f61900631fe | 168 | wait_ms(5000); |
AustinKim | 0:8f61900631fe | 169 | |
AustinKim | 0:8f61900631fe | 170 | myprintf("System Init Complete\r\n"); |
AustinKim | 0:8f61900631fe | 171 | |
AustinKim | 0:8f61900631fe | 172 | printInfo(); |
AustinKim | 0:8f61900631fe | 173 | |
AustinKim | 0:8f61900631fe | 174 | setEchoStatus_WM01(OFF); |
AustinKim | 0:8f61900631fe | 175 | |
AustinKim | 0:8f61900631fe | 176 | getUsimStatus_WM01(); |
AustinKim | 0:8f61900631fe | 177 | |
AustinKim | 0:8f61900631fe | 178 | getNetworkStatus_WM01(); |
AustinKim | 0:8f61900631fe | 179 | |
AustinKim | 0:8f61900631fe | 180 | setContextActivate_WM01(); |
AustinKim | 0:8f61900631fe | 181 | |
AustinKim | 0:8f61900631fe | 182 | // TCP Client: Send and Receive |
AustinKim | 0:8f61900631fe | 183 | myprintf("TCP Client Start - Connect to %s:%d\r\n", dest_ip, dest_port); |
AustinKim | 0:8f61900631fe | 184 | |
AustinKim | 0:8f61900631fe | 185 | if(sockOpenConnect_WM01(protocol, dest_ip, dest_port, packet_type) == RET_OK) |
AustinKim | 0:8f61900631fe | 186 | { |
AustinKim | 0:8f61900631fe | 187 | myprintf("sockOpenConnect: success\r\n"); |
AustinKim | 0:8f61900631fe | 188 | |
AustinKim | 0:8f61900631fe | 189 | if(sendData_WM01(sendbuf, strlen(sendbuf))) |
AustinKim | 0:8f61900631fe | 190 | { |
AustinKim | 0:8f61900631fe | 191 | myprintf("sendData [%d] %s\r\n", strlen(sendbuf), sendbuf); |
AustinKim | 0:8f61900631fe | 192 | } |
AustinKim | 0:8f61900631fe | 193 | else |
AustinKim | 0:8f61900631fe | 194 | { |
AustinKim | 0:8f61900631fe | 195 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 196 | } |
AustinKim | 0:8f61900631fe | 197 | |
AustinKim | 0:8f61900631fe | 198 | } |
AustinKim | 0:8f61900631fe | 199 | else |
AustinKim | 0:8f61900631fe | 200 | { |
AustinKim | 0:8f61900631fe | 201 | myprintf("sockOpen: failed\r\n"); |
AustinKim | 0:8f61900631fe | 202 | |
AustinKim | 0:8f61900631fe | 203 | if(sockClose_WM01() == RET_OK) |
AustinKim | 0:8f61900631fe | 204 | { |
AustinKim | 0:8f61900631fe | 205 | myprintf("sockClose: success\r\n"); |
AustinKim | 0:8f61900631fe | 206 | } |
AustinKim | 0:8f61900631fe | 207 | else |
AustinKim | 0:8f61900631fe | 208 | { |
AustinKim | 0:8f61900631fe | 209 | myprintf("sockClose: failed\r\n"); |
AustinKim | 0:8f61900631fe | 210 | } |
AustinKim | 0:8f61900631fe | 211 | } |
AustinKim | 0:8f61900631fe | 212 | |
AustinKim | 0:8f61900631fe | 213 | while(1) |
AustinKim | 0:8f61900631fe | 214 | { |
AustinKim | 0:8f61900631fe | 215 | // Data received |
AustinKim | 0:8f61900631fe | 216 | char recvbuf[100] = {0, }; |
AustinKim | 0:8f61900631fe | 217 | int recvlen = 0; |
AustinKim | 0:8f61900631fe | 218 | |
AustinKim | 0:8f61900631fe | 219 | // have to modify |
AustinKim | 0:8f61900631fe | 220 | if(recvData_WM01(recvbuf, &recvlen) == RET_OK) |
AustinKim | 0:8f61900631fe | 221 | { |
AustinKim | 0:8f61900631fe | 222 | myprintf("dataRecv [%d] %s\r\n", recvlen, recvbuf); |
AustinKim | 0:8f61900631fe | 223 | |
AustinKim | 0:8f61900631fe | 224 | char *ptr = strstr(recvbuf, "exit"); |
AustinKim | 0:8f61900631fe | 225 | |
AustinKim | 0:8f61900631fe | 226 | if(ptr != 0) |
AustinKim | 0:8f61900631fe | 227 | { |
AustinKim | 0:8f61900631fe | 228 | break; |
AustinKim | 0:8f61900631fe | 229 | } |
AustinKim | 0:8f61900631fe | 230 | else |
AustinKim | 0:8f61900631fe | 231 | { |
AustinKim | 0:8f61900631fe | 232 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 233 | } |
AustinKim | 0:8f61900631fe | 234 | } |
AustinKim | 0:8f61900631fe | 235 | else |
AustinKim | 0:8f61900631fe | 236 | { |
AustinKim | 0:8f61900631fe | 237 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 238 | } |
AustinKim | 0:8f61900631fe | 239 | } |
AustinKim | 0:8f61900631fe | 240 | |
AustinKim | 0:8f61900631fe | 241 | if(sockClose_WM01() == RET_OK) |
AustinKim | 0:8f61900631fe | 242 | { |
AustinKim | 0:8f61900631fe | 243 | myprintf("sockClose: success\r\n"); |
AustinKim | 0:8f61900631fe | 244 | } |
AustinKim | 0:8f61900631fe | 245 | else |
AustinKim | 0:8f61900631fe | 246 | { |
AustinKim | 0:8f61900631fe | 247 | myprintf("sockClose: failed\r\n"); |
AustinKim | 0:8f61900631fe | 248 | } |
AustinKim | 0:8f61900631fe | 249 | |
AustinKim | 0:8f61900631fe | 250 | setContextDeactivate_WM01(); |
AustinKim | 0:8f61900631fe | 251 | } |
AustinKim | 0:8f61900631fe | 252 | |
AustinKim | 0:8f61900631fe | 253 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 254 | // Functions: Print information |
AustinKim | 0:8f61900631fe | 255 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 256 | |
AustinKim | 0:8f61900631fe | 257 | void printInfo(void) |
AustinKim | 0:8f61900631fe | 258 | { |
AustinKim | 0:8f61900631fe | 259 | myprintf("WIZnet IoT Shield for Arm MBED"); |
AustinKim | 0:8f61900631fe | 260 | myprintf("LTE Cat.M1 Version"); |
AustinKim | 0:8f61900631fe | 261 | myprintf("================================================="); |
AustinKim | 0:8f61900631fe | 262 | myprintf(">> Target Board: WIoT-WM01 (Woorinet WM-N400MSE)"); |
AustinKim | 0:8f61900631fe | 263 | myprintf(">> Sample Code: Ping Test"); |
AustinKim | 0:8f61900631fe | 264 | myprintf("=================================================\r\n"); |
AustinKim | 0:8f61900631fe | 265 | } |
AustinKim | 0:8f61900631fe | 266 | |
AustinKim | 0:8f61900631fe | 267 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 268 | // Functions: Cat.M1 Status |
AustinKim | 0:8f61900631fe | 269 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 270 | |
AustinKim | 0:8f61900631fe | 271 | void waitCatM1Ready(void) |
AustinKim | 0:8f61900631fe | 272 | { |
AustinKim | 0:8f61900631fe | 273 | while(1) |
AustinKim | 0:8f61900631fe | 274 | { |
AustinKim | 0:8f61900631fe | 275 | if(_parser->send("AT") && _parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 276 | { |
AustinKim | 0:8f61900631fe | 277 | myprintf("WM01 is Available\r\n"); |
AustinKim | 0:8f61900631fe | 278 | |
AustinKim | 0:8f61900631fe | 279 | return; |
AustinKim | 0:8f61900631fe | 280 | } |
AustinKim | 0:8f61900631fe | 281 | else |
AustinKim | 0:8f61900631fe | 282 | { |
AustinKim | 0:8f61900631fe | 283 | myprintf("WM01 is not Available\r\n"); |
AustinKim | 0:8f61900631fe | 284 | |
AustinKim | 0:8f61900631fe | 285 | return; |
AustinKim | 0:8f61900631fe | 286 | } |
AustinKim | 0:8f61900631fe | 287 | } |
AustinKim | 0:8f61900631fe | 288 | } |
AustinKim | 0:8f61900631fe | 289 | |
AustinKim | 0:8f61900631fe | 290 | int8_t setEchoStatus_WM01(bool onoff) |
AustinKim | 0:8f61900631fe | 291 | { |
AustinKim | 0:8f61900631fe | 292 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 293 | char _buf[10]; |
AustinKim | 0:8f61900631fe | 294 | |
AustinKim | 0:8f61900631fe | 295 | sprintf((char *)_buf, "ATE%d", onoff); |
AustinKim | 0:8f61900631fe | 296 | |
AustinKim | 0:8f61900631fe | 297 | if(_parser->send(_buf) && _parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 298 | { |
AustinKim | 0:8f61900631fe | 299 | devlog("Turn Echo %s success\r\n", onoff?"ON":"OFF"); |
AustinKim | 0:8f61900631fe | 300 | |
AustinKim | 0:8f61900631fe | 301 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 302 | } |
AustinKim | 0:8f61900631fe | 303 | else |
AustinKim | 0:8f61900631fe | 304 | { |
AustinKim | 0:8f61900631fe | 305 | devlog("Turn Echo %s failed\r\n", onoff?"ON":"OFF"); |
AustinKim | 0:8f61900631fe | 306 | } |
AustinKim | 0:8f61900631fe | 307 | |
AustinKim | 0:8f61900631fe | 308 | return ret; |
AustinKim | 0:8f61900631fe | 309 | } |
AustinKim | 0:8f61900631fe | 310 | |
AustinKim | 0:8f61900631fe | 311 | int8_t getUsimStatus_WM01(void) |
AustinKim | 0:8f61900631fe | 312 | { |
AustinKim | 0:8f61900631fe | 313 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 314 | |
AustinKim | 0:8f61900631fe | 315 | if(_parser->send("AT$$STAT?") && _parser->recv("$$STAT:READY") && _parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 316 | { |
AustinKim | 0:8f61900631fe | 317 | devlog("USIM Status: READY\r\n"); |
AustinKim | 0:8f61900631fe | 318 | |
AustinKim | 0:8f61900631fe | 319 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 320 | } |
AustinKim | 0:8f61900631fe | 321 | else |
AustinKim | 0:8f61900631fe | 322 | { |
AustinKim | 0:8f61900631fe | 323 | devlog("Retrieving USIM Status failed\r\n"); |
AustinKim | 0:8f61900631fe | 324 | } |
AustinKim | 0:8f61900631fe | 325 | |
AustinKim | 0:8f61900631fe | 326 | return ret; |
AustinKim | 0:8f61900631fe | 327 | } |
AustinKim | 0:8f61900631fe | 328 | |
AustinKim | 0:8f61900631fe | 329 | int8_t getNetworkStatus_WM01(void) |
AustinKim | 0:8f61900631fe | 330 | { |
AustinKim | 0:8f61900631fe | 331 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 332 | int val, stat; |
AustinKim | 0:8f61900631fe | 333 | |
AustinKim | 0:8f61900631fe | 334 | if(_parser->send("AT+CEREG?") && _parser->recv("+CEREG: %d,%d", &val, &stat) && _parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 335 | { |
AustinKim | 0:8f61900631fe | 336 | if((val == 0) && (stat == 1)) |
AustinKim | 0:8f61900631fe | 337 | { |
AustinKim | 0:8f61900631fe | 338 | devlog("Network Status: attached\r\n"); |
AustinKim | 0:8f61900631fe | 339 | |
AustinKim | 0:8f61900631fe | 340 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 341 | } |
AustinKim | 0:8f61900631fe | 342 | else |
AustinKim | 0:8f61900631fe | 343 | { |
AustinKim | 0:8f61900631fe | 344 | devlog("Network Status: %d, %d\r\n", val, stat); |
AustinKim | 0:8f61900631fe | 345 | } |
AustinKim | 0:8f61900631fe | 346 | } |
AustinKim | 0:8f61900631fe | 347 | else |
AustinKim | 0:8f61900631fe | 348 | { |
AustinKim | 0:8f61900631fe | 349 | devlog("Network Status: Error\r\n"); |
AustinKim | 0:8f61900631fe | 350 | } |
AustinKim | 0:8f61900631fe | 351 | |
AustinKim | 0:8f61900631fe | 352 | return ret; |
AustinKim | 0:8f61900631fe | 353 | } |
AustinKim | 0:8f61900631fe | 354 | |
AustinKim | 0:8f61900631fe | 355 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 356 | // Functions: Cat.M1 PDP context activate / deactivate |
AustinKim | 0:8f61900631fe | 357 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 358 | |
AustinKim | 0:8f61900631fe | 359 | int8_t setContextActivate_WM01(void) // Activate a PDP Context |
AustinKim | 0:8f61900631fe | 360 | { |
AustinKim | 0:8f61900631fe | 361 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 362 | |
AustinKim | 0:8f61900631fe | 363 | _parser->send("AT*RNDISDATA=1"); |
AustinKim | 0:8f61900631fe | 364 | |
AustinKim | 0:8f61900631fe | 365 | if(_parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 366 | { |
AustinKim | 0:8f61900631fe | 367 | devlog("Activate a PDP Context\r\n"); |
AustinKim | 0:8f61900631fe | 368 | |
AustinKim | 0:8f61900631fe | 369 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 370 | } |
AustinKim | 0:8f61900631fe | 371 | else |
AustinKim | 0:8f61900631fe | 372 | { |
AustinKim | 0:8f61900631fe | 373 | devlog("PDP Context Activation failed\r\n"); |
AustinKim | 0:8f61900631fe | 374 | } |
AustinKim | 0:8f61900631fe | 375 | |
AustinKim | 0:8f61900631fe | 376 | return ret; |
AustinKim | 0:8f61900631fe | 377 | } |
AustinKim | 0:8f61900631fe | 378 | |
AustinKim | 0:8f61900631fe | 379 | int8_t setContextDeactivate_WM01(void) // Deactivate a PDP Context |
AustinKim | 0:8f61900631fe | 380 | { |
AustinKim | 0:8f61900631fe | 381 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 382 | |
AustinKim | 0:8f61900631fe | 383 | _parser->send("AT*RNDISDATA=0"); |
AustinKim | 0:8f61900631fe | 384 | |
AustinKim | 0:8f61900631fe | 385 | if(_parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 386 | { |
AustinKim | 0:8f61900631fe | 387 | devlog("Deactivate a PDP Context\r\n"); |
AustinKim | 0:8f61900631fe | 388 | |
AustinKim | 0:8f61900631fe | 389 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 390 | } |
AustinKim | 0:8f61900631fe | 391 | else |
AustinKim | 0:8f61900631fe | 392 | { |
AustinKim | 0:8f61900631fe | 393 | devlog("PDP Context Deactivation failed\r\n"); |
AustinKim | 0:8f61900631fe | 394 | } |
AustinKim | 0:8f61900631fe | 395 | return ret; |
AustinKim | 0:8f61900631fe | 396 | } |
AustinKim | 0:8f61900631fe | 397 | |
AustinKim | 0:8f61900631fe | 398 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 399 | // Functions: TCP/UDP socket service |
AustinKim | 0:8f61900631fe | 400 | // ---------------------------------------------------------------- |
AustinKim | 0:8f61900631fe | 401 | |
AustinKim | 0:8f61900631fe | 402 | int8_t sockOpenConnect_WM01(int protocol, const char *addr, int port, int pckttype) |
AustinKim | 0:8f61900631fe | 403 | { |
AustinKim | 0:8f61900631fe | 404 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 405 | bool done = false; |
AustinKim | 0:8f61900631fe | 406 | int ok = 0; // 0 : failure , 1 : success |
AustinKim | 0:8f61900631fe | 407 | int id = 0; |
AustinKim | 0:8f61900631fe | 408 | |
AustinKim | 0:8f61900631fe | 409 | Timer t; |
AustinKim | 0:8f61900631fe | 410 | |
AustinKim | 0:8f61900631fe | 411 | _parser->set_timeout(WM01_CONNECT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 412 | |
AustinKim | 0:8f61900631fe | 413 | if((protocol != 0) && (protocol != 1)) // 0 : TCP, 1 : UDP |
AustinKim | 0:8f61900631fe | 414 | { |
AustinKim | 0:8f61900631fe | 415 | return RET_NOK; |
AustinKim | 0:8f61900631fe | 416 | } |
AustinKim | 0:8f61900631fe | 417 | |
AustinKim | 0:8f61900631fe | 418 | t.start(); |
AustinKim | 0:8f61900631fe | 419 | |
AustinKim | 0:8f61900631fe | 420 | _parser->send("AT+WSOCR=%d,%s,%d,%d,%d", id, addr, port, protocol, pckttype); |
AustinKim | 0:8f61900631fe | 421 | |
AustinKim | 0:8f61900631fe | 422 | do |
AustinKim | 0:8f61900631fe | 423 | { |
AustinKim | 0:8f61900631fe | 424 | done = (_parser->recv("+WSOCR:%d,%d", &ok,&id) && (ok == 1)); |
AustinKim | 0:8f61900631fe | 425 | } while(!done && t.read_ms() < WM01_CONNECT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 426 | |
AustinKim | 0:8f61900631fe | 427 | if(done) |
AustinKim | 0:8f61900631fe | 428 | { |
AustinKim | 0:8f61900631fe | 429 | if(_parser->send("AT+WSOCO=%d", id) && _parser->recv("+WSOCO:%d,%d,OPEN_WAIT", &ok, &id) && _parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 430 | { |
AustinKim | 0:8f61900631fe | 431 | if(ok == 1) |
AustinKim | 0:8f61900631fe | 432 | { |
AustinKim | 0:8f61900631fe | 433 | if(_parser->recv("+WSOCO:%d,OPEN_CMPL", &id)) |
AustinKim | 0:8f61900631fe | 434 | { |
AustinKim | 0:8f61900631fe | 435 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 436 | } |
AustinKim | 0:8f61900631fe | 437 | else |
AustinKim | 0:8f61900631fe | 438 | { |
AustinKim | 0:8f61900631fe | 439 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 440 | } |
AustinKim | 0:8f61900631fe | 441 | |
AustinKim | 0:8f61900631fe | 442 | } |
AustinKim | 0:8f61900631fe | 443 | else |
AustinKim | 0:8f61900631fe | 444 | { |
AustinKim | 0:8f61900631fe | 445 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 446 | } |
AustinKim | 0:8f61900631fe | 447 | } |
AustinKim | 0:8f61900631fe | 448 | else |
AustinKim | 0:8f61900631fe | 449 | { |
AustinKim | 0:8f61900631fe | 450 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 451 | } |
AustinKim | 0:8f61900631fe | 452 | } |
AustinKim | 0:8f61900631fe | 453 | |
AustinKim | 0:8f61900631fe | 454 | _parser->set_timeout(WM01_DEFAULT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 455 | _parser->flush(); |
AustinKim | 0:8f61900631fe | 456 | |
AustinKim | 0:8f61900631fe | 457 | return ret; |
AustinKim | 0:8f61900631fe | 458 | } |
AustinKim | 0:8f61900631fe | 459 | |
AustinKim | 0:8f61900631fe | 460 | int8_t sockClose_WM01(void) |
AustinKim | 0:8f61900631fe | 461 | { |
AustinKim | 0:8f61900631fe | 462 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 463 | int ok = 0; // 0 : failure , 1 : success |
AustinKim | 0:8f61900631fe | 464 | int id = 0; |
AustinKim | 0:8f61900631fe | 465 | |
AustinKim | 0:8f61900631fe | 466 | _parser->set_timeout(WM01_CONNECT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 467 | |
AustinKim | 0:8f61900631fe | 468 | if(_parser->send("AT+WSOCL=%d", id) && _parser->recv("+WSOCL:%d,%d,CLOSE_WAIT", &ok, &id) &&_parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 469 | { |
AustinKim | 0:8f61900631fe | 470 | if(ok == 1) |
AustinKim | 0:8f61900631fe | 471 | { |
AustinKim | 0:8f61900631fe | 472 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 473 | } |
AustinKim | 0:8f61900631fe | 474 | else |
AustinKim | 0:8f61900631fe | 475 | { |
AustinKim | 0:8f61900631fe | 476 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 477 | } |
AustinKim | 0:8f61900631fe | 478 | |
AustinKim | 0:8f61900631fe | 479 | } |
AustinKim | 0:8f61900631fe | 480 | _parser->set_timeout(WM01_DEFAULT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 481 | |
AustinKim | 0:8f61900631fe | 482 | return ret; |
AustinKim | 0:8f61900631fe | 483 | } |
AustinKim | 0:8f61900631fe | 484 | |
AustinKim | 0:8f61900631fe | 485 | int8_t sendData_WM01(char *data, int len) |
AustinKim | 0:8f61900631fe | 486 | { |
AustinKim | 0:8f61900631fe | 487 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 488 | bool done = false; |
AustinKim | 0:8f61900631fe | 489 | int ok = 0; // 0 : failure , 1 : success |
AustinKim | 0:8f61900631fe | 490 | int id = 0; |
AustinKim | 0:8f61900631fe | 491 | |
AustinKim | 0:8f61900631fe | 492 | _parser->set_timeout(WM01_SEND_TIMEOUT); |
AustinKim | 0:8f61900631fe | 493 | _parser->send("AT+WSOWR=%d,%d,%s", id, len, data); |
AustinKim | 0:8f61900631fe | 494 | |
AustinKim | 0:8f61900631fe | 495 | if(_parser->recv("+WSOWR:%d,%d", &ok, &id) && _parser->recv("OK")) |
AustinKim | 0:8f61900631fe | 496 | { |
AustinKim | 0:8f61900631fe | 497 | if(ok == 1) // success |
AustinKim | 0:8f61900631fe | 498 | { |
AustinKim | 0:8f61900631fe | 499 | devlog("sendData: success\r\n"); |
AustinKim | 0:8f61900631fe | 500 | |
AustinKim | 0:8f61900631fe | 501 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 502 | } |
AustinKim | 0:8f61900631fe | 503 | else // failure |
AustinKim | 0:8f61900631fe | 504 | { |
AustinKim | 0:8f61900631fe | 505 | devlog("sendData: failed\r\n"); |
AustinKim | 0:8f61900631fe | 506 | } |
AustinKim | 0:8f61900631fe | 507 | } |
AustinKim | 0:8f61900631fe | 508 | else |
AustinKim | 0:8f61900631fe | 509 | { |
AustinKim | 0:8f61900631fe | 510 | ; /* nothing to do */ |
AustinKim | 0:8f61900631fe | 511 | } |
AustinKim | 0:8f61900631fe | 512 | |
AustinKim | 0:8f61900631fe | 513 | _parser->set_timeout(WM01_DEFAULT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 514 | |
AustinKim | 0:8f61900631fe | 515 | return ret; |
AustinKim | 0:8f61900631fe | 516 | } |
AustinKim | 0:8f61900631fe | 517 | |
AustinKim | 0:8f61900631fe | 518 | // have to modify |
AustinKim | 0:8f61900631fe | 519 | int8_t recvData_WM01(char *data, int *len) |
AustinKim | 0:8f61900631fe | 520 | { |
AustinKim | 0:8f61900631fe | 521 | int8_t ret = RET_NOK; |
AustinKim | 0:8f61900631fe | 522 | int id = 0; |
AustinKim | 0:8f61900631fe | 523 | int recvCount = 0; |
AustinKim | 0:8f61900631fe | 524 | |
AustinKim | 0:8f61900631fe | 525 | _parser->set_timeout(WM01_RECV_TIMEOUT); |
AustinKim | 0:8f61900631fe | 526 | |
AustinKim | 0:8f61900631fe | 527 | if(_parser->recv("+WSORD:%d,%d,%s", &id, len, data)) |
AustinKim | 0:8f61900631fe | 528 | { |
AustinKim | 0:8f61900631fe | 529 | ret = RET_OK; |
AustinKim | 0:8f61900631fe | 530 | } |
AustinKim | 0:8f61900631fe | 531 | |
AustinKim | 0:8f61900631fe | 532 | _parser->set_timeout(WM01_DEFAULT_TIMEOUT); |
AustinKim | 0:8f61900631fe | 533 | _parser->flush(); |
AustinKim | 0:8f61900631fe | 534 | |
AustinKim | 0:8f61900631fe | 535 | return ret; |
AustinKim | 0:8f61900631fe | 536 | } |