Committer:
mbed714
Date:
Sat Sep 18 23:05:49 2010 +0000
Revision:
0:d616ece2d859

        

Who changed what in which revision?

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