File content as of revision 4:f9aaf0f82c00:

/*
 / _____)             _              | |
( (____  _____ ____ _| |_ _____  ____| |__
 \____ \| ___ |    (_   _) ___ |/ ___)  _ \
 _____) ) ____| | | || |_| ____( (___| | | |
(______/|_____)_|_|_| \__)_____)\____)_| |_|
    (C)2013 Semtech

Description: MBED example application

License: Revised BSD License, see LICENSE.TXT file include in the project

Maintainer: Miguel Luis and Gregory Cristian
*/
#include "mbed.h"
#include "lmic.h"
#include "mpl3115a2.h"
#include "gps.h"
#include "debug.h"


//#define SENET_F
#define SMTC

typedef enum {
    MOTE_NONE = 0,
    MOTE_V2,
    MOTE_V3
} mote_version_e;
mote_version_e mote_version = MOTE_NONE;

DigitalOut pc_7(PC_7);
DigitalIn pc_1(PC_1);


/* ****************************************** */
/* ***** Basic App and Network Parameters *** */
/* ****************************************** */
// Hybrid Mode must be defined in lmic.h      //
// DevEUI and Keys defined by Activation type //
#define APP_DATA_SIZE               11
#define APP_ACK                     0
#define MS_DELAY_NEXT_TX               400
#ifdef SMTC
#define OVER_THE_AIR_ACTIVATION     1 //0
#else
#define OVER_THE_AIR_ACTIVATION     1
#endif /* SMTC */

/* ***************************************** */

#define LED_RED         PB_1
#define LED_YEL         PB_10

static DigitalOut led1(LED_RED);
static DigitalOut led2(LED_YEL);

/*  gps(tx, rx, en); */
GPS gps(PB_6, PB_7, PB_11);

I2C i2c(I2C_SDA, I2C_SCL);
DigitalIn i2c_int_pin(PB_4);
MPL3115A2 mpl3115a2(i2c, i2c_int_pin);
AnalogIn *bat;
#define LOW_BAT_THRESHOLD   3.45

//////////////////////////////////////////////////
// CONFIGURATION (FOR APPLICATION CALLBACKS BELOW)
//////////////////////////////////////////////////
#ifdef SENET_F
// application router ID (LSBF)
static const u1_t APPEUI[8]  = { 0x01, 0x00, 0x01, 0x00, 0x00, 0x0c, 0x25, 0x00  };

// unique device ID (LSBF)
static const u1_t DEVEUI[8]  = { 0x0f, 0x00, 0x00, 0x00, 0x01, 0x0c, 0x25, 0x00 };

// device-specific AES key (derived from device EUI)
static const u1_t DEVKEY[16] = { 0xe4, 0x72, 0x71, 0xc5, 0xf5, 0x30, 0xa9, 0x9f, 0xcf, 0xc4, 0x0e, 0xab, 0xea, 0xd7, 0x19, 0x42, };
                             //    E4   -72   -71   -C5   -F5   -30   -A9   -9F   -CF   -C4   -0E   -AB   -EA   -D7   -19   -42
#endif /* SENET_F */

#ifdef SMTC
// Semtech Activation (v1.x server)
// application router ID (LSBF)
static const u1_t APPEUI[8]  = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 };

// unique device ID (LSBF)
//static const u1_t DEVEUI[8]  = { 0x20, 0x00, 0x00, 0x00, 0x01, 0x0c, 0x25, 0x00 };
static const u1_t DEVEUI[8]  = { 0x34, 0x00, 0x00, 0x00, 0x01, 0x0c, 0x25, 0x00 };
//static const u1_t DEVEUI[8]  = { 0x35, 0x00, 0x00, 0x00, 0x01, 0x0c, 0x25, 0x00 };

// device-specific AES key (derived from device EUI)
static const u1_t DEVKEY[16] = { 0x00, 0x11, 0x22, 0x33, 0x44, 0x55, 0x66, 0x77, 0x88, 0x99, 0xaa, 0xbb, 0xcc, 0xdd, 0xee, 0xff  };

