ban4jp -
EthernetNetIf Compatibility.
Dependents: XBeeWiFi_SPI_example
Fork of
NetServicesSource
by 
Donatien Garnier
drv/gprsmodule/GPRSModule.cpp@5:dd63a1e02b1b, 2010-07-27 (annotated)
- Committer:
- donatien
- Date:
- Tue Jul 27 15:59:42 2010 +0000
- Revision:
- 5:dd63a1e02b1b
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 "gprsmodule.h" |
| donatien | 5:dd63a1e02b1b | 25 | |
| donatien | 5:dd63a1e02b1b | 26 | #include "mbed.h" |
| donatien | 5:dd63a1e02b1b | 27 | |
| donatien | 5:dd63a1e02b1b | 28 | //#define __DEBUG |
| donatien | 5:dd63a1e02b1b | 29 | #include "dbg/dbg.h" |
| donatien | 5:dd63a1e02b1b | 30 | |
| donatien | 5:dd63a1e02b1b | 31 | #include "netCfg.h" |
| donatien | 5:dd63a1e02b1b | 32 | #if NET_GPRS_MODULE |
| donatien | 5:dd63a1e02b1b | 33 | |
| donatien | 5:dd63a1e02b1b | 34 | GPRSModule::GPRSModule(PinName pwrSetPin, PinName pwrMonPin) : m_pwrSetPin(pwrSetPin), m_pwrMonPin(pwrMonPin) |
| donatien | 5:dd63a1e02b1b | 35 | { |
| donatien | 5:dd63a1e02b1b | 36 | //m_pwrSetPin.write(0); |
| donatien | 5:dd63a1e02b1b | 37 | |
| donatien | 5:dd63a1e02b1b | 38 | //m_pwrMonPin.mode(PullDown); |
| donatien | 5:dd63a1e02b1b | 39 | } |
| donatien | 5:dd63a1e02b1b | 40 | |
| donatien | 5:dd63a1e02b1b | 41 | GPRSModule::~GPRSModule() { |
| donatien | 5:dd63a1e02b1b | 42 | |
| donatien | 5:dd63a1e02b1b | 43 | } |
| donatien | 5:dd63a1e02b1b | 44 | |
| donatien | 5:dd63a1e02b1b | 45 | bool GPRSModule::isOn() //True if on |
| donatien | 5:dd63a1e02b1b | 46 | { |
| donatien | 5:dd63a1e02b1b | 47 | return m_pwrMonPin.read(); |
| donatien | 5:dd63a1e02b1b | 48 | } |
| donatien | 5:dd63a1e02b1b | 49 | |
| donatien | 5:dd63a1e02b1b | 50 | bool GPRSModule::on() //True if OK |
| donatien | 5:dd63a1e02b1b | 51 | { |
| donatien | 5:dd63a1e02b1b | 52 | Timer tmr; |
| donatien | 5:dd63a1e02b1b | 53 | if(!m_pwrMonPin.read()){ |
| donatien | 5:dd63a1e02b1b | 54 | //On |
| donatien | 5:dd63a1e02b1b | 55 | DBG("Switching On...\n"); |
| donatien | 5:dd63a1e02b1b | 56 | m_pwrSetPin.write(1); |
| donatien | 5:dd63a1e02b1b | 57 | wait(1.); |
| donatien | 5:dd63a1e02b1b | 58 | m_pwrSetPin.write(0); |
| donatien | 5:dd63a1e02b1b | 59 | |
| donatien | 5:dd63a1e02b1b | 60 | tmr.start(); |
| donatien | 5:dd63a1e02b1b | 61 | while(!m_pwrMonPin.read()) |
| donatien | 5:dd63a1e02b1b | 62 | { |
| donatien | 5:dd63a1e02b1b | 63 | wait(.001); |
| donatien | 5:dd63a1e02b1b | 64 | if(tmr.read() > 2) |
| donatien | 5:dd63a1e02b1b | 65 | { |
| donatien | 5:dd63a1e02b1b | 66 | DBG("ERROR - MUST RESET MODULE\n"); |
| donatien | 5:dd63a1e02b1b | 67 | break; |
| donatien | 5:dd63a1e02b1b | 68 | } |
| donatien | 5:dd63a1e02b1b | 69 | } |
| donatien | 5:dd63a1e02b1b | 70 | tmr.stop(); |
| donatien | 5:dd63a1e02b1b | 71 | } |
| donatien | 5:dd63a1e02b1b | 72 | wait(.1); |
| donatien | 5:dd63a1e02b1b | 73 | return m_pwrMonPin.read(); |
| donatien | 5:dd63a1e02b1b | 74 | } |
| donatien | 5:dd63a1e02b1b | 75 | |
| donatien | 5:dd63a1e02b1b | 76 | bool GPRSModule::off() { //True if OK |
| donatien | 5:dd63a1e02b1b | 77 | Timer tmr; |
| donatien | 5:dd63a1e02b1b | 78 | if(m_pwrMonPin.read()){ |
| donatien | 5:dd63a1e02b1b | 79 | //Off |
| donatien | 5:dd63a1e02b1b | 80 | DBG("Switching Off...\n"); |
| donatien | 5:dd63a1e02b1b | 81 | m_pwrSetPin.write(1); |
| donatien | 5:dd63a1e02b1b | 82 | wait(3.); |
| donatien | 5:dd63a1e02b1b | 83 | m_pwrSetPin.write(0); |
| donatien | 5:dd63a1e02b1b | 84 | DBG("Waiting....\n"); |
| donatien | 5:dd63a1e02b1b | 85 | tmr.start(); |
| donatien | 5:dd63a1e02b1b | 86 | while(m_pwrMonPin.read()) |
| donatien | 5:dd63a1e02b1b | 87 | { |
| donatien | 5:dd63a1e02b1b | 88 | wait(.001); |
| donatien | 5:dd63a1e02b1b | 89 | if(tmr.read() > 15) |
| donatien | 5:dd63a1e02b1b | 90 | { |
| donatien | 5:dd63a1e02b1b | 91 | DBG("ERROR - MUST RESET MODULE\n"); |
| donatien | 5:dd63a1e02b1b | 92 | break; |
| donatien | 5:dd63a1e02b1b | 93 | } |
| donatien | 5:dd63a1e02b1b | 94 | } |
| donatien | 5:dd63a1e02b1b | 95 | tmr.stop(); |
| donatien | 5:dd63a1e02b1b | 96 | } |
| donatien | 5:dd63a1e02b1b | 97 | return !m_pwrMonPin.read(); |
| donatien | 5:dd63a1e02b1b | 98 | } |
| donatien | 5:dd63a1e02b1b | 99 | |
| donatien | 5:dd63a1e02b1b | 100 | #endif |