File content as of revision 3:a240b300fae9:

// @autor: jeremie@wizzilab.com
// @date: 2017-05-02

#include "mbed.h"
#include "rtos.h"
#include "DebouncedInterrupt.h"
#include "WizziDebug.h"
#include "WizziCom.h"

#include "hwcfg.h"
#include "modem_callbacks.h"

#include "revision.h"
#include "alp_spec.h"
#include "alp_helpers.h"
#include "modem_ref.h"
#include "kal_fs.h"
#include "d7a_1x.h"
#include "d7a_1x_fs.h"
#include "alp.h"

#define MODEM_VERSION_MAJOR         4
#define MODEM_VERSION_MINOR         8

WizziCom* g_modem_com;
Semaphore button_user(0);
Semaphore modem_ready[MAX_USER_NB];
Queue<void, 8> modem_resp;

enum {
    MODEM_RESP_NO,
    MODEM_RESP_TERMINAL,
    MODEM_RESP_DONE,
};

uint8_t g_main_id;

TYPEDEF_STRUCT_PACKED {
    uint8_t type;
    d7a_sp_cfg_t cfg;
} alp_d7a_itf_t;

#define WM_FID_ALP_CFG          50
#define MY_POLICY_IDX           0

alp_retry_policy_t my_policy = {
    .meta.procedure     = 0,
    .meta.respond       = true,
    .meta.persistant    = false,
    .meta.bulk          = false,
    .depth              = 1,
    .retries            = 0,
    .slot_time          = 0
};

#define D7A_CTF_VAL(mant,exp)   ((uint8_t)(mant|(exp<<5)))
#define ALP_ITF_TYPE_D7A        0xD7
alp_d7a_itf_t my_itf = {
    .type                           = ALP_ITF_TYPE_D7A,
    .cfg.to                         = 0,
    .cfg.te                         = 0,
    .cfg.qos.bf.resp                = D7A_RESP_ALL,
    .cfg.qos.bf.retry               = MY_POLICY_IDX,
    .cfg.qos.bf.record              = 0,
    .cfg.qos.bf.stop_on_err         = 0,
    .cfg.addressee.ctrl.bf.nls      = D7A_NLS_AES_CCM_64,
    .cfg.addressee.ctrl.bf.idf      = D7A_ID_NBID,
    .cfg.addressee.xcl.bf           = {.s = 0x2, .m = 0x1},// XXX D7A_XCL_GW,
    .cfg.addressee.id[0]            = D7A_CTF_VAL(8,0),
};

#define MY_D7_ITF_SIZE(_itf) (1+my_alp_itf_d7a_cfg_size(&(_itf)->cfg))
int my_alp_itf_d7a_cfg_size(d7a_sp_cfg_t* cfg)
{
    int size = sizeof(d7a_sp_cfg_t) - sizeof(d7a_addressee_t);
    size += D7A_ADDR_LEN(cfg->addressee.ctrl);
    return size;
}

void print_status(int status)
{
    switch (status)
    {
        case ALP_ERR_NONE:
            PRINT("Status: OK\n");
            break;
        case ALP_ERR_FILE_EXIST:
            PRINT("Status: Already registered\n");
            break;
        default:
            PRINT("Status: error %d\n", status);
            break;
    }
}

void print_resp(int status)
{
    switch (status)
    {
        case ALP_ERR_NONE:
            PRINT("Resp: OK\n");
            break;
        case ALP_ERR_FILE_EXIST:
            PRINT("Resp: Already registered\n");
            break;
        default:
            PRINT("Resp: error %d\n", status);
            break;
    }
}

// Callback for broadcast read
void my_read_response_callback(uint8_t terminal, int8_t err, uint8_t id)
{
    (void)id;
    
    if (terminal)
    {    
        //print_status(err);
        modem_resp.put((void*)MODEM_RESP_TERMINAL);
    }
    else
    {
        //print_resp(err);
        if (ALP_ERR_NONE == err)
        {
            modem_resp.put((void*)MODEM_RESP_DONE);
        }
    }
}