/*static uint8_t NwkSKey[] = 
{ 
    0x2B, 0x7E, 0x15, 0x16, 0x28, 0xAE, 0xD2, 0xA6,
    0xAB, 0xF7, 0x15, 0x88, 0x09, 0xCF, 0x4F, 0x3C
};

static uint8_t ArtSKey[] = 
{ 
    0x2B, 0x7E, 0x15, 0x16, 0x28, 0xAE, 0xD2, 0xA6,
    0xAB, 0xF7, 0x15, 0x88, 0x09, 0xCF, 0x4F, 0x3C
};*/

#endif /* SMTC */

//////////////////////////////////////////////////
// APPLICATION CALLBACKS
//////////////////////////////////////////////////

// provide application router ID (8 bytes, LSBF)
void os_getArtEui (u1_t* buf) {
    memcpy(buf, APPEUI, 8);
}

// provide device ID (8 bytes, LSBF)
void os_getDevEui (u1_t* buf) {
    memcpy(buf, DEVEUI, 8);
}

// provide device key (16 bytes)
void os_getDevKey (u1_t* buf) {
    memcpy(buf, DEVKEY, 16);
}

//////////////////////////////////////////////////
// MAIN - INITIALIZATION AND STARTUP
//////////////////////////////////////////////////
void get_mote_version()
{
    char first;
    
    /*DigitalOut pc_7(PC_7);
      DigitalIn pc_1(PC_1);*/
      
    pc_7 = 1;
    first = pc_1;
    pc_7 = 0;
    if (first && !pc_1) {
        mote_version = MOTE_V2;
        printf("v2\r\n");
        bat = new AnalogIn(PA_0);
    } else {
        mote_version = MOTE_V3;
        printf("v3\r\n");
        bat = new AnalogIn(PA_1);
    }
}

// initial job
static void initfunc (osjob_t* j) {
    debug_str("B: INITFUNC\n");
    // reset MAC state
    LMIC_reset();
    // start joining
#if( OVER_THE_AIR_ACTIVATION != 0 )
    LMIC_startJoining();
#else
    devaddr_t *serial_id = (devaddr_t *) 0x1FF800d0;        // cat3 device stm32l152rc
    LMIC_setSession( 0, *serial_id, NwkSKey, ArtSKey );
    debug_val("SN = ", *serial_id);
#endif
    // init done - onEvent() callback will be invoked...

    //DEBUG_STR("E: INITFUNC");
    get_mote_version();
    if (mote_version == MOTE_V3)
        gps.en_invert = false;
    else
        gps.en_invert = true;
        
    gps.init();
    gps.enable(1);
    //gps.verbose = 1;

    mpl3115a2.init();
}

int main(void)
{
    osjob_t initjob;

    // initialize runtime env
    os_init();
    debug_init();
    // setup initial job
    os_setCallback(&initjob, initfunc);
    // execute scheduled jobs and events
    os_runloop();
    // (not reached)
}

//////////////////////////////////////////////////
// LMIC EVENT CALLBACK
//////////////////////////////////////////////////
osjob_t rxLedJob;
osjob_t txLedJob;
osjob_t sendFrameJob;

static void onRxLed (osjob_t* j) {
    debug_val("LED2 = ", 1 );
    led2 = 1;
}

static void onTxLed (osjob_t* j) {
    debug_val("LED1 = ", 1 );
    led1 = 1;
}

static void
restore_hsi()
{
    RCC_OscInitTypeDef osc_init;
    /* if HSI was shut off in deep sleep (needed for AnalogIn) */
    HAL_RCC_GetOscConfig(&osc_init);
    if (osc_init.HSIState != RCC_HSI_ON) {
        // Enable the HSI (to clock the ADC)
        osc_init.OscillatorType = RCC_OSCILLATORTYPE_HSI;
        osc_init.HSIState       = RCC_HSI_ON;
        osc_init.PLL.PLLState   = RCC_PLL_NONE;
        HAL_RCC_OscConfig(&osc_init);    
    }    
}

static bool AppLedStateOn = false;

