/** Functions to load and dump parameters in the LFR registers.
 *
 * @file
 * @author P. LEROY
 *
 * A group of functions to handle TC related to parameter loading and dumping.\n
 * TC_LFR_LOAD_COMMON_PAR\n
 * TC_LFR_LOAD_NORMAL_PAR\n
 * TC_LFR_LOAD_BURST_PAR\n
 * TC_LFR_LOAD_SBM1_PAR\n
 * TC_LFR_LOAD_SBM2_PAR\n
 *
 */

#include "tc_load_dump_parameters.h"

int action_load_common_par(ccsdsTelecommandPacket_t *TC)
{
    /** This function updates the LFR registers with the incoming common parameters.
     *
     * @param TC points to the TeleCommand packet that is being processed
     *
     *
     */

    parameter_dump_packet.unused0 = TC->dataAndCRC[0];
    parameter_dump_packet.bw_sp0_sp1_r0_r1 = TC->dataAndCRC[1];
    set_wfp_data_shaping(parameter_dump_packet.bw_sp0_sp1_r0_r1);
    return LFR_SUCCESSFUL;
}

int action_load_normal_par(ccsdsTelecommandPacket_t *TC, rtems_id queue_id)
{
    /** This function updates the LFR registers with the incoming normal parameters.
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    int result;
    int flag;

    flag = LFR_SUCCESSFUL;
    result = LFR_SUCCESSFUL;

    if ( lfrCurrentMode == LFR_MODE_NORMAL ) {
        send_tm_lfr_tc_exe_not_executable( TC, queue_id );
        flag = LFR_DEFAULT;
    }

    //***************
    // sy_lfr_n_swf_l
    if (flag == LFR_SUCCESSFUL)
    {
        result = set_sy_lfr_n_swf_l( TC, queue_id );
        if (result != LFR_SUCCESSFUL)
        {
            flag = LFR_DEFAULT;
        }
    }

    //***************
    // sy_lfr_n_swf_p
    if (flag == LFR_SUCCESSFUL)
    {
        result = set_sy_lfr_n_swf_p( TC, queue_id );
        if (result != LFR_SUCCESSFUL)
        {
            flag = LFR_DEFAULT;
        }
    }

    //***************
    // sy_lfr_n_asm_p
    if (flag == LFR_SUCCESSFUL)
    {
        result = set_sy_lfr_n_asm_p( TC, queue_id );
        if (result != LFR_SUCCESSFUL)
        {
            flag = LFR_DEFAULT;
        }
    }

    //***************
    // sy_lfr_n_bp_p0
    if (flag == LFR_SUCCESSFUL)
    {
        result = set_sy_lfr_n_bp_p0( TC, queue_id );
        if (result != LFR_SUCCESSFUL)
        {
            flag = LFR_DEFAULT;
        }
    }

    //***************
    // sy_lfr_n_bp_p1
    if (flag == LFR_SUCCESSFUL)
    {
        result = set_sy_lfr_n_bp_p1( TC, queue_id );
        if (result != LFR_SUCCESSFUL)
        {
            flag = LFR_DEFAULT;
        }
    }

    return result;
}

int action_load_burst_par(ccsdsTelecommandPacket_t *TC, rtems_id queue_id)
{
    /** This function updates the LFR registers with the incoming burst parameters.
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    int result;
    unsigned char lfrMode;

    result = LFR_DEFAULT;
    lfrMode = (housekeeping_packet.lfr_status_word[0] & 0xf0) >> 4;

    if ( lfrMode == LFR_MODE_BURST ) {
        send_tm_lfr_tc_exe_not_executable( TC, queue_id );
        result = LFR_DEFAULT;
    }
    else {
        parameter_dump_packet.sy_lfr_b_bp_p0 = TC->dataAndCRC[0];
        parameter_dump_packet.sy_lfr_b_bp_p1 = TC->dataAndCRC[1];

        result = LFR_SUCCESSFUL;
    }

    return result;
}

int action_load_sbm1_par(ccsdsTelecommandPacket_t *TC, rtems_id queue_id)
{
    /** This function updates the LFR registers with the incoming sbm1 parameters.
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */
    int result;
    unsigned char lfrMode;

    result = LFR_DEFAULT;
    lfrMode = (housekeeping_packet.lfr_status_word[0] & 0xf0) >> 4;

    if ( lfrMode == LFR_MODE_SBM1 ) {
        send_tm_lfr_tc_exe_not_executable( TC, queue_id );
        result = LFR_DEFAULT;
    }
    else {
        parameter_dump_packet.sy_lfr_s1_bp_p0 = TC->dataAndCRC[0];
        parameter_dump_packet.sy_lfr_s1_bp_p1 = TC->dataAndCRC[1];

        result = LFR_SUCCESSFUL;
    }

    return result;
}

