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