// Interrupt Service Routine on button press.
void button_push_isr( void )
{
    button_user.release();
}

void button_user_thread()
{
    osEvent evt;
    uint32_t resp;
    d7a_sp_res_t istat;
    fw_version_t fw_ver;
    uint8_t nb = 0;

    uint8_t my_user_id = modem_get_id(my_read_response_callback);
    
    FPRINT("(id:0x%08x)\r\n", osThreadGetId());
    
    uint8_t scan_xcl[] = { 0x0F, 0x2F };
    
    memset(&istat, 0, sizeof(d7a_sp_res_t));
    memset(&fw_ver, 0, sizeof(fw_version_t));
    
    // Set custom retry policy
    //modem_write_file(WM_FID_ALP_CFG, &my_policy, MY_POLICY_IDX * sizeof(alp_retry_policy_t), sizeof(alp_retry_policy_t), g_main_id);
    //modem_ready.wait();
    
    while (true)
    {
        // Wait for button press
        button_user.wait();
        
        for (uint8_t i = 0; i < sizeof(scan_xcl); i++)
        {
            nb = 0;
            my_itf.cfg.addressee.xcl.byte = scan_xcl[i];
            
            PRINT("Scanning XCL 0x%02X...\n", my_itf.cfg.addressee.xcl.byte);
            
            modem_remote_read_file((uint8_t*)&my_itf, MY_D7_ITF_SIZE(&my_itf), (void*)&istat, D7A_FID_FIRMWARE_VERSION, (void*)&fw_ver, 12, sizeof(fw_version_t), my_user_id);
            
            do
            {
                evt = modem_resp.get();
                resp = (evt.status == osEventMessage)? (uint32_t)evt.value.p : MODEM_RESP_NO;
                
                if (MODEM_RESP_DONE == resp)
                {
                    nb++;
                    PRINT("%d: XCL:%02X ", nb, istat.addressee.xcl.byte);
                    PRINT_DATA("UID:", "%02X", istat.addressee.id, 8, " ");
                    PRINT("rxlev:%d lb:%d ", istat.rxlev, istat.lb);
                    PRINT("v%d.%d.%d\n", fw_ver.major, fw_ver.minor, fw_ver.patch);
                    
                    // Reset variables
                    memset(&istat, 0, sizeof(d7a_sp_res_t));
                    memset(&fw_ver, 0, sizeof(fw_version_t));
                }

            } while (MODEM_RESP_TERMINAL != resp);
        }
        
        PRINT("Done.\n");
    }
}

// Serial adapters to WizziLab's own architecture
// ============================================================{{{

void my_serial_input(WizziCom* com, WizziComPacket_t* pkt)
{
    modem_input(wizzicom_type_to_flow(pkt->type), pkt->data, pkt->length);
    FREE(pkt);
}

int my_serial_send(uint8_t* data1, uint8_t size1, uint8_t* data2, uint8_t size2)
{
    (void)size1;
    
    g_modem_com->send((WizziComPacketType)wizzicom_flow_to_type(data1[4]), size2, data2);

    return (size1 + size2);
}

modem_callbacks_t callbacks = {
    .read       = my_read,
    .write      = my_write,
    .read_fprop = my_read_fprop,
    .flush      = my_flush,
    .remove     = my_delete,
    .lqual      = my_lqual,
    .ldown      = my_ldown,
    .reset      = my_reset,
    .boot       = my_boot
};

// Callback for g_main_id User
void my_main_callback(uint8_t terminal, int8_t err, uint8_t id)
{
    (void)id;
    
    if (terminal)
    {    
        print_status(err);
        modem_ready[id].release();
    }
    else
    {
        print_resp(err);
    }
}

