Michiel Berckvens / Mbed 2 deprecated ProjectHTTP

Important changes to repositories hosted on mbed.com

Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.

To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.

It is also possible to export all your personal repositories from the account settings page.

Dependencies:   DS1307 TextLCD mbed

NetServices/drv/gprs/GPRSModem.cpp@0:f615d151a72c, 2014-12-04 (annotated)

Committer:
Michielber
Date:
Thu Dec 04 10:36:40 2014 +0000
Revision:
0:f615d151a72c
Berckvens Michiel & Basteyns Jonas 4/12/2014

Who changed what in which revision?

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