#define AIN_VREF        3.3     // stm32 internal refernce
#define AIN_VBAT_DIV    2       // resistor divider
static void PrepareDataFrame( void )
{
    uint16_t altitudeGps;
    float volts;
    
    restore_hsi();

    gps.service();
    printf("lat:%f  long:%f\r\n", gps.Latitude, gps.Longitude);
    // printf("lat:%d  long:%d\r\n", gps.LatitudeBinary, gps.LongitudeBinary);
    mpl3115a2.ReadTemperature();
    //printf("temp:%d\r\n", (int)mpl3115a2.Temperature);

    // immediately prepare next transmission
    //LMIC.frame[0] = LMIC.rxq.snr;
    LMIC.frame[0] = AppLedStateOn; // (bit 0 == 1) => LED on
    LMIC.frame[1] = (int)mpl3115a2.Temperature; // Signed degrees Celcius in half degree units. So,  +/-63 C
    LMIC.frame[2] = (bat->read_u16() >> 8) + (bat->read_u16() >> 9) ; // per LoRaMAC spec; 0=Charging; 1...254 = level, 255 = N/A
    
    LMIC.frame[3] = ( gps.LatitudeBinary >> 16 ) & 0xFF;
    LMIC.frame[4] = ( gps.LatitudeBinary >> 8 ) & 0xFF;
    LMIC.frame[5] = gps.LatitudeBinary & 0xFF;
    LMIC.frame[6] = ( gps.LongitudeBinary >> 16 ) & 0xFF;
    LMIC.frame[7] = ( gps.LongitudeBinary >> 8 ) & 0xFF;
    LMIC.frame[8] = gps.LongitudeBinary & 0xFF;

    altitudeGps = atoi(gps.NmeaGpsData.NmeaAltitude);
    //printf("alt:%d\r\n", altitudeGps);
    LMIC.frame[9] = ( altitudeGps >> 8 ) & 0xFF;
    LMIC.frame[10] = altitudeGps & 0xFF;
    
    volts = bat->read()*AIN_VREF*AIN_VBAT_DIV;
    printf("bat:%.2f\r\n", volts);
#ifdef CHNL_HYBRID
    LMIC.txpow_limit = 20;
#else
    if (volts < LOW_BAT_THRESHOLD)
        LMIC.txpow_limit = 20;
    else
        LMIC.txpow_limit = 30;
#endif /* !CHNL_HYBRID */

    // test forcing:
    LMIC.datarate = DR_SF10;    // force SF10
    
}

static void onSendFrame (osjob_t* j) {
    PrepareDataFrame( );
        // schedule transmission (port 1, data[], datalen 1, ACK requested)
        // (will be sent as soon as duty cycle permits)
    LMIC_setTxData2(5, LMIC.frame, APP_DATA_SIZE, APP_ACK);
}

void onEvent (ev_t ev) {

    debug_event(ev);

    gps.service();

    switch(ev) 
    {
    // network joined, session established
    case EV_JOINED:
        debug_val("Net ID = ", LMIC.netid);
        goto tx;
    // scheduled data sent (optionally data received)
    case EV_TXCOMPLETE:
        if(LMIC.dataLen) 
        { // data received in rx slot after tx
            debug_buf(LMIC.frame+LMIC.dataBeg, LMIC.dataLen);
            if(LMIC.dataLen == 1) { // set LED state if exactly one byte is received
                AppLedStateOn = LMIC.frame[LMIC.dataBeg] & 0x01;
                debug_val("LED3 = ", AppLedStateOn ? 0 : 1 );
            }
        }
        if((LMIC.txrxFlags & (TXRX_DNW1|TXRX_DNW2) )!= 0 )
        {
            debug_val("LED2 = ", 0 );
            led2 = 0;
            os_setTimedCallback( &rxLedJob, os_getTime() + ms2osticks(15), onRxLed );
        }
tx:
        os_setTimedCallback( &sendFrameJob, os_getTime() + ms2osticks(MS_DELAY_NEXT_TX), onSendFrame ); // Change the Tx periodicity
        //onSendFrame(NULL);
        
        // Blink Tx LED
        debug_val("LED1 = ", 0 );
        led1 = 0;
        
        os_setTimedCallback( &txLedJob, os_getTime() + ms2osticks(25), onTxLed );
        break;
    default:
        break;
    }
}