FBI FRATER / Mbed 2 deprecated InetTest

Dependencies:   mbed

NetServices/drv/gprs/GPRSModem.cpp@0:4edb816d21e1, 2015-10-16 (annotated)

Committer:
ICTFBI
Date:
Fri Oct 16 14:28:26 2015 +0000
Revision:
0:4edb816d21e1
Pre-update 16-10-15

Who changed what in which revision?

UserRevisionLine numberNew contents of line
ICTFBI 0:4edb816d21e1 1
ICTFBI 0:4edb816d21e1 2 /*
ICTFBI 0:4edb816d21e1 3 Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
ICTFBI 0:4edb816d21e1 4
ICTFBI 0:4edb816d21e1 5 Permission is hereby granted, free of charge, to any person obtaining a copy
ICTFBI 0:4edb816d21e1 6 of this software and associated documentation files (the "Software"), to deal
ICTFBI 0:4edb816d21e1 7 in the Software without restriction, including without limitation the rights
ICTFBI 0:4edb816d21e1 8 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
ICTFBI 0:4edb816d21e1 9 copies of the Software, and to permit persons to whom the Software is
ICTFBI 0:4edb816d21e1 10 furnished to do so, subject to the following conditions:
ICTFBI 0:4edb816d21e1 11
ICTFBI 0:4edb816d21e1 12 The above copyright notice and this permission notice shall be included in
ICTFBI 0:4edb816d21e1 13 all copies or substantial portions of the Software.
ICTFBI 0:4edb816d21e1 14
ICTFBI 0:4edb816d21e1 15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
ICTFBI 0:4edb816d21e1 16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
ICTFBI 0:4edb816d21e1 17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
ICTFBI 0:4edb816d21e1 18 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
ICTFBI 0:4edb816d21e1 19 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
ICTFBI 0:4edb816d21e1 20 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
ICTFBI 0:4edb816d21e1 21 THE SOFTWARE.
ICTFBI 0:4edb816d21e1 22 */
ICTFBI 0:4edb816d21e1 23
ICTFBI 0:4edb816d21e1 24 #include "GPRSModem.h"
ICTFBI 0:4edb816d21e1 25 #include "mbed.h"
ICTFBI 0:4edb816d21e1 26
ICTFBI 0:4edb816d21e1 27 //#define __DEBUG
ICTFBI 0:4edb816d21e1 28 #include "dbg/dbg.h"
ICTFBI 0:4edb816d21e1 29
ICTFBI 0:4edb816d21e1 30 #define WAIT_BTW_NETW_POLLS 3.
ICTFBI 0:4edb816d21e1 31
ICTFBI 0:4edb816d21e1 32 #include "netCfg.h"
ICTFBI 0:4edb816d21e1 33 #if NET_GPRS
ICTFBI 0:4edb816d21e1 34
ICTFBI 0:4edb816d21e1 35 GPRSModem::GPRSModem() : ATIf()
ICTFBI 0:4edb816d21e1 36 {
ICTFBI 0:4edb816d21e1 37 DBG("New GPRSModem@%p\n", this);
ICTFBI 0:4edb816d21e1 38 }
ICTFBI 0:4edb816d21e1 39
ICTFBI 0:4edb816d21e1 40 GPRSModem::~GPRSModem()
ICTFBI 0:4edb816d21e1 41 {
ICTFBI 0:4edb816d21e1 42
ICTFBI 0:4edb816d21e1 43 }
ICTFBI 0:4edb816d21e1 44
ICTFBI 0:4edb816d21e1 45 GPRSErr GPRSModem::getNetworkState()
ICTFBI 0:4edb816d21e1 46 {
ICTFBI 0:4edb816d21e1 47 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 48 /*
ICTFBI 0:4edb816d21e1 49 netState can be : (Telit_AT_Reference_Guide.pdf p.98)
ICTFBI 0:4edb816d21e1 50 0 - not registered, ME is not currently searching a new operator to register to
ICTFBI 0:4edb816d21e1 51 1 - registered, home network
ICTFBI 0:4edb816d21e1 52 2 - not registered, but ME is currently searching a new operator to register to
ICTFBI 0:4edb816d21e1 53 3 - registration denied
ICTFBI 0:4edb816d21e1 54 4 - unknown
ICTFBI 0:4edb816d21e1 55 5 - registered, roaming
ICTFBI 0:4edb816d21e1 56 */
ICTFBI 0:4edb816d21e1 57 // DBG("Network?...\r\n");
ICTFBI 0:4edb816d21e1 58 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 59 ATIf::setTimeout(10000);
ICTFBI 0:4edb816d21e1 60 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 61 int netState = 0;
ICTFBI 0:4edb816d21e1 62 int len;
ICTFBI 0:4edb816d21e1 63 len = ATIf::printf("AT+CREG?"); //Registered ?
ICTFBI 0:4edb816d21e1 64 if(!len) DBG("\r\nprintf - len=%d\r\n",len);
ICTFBI 0:4edb816d21e1 65 if(!len)
ICTFBI 0:4edb816d21e1 66 return GPRS_MODEM; //Nothing was actually sent
ICTFBI 0:4edb816d21e1 67
ICTFBI 0:4edb816d21e1 68 len = ATIf::scanf("+CREG: 0,%d", &netState); //Get status
ICTFBI 0:4edb816d21e1 69 if(len != 1) DBG("\r\nscanf - len=%d\r\n",len);
ICTFBI 0:4edb816d21e1 70 if(len != 1) //Likely +CMS ERROR was returned
ICTFBI 0:4edb816d21e1 71 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 72
ICTFBI 0:4edb816d21e1 73 if( !!ATIf::checkOK() ) //Should not be a problem
ICTFBI 0:4edb816d21e1 74 {DBG("\r\nNOK\r\n"); return GPRS_MODEM; }
ICTFBI 0:4edb816d21e1 75
ICTFBI 0:4edb816d21e1 76 switch(netState)
ICTFBI 0:4edb816d21e1 77 {
ICTFBI 0:4edb816d21e1 78 case 1:
ICTFBI 0:4edb816d21e1 79 case 5: //TODO: Option allow roaming
ICTFBI 0:4edb816d21e1 80 DBG("\r\nNetwork is up!\r\n");
ICTFBI 0:4edb816d21e1 81 return GPRS_OK;
ICTFBI 0:4edb816d21e1 82 case 3:
ICTFBI 0:4edb816d21e1 83 DBG("\r\nAccess to network denied.\r\n");
ICTFBI 0:4edb816d21e1 84 return GPRS_DENIED;
ICTFBI 0:4edb816d21e1 85 case 0:
ICTFBI 0:4edb816d21e1 86 DBG("\r\nNo network.\r\n");
ICTFBI 0:4edb816d21e1 87 return GPRS_NONETWORK;
ICTFBI 0:4edb816d21e1 88 case 4:
ICTFBI 0:4edb816d21e1 89 case 2:
ICTFBI 0:4edb816d21e1 90 //DBG("\r\nRegistering...\r\n");
ICTFBI 0:4edb816d21e1 91 return GPRS_REGISTERING;
ICTFBI 0:4edb816d21e1 92 }
ICTFBI 0:4edb816d21e1 93
ICTFBI 0:4edb816d21e1 94 return GPRS_MODEM; // Should not reach this
ICTFBI 0:4edb816d21e1 95
ICTFBI 0:4edb816d21e1 96 }
ICTFBI 0:4edb816d21e1 97
ICTFBI 0:4edb816d21e1 98 GPRSErr GPRSModem::setNetworkUp()
ICTFBI 0:4edb816d21e1 99 {
ICTFBI 0:4edb816d21e1 100 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 101 GPRSErr err = GPRS_REGISTERING;
ICTFBI 0:4edb816d21e1 102 while(true)
ICTFBI 0:4edb816d21e1 103 {
ICTFBI 0:4edb816d21e1 104 err = getNetworkState();
ICTFBI 0:4edb816d21e1 105 if(err != GPRS_REGISTERING)
ICTFBI 0:4edb816d21e1 106 break;
ICTFBI 0:4edb816d21e1 107 wait(WAIT_BTW_NETW_POLLS);
ICTFBI 0:4edb816d21e1 108 }
ICTFBI 0:4edb816d21e1 109 return err;
ICTFBI 0:4edb816d21e1 110 }
ICTFBI 0:4edb816d21e1 111
ICTFBI 0:4edb816d21e1 112 //Same, but for GPRS
ICTFBI 0:4edb816d21e1 113 GPRSErr GPRSModem::getGPRSState()
ICTFBI 0:4edb816d21e1 114 {
ICTFBI 0:4edb816d21e1 115 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 116 /*
ICTFBI 0:4edb816d21e1 117 netState can be : (Telit_AT_Reference_Guide.pdf p.192)
ICTFBI 0:4edb816d21e1 118 0 - not registered, terminal is not currently searching a new operator to register to
ICTFBI 0:4edb816d21e1 119 1 - registered, home network
ICTFBI 0:4edb816d21e1 120 2 - not registered, but terminal is currently searching a new operator to register to
ICTFBI 0:4edb816d21e1 121 3 - registration denied
ICTFBI 0:4edb816d21e1 122 4 - unknown
ICTFBI 0:4edb816d21e1 123 5 - registered, roaming
ICTFBI 0:4edb816d21e1 124 */
ICTFBI 0:4edb816d21e1 125
ICTFBI 0:4edb816d21e1 126 DBG("GPRS?...\r\n");
ICTFBI 0:4edb816d21e1 127 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 128 ATIf::setTimeout(10000);
ICTFBI 0:4edb816d21e1 129 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 130 int netState = 0;
ICTFBI 0:4edb816d21e1 131 int len;
ICTFBI 0:4edb816d21e1 132 len = ATIf::printf("AT+CGREG?"); //Registered ?
ICTFBI 0:4edb816d21e1 133 if(!len)
ICTFBI 0:4edb816d21e1 134 return GPRS_MODEM; //Nothing was actually sent
ICTFBI 0:4edb816d21e1 135
ICTFBI 0:4edb816d21e1 136 len = ATIf::scanf("+CGREG: %*d,%d", &netState); //Get GPRS status, see GSM 07.07 spec as Telit AT ref is wrong
ICTFBI 0:4edb816d21e1 137 if(len != 1) DBG("\r\nscanf - len=%d\r\n",len);
ICTFBI 0:4edb816d21e1 138 if(len != 1) //Likely +CMS ERROR was returned
ICTFBI 0:4edb816d21e1 139 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 140
ICTFBI 0:4edb816d21e1 141 if( !!ATIf::checkOK() ) //Should not be a problem
ICTFBI 0:4edb816d21e1 142 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 143
ICTFBI 0:4edb816d21e1 144 switch(netState)
ICTFBI 0:4edb816d21e1 145 {
ICTFBI 0:4edb816d21e1 146 case 1:
ICTFBI 0:4edb816d21e1 147 case 5: //TODO: Option allow roaming
ICTFBI 0:4edb816d21e1 148 DBG("\r\nNetwork is up!\r\n");
ICTFBI 0:4edb816d21e1 149 return GPRS_OK;
ICTFBI 0:4edb816d21e1 150 case 3:
ICTFBI 0:4edb816d21e1 151 DBG("\r\nAccess to network denied.\r\n");
ICTFBI 0:4edb816d21e1 152 return GPRS_DENIED;
ICTFBI 0:4edb816d21e1 153 case 0:
ICTFBI 0:4edb816d21e1 154 DBG("\r\nNo network.\r\n");
ICTFBI 0:4edb816d21e1 155 return GPRS_NONETWORK;
ICTFBI 0:4edb816d21e1 156 case 4:
ICTFBI 0:4edb816d21e1 157 case 2:
ICTFBI 0:4edb816d21e1 158 DBG("\r\nRegistering...\r\n");
ICTFBI 0:4edb816d21e1 159 return GPRS_REGISTERING;
ICTFBI 0:4edb816d21e1 160 }
ICTFBI 0:4edb816d21e1 161
ICTFBI 0:4edb816d21e1 162 return GPRS_MODEM; // Should not reach this
ICTFBI 0:4edb816d21e1 163
ICTFBI 0:4edb816d21e1 164 }
ICTFBI 0:4edb816d21e1 165
ICTFBI 0:4edb816d21e1 166 GPRSErr GPRSModem::setGPRSUp()
ICTFBI 0:4edb816d21e1 167 {
ICTFBI 0:4edb816d21e1 168 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 169 GPRSErr err;
ICTFBI 0:4edb816d21e1 170
ICTFBI 0:4edb816d21e1 171 err = setNetworkUp();
ICTFBI 0:4edb816d21e1 172 if(err)
ICTFBI 0:4edb816d21e1 173 return err;
ICTFBI 0:4edb816d21e1 174
ICTFBI 0:4edb816d21e1 175 DBG("\r\nAttaching GPRS...\r\n");
ICTFBI 0:4edb816d21e1 176 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 177 ATIf::setTimeout(10000);
ICTFBI 0:4edb816d21e1 178 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 179 int len;
ICTFBI 0:4edb816d21e1 180
ICTFBI 0:4edb816d21e1 181 err = getGPRSState();
ICTFBI 0:4edb816d21e1 182 if(err == GPRS_NONETWORK)
ICTFBI 0:4edb816d21e1 183 {
ICTFBI 0:4edb816d21e1 184 len = ATIf::printf("AT+CGATT=1"); //Attach
ICTFBI 0:4edb816d21e1 185 if(!len)
ICTFBI 0:4edb816d21e1 186 return GPRS_MODEM; //Nothing was actually sent
ICTFBI 0:4edb816d21e1 187
ICTFBI 0:4edb816d21e1 188 if( !!ATIf::checkOK() ) //Should not be a problem
ICTFBI 0:4edb816d21e1 189 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 190 }
ICTFBI 0:4edb816d21e1 191
ICTFBI 0:4edb816d21e1 192 while(true)
ICTFBI 0:4edb816d21e1 193 {
ICTFBI 0:4edb816d21e1 194 err = getGPRSState();
ICTFBI 0:4edb816d21e1 195 if(err != GPRS_REGISTERING)
ICTFBI 0:4edb816d21e1 196 break;
ICTFBI 0:4edb816d21e1 197 wait(WAIT_BTW_NETW_POLLS);
ICTFBI 0:4edb816d21e1 198 }
ICTFBI 0:4edb816d21e1 199 return err;
ICTFBI 0:4edb816d21e1 200 }
ICTFBI 0:4edb816d21e1 201
ICTFBI 0:4edb816d21e1 202 GPRSErr GPRSModem::setGPRSDown()
ICTFBI 0:4edb816d21e1 203 {
ICTFBI 0:4edb816d21e1 204 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 205 DBG("\r\nDetaching GPRS...\r\n");
ICTFBI 0:4edb816d21e1 206 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 207 ATIf::setTimeout(10000);
ICTFBI 0:4edb816d21e1 208 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 209 int len;
ICTFBI 0:4edb816d21e1 210
ICTFBI 0:4edb816d21e1 211 len = ATIf::printf("AT+CGATT=0"); //Detach
ICTFBI 0:4edb816d21e1 212 if(!len)
ICTFBI 0:4edb816d21e1 213 return GPRS_MODEM; //Nothing was actually sent
ICTFBI 0:4edb816d21e1 214
ICTFBI 0:4edb816d21e1 215 if( !!ATIf::checkOK() ) //Should not be a problem
ICTFBI 0:4edb816d21e1 216 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 217
ICTFBI 0:4edb816d21e1 218 return GPRS_OK;
ICTFBI 0:4edb816d21e1 219 }
ICTFBI 0:4edb816d21e1 220
ICTFBI 0:4edb816d21e1 221
ICTFBI 0:4edb816d21e1 222 GPRSErr GPRSModem::connect(const char* apn /*=NULL*/)
ICTFBI 0:4edb816d21e1 223 {
ICTFBI 0:4edb816d21e1 224 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 225 GPRSErr err;
ICTFBI 0:4edb816d21e1 226
ICTFBI 0:4edb816d21e1 227 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 228 ATIf::setTimeout(5000);
ICTFBI 0:4edb816d21e1 229 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 230
ICTFBI 0:4edb816d21e1 231 DBG("\r\nConnecting...\r\n");
ICTFBI 0:4edb816d21e1 232
ICTFBI 0:4edb816d21e1 233 int len;
ICTFBI 0:4edb816d21e1 234
ICTFBI 0:4edb816d21e1 235 if( apn != NULL ) //Config APN
ICTFBI 0:4edb816d21e1 236 {
ICTFBI 0:4edb816d21e1 237 len = ATIf::printf("AT+CGDCONT=1,\"IP\",\"%s\"",apn); //Define APN
ICTFBI 0:4edb816d21e1 238 if(!len)
ICTFBI 0:4edb816d21e1 239 return GPRS_MODEM; //Nothing was actually sent
ICTFBI 0:4edb816d21e1 240
ICTFBI 0:4edb816d21e1 241 if( !!ATIf::checkOK() ) //Should not be a problem
ICTFBI 0:4edb816d21e1 242 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 243 }
ICTFBI 0:4edb816d21e1 244
ICTFBI 0:4edb816d21e1 245 err = setGPRSUp();
ICTFBI 0:4edb816d21e1 246 if(err)
ICTFBI 0:4edb816d21e1 247 return err;
ICTFBI 0:4edb816d21e1 248
ICTFBI 0:4edb816d21e1 249 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 250 ATIf::setTimeout(60000);
ICTFBI 0:4edb816d21e1 251 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 252 //
ICTFBI 0:4edb816d21e1 253 //len = ATIf::printf("AT+CGDATA=\"PPP\",1"); //Connect using PDP context #1
ICTFBI 0:4edb816d21e1 254 // len = ATIf::printf("ATDT *99***1#");
ICTFBI 0:4edb816d21e1 255 len = ATIf::printf("ATDT *99#");
ICTFBI 0:4edb816d21e1 256 if(!len)
ICTFBI 0:4edb816d21e1 257 return GPRS_MODEM; //Nothing was actually sent
ICTFBI 0:4edb816d21e1 258
ICTFBI 0:4edb816d21e1 259 len = ATIf::scanf("CONNECT"); //Beginning of session
ICTFBI 0:4edb816d21e1 260 if(len != 0) //Likely +CME ERROR was returned or NO CARRIER
ICTFBI 0:4edb816d21e1 261 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 262
ICTFBI 0:4edb816d21e1 263 //ATIf::setSignals(false);
ICTFBI 0:4edb816d21e1 264
ICTFBI 0:4edb816d21e1 265 DBG("\r\nConnected.\r\n");
ICTFBI 0:4edb816d21e1 266
ICTFBI 0:4edb816d21e1 267 return GPRS_OK; //Time to enter a PPP Session !
ICTFBI 0:4edb816d21e1 268
ICTFBI 0:4edb816d21e1 269 }
ICTFBI 0:4edb816d21e1 270
ICTFBI 0:4edb816d21e1 271 GPRSErr GPRSModem::disconnect()
ICTFBI 0:4edb816d21e1 272 {
ICTFBI 0:4edb816d21e1 273 ATIf::flushBuffer();
ICTFBI 0:4edb816d21e1 274 ATIf::setReadMode(false); //Discard chars
ICTFBI 0:4edb816d21e1 275 ATIf::setTimeout(5000);
ICTFBI 0:4edb816d21e1 276 ATIf::setLineMode(true); //Line mode
ICTFBI 0:4edb816d21e1 277
ICTFBI 0:4edb816d21e1 278 if( !!ATIf::checkOK() ) //Should be present at the end of connection
ICTFBI 0:4edb816d21e1 279 return GPRS_MODEM;
ICTFBI 0:4edb816d21e1 280
ICTFBI 0:4edb816d21e1 281 GPRSErr err;
ICTFBI 0:4edb816d21e1 282 err = setGPRSDown();
ICTFBI 0:4edb816d21e1 283 if(err)
ICTFBI 0:4edb816d21e1 284 return err;
ICTFBI 0:4edb816d21e1 285
ICTFBI 0:4edb816d21e1 286 DBG("\r\nDisconnected.\r\n");
ICTFBI 0:4edb816d21e1 287
ICTFBI 0:4edb816d21e1 288 return GPRS_OK;
ICTFBI 0:4edb816d21e1 289 }
ICTFBI 0:4edb816d21e1 290
ICTFBI 0:4edb816d21e1 291 #endif
ICTFBI 0:4edb816d21e1 292