ban4jp -
EthernetNetIf Compatibility.
Dependents: XBeeWiFi_SPI_example
Fork of
NetServicesSource
by 
Donatien Garnier
if/gprsmodule/GPRSModuleNetIf.cpp@5:dd63a1e02b1b, 2010-07-27 (annotated)
- Committer:
- donatien
- Date:
- Tue Jul 27 15:59:42 2010 +0000
- Revision:
- 5:dd63a1e02b1b
- Child:
- 9:c79fa4034f5b
Who changed what in which revision?
| User | Revision | Line number | New contents of line |
|---|---|---|---|
| donatien | 5:dd63a1e02b1b | 1 | |
| donatien | 5:dd63a1e02b1b | 2 | /* |
| donatien | 5:dd63a1e02b1b | 3 | Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com) |
| donatien | 5:dd63a1e02b1b | 4 | |
| donatien | 5:dd63a1e02b1b | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy |
| donatien | 5:dd63a1e02b1b | 6 | of this software and associated documentation files (the "Software"), to deal |
| donatien | 5:dd63a1e02b1b | 7 | in the Software without restriction, including without limitation the rights |
| donatien | 5:dd63a1e02b1b | 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
| donatien | 5:dd63a1e02b1b | 9 | copies of the Software, and to permit persons to whom the Software is |
| donatien | 5:dd63a1e02b1b | 10 | furnished to do so, subject to the following conditions: |
| donatien | 5:dd63a1e02b1b | 11 | |
| donatien | 5:dd63a1e02b1b | 12 | The above copyright notice and this permission notice shall be included in |
| donatien | 5:dd63a1e02b1b | 13 | all copies or substantial portions of the Software. |
| donatien | 5:dd63a1e02b1b | 14 | |
| donatien | 5:dd63a1e02b1b | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| donatien | 5:dd63a1e02b1b | 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| donatien | 5:dd63a1e02b1b | 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
| donatien | 5:dd63a1e02b1b | 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| donatien | 5:dd63a1e02b1b | 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
| donatien | 5:dd63a1e02b1b | 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
| donatien | 5:dd63a1e02b1b | 21 | THE SOFTWARE. |
| donatien | 5:dd63a1e02b1b | 22 | */ |
| donatien | 5:dd63a1e02b1b | 23 | |
| donatien | 5:dd63a1e02b1b | 24 | #include "netCfg.h" |
| donatien | 5:dd63a1e02b1b | 25 | #if NET_GPRS_MODULE |
| donatien | 5:dd63a1e02b1b | 26 | |
| donatien | 5:dd63a1e02b1b | 27 | #include "GPRSModuleNetIf.h" |
| donatien | 5:dd63a1e02b1b | 28 | |
| donatien | 5:dd63a1e02b1b | 29 | #define __DEBUG |
| donatien | 5:dd63a1e02b1b | 30 | #include "dbg/dbg.h" |
| donatien | 5:dd63a1e02b1b | 31 | |
| donatien | 5:dd63a1e02b1b | 32 | GPRSModuleNetIf::GPRSModuleNetIf(PinName tx, PinName rx, PinName pwrSetPin, PinName pwrMonPin, int baud /*= 115200*/) : PPPNetIf(NULL), m_module(pwrSetPin, pwrMonPin), m_serial(tx, rx) |
| donatien | 5:dd63a1e02b1b | 33 | { |
| donatien | 5:dd63a1e02b1b | 34 | PPPNetIf::m_pIf = new GPRSModem(); |
| donatien | 5:dd63a1e02b1b | 35 | m_serial.baud(baud); |
| donatien | 5:dd63a1e02b1b | 36 | } |
| donatien | 5:dd63a1e02b1b | 37 | |
| donatien | 5:dd63a1e02b1b | 38 | GPRSModuleNetIf::~GPRSModuleNetIf() |
| donatien | 5:dd63a1e02b1b | 39 | { |
| donatien | 5:dd63a1e02b1b | 40 | delete PPPNetIf::m_pIf; |
| donatien | 5:dd63a1e02b1b | 41 | } |
| donatien | 5:dd63a1e02b1b | 42 | |
| donatien | 5:dd63a1e02b1b | 43 | PPPErr GPRSModuleNetIf::connect(const char* apn /*= NULL*/, const char* userId /*= NULL*/, const char* password /*= NULL*/) //Connect using GPRS |
| donatien | 5:dd63a1e02b1b | 44 | { |
| donatien | 5:dd63a1e02b1b | 45 | if(m_module.isOn()) |
| donatien | 5:dd63a1e02b1b | 46 | { |
| donatien | 5:dd63a1e02b1b | 47 | DBG("Resetting module...\n"); |
| donatien | 5:dd63a1e02b1b | 48 | m_module.off(); //Reset module if needed |
| donatien | 5:dd63a1e02b1b | 49 | } |
| donatien | 5:dd63a1e02b1b | 50 | |
| donatien | 5:dd63a1e02b1b | 51 | wait(4); |
| donatien | 5:dd63a1e02b1b | 52 | |
| donatien | 5:dd63a1e02b1b | 53 | DBG("Powering on module.\n") |
| donatien | 5:dd63a1e02b1b | 54 | if(!m_module.on()) //Could not power on module |
| donatien | 5:dd63a1e02b1b | 55 | { |
| donatien | 5:dd63a1e02b1b | 56 | DBG("Could not power on module.\n"); |
| donatien | 5:dd63a1e02b1b | 57 | return PPP_MODEM; |
| donatien | 5:dd63a1e02b1b | 58 | } |
| donatien | 5:dd63a1e02b1b | 59 | |
| donatien | 5:dd63a1e02b1b | 60 | wait(10); //Wait for module to init. |
| donatien | 5:dd63a1e02b1b | 61 | |
| donatien | 5:dd63a1e02b1b | 62 | ATErr atErr; |
| donatien | 5:dd63a1e02b1b | 63 | for(int i=0; i<3; i++) |
| donatien | 5:dd63a1e02b1b | 64 | { |
| donatien | 5:dd63a1e02b1b | 65 | atErr = m_pIf->open(&m_serial); //3 tries |
| donatien | 5:dd63a1e02b1b | 66 | if(!atErr) |
| donatien | 5:dd63a1e02b1b | 67 | break; |
| donatien | 5:dd63a1e02b1b | 68 | DBG("Could not open AT If, trying again.\n"); |
| donatien | 5:dd63a1e02b1b | 69 | wait(4); |
| donatien | 5:dd63a1e02b1b | 70 | } |
| donatien | 5:dd63a1e02b1b | 71 | |
| donatien | 5:dd63a1e02b1b | 72 | if(atErr) |
| donatien | 5:dd63a1e02b1b | 73 | { |
| donatien | 5:dd63a1e02b1b | 74 | m_module.off(); |
| donatien | 5:dd63a1e02b1b | 75 | return PPP_MODEM; |
| donatien | 5:dd63a1e02b1b | 76 | } |
| donatien | 5:dd63a1e02b1b | 77 | |
| donatien | 5:dd63a1e02b1b | 78 | DBG("AT If opened.\n"); |
| donatien | 5:dd63a1e02b1b | 79 | |
| donatien | 5:dd63a1e02b1b | 80 | PPPErr pppErr; |
| donatien | 5:dd63a1e02b1b | 81 | for(int i=0; i<3; i++) |
| donatien | 5:dd63a1e02b1b | 82 | { |
| donatien | 5:dd63a1e02b1b | 83 | DBG("Trying to connect.\n"); |
| donatien | 5:dd63a1e02b1b | 84 | pppErr = PPPNetIf::GPRSConnect(apn, userId, password); |
| donatien | 5:dd63a1e02b1b | 85 | if(!pppErr) |
| donatien | 5:dd63a1e02b1b | 86 | break; |
| donatien | 5:dd63a1e02b1b | 87 | DBG("Could not connect.\n"); |
| donatien | 5:dd63a1e02b1b | 88 | wait(4); |
| donatien | 5:dd63a1e02b1b | 89 | } |
| donatien | 5:dd63a1e02b1b | 90 | if(pppErr) |
| donatien | 5:dd63a1e02b1b | 91 | { |
| donatien | 5:dd63a1e02b1b | 92 | m_module.off(); |
| donatien | 5:dd63a1e02b1b | 93 | return pppErr; |
| donatien | 5:dd63a1e02b1b | 94 | } |
| donatien | 5:dd63a1e02b1b | 95 | |
| donatien | 5:dd63a1e02b1b | 96 | DBG("Connected.\n"); |
| donatien | 5:dd63a1e02b1b | 97 | |
| donatien | 5:dd63a1e02b1b | 98 | return PPP_OK; |
| donatien | 5:dd63a1e02b1b | 99 | } |
| donatien | 5:dd63a1e02b1b | 100 | |
| donatien | 5:dd63a1e02b1b | 101 | PPPErr GPRSModuleNetIf::disconnect() |
| donatien | 5:dd63a1e02b1b | 102 | { |
| donatien | 5:dd63a1e02b1b | 103 | DBG("Disconnecting...\n"); |
| donatien | 5:dd63a1e02b1b | 104 | PPPErr pppErr = PPPNetIf::disconnect(); |
| donatien | 5:dd63a1e02b1b | 105 | if(pppErr) |
| donatien | 5:dd63a1e02b1b | 106 | return pppErr; |
| donatien | 5:dd63a1e02b1b | 107 | |
| donatien | 5:dd63a1e02b1b | 108 | m_pIf->close(); |
| donatien | 5:dd63a1e02b1b | 109 | |
| donatien | 5:dd63a1e02b1b | 110 | DBG("Powering off module.\n") |
| donatien | 5:dd63a1e02b1b | 111 | m_module.off(); //Power off module |
| donatien | 5:dd63a1e02b1b | 112 | |
| donatien | 5:dd63a1e02b1b | 113 | DBG("Off.\n") |
| donatien | 5:dd63a1e02b1b | 114 | |
| donatien | 5:dd63a1e02b1b | 115 | return PPP_OK; |
| donatien | 5:dd63a1e02b1b | 116 | } |
| donatien | 5:dd63a1e02b1b | 117 | |
| donatien | 5:dd63a1e02b1b | 118 | |
| donatien | 5:dd63a1e02b1b | 119 | #endif |