/*** Main function ------------------------------------------------------------- ***/
int main()
{
    // Start & initialize
    DBG_OPEN(DEBUG_LED);
    PRINT("\r\n--- Starting new run ---\r\n");
    FPRINT("(id:0x%08x)\r\n", osThreadGetId());
    
    static union {
        uint8_t      b[8];
        uint32_t     w[2];
    } uid;
    revision_t rev;
            
    // Hardware reset
    DigitalOut reset_low(MODEM_PIN_RESET, 0);
    Thread::wait(100);
        
    // Release reset
    DigitalIn reset_release(MODEM_PIN_RESET);
    Thread::wait(2000);
    
    // Open modem Com port
    g_modem_com = new WizziCom(MODEM_PIN_TX, MODEM_PIN_RX, MODEM_PIN_IRQ_OUT, MODEM_PIN_IRQ_IN);
    
    // Redirect All Port traffic to my_serial_input
    g_modem_com->attach(my_serial_input, WizziComPacketOther);

    modem_open(my_serial_send, &callbacks);
    
    g_main_id = modem_get_id(my_main_callback);

    PRINT("Start Modem Process (id=%d)\n", g_main_id);
    Thread::wait(1000);
    
    modem_read_file(D7A_FID_UID, uid.b, 0, 8, g_main_id);
    modem_ready[g_main_id].wait();
    
    modem_read_file(D7A_FID_FIRMWARE_VERSION, &rev, 0, sizeof(revision_t), g_main_id);
    modem_ready[g_main_id].wait();
    
    PRINT("------------ D7A Modem infos ------------\r\n");
    PRINT_DATA(" - UID:              ", "%02X", uid.b, 8, "\r\n");
    PRINT(" - Manufacturer ID:  %08X\r\n", rev.manufacturer_id);
    PRINT(" - Device ID:        %08X\r\n", rev.device_id);
    PRINT(" - Hardware version: %08X\r\n", rev.hw_version);
    PRINT(" - Firmware version: v%d.%d.%d\r\n", rev.fw_version.major, rev.fw_version.minor, rev.fw_version.patch);
    PRINT(" - File system CRC:  0x%08x\r\n", rev.fs_crc);
    PRINT("-----------------------------------------\r\n");
    
    // Check version
    if (rev.fw_version.major != MODEM_VERSION_MAJOR || rev.fw_version.minor != MODEM_VERSION_MINOR)
    {
        PRINT("You need a modem at version %d.%d.x to use this APP.\n"
              "Please check updates by importing:\n"
              "https://developer.mbed.org/teams/WizziLab/code/D7A_WM_Updater\n"
              , MODEM_VERSION_MAJOR, MODEM_VERSION_MINOR);
        Thread::wait(osWaitForever);
    }
    
    // Configure URC: LQUAL on report file notification every 10 reports
    PRINT("Setup URCs\n");
    modem_enable_urc(ALP_URC_TYPE_LQUAL, IFID_REPORT, 10, true, g_main_id);
    modem_ready[g_main_id].wait();
    
    PRINT("Start D7A Stack\n");
    modem_activate_itf(ALP_ITF_TYPE_D7A, 24, 0, ALP_D7A_ISTAT_RESP , true, g_main_id);
    modem_ready[g_main_id].wait();

#ifdef DEBUG_BUTTON
    DebouncedInterrupt user_interrupt(DEBUG_BUTTON);
    user_interrupt.attach(button_push_isr, IRQ_FALL, 500, true);
    
    Thread but_th(osPriorityNormal, 2048, NULL);
    osStatus status = but_th.start(button_user_thread);
    ASSERT(status == osOK, "Failed to start but thread (err: %d)\r\n", status);
#endif

#if (DEBUG_LED != NC)
    DigitalOut my_led(DEBUG_LED);
#endif
    
    // Set main task to lowest priority
    osThreadSetPriority(osThreadGetId(), osPriorityIdle);
    while(true)
    {
        Thread::wait(500);
#if (DEBUG_LED != NC)
        my_led = !my_led;
#endif
    }
}