USB Host Library for Sprint Dongles
Dependencies: Socket USBHostWANDongleSprint lwip-sys lwip
Dependents: SprintUSBModemWebsocketTest SprintUSBModemHTTPClientTest SprintUSBModemNTPClientTest SprintUSBModemSMSTest ... more
Fork of SprintUSBModem_bleedingedge by
at/ATCommandsInterface.cpp@0:8f57713b2147, 2012-09-12 (annotated)
- Committer:
- donatien
- Date:
- Wed Sep 12 09:34:21 2012 +0000
- Revision:
- 0:8f57713b2147
- Child:
- 4:23100b0757d6
Initial Commit
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
donatien | 0:8f57713b2147 | 1 | /* ATCommandsInterface.cpp */ |
donatien | 0:8f57713b2147 | 2 | /* Copyright (C) 2012 mbed.org, MIT License |
donatien | 0:8f57713b2147 | 3 | * |
donatien | 0:8f57713b2147 | 4 | * Permission is hereby granted, free of charge, to any person obtaining a copy of this software |
donatien | 0:8f57713b2147 | 5 | * and associated documentation files (the "Software"), to deal in the Software without restriction, |
donatien | 0:8f57713b2147 | 6 | * including without limitation the rights to use, copy, modify, merge, publish, distribute, |
donatien | 0:8f57713b2147 | 7 | * sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is |
donatien | 0:8f57713b2147 | 8 | * furnished to do so, subject to the following conditions: |
donatien | 0:8f57713b2147 | 9 | * |
donatien | 0:8f57713b2147 | 10 | * The above copyright notice and this permission notice shall be included in all copies or |
donatien | 0:8f57713b2147 | 11 | * substantial portions of the Software. |
donatien | 0:8f57713b2147 | 12 | * |
donatien | 0:8f57713b2147 | 13 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING |
donatien | 0:8f57713b2147 | 14 | * BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
donatien | 0:8f57713b2147 | 15 | * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, |
donatien | 0:8f57713b2147 | 16 | * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
donatien | 0:8f57713b2147 | 17 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
donatien | 0:8f57713b2147 | 18 | */ |
donatien | 0:8f57713b2147 | 19 | |
donatien | 0:8f57713b2147 | 20 | #define __DEBUG__ 2//ERR+WARN |
donatien | 0:8f57713b2147 | 21 | #ifndef __MODULE__ |
donatien | 0:8f57713b2147 | 22 | #define __MODULE__ "ATCommandsInterface.cpp" |
donatien | 0:8f57713b2147 | 23 | #endif |
donatien | 0:8f57713b2147 | 24 | |
donatien | 0:8f57713b2147 | 25 | #include "core/fwk.h" |
donatien | 0:8f57713b2147 | 26 | |
donatien | 0:8f57713b2147 | 27 | #include <cstdio> |
donatien | 0:8f57713b2147 | 28 | //#include <cstring> //For memset, strstr... |
donatien | 0:8f57713b2147 | 29 | |
donatien | 0:8f57713b2147 | 30 | using std::memmove; |
donatien | 0:8f57713b2147 | 31 | |
donatien | 0:8f57713b2147 | 32 | #include "ATCommandsInterface.h" |
donatien | 0:8f57713b2147 | 33 | |
donatien | 0:8f57713b2147 | 34 | ATCommandsInterface::ATCommandsInterface(IOStream* pStream) : |
donatien | 0:8f57713b2147 | 35 | m_pStream(pStream), m_open(false), m_env2AT(), m_AT2Env(), m_processingMtx(), |
donatien | 0:8f57713b2147 | 36 | m_processingThread(&ATCommandsInterface::staticCallback, this, (osPriority)AT_THREAD_PRIORITY, 4*192), |
donatien | 0:8f57713b2147 | 37 | m_eventsMtx() |
donatien | 0:8f57713b2147 | 38 | { |
donatien | 0:8f57713b2147 | 39 | memset(m_eventsHandlers, 0, MAX_AT_EVENTS_HANDLERS * sizeof(IATEventsHandler*)); |
donatien | 0:8f57713b2147 | 40 | |
donatien | 0:8f57713b2147 | 41 | m_processingMtx.lock(); |
donatien | 0:8f57713b2147 | 42 | } |
donatien | 0:8f57713b2147 | 43 | |
donatien | 0:8f57713b2147 | 44 | //Open connection to AT Interface in order to execute command & register/unregister events |
donatien | 0:8f57713b2147 | 45 | int ATCommandsInterface::open() |
donatien | 0:8f57713b2147 | 46 | { |
donatien | 0:8f57713b2147 | 47 | if( m_open ) |
donatien | 0:8f57713b2147 | 48 | { |
donatien | 0:8f57713b2147 | 49 | WARN("AT interface is already open"); |
donatien | 0:8f57713b2147 | 50 | return OK; |
donatien | 0:8f57713b2147 | 51 | } |
donatien | 0:8f57713b2147 | 52 | DBG("Opening AT interface"); |
donatien | 0:8f57713b2147 | 53 | //Start processing |
donatien | 0:8f57713b2147 | 54 | m_processingThread.signal_set(AT_SIG_PROCESSING_START); |
donatien | 0:8f57713b2147 | 55 | |
donatien | 0:8f57713b2147 | 56 | m_processingMtx.unlock(); |
donatien | 0:8f57713b2147 | 57 | |
donatien | 0:8f57713b2147 | 58 | m_open = true; |
donatien | 0:8f57713b2147 | 59 | |
donatien | 0:8f57713b2147 | 60 | //Advertize this to events handlers |
donatien | 0:8f57713b2147 | 61 | m_eventsMtx.lock(); |
donatien | 0:8f57713b2147 | 62 | for(int i = 0; i < MAX_AT_EVENTS_HANDLERS; i++) //Find a free slot |
donatien | 0:8f57713b2147 | 63 | { |
donatien | 0:8f57713b2147 | 64 | if( m_eventsHandlers[i] != NULL ) |
donatien | 0:8f57713b2147 | 65 | { |
donatien | 0:8f57713b2147 | 66 | m_eventsHandlers[i]->onDispatchStart(); |
donatien | 0:8f57713b2147 | 67 | } |
donatien | 0:8f57713b2147 | 68 | } |
donatien | 0:8f57713b2147 | 69 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 70 | |
donatien | 0:8f57713b2147 | 71 | DBG("AT interface opened"); |
donatien | 0:8f57713b2147 | 72 | |
donatien | 0:8f57713b2147 | 73 | return OK; |
donatien | 0:8f57713b2147 | 74 | } |
donatien | 0:8f57713b2147 | 75 | |
donatien | 0:8f57713b2147 | 76 | //Initialize AT link |
donatien | 0:8f57713b2147 | 77 | int ATCommandsInterface::init() |
donatien | 0:8f57713b2147 | 78 | { |
donatien | 0:8f57713b2147 | 79 | DBG("Sending ATZ E1 V1"); |
donatien | 0:8f57713b2147 | 80 | //Should we flush m_pStream at this point ??? |
donatien | 0:8f57713b2147 | 81 | int err; |
donatien | 0:8f57713b2147 | 82 | int tries = 5; |
donatien | 0:8f57713b2147 | 83 | do |
donatien | 0:8f57713b2147 | 84 | { |
donatien | 0:8f57713b2147 | 85 | err = executeSimple("ATZ E1 V1", NULL, 3000); //Enable echo and verbosity |
donatien | 0:8f57713b2147 | 86 | if(err && tries) |
donatien | 0:8f57713b2147 | 87 | { |
donatien | 0:8f57713b2147 | 88 | WARN("No response, trying again"); |
donatien | 0:8f57713b2147 | 89 | Thread::wait(1000); //Give dongle time to recover |
donatien | 0:8f57713b2147 | 90 | } |
donatien | 0:8f57713b2147 | 91 | } while(err && tries--); |
donatien | 0:8f57713b2147 | 92 | if( err ) |
donatien | 0:8f57713b2147 | 93 | { |
donatien | 0:8f57713b2147 | 94 | ERR("Sending ATZ E1 V1 returned with err code %d", err); |
donatien | 0:8f57713b2147 | 95 | return err; |
donatien | 0:8f57713b2147 | 96 | } |
donatien | 0:8f57713b2147 | 97 | |
donatien | 0:8f57713b2147 | 98 | DBG("AT interface initialized"); |
donatien | 0:8f57713b2147 | 99 | |
donatien | 0:8f57713b2147 | 100 | return OK; |
donatien | 0:8f57713b2147 | 101 | } |
donatien | 0:8f57713b2147 | 102 | |
donatien | 0:8f57713b2147 | 103 | //Close connection |
donatien | 0:8f57713b2147 | 104 | int ATCommandsInterface::close() |
donatien | 0:8f57713b2147 | 105 | { |
donatien | 0:8f57713b2147 | 106 | if( !m_open ) |
donatien | 0:8f57713b2147 | 107 | { |
donatien | 0:8f57713b2147 | 108 | WARN("AT interface is already closed"); |
donatien | 0:8f57713b2147 | 109 | return OK; |
donatien | 0:8f57713b2147 | 110 | } |
donatien | 0:8f57713b2147 | 111 | |
donatien | 0:8f57713b2147 | 112 | DBG("Closing AT interface"); |
donatien | 0:8f57713b2147 | 113 | |
donatien | 0:8f57713b2147 | 114 | //Stop processing |
donatien | 0:8f57713b2147 | 115 | m_processingThread.signal_set(AT_SIG_PROCESSING_STOP); |
donatien | 0:8f57713b2147 | 116 | //m_stopSphre.release(); |
donatien | 0:8f57713b2147 | 117 | |
donatien | 0:8f57713b2147 | 118 | int* msg = m_env2AT.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 119 | *msg = AT_STOP; |
donatien | 0:8f57713b2147 | 120 | m_env2AT.put(msg); //Used to unstall the process if needed |
donatien | 0:8f57713b2147 | 121 | |
donatien | 0:8f57713b2147 | 122 | //Unlock process routine (abort read) |
donatien | 0:8f57713b2147 | 123 | m_pStream->abortRead(); //This is thread-safe |
donatien | 0:8f57713b2147 | 124 | m_processingMtx.lock(); |
donatien | 0:8f57713b2147 | 125 | m_open = false; |
donatien | 0:8f57713b2147 | 126 | |
donatien | 0:8f57713b2147 | 127 | //Advertize this to events handlers |
donatien | 0:8f57713b2147 | 128 | m_eventsMtx.lock(); |
donatien | 0:8f57713b2147 | 129 | for(int i = 0; i < MAX_AT_EVENTS_HANDLERS; i++) //Find a free slot |
donatien | 0:8f57713b2147 | 130 | { |
donatien | 0:8f57713b2147 | 131 | if( m_eventsHandlers[i] != NULL ) |
donatien | 0:8f57713b2147 | 132 | { |
donatien | 0:8f57713b2147 | 133 | m_eventsHandlers[i]->onDispatchStop(); |
donatien | 0:8f57713b2147 | 134 | } |
donatien | 0:8f57713b2147 | 135 | } |
donatien | 0:8f57713b2147 | 136 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 137 | |
donatien | 0:8f57713b2147 | 138 | DBG("AT interface closed"); |
donatien | 0:8f57713b2147 | 139 | return OK; |
donatien | 0:8f57713b2147 | 140 | } |
donatien | 0:8f57713b2147 | 141 | |
donatien | 0:8f57713b2147 | 142 | bool ATCommandsInterface::isOpen() |
donatien | 0:8f57713b2147 | 143 | { |
donatien | 0:8f57713b2147 | 144 | return m_open; |
donatien | 0:8f57713b2147 | 145 | } |
donatien | 0:8f57713b2147 | 146 | |
donatien | 0:8f57713b2147 | 147 | int ATCommandsInterface::executeSimple(const char* command, ATResult* pResult, uint32_t timeout/*=1000*/) |
donatien | 0:8f57713b2147 | 148 | { |
donatien | 0:8f57713b2147 | 149 | return execute(command, this, pResult, timeout); |
donatien | 0:8f57713b2147 | 150 | } |
donatien | 0:8f57713b2147 | 151 | |
donatien | 0:8f57713b2147 | 152 | int ATCommandsInterface::execute(const char* command, IATCommandsProcessor* pProcessor, ATResult* pResult, uint32_t timeout/*=1000*/) |
donatien | 0:8f57713b2147 | 153 | { |
donatien | 0:8f57713b2147 | 154 | DBG("Executing command %s", command); |
donatien | 0:8f57713b2147 | 155 | if(!m_open) |
donatien | 0:8f57713b2147 | 156 | { |
donatien | 0:8f57713b2147 | 157 | WARN("Interface is not open!"); |
donatien | 0:8f57713b2147 | 158 | return NET_INVALID; |
donatien | 0:8f57713b2147 | 159 | } |
donatien | 0:8f57713b2147 | 160 | |
donatien | 0:8f57713b2147 | 161 | //Lock transaction mutex |
donatien | 0:8f57713b2147 | 162 | m_transactionMtx.lock(); |
donatien | 0:8f57713b2147 | 163 | |
donatien | 0:8f57713b2147 | 164 | //Discard previous result if it arrived too late |
donatien | 0:8f57713b2147 | 165 | osEvent evt = m_AT2Env.get(0); |
donatien | 0:8f57713b2147 | 166 | |
donatien | 0:8f57713b2147 | 167 | if(evt.status == osEventMail) |
donatien | 0:8f57713b2147 | 168 | { |
donatien | 0:8f57713b2147 | 169 | m_AT2Env.free((int*)evt.value.p); |
donatien | 0:8f57713b2147 | 170 | WARN("Previous result discarded"); |
donatien | 0:8f57713b2147 | 171 | } |
donatien | 0:8f57713b2147 | 172 | |
donatien | 0:8f57713b2147 | 173 | //Send params to the process routine |
donatien | 0:8f57713b2147 | 174 | m_transactionCommand = command; |
donatien | 0:8f57713b2147 | 175 | if(pProcessor != NULL) |
donatien | 0:8f57713b2147 | 176 | { |
donatien | 0:8f57713b2147 | 177 | m_pTransactionProcessor = pProcessor; |
donatien | 0:8f57713b2147 | 178 | } |
donatien | 0:8f57713b2147 | 179 | else |
donatien | 0:8f57713b2147 | 180 | { |
donatien | 0:8f57713b2147 | 181 | m_pTransactionProcessor = this; //Use default behaviour |
donatien | 0:8f57713b2147 | 182 | } |
donatien | 0:8f57713b2147 | 183 | |
donatien | 0:8f57713b2147 | 184 | Thread::wait(100); //FIXME find stg else |
donatien | 0:8f57713b2147 | 185 | |
donatien | 0:8f57713b2147 | 186 | DBG("Sending command ready signal to AT thread & aborting current blocking read operation"); |
donatien | 0:8f57713b2147 | 187 | |
donatien | 0:8f57713b2147 | 188 | //Produce command ready signal |
donatien | 0:8f57713b2147 | 189 | int* msg = m_env2AT.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 190 | *msg = AT_CMD_READY; |
donatien | 0:8f57713b2147 | 191 | m_env2AT.put(msg); |
donatien | 0:8f57713b2147 | 192 | |
donatien | 0:8f57713b2147 | 193 | DBG("Trying to enter abortRead()"); |
donatien | 0:8f57713b2147 | 194 | //Unlock process routine (abort read) |
donatien | 0:8f57713b2147 | 195 | m_pStream->abortRead(); //This is thread-safe |
donatien | 0:8f57713b2147 | 196 | |
donatien | 0:8f57713b2147 | 197 | //Wait for a result (get result message) |
donatien | 0:8f57713b2147 | 198 | evt = m_AT2Env.get(timeout); |
donatien | 0:8f57713b2147 | 199 | |
donatien | 0:8f57713b2147 | 200 | if(evt.status != osEventMail) |
donatien | 0:8f57713b2147 | 201 | { |
donatien | 0:8f57713b2147 | 202 | //Cancel request |
donatien | 0:8f57713b2147 | 203 | msg = m_env2AT.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 204 | *msg = AT_TIMEOUT; |
donatien | 0:8f57713b2147 | 205 | m_env2AT.put(msg); |
donatien | 0:8f57713b2147 | 206 | |
donatien | 0:8f57713b2147 | 207 | DBG("Trying to enter abortRead()"); |
donatien | 0:8f57713b2147 | 208 | //Unlock process routine (abort read) |
donatien | 0:8f57713b2147 | 209 | m_pStream->abortRead(); //This is thread-safe |
donatien | 0:8f57713b2147 | 210 | |
donatien | 0:8f57713b2147 | 211 | WARN("Command returned no message"); |
donatien | 0:8f57713b2147 | 212 | m_transactionMtx.unlock(); |
donatien | 0:8f57713b2147 | 213 | return NET_TIMEOUT; |
donatien | 0:8f57713b2147 | 214 | } |
donatien | 0:8f57713b2147 | 215 | DBG("Command returned with message %d", *msg); |
donatien | 0:8f57713b2147 | 216 | |
donatien | 0:8f57713b2147 | 217 | m_AT2Env.free((int*)evt.value.p); |
donatien | 0:8f57713b2147 | 218 | |
donatien | 0:8f57713b2147 | 219 | if(pResult != NULL) |
donatien | 0:8f57713b2147 | 220 | { |
donatien | 0:8f57713b2147 | 221 | *pResult = m_transactionResult; |
donatien | 0:8f57713b2147 | 222 | } |
donatien | 0:8f57713b2147 | 223 | |
donatien | 0:8f57713b2147 | 224 | int ret = ATResultToReturnCode(m_transactionResult); |
donatien | 0:8f57713b2147 | 225 | if(ret != OK) |
donatien | 0:8f57713b2147 | 226 | { |
donatien | 0:8f57713b2147 | 227 | WARN("Command returned AT result %d with code %d", m_transactionResult.result, m_transactionResult.code); |
donatien | 0:8f57713b2147 | 228 | } |
donatien | 0:8f57713b2147 | 229 | |
donatien | 0:8f57713b2147 | 230 | DBG("Command returned successfully"); |
donatien | 0:8f57713b2147 | 231 | |
donatien | 0:8f57713b2147 | 232 | //Unlock transaction mutex |
donatien | 0:8f57713b2147 | 233 | m_transactionMtx.unlock(); |
donatien | 0:8f57713b2147 | 234 | |
donatien | 0:8f57713b2147 | 235 | return ret; |
donatien | 0:8f57713b2147 | 236 | } |
donatien | 0:8f57713b2147 | 237 | |
donatien | 0:8f57713b2147 | 238 | int ATCommandsInterface::registerEventsHandler(IATEventsHandler* pHdlr) |
donatien | 0:8f57713b2147 | 239 | { |
donatien | 0:8f57713b2147 | 240 | m_eventsMtx.lock(); |
donatien | 0:8f57713b2147 | 241 | for(int i = 0; i < MAX_AT_EVENTS_HANDLERS; i++) //Find a free slot |
donatien | 0:8f57713b2147 | 242 | { |
donatien | 0:8f57713b2147 | 243 | if( m_eventsHandlers[i] == NULL ) |
donatien | 0:8f57713b2147 | 244 | { |
donatien | 0:8f57713b2147 | 245 | m_eventsHandlers[i] = pHdlr; |
donatien | 0:8f57713b2147 | 246 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 247 | return OK; |
donatien | 0:8f57713b2147 | 248 | } |
donatien | 0:8f57713b2147 | 249 | } |
donatien | 0:8f57713b2147 | 250 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 251 | return NET_OOM; //No room left |
donatien | 0:8f57713b2147 | 252 | } |
donatien | 0:8f57713b2147 | 253 | |
donatien | 0:8f57713b2147 | 254 | int ATCommandsInterface::deregisterEventsHandler(IATEventsHandler* pHdlr) |
donatien | 0:8f57713b2147 | 255 | { |
donatien | 0:8f57713b2147 | 256 | m_eventsMtx.lock(); |
donatien | 0:8f57713b2147 | 257 | for(int i = 0; i < MAX_AT_EVENTS_HANDLERS; i++) //Find handler in list |
donatien | 0:8f57713b2147 | 258 | { |
donatien | 0:8f57713b2147 | 259 | if( m_eventsHandlers[i] == pHdlr ) |
donatien | 0:8f57713b2147 | 260 | { |
donatien | 0:8f57713b2147 | 261 | m_eventsHandlers[i] = NULL; |
donatien | 0:8f57713b2147 | 262 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 263 | return OK; |
donatien | 0:8f57713b2147 | 264 | } |
donatien | 0:8f57713b2147 | 265 | } |
donatien | 0:8f57713b2147 | 266 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 267 | return NET_NOTFOUND; //Not found |
donatien | 0:8f57713b2147 | 268 | } |
donatien | 0:8f57713b2147 | 269 | |
donatien | 0:8f57713b2147 | 270 | |
donatien | 0:8f57713b2147 | 271 | int ATCommandsInterface::tryReadLine() |
donatien | 0:8f57713b2147 | 272 | { |
donatien | 0:8f57713b2147 | 273 | static bool lineDetected = false; |
donatien | 0:8f57713b2147 | 274 | |
donatien | 0:8f57713b2147 | 275 | //Block on serial read or incoming command |
donatien | 0:8f57713b2147 | 276 | DBG("Trying to read a new line from stream"); |
donatien | 0:8f57713b2147 | 277 | int ret = m_pStream->waitAvailable(); //This can be aborted |
donatien | 0:8f57713b2147 | 278 | size_t readLen = 0; |
donatien | 0:8f57713b2147 | 279 | if(ret == OK) |
donatien | 0:8f57713b2147 | 280 | { |
donatien | 0:8f57713b2147 | 281 | ret = m_pStream->read((uint8_t*)m_inputBuf + m_inputPos, &readLen, AT_INPUT_BUF_SIZE - 1 - m_inputPos, 0); //Do NOT wait at this point |
donatien | 0:8f57713b2147 | 282 | } |
donatien | 0:8f57713b2147 | 283 | if(ret == OK) |
donatien | 0:8f57713b2147 | 284 | { |
donatien | 0:8f57713b2147 | 285 | m_inputPos+=readLen; |
donatien | 0:8f57713b2147 | 286 | m_inputBuf[m_inputPos] = '\0'; //Add null terminating character to ease the use of str* functions |
donatien | 0:8f57713b2147 | 287 | DBG("In buffer: [%s]", m_inputBuf); |
donatien | 0:8f57713b2147 | 288 | } |
donatien | 0:8f57713b2147 | 289 | |
donatien | 0:8f57713b2147 | 290 | if( ret == NET_INTERRUPTED ) //It is worth checking readLen as data might have been read even though the read was interrupted |
donatien | 0:8f57713b2147 | 291 | { |
donatien | 0:8f57713b2147 | 292 | DBG("Read was interrupted"); |
donatien | 0:8f57713b2147 | 293 | return NET_INTERRUPTED; //0 chars were read |
donatien | 0:8f57713b2147 | 294 | } |
donatien | 0:8f57713b2147 | 295 | else if(readLen == 0) |
donatien | 0:8f57713b2147 | 296 | { |
donatien | 0:8f57713b2147 | 297 | DBG("Nothing read"); |
donatien | 0:8f57713b2147 | 298 | return OK; //0 chars were read |
donatien | 0:8f57713b2147 | 299 | } |
donatien | 0:8f57713b2147 | 300 | |
donatien | 0:8f57713b2147 | 301 | DBG("Trying to process incoming line"); |
donatien | 0:8f57713b2147 | 302 | bool lineProcessed = false; |
donatien | 0:8f57713b2147 | 303 | |
donatien | 0:8f57713b2147 | 304 | do |
donatien | 0:8f57713b2147 | 305 | { |
donatien | 0:8f57713b2147 | 306 | lineProcessed = false; //Reset flag |
donatien | 0:8f57713b2147 | 307 | |
donatien | 0:8f57713b2147 | 308 | DBG("New iteration"); |
donatien | 0:8f57713b2147 | 309 | |
donatien | 0:8f57713b2147 | 310 | //Look for a new line |
donatien | 0:8f57713b2147 | 311 | if(!lineDetected) |
donatien | 0:8f57713b2147 | 312 | { |
donatien | 0:8f57713b2147 | 313 | DBG("No line detected yet"); |
donatien | 0:8f57713b2147 | 314 | //Try to look for a starting CRLF |
donatien | 0:8f57713b2147 | 315 | char* crPtr = strchr(m_inputBuf, CR); |
donatien | 0:8f57713b2147 | 316 | /* |
donatien | 0:8f57713b2147 | 317 | Different cases at this point: |
donatien | 0:8f57713b2147 | 318 | - CRLF%c sequence: this is the start of a line |
donatien | 0:8f57713b2147 | 319 | - CRLFCR(LF) sequence: this is the end of a line (followed by the beginning of the next one) |
donatien | 0:8f57713b2147 | 320 | - LF: this is the trailing LF char of the previous line, discard |
donatien | 0:8f57713b2147 | 321 | - CR / CRLF incomplete sequence: more data is needed to determine which action to take |
donatien | 0:8f57713b2147 | 322 | - %c ... CR sequence: this should be the echo of the previous sequence |
donatien | 0:8f57713b2147 | 323 | - %c sequence: This might be the echo of the previous command; more data is needed to determine which action to take |
donatien | 0:8f57713b2147 | 324 | |
donatien | 0:8f57713b2147 | 325 | In every case, move mem at the beginning |
donatien | 0:8f57713b2147 | 326 | */ |
donatien | 0:8f57713b2147 | 327 | if(crPtr != NULL) |
donatien | 0:8f57713b2147 | 328 | { |
donatien | 0:8f57713b2147 | 329 | DBG("CR char found"); |
donatien | 0:8f57713b2147 | 330 | |
donatien | 0:8f57713b2147 | 331 | #if 0 |
donatien | 0:8f57713b2147 | 332 | //Discard all preceding characters (can do nothing if m_inputBuf == crPtr) |
donatien | 0:8f57713b2147 | 333 | memmove(m_inputBuf, crPtr, (m_inputPos + 1) - (crPtr-m_inputBuf)); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 334 | m_inputPos = m_inputPos - (crPtr-m_inputBuf); //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 335 | #endif |
donatien | 0:8f57713b2147 | 336 | |
donatien | 0:8f57713b2147 | 337 | //If the line starts with CR, this should be a result code |
donatien | 0:8f57713b2147 | 338 | if( crPtr == m_inputBuf ) |
donatien | 0:8f57713b2147 | 339 | { |
donatien | 0:8f57713b2147 | 340 | //To determine the sequence we need at least 3 chars |
donatien | 0:8f57713b2147 | 341 | if(m_inputPos >= 3) |
donatien | 0:8f57713b2147 | 342 | { |
donatien | 0:8f57713b2147 | 343 | //Look for a LF char next to the CR char |
donatien | 0:8f57713b2147 | 344 | if(m_inputBuf[1] == LF) |
donatien | 0:8f57713b2147 | 345 | { |
donatien | 0:8f57713b2147 | 346 | //At this point we can check whether this is the end of a preceding line or the beginning of a new one |
donatien | 0:8f57713b2147 | 347 | if(m_inputBuf[2] != CR) |
donatien | 0:8f57713b2147 | 348 | { |
donatien | 0:8f57713b2147 | 349 | DBG("Beginning of new line found"); |
donatien | 0:8f57713b2147 | 350 | //Beginning of a line |
donatien | 0:8f57713b2147 | 351 | lineDetected = true; //Move to next state-machine step |
donatien | 0:8f57713b2147 | 352 | } |
donatien | 0:8f57713b2147 | 353 | else |
donatien | 0:8f57713b2147 | 354 | { |
donatien | 0:8f57713b2147 | 355 | //End of an unprocessed line |
donatien | 0:8f57713b2147 | 356 | WARN("End of unprocessed line"); |
donatien | 0:8f57713b2147 | 357 | } |
donatien | 0:8f57713b2147 | 358 | //In both cases discard CRLF |
donatien | 0:8f57713b2147 | 359 | DBG("Discarding CRLF"); |
donatien | 0:8f57713b2147 | 360 | memmove(m_inputBuf, m_inputBuf + 2, (m_inputPos + 1) - 2); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 361 | m_inputPos = m_inputPos - 2; //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 362 | } |
donatien | 0:8f57713b2147 | 363 | else |
donatien | 0:8f57713b2147 | 364 | { |
donatien | 0:8f57713b2147 | 365 | //This is completely unexpected, discard the CR char to try to recover good state |
donatien | 0:8f57713b2147 | 366 | WARN("Unexpected %c char (%02d code) found after CR char", m_inputBuf[1]); |
donatien | 0:8f57713b2147 | 367 | memmove(m_inputBuf, m_inputBuf + 1, (m_inputPos + 1) - 1); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 368 | m_inputPos = m_inputPos - 1; //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 369 | } |
donatien | 0:8f57713b2147 | 370 | } |
donatien | 0:8f57713b2147 | 371 | } |
donatien | 0:8f57713b2147 | 372 | //if the line does NOT begin with CR, this can be an echo of the previous command, process it |
donatien | 0:8f57713b2147 | 373 | else |
donatien | 0:8f57713b2147 | 374 | { |
donatien | 0:8f57713b2147 | 375 | int crPos = crPtr - m_inputBuf; |
donatien | 0:8f57713b2147 | 376 | int lfOff = 0; //Offset for LF if present |
donatien | 0:8f57713b2147 | 377 | DBG("New line found (possible echo of command)"); |
donatien | 0:8f57713b2147 | 378 | //This is the end of line |
donatien | 0:8f57713b2147 | 379 | //Replace m_inputBuf[crPos] with null-terminating char |
donatien | 0:8f57713b2147 | 380 | m_inputBuf[crPos] = '\0'; |
donatien | 0:8f57713b2147 | 381 | //Check if there is a LF char afterwards |
donatien | 0:8f57713b2147 | 382 | if(m_inputPos - crPos >= 1) |
donatien | 0:8f57713b2147 | 383 | { |
donatien | 0:8f57713b2147 | 384 | if(m_inputBuf[crPos+1] == LF) |
donatien | 0:8f57713b2147 | 385 | { |
donatien | 0:8f57713b2147 | 386 | lfOff++; //We will discard LF char as well |
donatien | 0:8f57713b2147 | 387 | } |
donatien | 0:8f57713b2147 | 388 | } |
donatien | 0:8f57713b2147 | 389 | //Process line |
donatien | 0:8f57713b2147 | 390 | processReadLine(); |
donatien | 0:8f57713b2147 | 391 | //Shift remaining data to beginning of buffer |
donatien | 0:8f57713b2147 | 392 | memmove(m_inputBuf, m_inputBuf + crPos + lfOff + 1, (m_inputPos + 1) - (crPos + lfOff + 1)); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 393 | m_inputPos = m_inputPos - (crPos + lfOff + 1); //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 394 | DBG("One line was successfully processed"); |
donatien | 0:8f57713b2147 | 395 | lineProcessed = true; //Line was processed with success |
donatien | 0:8f57713b2147 | 396 | lineDetected = false; //Search now for a new line |
donatien | 0:8f57713b2147 | 397 | } |
donatien | 0:8f57713b2147 | 398 | } |
donatien | 0:8f57713b2147 | 399 | else if(m_inputBuf[0] == LF) //If there is a remaining LF char from the previous line, discard it |
donatien | 0:8f57713b2147 | 400 | { |
donatien | 0:8f57713b2147 | 401 | DBG("Discarding single LF char"); |
donatien | 0:8f57713b2147 | 402 | memmove(m_inputBuf, m_inputBuf + 1, (m_inputPos + 1) - 1); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 403 | m_inputPos = m_inputPos - 1; //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 404 | } |
donatien | 0:8f57713b2147 | 405 | } |
donatien | 0:8f57713b2147 | 406 | |
donatien | 0:8f57713b2147 | 407 | //Look for the end of line |
donatien | 0:8f57713b2147 | 408 | if(lineDetected) |
donatien | 0:8f57713b2147 | 409 | { |
donatien | 0:8f57713b2147 | 410 | DBG("Looking for end of line"); |
donatien | 0:8f57713b2147 | 411 | //Try to look for a terminating CRLF |
donatien | 0:8f57713b2147 | 412 | char* crPtr = strchr(m_inputBuf, CR); |
donatien | 0:8f57713b2147 | 413 | /* |
donatien | 0:8f57713b2147 | 414 | Different cases at this point: |
donatien | 0:8f57713b2147 | 415 | - CRLF sequence: this is the end of the line |
donatien | 0:8f57713b2147 | 416 | - CR%c sequence : unexpected |
donatien | 0:8f57713b2147 | 417 | - CR incomplete sequence: more data is needed to determine which action to take |
donatien | 0:8f57713b2147 | 418 | */ |
donatien | 0:8f57713b2147 | 419 | |
donatien | 0:8f57713b2147 | 420 | //Try to look for a '>' (greater than character) that marks an entry prompt |
donatien | 0:8f57713b2147 | 421 | char* greaterThanPtr = strchr(m_inputBuf, GD); |
donatien | 0:8f57713b2147 | 422 | /* |
donatien | 0:8f57713b2147 | 423 | This character must be detected as there is no CRLF sequence at the end of an entry prompt |
donatien | 0:8f57713b2147 | 424 | */ |
donatien | 0:8f57713b2147 | 425 | |
donatien | 0:8f57713b2147 | 426 | if(crPtr != NULL) |
donatien | 0:8f57713b2147 | 427 | { |
donatien | 0:8f57713b2147 | 428 | DBG("CR char found"); |
donatien | 0:8f57713b2147 | 429 | int crPos = crPtr - m_inputBuf; |
donatien | 0:8f57713b2147 | 430 | //To determine the sequence we need at least 2 chars |
donatien | 0:8f57713b2147 | 431 | if(m_inputPos - crPos >= 2) |
donatien | 0:8f57713b2147 | 432 | { |
donatien | 0:8f57713b2147 | 433 | //Look for a LF char next to the CR char |
donatien | 0:8f57713b2147 | 434 | if(m_inputBuf[crPos + 1] == LF) |
donatien | 0:8f57713b2147 | 435 | { |
donatien | 0:8f57713b2147 | 436 | DBG("End of new line found"); |
donatien | 0:8f57713b2147 | 437 | //This is the end of line |
donatien | 0:8f57713b2147 | 438 | //Replace m_inputBuf[crPos] with null-terminating char |
donatien | 0:8f57713b2147 | 439 | m_inputBuf[crPos] = '\0'; |
donatien | 0:8f57713b2147 | 440 | //Process line |
donatien | 0:8f57713b2147 | 441 | int ret = processReadLine(); |
donatien | 0:8f57713b2147 | 442 | if(ret) |
donatien | 0:8f57713b2147 | 443 | { |
donatien | 0:8f57713b2147 | 444 | m_inputPos = 0; |
donatien | 0:8f57713b2147 | 445 | lineDetected = false; |
donatien | 0:8f57713b2147 | 446 | return ret; |
donatien | 0:8f57713b2147 | 447 | } |
donatien | 0:8f57713b2147 | 448 | |
donatien | 0:8f57713b2147 | 449 | //If sendData has been called, all incoming data has been discarded |
donatien | 0:8f57713b2147 | 450 | if(m_inputPos > 0) |
donatien | 0:8f57713b2147 | 451 | { |
donatien | 0:8f57713b2147 | 452 | //Shift remaining data to beginning of buffer |
donatien | 0:8f57713b2147 | 453 | memmove(m_inputBuf, m_inputBuf + crPos + 2, (m_inputPos + 1) - (crPos + 2)); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 454 | m_inputPos = m_inputPos - (crPos + 2); //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 455 | } |
donatien | 0:8f57713b2147 | 456 | |
donatien | 0:8f57713b2147 | 457 | DBG("One line was successfully processed"); |
donatien | 0:8f57713b2147 | 458 | lineProcessed = true; //Line was processed with success |
donatien | 0:8f57713b2147 | 459 | } |
donatien | 0:8f57713b2147 | 460 | else |
donatien | 0:8f57713b2147 | 461 | { |
donatien | 0:8f57713b2147 | 462 | //This is completely unexpected, discard all chars till the CR char to try to recover good state |
donatien | 0:8f57713b2147 | 463 | WARN("Unexpected %c char (%02d code) found in incoming line", m_inputBuf[crPos + 1]); |
donatien | 0:8f57713b2147 | 464 | memmove(m_inputBuf, m_inputBuf + crPos + 1, (m_inputPos + 1) - (crPos + 1)); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 465 | m_inputPos = m_inputPos - (crPos + 1); //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 466 | } |
donatien | 0:8f57713b2147 | 467 | lineDetected = false; //In both case search now for a new line |
donatien | 0:8f57713b2147 | 468 | } |
donatien | 0:8f57713b2147 | 469 | } |
donatien | 0:8f57713b2147 | 470 | else if(greaterThanPtr != NULL) |
donatien | 0:8f57713b2147 | 471 | { |
donatien | 0:8f57713b2147 | 472 | DBG("> char found"); |
donatien | 0:8f57713b2147 | 473 | int gdPos = greaterThanPtr - m_inputBuf; |
donatien | 0:8f57713b2147 | 474 | //To determine the sequence we need at least 2 chars |
donatien | 0:8f57713b2147 | 475 | if(m_inputPos - gdPos >= 2) |
donatien | 0:8f57713b2147 | 476 | { |
donatien | 0:8f57713b2147 | 477 | //Look for a space char next to the GD char |
donatien | 0:8f57713b2147 | 478 | if(m_inputBuf[gdPos + 1] == ' ') |
donatien | 0:8f57713b2147 | 479 | { |
donatien | 0:8f57713b2147 | 480 | //This is an entry prompt |
donatien | 0:8f57713b2147 | 481 | //Replace m_inputBuf[gdPos] with null-terminating char |
donatien | 0:8f57713b2147 | 482 | m_inputBuf[gdPos] = '\0'; |
donatien | 0:8f57713b2147 | 483 | |
donatien | 0:8f57713b2147 | 484 | //Shift remaining data to beginning of buffer |
donatien | 0:8f57713b2147 | 485 | memmove(m_inputBuf, m_inputBuf + gdPos + 1, (m_inputPos + 1) - (gdPos + 1)); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 486 | m_inputPos = m_inputPos - (gdPos + 1); //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 487 | |
donatien | 0:8f57713b2147 | 488 | //Process prompt |
donatien | 0:8f57713b2147 | 489 | ret = processEntryPrompt(); |
donatien | 0:8f57713b2147 | 490 | if(ret) |
donatien | 0:8f57713b2147 | 491 | { |
donatien | 0:8f57713b2147 | 492 | m_inputPos = 0; |
donatien | 0:8f57713b2147 | 493 | lineDetected = false; |
donatien | 0:8f57713b2147 | 494 | return ret; |
donatien | 0:8f57713b2147 | 495 | } |
donatien | 0:8f57713b2147 | 496 | |
donatien | 0:8f57713b2147 | 497 | DBG("One line was successfully processed"); |
donatien | 0:8f57713b2147 | 498 | lineProcessed = true; //Line was processed with success |
donatien | 0:8f57713b2147 | 499 | } |
donatien | 0:8f57713b2147 | 500 | else |
donatien | 0:8f57713b2147 | 501 | { |
donatien | 0:8f57713b2147 | 502 | //This is completely unexpected, discard all chars till the GD char to try to recover good state |
donatien | 0:8f57713b2147 | 503 | WARN("Unexpected %c char (%02d code) found in incoming line", m_inputBuf[gdPos + 1]); |
donatien | 0:8f57713b2147 | 504 | memmove(m_inputBuf, m_inputBuf + gdPos + 1, (m_inputPos + 1) - (gdPos + 1)); //Move null-terminating char as well |
donatien | 0:8f57713b2147 | 505 | m_inputPos = m_inputPos - (gdPos + 1); //Adjust m_inputPos |
donatien | 0:8f57713b2147 | 506 | } |
donatien | 0:8f57713b2147 | 507 | lineDetected = false; //In both case search now for a new line |
donatien | 0:8f57713b2147 | 508 | } |
donatien | 0:8f57713b2147 | 509 | } |
donatien | 0:8f57713b2147 | 510 | } |
donatien | 0:8f57713b2147 | 511 | } while(lineProcessed); //If one complete line was processed there might be other incoming lines that can also be processed without reading the buffer again |
donatien | 0:8f57713b2147 | 512 | |
donatien | 0:8f57713b2147 | 513 | //If the line could not be processed AND buffer is full, it means that we won't ever be able to process it (buffer too short) |
donatien | 0:8f57713b2147 | 514 | if(m_inputPos == AT_INPUT_BUF_SIZE - 1) |
donatien | 0:8f57713b2147 | 515 | { |
donatien | 0:8f57713b2147 | 516 | //Discard everything |
donatien | 0:8f57713b2147 | 517 | m_inputPos = 0; |
donatien | 0:8f57713b2147 | 518 | WARN("Incoming buffer is too short to process incoming line"); |
donatien | 0:8f57713b2147 | 519 | //Look for a new line |
donatien | 0:8f57713b2147 | 520 | lineDetected = false; |
donatien | 0:8f57713b2147 | 521 | } |
donatien | 0:8f57713b2147 | 522 | |
donatien | 0:8f57713b2147 | 523 | DBG("Processed every full incoming lines"); |
donatien | 0:8f57713b2147 | 524 | |
donatien | 0:8f57713b2147 | 525 | return OK; |
donatien | 0:8f57713b2147 | 526 | } |
donatien | 0:8f57713b2147 | 527 | |
donatien | 0:8f57713b2147 | 528 | int ATCommandsInterface::trySendCommand() |
donatien | 0:8f57713b2147 | 529 | { |
donatien | 0:8f57713b2147 | 530 | osEvent evt = m_env2AT.get(0); |
donatien | 0:8f57713b2147 | 531 | DBG("status = %d, msg = %d", evt.status, evt.value.p); |
donatien | 0:8f57713b2147 | 532 | if(evt.status == osEventMail) |
donatien | 0:8f57713b2147 | 533 | { |
donatien | 0:8f57713b2147 | 534 | int* msg = (int*) evt.value.p; |
donatien | 0:8f57713b2147 | 535 | if( *msg == AT_CMD_READY ) //Command pending |
donatien | 0:8f57713b2147 | 536 | { |
donatien | 0:8f57713b2147 | 537 | if(m_transactionState != IDLE) |
donatien | 0:8f57713b2147 | 538 | { |
donatien | 0:8f57713b2147 | 539 | WARN("Previous command not processed!"); |
donatien | 0:8f57713b2147 | 540 | } |
donatien | 0:8f57713b2147 | 541 | DBG("Sending pending command"); |
donatien | 0:8f57713b2147 | 542 | m_pStream->write((uint8_t*)m_transactionCommand, strlen(m_transactionCommand), osWaitForever); |
donatien | 0:8f57713b2147 | 543 | char cr = CR; |
donatien | 0:8f57713b2147 | 544 | m_pStream->write((uint8_t*)&cr, 1, osWaitForever); //Carriage return line terminator |
donatien | 0:8f57713b2147 | 545 | m_transactionState = COMMAND_SENT; |
donatien | 0:8f57713b2147 | 546 | } |
donatien | 0:8f57713b2147 | 547 | else |
donatien | 0:8f57713b2147 | 548 | { |
donatien | 0:8f57713b2147 | 549 | m_transactionState = IDLE; //State-machine reset |
donatien | 0:8f57713b2147 | 550 | } |
donatien | 0:8f57713b2147 | 551 | m_env2AT.free(msg); |
donatien | 0:8f57713b2147 | 552 | } |
donatien | 0:8f57713b2147 | 553 | return OK; |
donatien | 0:8f57713b2147 | 554 | } |
donatien | 0:8f57713b2147 | 555 | |
donatien | 0:8f57713b2147 | 556 | int ATCommandsInterface::processReadLine() |
donatien | 0:8f57713b2147 | 557 | { |
donatien | 0:8f57713b2147 | 558 | DBG("Processing read line [%s]", m_inputBuf); |
donatien | 0:8f57713b2147 | 559 | //The line is stored in m_inputBuf |
donatien | 0:8f57713b2147 | 560 | if(m_transactionState == COMMAND_SENT) |
donatien | 0:8f57713b2147 | 561 | { |
donatien | 0:8f57713b2147 | 562 | //If the command has been sent, checks echo to see if it has been received properly |
donatien | 0:8f57713b2147 | 563 | if( strcmp(m_transactionCommand, m_inputBuf) == 0 ) |
donatien | 0:8f57713b2147 | 564 | { |
donatien | 0:8f57713b2147 | 565 | DBG("Command echo received"); |
donatien | 0:8f57713b2147 | 566 | //If so, it means that the following lines will only be solicited results |
donatien | 0:8f57713b2147 | 567 | m_transactionState = READING_RESULT; |
donatien | 0:8f57713b2147 | 568 | return OK; |
donatien | 0:8f57713b2147 | 569 | } |
donatien | 0:8f57713b2147 | 570 | } |
donatien | 0:8f57713b2147 | 571 | if(m_transactionState == IDLE || m_transactionState == COMMAND_SENT) |
donatien | 0:8f57713b2147 | 572 | { |
donatien | 0:8f57713b2147 | 573 | bool found = false; |
donatien | 0:8f57713b2147 | 574 | char* pSemicol = strchr(m_inputBuf, ':'); |
donatien | 0:8f57713b2147 | 575 | char* pData = NULL; |
donatien | 0:8f57713b2147 | 576 | if( pSemicol != NULL ) //Split the identifier & the result code (if it exists) |
donatien | 0:8f57713b2147 | 577 | { |
donatien | 0:8f57713b2147 | 578 | *pSemicol = '\0'; |
donatien | 0:8f57713b2147 | 579 | pData = pSemicol + 1; |
donatien | 0:8f57713b2147 | 580 | if(pData[0]==' ') |
donatien | 0:8f57713b2147 | 581 | { |
donatien | 0:8f57713b2147 | 582 | pData++; //Suppress whitespace |
donatien | 0:8f57713b2147 | 583 | } |
donatien | 0:8f57713b2147 | 584 | } |
donatien | 0:8f57713b2147 | 585 | //Looks for a unsolicited result code; we can have m_transactionState == COMMAND_SENT as the code may have arrived just before we sent the command |
donatien | 0:8f57713b2147 | 586 | m_eventsMtx.lock(); |
donatien | 0:8f57713b2147 | 587 | //Go through the list |
donatien | 0:8f57713b2147 | 588 | for(int i = 0; i < MAX_AT_EVENTS_HANDLERS; i++) //Find a free slot |
donatien | 0:8f57713b2147 | 589 | { |
donatien | 0:8f57713b2147 | 590 | if( m_eventsHandlers[i] != NULL ) |
donatien | 0:8f57713b2147 | 591 | { |
donatien | 0:8f57713b2147 | 592 | if( m_eventsHandlers[i]->isATCodeHandled(m_inputBuf) ) |
donatien | 0:8f57713b2147 | 593 | { |
donatien | 0:8f57713b2147 | 594 | m_eventsHandlers[i]->onEvent(m_inputBuf, pData); |
donatien | 0:8f57713b2147 | 595 | found = true; //Do not break here as there might be multiple handlers for one event type |
donatien | 0:8f57713b2147 | 596 | } |
donatien | 0:8f57713b2147 | 597 | } |
donatien | 0:8f57713b2147 | 598 | } |
donatien | 0:8f57713b2147 | 599 | m_eventsMtx.unlock(); |
donatien | 0:8f57713b2147 | 600 | if(found) |
donatien | 0:8f57713b2147 | 601 | { |
donatien | 0:8f57713b2147 | 602 | return OK; |
donatien | 0:8f57713b2147 | 603 | } |
donatien | 0:8f57713b2147 | 604 | } |
donatien | 0:8f57713b2147 | 605 | if(m_transactionState == READING_RESULT) |
donatien | 0:8f57713b2147 | 606 | { |
donatien | 0:8f57713b2147 | 607 | //The following lines can either be a command response or a result code (OK / ERROR / CONNECT / +CME ERROR: %s / +CMS ERROR: %s) |
donatien | 0:8f57713b2147 | 608 | if(strcmp("OK", m_inputBuf) == 0) |
donatien | 0:8f57713b2147 | 609 | { |
donatien | 0:8f57713b2147 | 610 | DBG("OK result received"); |
donatien | 0:8f57713b2147 | 611 | m_transactionResult.code = 0; |
donatien | 0:8f57713b2147 | 612 | m_transactionResult.result = ATResult::AT_OK; |
donatien | 0:8f57713b2147 | 613 | m_transactionState = IDLE; |
donatien | 0:8f57713b2147 | 614 | int* msg = m_AT2Env.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 615 | *msg = AT_RESULT_READY; |
donatien | 0:8f57713b2147 | 616 | m_AT2Env.put(msg); //Command has been processed |
donatien | 0:8f57713b2147 | 617 | return OK; |
donatien | 0:8f57713b2147 | 618 | } |
donatien | 0:8f57713b2147 | 619 | else if(strcmp("ERROR", m_inputBuf) == 0) |
donatien | 0:8f57713b2147 | 620 | { |
donatien | 0:8f57713b2147 | 621 | DBG("ERROR result received"); |
donatien | 0:8f57713b2147 | 622 | m_transactionResult.code = 0; |
donatien | 0:8f57713b2147 | 623 | m_transactionResult.result = ATResult::AT_ERROR; |
donatien | 0:8f57713b2147 | 624 | m_transactionState = IDLE; |
donatien | 0:8f57713b2147 | 625 | int* msg = m_AT2Env.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 626 | *msg = AT_RESULT_READY; |
donatien | 0:8f57713b2147 | 627 | m_AT2Env.put(msg); //Command has been processed |
donatien | 0:8f57713b2147 | 628 | return OK; |
donatien | 0:8f57713b2147 | 629 | } |
donatien | 0:8f57713b2147 | 630 | else if(strncmp("CONNECT", m_inputBuf, 7 /*=strlen("CONNECT")*/) == 0) //Result can be "CONNECT" or "CONNECT %d", indicating baudrate |
donatien | 0:8f57713b2147 | 631 | { |
donatien | 0:8f57713b2147 | 632 | DBG("CONNECT result received"); |
donatien | 0:8f57713b2147 | 633 | m_transactionResult.code = 0; |
donatien | 0:8f57713b2147 | 634 | m_transactionResult.result = ATResult::AT_CONNECT; |
donatien | 0:8f57713b2147 | 635 | m_transactionState = IDLE; |
donatien | 0:8f57713b2147 | 636 | int* msg = m_AT2Env.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 637 | *msg = AT_RESULT_READY; |
donatien | 0:8f57713b2147 | 638 | m_AT2Env.put(msg); //Command has been processed |
donatien | 0:8f57713b2147 | 639 | return OK; |
donatien | 0:8f57713b2147 | 640 | } |
donatien | 0:8f57713b2147 | 641 | else if(strcmp("COMMAND NOT SUPPORT", m_inputBuf) == 0) //Huawei-specific, not normalized |
donatien | 0:8f57713b2147 | 642 | { |
donatien | 0:8f57713b2147 | 643 | DBG("COMMAND NOT SUPPORT result received"); |
donatien | 0:8f57713b2147 | 644 | m_transactionResult.code = 0; |
donatien | 0:8f57713b2147 | 645 | m_transactionResult.result = ATResult::AT_ERROR; |
donatien | 0:8f57713b2147 | 646 | m_transactionState = IDLE; |
donatien | 0:8f57713b2147 | 647 | int* msg = m_AT2Env.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 648 | *msg = AT_RESULT_READY; |
donatien | 0:8f57713b2147 | 649 | m_AT2Env.put(msg); //Command has been processed |
donatien | 0:8f57713b2147 | 650 | return OK; |
donatien | 0:8f57713b2147 | 651 | } |
donatien | 0:8f57713b2147 | 652 | else if(strstr(m_inputBuf, "+CME ERROR:") == m_inputBuf) //Mobile Equipment Error |
donatien | 0:8f57713b2147 | 653 | { |
donatien | 0:8f57713b2147 | 654 | std::sscanf(m_inputBuf + 12 /* =strlen("+CME ERROR: ") */, "%d", &m_transactionResult.code); |
donatien | 0:8f57713b2147 | 655 | DBG("+CME ERROR: %d result received", m_transactionResult.code); |
donatien | 0:8f57713b2147 | 656 | m_transactionResult.result = ATResult::AT_CME_ERROR; |
donatien | 0:8f57713b2147 | 657 | m_transactionState = IDLE; |
donatien | 0:8f57713b2147 | 658 | int* msg = m_AT2Env.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 659 | *msg = AT_RESULT_READY; |
donatien | 0:8f57713b2147 | 660 | m_AT2Env.put(msg); //Command has been processed |
donatien | 0:8f57713b2147 | 661 | return OK; |
donatien | 0:8f57713b2147 | 662 | } |
donatien | 0:8f57713b2147 | 663 | else if(strstr(m_inputBuf, "+CMS ERROR:") == m_inputBuf) //SIM Error |
donatien | 0:8f57713b2147 | 664 | { |
donatien | 0:8f57713b2147 | 665 | std::sscanf(m_inputBuf + 13 /* =strlen("+CME ERROR: ") */, "%d", &m_transactionResult.code); |
donatien | 0:8f57713b2147 | 666 | DBG("+CMS ERROR: %d result received", m_transactionResult.code); |
donatien | 0:8f57713b2147 | 667 | m_transactionResult.result = ATResult::AT_CMS_ERROR; |
donatien | 0:8f57713b2147 | 668 | m_transactionState = IDLE; |
donatien | 0:8f57713b2147 | 669 | int* msg = m_AT2Env.alloc(osWaitForever); |
donatien | 0:8f57713b2147 | 670 | *msg = AT_RESULT_READY; |
donatien | 0:8f57713b2147 | 671 | m_AT2Env.put(msg); //Command has been processed |
donatien | 0:8f57713b2147 | 672 | return OK; |
donatien | 0:8f57713b2147 | 673 | } |
donatien | 0:8f57713b2147 | 674 | else |
donatien | 0:8f57713b2147 | 675 | { |
donatien | 0:8f57713b2147 | 676 | DBG("Unprocessed result received: '%s'", m_inputBuf); |
donatien | 0:8f57713b2147 | 677 | //Must call transaction processor to complete line processing |
donatien | 0:8f57713b2147 | 678 | int ret = m_pTransactionProcessor->onNewATResponseLine(this, m_inputBuf); //Here sendData can be called |
donatien | 0:8f57713b2147 | 679 | return ret; |
donatien | 0:8f57713b2147 | 680 | } |
donatien | 0:8f57713b2147 | 681 | } |
donatien | 0:8f57713b2147 | 682 | |
donatien | 0:8f57713b2147 | 683 | return OK; |
donatien | 0:8f57713b2147 | 684 | } |
donatien | 0:8f57713b2147 | 685 | |
donatien | 0:8f57713b2147 | 686 | int ATCommandsInterface::processEntryPrompt() |
donatien | 0:8f57713b2147 | 687 | { |
donatien | 0:8f57713b2147 | 688 | DBG("Calling prompt handler"); |
donatien | 0:8f57713b2147 | 689 | int ret = m_pTransactionProcessor->onNewEntryPrompt(this); //Here sendData can be called |
donatien | 0:8f57713b2147 | 690 | |
donatien | 0:8f57713b2147 | 691 | if( ret != NET_MOREINFO ) //A new prompt is expected |
donatien | 0:8f57713b2147 | 692 | { |
donatien | 0:8f57713b2147 | 693 | DBG("Sending break character"); |
donatien | 0:8f57713b2147 | 694 | //Send CTRL+Z (break sequence) to exit prompt |
donatien | 0:8f57713b2147 | 695 | char seq[2] = {BRK, 0x00}; |
donatien | 0:8f57713b2147 | 696 | sendData(seq); |
donatien | 0:8f57713b2147 | 697 | } |
donatien | 0:8f57713b2147 | 698 | return OK; |
donatien | 0:8f57713b2147 | 699 | } |
donatien | 0:8f57713b2147 | 700 | |
donatien | 0:8f57713b2147 | 701 | //Commands that can be called during onNewATResponseLine callback, additionally to close() |
donatien | 0:8f57713b2147 | 702 | //Access to this method is protected (can ONLY be called on processing thread during IATCommandsProcessor::onNewATResponseLine execution) |
donatien | 0:8f57713b2147 | 703 | int ATCommandsInterface::sendData(const char* data) |
donatien | 0:8f57713b2147 | 704 | { |
donatien | 0:8f57713b2147 | 705 | //m_inputBuf is cleared at this point (and MUST therefore be empty) |
donatien | 0:8f57713b2147 | 706 | int dataLen = strlen(data); |
donatien | 0:8f57713b2147 | 707 | DBG("Sending raw string of length %d", dataLen); |
donatien | 0:8f57713b2147 | 708 | int ret = m_pStream->write((uint8_t*)data, dataLen, osWaitForever); |
donatien | 0:8f57713b2147 | 709 | if(ret) |
donatien | 0:8f57713b2147 | 710 | { |
donatien | 0:8f57713b2147 | 711 | WARN("Could not write to stream (returned %d)", ret); |
donatien | 0:8f57713b2147 | 712 | return ret; |
donatien | 0:8f57713b2147 | 713 | } |
donatien | 0:8f57713b2147 | 714 | |
donatien | 0:8f57713b2147 | 715 | int dataPos = 0; |
donatien | 0:8f57713b2147 | 716 | do |
donatien | 0:8f57713b2147 | 717 | { |
donatien | 0:8f57713b2147 | 718 | //Read echo |
donatien | 0:8f57713b2147 | 719 | size_t readLen; |
donatien | 0:8f57713b2147 | 720 | int ret = m_pStream->read((uint8_t*)m_inputBuf, &readLen, MIN(dataLen - dataPos, AT_INPUT_BUF_SIZE - 1), osWaitForever); //Make sure we do not read more than needed otherwise it could break the parser |
donatien | 0:8f57713b2147 | 721 | if(ret) |
donatien | 0:8f57713b2147 | 722 | { |
donatien | 0:8f57713b2147 | 723 | WARN("Could not read from stream (returned %d)", ret); |
donatien | 0:8f57713b2147 | 724 | return ret; |
donatien | 0:8f57713b2147 | 725 | }; |
donatien | 0:8f57713b2147 | 726 | |
donatien | 0:8f57713b2147 | 727 | if( memcmp(m_inputBuf, data + dataPos, readLen) != 0 ) |
donatien | 0:8f57713b2147 | 728 | { |
donatien | 0:8f57713b2147 | 729 | //Echo does not match output |
donatien | 0:8f57713b2147 | 730 | WARN("Echo does not match output"); |
donatien | 0:8f57713b2147 | 731 | return NET_DIFF; |
donatien | 0:8f57713b2147 | 732 | } |
donatien | 0:8f57713b2147 | 733 | |
donatien | 0:8f57713b2147 | 734 | dataPos += readLen; |
donatien | 0:8f57713b2147 | 735 | //If all characters have not been read yet |
donatien | 0:8f57713b2147 | 736 | |
donatien | 0:8f57713b2147 | 737 | } while(dataPos < dataLen); |
donatien | 0:8f57713b2147 | 738 | |
donatien | 0:8f57713b2147 | 739 | DBG("String sent successfully"); |
donatien | 0:8f57713b2147 | 740 | |
donatien | 0:8f57713b2147 | 741 | m_inputPos = 0; //Reset input buffer state |
donatien | 0:8f57713b2147 | 742 | |
donatien | 0:8f57713b2147 | 743 | return OK; |
donatien | 0:8f57713b2147 | 744 | } |
donatien | 0:8f57713b2147 | 745 | |
donatien | 0:8f57713b2147 | 746 | /*static*/ void ATCommandsInterface::staticCallback(void const* p) |
donatien | 0:8f57713b2147 | 747 | { |
donatien | 0:8f57713b2147 | 748 | ((ATCommandsInterface*)p)->process(); |
donatien | 0:8f57713b2147 | 749 | } |
donatien | 0:8f57713b2147 | 750 | |
donatien | 0:8f57713b2147 | 751 | int ATCommandsInterface::ATResultToReturnCode(ATResult result) //Helper |
donatien | 0:8f57713b2147 | 752 | { |
donatien | 0:8f57713b2147 | 753 | if(result.result == ATResult::AT_OK) |
donatien | 0:8f57713b2147 | 754 | { |
donatien | 0:8f57713b2147 | 755 | return OK; |
donatien | 0:8f57713b2147 | 756 | } |
donatien | 0:8f57713b2147 | 757 | else |
donatien | 0:8f57713b2147 | 758 | { |
donatien | 0:8f57713b2147 | 759 | return NET_MOREINFO; |
donatien | 0:8f57713b2147 | 760 | } |
donatien | 0:8f57713b2147 | 761 | } |
donatien | 0:8f57713b2147 | 762 | |
donatien | 0:8f57713b2147 | 763 | /*virtual*/ int ATCommandsInterface::onNewATResponseLine(ATCommandsInterface* pInst, const char* line) //Default implementation for simple commands handling |
donatien | 0:8f57713b2147 | 764 | { |
donatien | 0:8f57713b2147 | 765 | return OK; |
donatien | 0:8f57713b2147 | 766 | } |
donatien | 0:8f57713b2147 | 767 | |
donatien | 0:8f57713b2147 | 768 | /*virtual*/ int ATCommandsInterface::onNewEntryPrompt(ATCommandsInterface* pInst) //Default implementation (just sends Ctrl+Z to exit the prompt by returning OK right-away) |
donatien | 0:8f57713b2147 | 769 | { |
donatien | 0:8f57713b2147 | 770 | return OK; |
donatien | 0:8f57713b2147 | 771 | } |
donatien | 0:8f57713b2147 | 772 | |
donatien | 0:8f57713b2147 | 773 | void ATCommandsInterface::process() //Processing thread |
donatien | 0:8f57713b2147 | 774 | { |
donatien | 0:8f57713b2147 | 775 | DBG("AT Thread started"); |
donatien | 0:8f57713b2147 | 776 | while(true) |
donatien | 0:8f57713b2147 | 777 | { |
donatien | 0:8f57713b2147 | 778 | DBG("AT Processing on hold"); |
donatien | 0:8f57713b2147 | 779 | m_processingThread.signal_wait(AT_SIG_PROCESSING_START); //Block until the process is started |
donatien | 0:8f57713b2147 | 780 | |
donatien | 0:8f57713b2147 | 781 | m_processingMtx.lock(); |
donatien | 0:8f57713b2147 | 782 | DBG("AT Processing started"); |
donatien | 0:8f57713b2147 | 783 | //First of all discard buffer |
donatien | 0:8f57713b2147 | 784 | int ret; |
donatien | 0:8f57713b2147 | 785 | size_t readLen; |
donatien | 0:8f57713b2147 | 786 | do //Drop everything |
donatien | 0:8f57713b2147 | 787 | { |
donatien | 0:8f57713b2147 | 788 | ret = m_pStream->read((uint8_t*)m_inputBuf, &readLen, AT_INPUT_BUF_SIZE - 1, 0); //Do NOT wait at this point |
donatien | 0:8f57713b2147 | 789 | } while(ret == OK); |
donatien | 0:8f57713b2147 | 790 | m_inputPos = 0; //Clear input buffer |
donatien | 0:8f57713b2147 | 791 | do |
donatien | 0:8f57713b2147 | 792 | { |
donatien | 0:8f57713b2147 | 793 | DBG("Trying to read a new line"); |
donatien | 0:8f57713b2147 | 794 | tryReadLine(); |
donatien | 0:8f57713b2147 | 795 | DBG("Trying to send a pending command"); |
donatien | 0:8f57713b2147 | 796 | trySendCommand(); |
donatien | 0:8f57713b2147 | 797 | } while( m_processingThread.signal_wait(AT_SIG_PROCESSING_STOP, 0).status != osEventSignal ); //Loop until the process is interrupted |
donatien | 0:8f57713b2147 | 798 | m_processingMtx.unlock(); |
donatien | 0:8f57713b2147 | 799 | DBG("AT Processing stopped"); |
donatien | 0:8f57713b2147 | 800 | } |
donatien | 0:8f57713b2147 | 801 | } |
donatien | 0:8f57713b2147 | 802 |