Brandon Fictorie / Mbed 2 deprecated BF_Websocket

Dependencies:   mbed

Committer:
bfictorie
Date:
Sun Mar 25 17:26:30 2012 +0000
Revision:
0:8cdad1c73e8e

        

Who changed what in which revision?

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