int action_load_sbm2_par(ccsdsTelecommandPacket_t *TC, rtems_id queue_id)
{
    /** This function updates the LFR registers with the incoming sbm2 parameters.
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    int result;
    unsigned char lfrMode;

    result = LFR_DEFAULT;
    lfrMode = (housekeeping_packet.lfr_status_word[0] & 0xf0) >> 4;

    if ( lfrMode == LFR_MODE_SBM2 ) {
        send_tm_lfr_tc_exe_not_executable( TC, queue_id );
        result = LFR_DEFAULT;
    }
    else {
        parameter_dump_packet.sy_lfr_s2_bp_p0 = TC->dataAndCRC[0];
        parameter_dump_packet.sy_lfr_s2_bp_p1 = TC->dataAndCRC[1];

        result = LFR_SUCCESSFUL;
    }

    return result;
}

int action_dump_par( rtems_id queue_id )
{
    /** This function dumps the LFR parameters by sending the appropriate TM packet to the dedicated RTEMS message queue.
     *
     * @param queue_id is the id of the queue which handles TM related to this execution step.
     *
     * @return RTEMS directive status codes:
     * - RTEMS_SUCCESSFUL - message sent successfully
     * - RTEMS_INVALID_ID - invalid queue id
     * - RTEMS_INVALID_SIZE - invalid message size
     * - RTEMS_INVALID_ADDRESS - buffer is NULL
     * - RTEMS_UNSATISFIED - out of message buffers
     * - RTEMS_TOO_MANY - queue s limit has been reached
     *
     */

    int status;

    // SEND DATA
    status =  rtems_message_queue_send( queue_id, &parameter_dump_packet,
                                        PACKET_LENGTH_PARAMETER_DUMP + CCSDS_TC_TM_PACKET_OFFSET + CCSDS_PROTOCOLE_EXTRA_BYTES);
    if (status != RTEMS_SUCCESSFUL) {
        PRINTF1("in action_dump *** ERR sending packet, code %d", status)
    }

    return status;
}

//***********************
// NORMAL MODE PARAMETERS

int set_sy_lfr_n_swf_l( ccsdsTelecommandPacket_t *TC, rtems_id queue_id )
{
    /** This function sets the number of points of a snapshot (sy_lfr_n_swf_l).
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    unsigned int tmp;
    int result;
    unsigned char msb;
    unsigned char lsb;

    msb = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_SWF_L ];
    lsb = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_SWF_L+1 ];

    tmp = ( unsigned int ) floor(
                ( ( msb*256 ) + lsb ) / 16
            ) * 16;

    if ( (tmp < 16) || (tmp > 2048) )   // the snapshot period is a multiple of 16
    {                                   // 2048 is the maximum limit due to thesize of the buffers
        send_tm_lfr_tc_exe_inconsistent( TC, queue_id, BYTE_POS_SY_LFR_N_SWF_L+10, lsb );
        result = WRONG_APP_DATA;
    }
    else if (tmp != 2048)
    {
        send_tm_lfr_tc_exe_not_implemented( TC, queue_id );
        result = FUNCT_NOT_IMPL;
    }
    else
    {
        parameter_dump_packet.sy_lfr_n_swf_l[0] = (unsigned char) (tmp >> 8);
        parameter_dump_packet.sy_lfr_n_swf_l[1] = (unsigned char) (tmp     );
        result = LFR_SUCCESSFUL;
    }

    return result;
}

int set_sy_lfr_n_swf_p( ccsdsTelecommandPacket_t *TC, rtems_id queue_id )
{
    /** This function sets the time between two snapshots, in s (sy_lfr_n_swf_p).
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    unsigned int tmp;
    int result;
    unsigned char msb;
    unsigned char lsb;

    msb = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_SWF_P ];
    lsb = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_SWF_P+1 ];

    tmp = ( unsigned int ) floor(
                ( ( msb*256 ) + lsb ) / 8
            ) * 8;

    if ( (tmp < 16) || (tmp > 65528) )
    {
        send_tm_lfr_tc_exe_inconsistent( TC, queue_id, BYTE_POS_SY_LFR_N_SWF_P+10, lsb );
        result = WRONG_APP_DATA;
    }
    else
    {
        parameter_dump_packet.sy_lfr_n_swf_p[0] = (unsigned char) (tmp >> 8);
        parameter_dump_packet.sy_lfr_n_swf_p[1] = (unsigned char) (tmp     );
        result = LFR_SUCCESSFUL;
    }

    return result;
}

int set_sy_lfr_n_asm_p( ccsdsTelecommandPacket_t *TC, rtems_id queue_id )
{
    /** This function sets the time between two full spectral matrices transmission, in s (sy_lfr_n_asm_p).
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    int result;
    unsigned char msb;
    unsigned char lsb;

    msb = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_ASM_P ];
    lsb = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_ASM_P+1 ];

    parameter_dump_packet.sy_lfr_n_asm_p[0] = msb;
    parameter_dump_packet.sy_lfr_n_asm_p[1] = lsb;
    result = LFR_SUCCESSFUL;

    return result;
}

int set_sy_lfr_n_bp_p0( ccsdsTelecommandPacket_t *TC, rtems_id queue_id )
{
    /** This function sets the time between two basic parameter sets, in s (sy_lfr_n_bp_p0).
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    int status;

    status = LFR_SUCCESSFUL;

    parameter_dump_packet.sy_lfr_n_bp_p0 = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_BP_P0 ];

    return status;
}

int set_sy_lfr_n_bp_p1(ccsdsTelecommandPacket_t *TC, rtems_id queue_id)
{
    /** This function sets the time between two basic parameter sets (autocorrelation + crosscorrelation), in s (sy_lfr_n_bp_p1).
     *
     * @param TC points to the TeleCommand packet that is being processed
     * @param queue_id is the id of the queue which handles TM related to this execution step
     *
     */

    int status;

    status = LFR_SUCCESSFUL;

    parameter_dump_packet.sy_lfr_n_bp_p1 = TC->dataAndCRC[ BYTE_POS_SY_LFR_N_BP_P1 ];

    return status;
}

//**********************
// BURST MODE PARAMETERS

//*********************
// SBM1 MODE PARAMETERS

//*********************
// SBM2 MODE PARAMETERS