Jose Rios / Mbed OS xdot-test

Basic xdot code to check how many memory is available for user APP after initializing libxdot lorawan stack

examples/src/peer_to_peer_example.cpp@11:d2e31743433a, 2016-10-11 (annotated)

Committer:
Mike Fiore
Date:
Tue Oct 11 11:49:56 2016 -0500
Revision:
11:d2e31743433a
Child:
12:ec9768677cea
add peer to peer example

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Mike Fiore 11:d2e31743433a 1 #include "dot_util.h"
Mike Fiore 11:d2e31743433a 2 #include "mDotEvent.h"
Mike Fiore 11:d2e31743433a 3
Mike Fiore 11:d2e31743433a 4 #if ACTIVE_EXAMPLE == PEER_TO_PEER_EXAMPLE
Mike Fiore 11:d2e31743433a 5
Mike Fiore 11:d2e31743433a 6 /////////////////////////////////////////////////////////////
Mike Fiore 11:d2e31743433a 7 // * these options must match between the two devices in //
Mike Fiore 11:d2e31743433a 8 // order for communication to be successful
Mike Fiore 11:d2e31743433a 9 /////////////////////////////////////////////////////////////
Mike Fiore 11:d2e31743433a 10 static uint8_t network_address[] = { 0x01, 0x02, 0x03, 0x04 };
Mike Fiore 11:d2e31743433a 11 static uint8_t network_session_key[] = { 0x01, 0x02, 0x03, 0x04, 0x01, 0x02, 0x03, 0x04, 0x01, 0x02, 0x03, 0x04, 0x01, 0x02, 0x03, 0x04 };
Mike Fiore 11:d2e31743433a 12 static uint8_t data_session_key[] = { 0x01, 0x02, 0x03, 0x04, 0x01, 0x02, 0x03, 0x04, 0x01, 0x02, 0x03, 0x04, 0x01, 0x02, 0x03, 0x04 };
Mike Fiore 11:d2e31743433a 13
Mike Fiore 11:d2e31743433a 14 mDot* dot = NULL;
Mike Fiore 11:d2e31743433a 15
Mike Fiore 11:d2e31743433a 16 Serial pc(USBTX, USBRX);
Mike Fiore 11:d2e31743433a 17
Mike Fiore 11:d2e31743433a 18 #if defined(TARGET_XDOT_L151CC)
Mike Fiore 11:d2e31743433a 19 I2C i2c(I2C_SDA, I2C_SCL);
Mike Fiore 11:d2e31743433a 20 ISL29011 lux(i2c);
Mike Fiore 11:d2e31743433a 21 #else
Mike Fiore 11:d2e31743433a 22 AnalogIn lux(XBEE_AD0);
Mike Fiore 11:d2e31743433a 23 #endif
Mike Fiore 11:d2e31743433a 24
Mike Fiore 11:d2e31743433a 25 // Custom event handler for receiving Class C packets
Mike Fiore 11:d2e31743433a 26 class RadioEvent : public mDotEvent
Mike Fiore 11:d2e31743433a 27 {
Mike Fiore 11:d2e31743433a 28
Mike Fiore 11:d2e31743433a 29 public:
Mike Fiore 11:d2e31743433a 30 RadioEvent() {}
Mike Fiore 11:d2e31743433a 31
Mike Fiore 11:d2e31743433a 32 virtual ~RadioEvent() {}
Mike Fiore 11:d2e31743433a 33
Mike Fiore 11:d2e31743433a 34 /*!
Mike Fiore 11:d2e31743433a 35 * MAC layer event callback prototype.
Mike Fiore 11:d2e31743433a 36 *
Mike Fiore 11:d2e31743433a 37 * \param [IN] flags Bit field indicating the MAC events occurred
Mike Fiore 11:d2e31743433a 38 * \param [IN] info Details about MAC events occurred
Mike Fiore 11:d2e31743433a 39 */
Mike Fiore 11:d2e31743433a 40 virtual void MacEvent(LoRaMacEventFlags* flags, LoRaMacEventInfo* info) {
Mike Fiore 11:d2e31743433a 41
Mike Fiore 11:d2e31743433a 42 if (mts::MTSLog::getLogLevel() == mts::MTSLog::TRACE_LEVEL) {
Mike Fiore 11:d2e31743433a 43 std::string msg = "OK";
Mike Fiore 11:d2e31743433a 44 switch (info->Status) {
Mike Fiore 11:d2e31743433a 45 case LORAMAC_EVENT_INFO_STATUS_ERROR:
Mike Fiore 11:d2e31743433a 46 msg = "ERROR";
Mike Fiore 11:d2e31743433a 47 break;
Mike Fiore 11:d2e31743433a 48 case LORAMAC_EVENT_INFO_STATUS_TX_TIMEOUT:
Mike Fiore 11:d2e31743433a 49 msg = "TX_TIMEOUT";
Mike Fiore 11:d2e31743433a 50 break;
Mike Fiore 11:d2e31743433a 51 case LORAMAC_EVENT_INFO_STATUS_RX_TIMEOUT:
Mike Fiore 11:d2e31743433a 52 msg = "RX_TIMEOUT";
Mike Fiore 11:d2e31743433a 53 break;
Mike Fiore 11:d2e31743433a 54 case LORAMAC_EVENT_INFO_STATUS_RX_ERROR:
Mike Fiore 11:d2e31743433a 55 msg = "RX_ERROR";
Mike Fiore 11:d2e31743433a 56 break;
Mike Fiore 11:d2e31743433a 57 case LORAMAC_EVENT_INFO_STATUS_JOIN_FAIL:
Mike Fiore 11:d2e31743433a 58 msg = "JOIN_FAIL";
Mike Fiore 11:d2e31743433a 59 break;
Mike Fiore 11:d2e31743433a 60 case LORAMAC_EVENT_INFO_STATUS_DOWNLINK_FAIL:
Mike Fiore 11:d2e31743433a 61 msg = "DOWNLINK_FAIL";
Mike Fiore 11:d2e31743433a 62 break;
Mike Fiore 11:d2e31743433a 63 case LORAMAC_EVENT_INFO_STATUS_ADDRESS_FAIL:
Mike Fiore 11:d2e31743433a 64 msg = "ADDRESS_FAIL";
Mike Fiore 11:d2e31743433a 65 break;
Mike Fiore 11:d2e31743433a 66 case LORAMAC_EVENT_INFO_STATUS_MIC_FAIL:
Mike Fiore 11:d2e31743433a 67 msg = "MIC_FAIL";
Mike Fiore 11:d2e31743433a 68 break;
Mike Fiore 11:d2e31743433a 69 default:
Mike Fiore 11:d2e31743433a 70 break;
Mike Fiore 11:d2e31743433a 71 }
Mike Fiore 11:d2e31743433a 72 logTrace("Event: %s", msg.c_str());
Mike Fiore 11:d2e31743433a 73
Mike Fiore 11:d2e31743433a 74 logTrace("Flags Tx: %d Rx: %d RxData: %d RxSlot: %d LinkCheck: %d JoinAccept: %d",
Mike Fiore 11:d2e31743433a 75 flags->Bits.Tx, flags->Bits.Rx, flags->Bits.RxData, flags->Bits.RxSlot, flags->Bits.LinkCheck, flags->Bits.JoinAccept);
Mike Fiore 11:d2e31743433a 76 logTrace("Info: Status: %d ACK: %d Retries: %d TxDR: %d RxPort: %d RxSize: %d RSSI: %d SNR: %d Energy: %d Margin: %d Gateways: %d",
Mike Fiore 11:d2e31743433a 77 info->Status, info->TxAckReceived, info->TxNbRetries, info->TxDatarate, info->RxPort, info->RxBufferSize,
Mike Fiore 11:d2e31743433a 78 info->RxRssi, info->RxSnr, info->Energy, info->DemodMargin, info->NbGateways);
Mike Fiore 11:d2e31743433a 79 }
Mike Fiore 11:d2e31743433a 80
Mike Fiore 11:d2e31743433a 81 if (flags->Bits.Rx) {
Mike Fiore 11:d2e31743433a 82
Mike Fiore 11:d2e31743433a 83 logDebug("Rx %d bytes", info->RxBufferSize);
Mike Fiore 11:d2e31743433a 84 if (info->RxBufferSize > 0) {
Mike Fiore 11:d2e31743433a 85 // print RX data as hexadecimal
Mike Fiore 11:d2e31743433a 86 printf("Rx data: %s\r\n", mts::Text::bin2hexString(info->RxBuffer, info->RxBufferSize).c_str());
Mike Fiore 11:d2e31743433a 87
Mike Fiore 11:d2e31743433a 88 // print RX data as string
Mike Fiore 11:d2e31743433a 89 /*
Mike Fiore 11:d2e31743433a 90 pc.printf("Rx data: ");
Mike Fiore 11:d2e31743433a 91 for (int i = 0; i < info->RxBufferSize; i++) {
Mike Fiore 11:d2e31743433a 92 pc.putc(info->RxBuffer[i]);
Mike Fiore 11:d2e31743433a 93 }
Mike Fiore 11:d2e31743433a 94 pc.printf("\r\n");
Mike Fiore 11:d2e31743433a 95 */
Mike Fiore 11:d2e31743433a 96 }
Mike Fiore 11:d2e31743433a 97 }
Mike Fiore 11:d2e31743433a 98 }
Mike Fiore 11:d2e31743433a 99 };
Mike Fiore 11:d2e31743433a 100
Mike Fiore 11:d2e31743433a 101 int main() {
Mike Fiore 11:d2e31743433a 102 RadioEvent events;
Mike Fiore 11:d2e31743433a 103 uint32_t tx_frequency;
Mike Fiore 11:d2e31743433a 104 uint8_t tx_datarate;
Mike Fiore 11:d2e31743433a 105 uint8_t tx_power;
Mike Fiore 11:d2e31743433a 106 uint8_t frequency_band;
Mike Fiore 11:d2e31743433a 107
Mike Fiore 11:d2e31743433a 108 pc.baud(115200);
Mike Fiore 11:d2e31743433a 109
Mike Fiore 11:d2e31743433a 110 mts::MTSLog::setLogLevel(mts::MTSLog::TRACE_LEVEL);
Mike Fiore 11:d2e31743433a 111
Mike Fiore 11:d2e31743433a 112 dot = mDot::getInstance();
Mike Fiore 11:d2e31743433a 113
Mike Fiore 11:d2e31743433a 114 // make sure library logging is turned on
Mike Fiore 11:d2e31743433a 115 dot->setLogLevel(mts::MTSLog::INFO_LEVEL);
Mike Fiore 11:d2e31743433a 116
Mike Fiore 11:d2e31743433a 117 // attach the custom events handler
Mike Fiore 11:d2e31743433a 118 dot->setEvents(&events);
Mike Fiore 11:d2e31743433a 119
Mike Fiore 11:d2e31743433a 120 // update configuration if necessary
Mike Fiore 11:d2e31743433a 121 if (dot->getJoinMode() != mDot::PEER_TO_PEER) {
Mike Fiore 11:d2e31743433a 122 logInfo("changing network join mode to PEER_TO_PEER");
Mike Fiore 11:d2e31743433a 123 if (dot->setJoinMode(mDot::PEER_TO_PEER) != mDot::MDOT_OK) {
Mike Fiore 11:d2e31743433a 124 logError("failed to set network join mode to PEER_TO_PEER");
Mike Fiore 11:d2e31743433a 125 }
Mike Fiore 11:d2e31743433a 126 }
Mike Fiore 11:d2e31743433a 127 frequency_band = dot->getFrequencyBand();
Mike Fiore 11:d2e31743433a 128 switch (frequency_band) {
Mike Fiore 11:d2e31743433a 129 case mDot::FB_EU868:
Mike Fiore 11:d2e31743433a 130 // 250kHz channels achieve higher throughput
Mike Fiore 11:d2e31743433a 131 // DR6 : SF7 @ 250kHz
Mike Fiore 11:d2e31743433a 132 // DR0 - DR5 (125kHz channels) available but much slower
Mike Fiore 11:d2e31743433a 133 tx_frequency = 869850000;
Mike Fiore 11:d2e31743433a 134 tx_datarate = mDot::DR6;
Mike Fiore 11:d2e31743433a 135 // the 869850000 frequency is 100% duty cycle if the total power is under 7 dBm - tx power 4 + antenna gain 3 = 7
Mike Fiore 11:d2e31743433a 136 tx_power = 4;
Mike Fiore 11:d2e31743433a 137 break;
Mike Fiore 11:d2e31743433a 138 case mDot::FB_US915:
Mike Fiore 11:d2e31743433a 139 case mDot::FB_AU915:
Mike Fiore 11:d2e31743433a 140 default:
Mike Fiore 11:d2e31743433a 141 // 500kHz channels achieve highest throughput
Mike Fiore 11:d2e31743433a 142 // DR8 : SF12 @ 500kHz
Mike Fiore 11:d2e31743433a 143 // DR9 : SF11 @ 500kHz
Mike Fiore 11:d2e31743433a 144 // DR10 : SF10 @ 500kHz
Mike Fiore 11:d2e31743433a 145 // DR11 : SF9 @ 500kHz
Mike Fiore 11:d2e31743433a 146 // DR12 : SF8 @ 500kHz
Mike Fiore 11:d2e31743433a 147 // DR13 : SF7 @ 500kHz
Mike Fiore 11:d2e31743433a 148 // DR0 - DR3 (125kHz channels) available but much slower
Mike Fiore 11:d2e31743433a 149 tx_frequency = 915500000;
Mike Fiore 11:d2e31743433a 150 tx_datarate = mDot::DR13;
Mike Fiore 11:d2e31743433a 151 // 915 bands have no duty cycle restrictions, set tx power to max
Mike Fiore 11:d2e31743433a 152 tx_power = 20;
Mike Fiore 11:d2e31743433a 153 break;
Mike Fiore 11:d2e31743433a 154 }
Mike Fiore 11:d2e31743433a 155 // in PEER_TO_PEER mode there is no join request/response transaction
Mike Fiore 11:d2e31743433a 156 // as long as both Dots are configured correctly, they should be able to communicate
Mike Fiore 11:d2e31743433a 157 update_peer_to_peer_config(network_address, network_session_key, data_session_key, tx_frequency, tx_datarate, tx_power);
Mike Fiore 11:d2e31743433a 158
Mike Fiore 11:d2e31743433a 159 // save changes to configuration
Mike Fiore 11:d2e31743433a 160 logInfo("saving configuration");
Mike Fiore 11:d2e31743433a 161 if (!dot->saveConfig()) {
Mike Fiore 11:d2e31743433a 162 logError("failed to save configuration");
Mike Fiore 11:d2e31743433a 163 }
Mike Fiore 11:d2e31743433a 164
Mike Fiore 11:d2e31743433a 165 // display configuration
Mike Fiore 11:d2e31743433a 166 display_config();
Mike Fiore 11:d2e31743433a 167
Mike Fiore 11:d2e31743433a 168 #if defined(TARGET_XDOT_L151CC)
Mike Fiore 11:d2e31743433a 169 // configure the ISL29011 sensor on the xDot-DK for continuous ambient light sampling, 16 bit conversion, and maximum range
Mike Fiore 11:d2e31743433a 170 lux.setMode(ISL29011::ALS_CONT);
Mike Fiore 11:d2e31743433a 171 lux.setResolution(ISL29011::ADC_16BIT);
Mike Fiore 11:d2e31743433a 172 lux.setRange(ISL29011::RNG_64000);
Mike Fiore 11:d2e31743433a 173 #endif
Mike Fiore 11:d2e31743433a 174
Mike Fiore 11:d2e31743433a 175 while (true) {
Mike Fiore 11:d2e31743433a 176 uint16_t light;
Mike Fiore 11:d2e31743433a 177 std::vector<uint8_t> tx_data;
Mike Fiore 11:d2e31743433a 178
Mike Fiore 11:d2e31743433a 179 // join network if not joined
Mike Fiore 11:d2e31743433a 180 if (!dot->getNetworkJoinStatus()) {
Mike Fiore 11:d2e31743433a 181 join_network();
Mike Fiore 11:d2e31743433a 182 }
Mike Fiore 11:d2e31743433a 183
Mike Fiore 11:d2e31743433a 184 #if defined(TARGET_XDOT_L151CC)
Mike Fiore 11:d2e31743433a 185 // get the latest light sample and send it to the gateway
Mike Fiore 11:d2e31743433a 186 light = lux.getData();
Mike Fiore 11:d2e31743433a 187 tx_data.push_back((light >> 8) & 0xFF);
Mike Fiore 11:d2e31743433a 188 tx_data.push_back(light & 0xFF);
Mike Fiore 11:d2e31743433a 189 logInfo("light: %lu [0x%04X]", light, light);
Mike Fiore 11:d2e31743433a 190 send_data(tx_data);
Mike Fiore 11:d2e31743433a 191 #else
Mike Fiore 11:d2e31743433a 192 // get some dummy data and send it to the gateway
Mike Fiore 11:d2e31743433a 193 light = lux.read_u16();
Mike Fiore 11:d2e31743433a 194 tx_data.push_back((light >> 8) & 0xFF);
Mike Fiore 11:d2e31743433a 195 tx_data.push_back(light & 0xFF);
Mike Fiore 11:d2e31743433a 196 logInfo("light: %lu [0x%04X]", light, light);
Mike Fiore 11:d2e31743433a 197 send_data(tx_data);
Mike Fiore 11:d2e31743433a 198 #endif
Mike Fiore 11:d2e31743433a 199
Mike Fiore 11:d2e31743433a 200 // the Dot can't sleep in PEER_TO_PEER mode
Mike Fiore 11:d2e31743433a 201 // it must be waiting for data from the other Dot
Mike Fiore 11:d2e31743433a 202 // send data every 5 seconds
Mike Fiore 11:d2e31743433a 203 logInfo("waiting for 5s");
Mike Fiore 11:d2e31743433a 204 wait(5);
Mike Fiore 11:d2e31743433a 205 }
Mike Fiore 11:d2e31743433a 206
Mike Fiore 11:d2e31743433a 207 return 0;
Mike Fiore 11:d2e31743433a 208 }
Mike Fiore 11:d2e31743433a 209
Mike Fiore 11:d2e31743433a 210 #endif
Mike Fiore 11:d2e31743433a 211