/*
* Copyright (c) 2020 AIIT XUOS Lab
* XiUOS is licensed under Mulan PSL v2.
* You can use this software according to the terms and conditions of the Mulan PSL v2.
* You may obtain a copy of Mulan PSL v2 at:
*        http://license.coscl.org.cn/MulanPSL2
* THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OF ANY KIND,
* EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO NON-INFRINGEMENT,
* MERCHANTABILITY OR FIT FOR A PARTICULAR PURPOSE.
* See the Mulan PSL v2 for more details.
*/

/**
 * @file sensor.c
 * @brief Implement the sensor framework management, registration and done
 * @version 1.0
 * @author AIIT XUOS Lab
 * @date 2021.03.24
 */

#include <sensor.h>

/* Sensor quantity list table */
static DoubleLinklistType quant_table[SENSOR_QUANTITY_END];

/* Sensor device list */
static DoubleLinklistType sensor_device_list;

/* Sensor quantity list lock */
static int quant_table_lock;

/* Sensor device list lock */
static int sensor_device_list_lock;

/**
 * @description: Init perception framework
 * @return 0
 */
int SensorFrameworkInit(void)
{
    for (int i = 0; i < SENSOR_QUANTITY_END; i++)
        InitDoubleLinkList(&quant_table[i]);
    InitDoubleLinkList(&sensor_device_list);

    quant_table_lock = UserMutexCreate();
    sensor_device_list_lock = UserMutexCreate();

    return 0;
}

/* =============================  Sensor device interface operations ============================= */

/**
 * @description: Find sensor device by name
 * @param name - name string
 * @return sensor device pointer
 */
static struct SensorDevice *SensorDeviceFindByName(const char *name)
{
    struct SensorDevice *ret = NONE;
    struct SysDoubleLinklistNode *node;

    if (name == NONE)
        return NONE;

    UserMutexObtain(sensor_device_list_lock, WAITING_FOREVER);
    DOUBLE_LINKLIST_FOR_EACH(node, &sensor_device_list) {
        struct SensorDevice *sdev =CONTAINER_OF(node,
                struct SensorDevice, link);
        if (strncmp(sdev->name, name, NAME_NUM_MAX) == 0) {
            ret = sdev;
            break;
        }
    }
    UserMutexAbandon(sensor_device_list_lock);

    return ret;
}

/**
 * @description: Check whether the sensor is capable
 * @param sdev - sensor device pointer
 * @param ability - the ability to detect certain data
 * @return success: true , failure: false
 */
inline int SensorDeviceCheckAbility(struct SensorDevice *sdev, uint32_t ability)
{
    return (sdev->info->ability & ability) != 0;
}

/**
 * @description: Register the sensor to the linked list
 * @param sdev - sensor device pointer
 * @return success: EOK , failure: -ERROR
 */
int SensorDeviceRegister(struct SensorDevice *sdev)
{
    if (sdev == NONE)
        return -ERROR;

    if (SensorDeviceFindByName(sdev->name) != NONE) {
        printf("%s: sensor with the same name already registered\n", __func__);
        return -ERROR;
    }

    sdev->ref_cnt = 0;
    InitDoubleLinkList(&sdev->quant_list);

    UserMutexObtain(sensor_device_list_lock, WAITING_FOREVER);
    DoubleLinkListInsertNodeAfter(&sensor_device_list, &sdev->link);
    UserMutexAbandon(sensor_device_list_lock);

    return EOK;
}

/**
 * @description: Unregister the sensor from the linked list
 * @param sdev - sensor device pointer
 * @return EOK
 */
int SensorDeviceUnregister(struct SensorDevice *sdev)
{
    if (!sdev)
        return -ERROR;
    UserMutexObtain(sensor_device_list_lock, WAITING_FOREVER);
    DoubleLinkListRmNode(&sdev->link);
    UserMutexAbandon(sensor_device_list_lock);

    return EOK;
}

/**
 * @description: Open sensor device
 * @param sdev - sensor device pointer
 * @return success: EOK , failure: other
 */
static int SensorDeviceOpen(struct SensorDevice *sdev)
{
    if (!sdev)
        return -ERROR;

    int result = EOK;

    if (sdev->done->open != NONE)
        result = sdev->done->open(sdev);

    if (result == EOK) {
        printf("Device %s open success.\n", sdev->name);
    }else{
        if (sdev->fd)
            close(sdev->fd);

        printf("Device %s open failed(%d).\n", sdev->name, result);
        memset(sdev, 0, sizeof(struct SensorDevice));
    }
    
    return result;
}

/**
 * @description: Close sensor device
 * @param sdev - sensor device pointer
 * @return success: EOK , failure: other
 */
static int SensorDeviceClose(struct SensorDevice *sdev)
{
    int result = EOK;

    if (sdev->fd)
        close(sdev->fd);

    if (sdev->done->close != NONE)
        result = sdev->done->close(sdev);

    if (result == EOK)
        printf("%s successfully closed.\n", sdev->name);
    else
        printf("Closed %s failure.\n", sdev->name);

    return result;
}

/* =============================  Sensor quantity interface operations ============================= */

/**
 * @description: Find sensor quantity by name
 * @param name - name string
 * @param type - the quantity required
 * @return sensor quantity pointer
 */
struct SensorQuantity *SensorQuantityFind(const char *name,
        enum SensorQuantityType type)
{
    struct SensorQuantity *ret = NONE;
    struct SysDoubleLinklistNode *node;

    if (name == NONE || type < 0 || type >= SENSOR_QUANTITY_END)
        return NONE;

    UserMutexObtain(quant_table_lock, WAITING_FOREVER);
    DOUBLE_LINKLIST_FOR_EACH(node, &quant_table[type]) {
        struct SensorQuantity *quant =CONTAINER_OF(node,
                struct SensorQuantity, link);
        if (strncmp(quant->name, name, NAME_NUM_MAX) == 0) {
            ret = quant;
            break;
        }
    }
    UserMutexAbandon(quant_table_lock);

    return ret;
}

/**
 * @description: Register the quantity to the linked list
 * @param quant - sensor quantity pointer
 * @return success: EOK , failure: -ERROR
 */
int SensorQuantityRegister(struct SensorQuantity *quant)
{
    if (quant == NONE)
        return -ERROR;

    if (SensorDeviceFindByName(quant->sdev->name) == NONE) {
        if(SensorDeviceRegister(quant->sdev) != EOK)
            return -ERROR;
    }

    UserMutexObtain(quant_table_lock, WAITING_FOREVER);
    DoubleLinkListInsertNodeAfter(&quant->sdev->quant_list, &quant->quant_link);
    DoubleLinkListInsertNodeAfter(&quant_table[quant->type], &quant->link);
    UserMutexAbandon(quant_table_lock);

    return EOK;
}

/**
 * @description: Unregister the quantity from the linked list
 * @param quant - sensor quantity pointer
 * @return EOK
 */
int SensorQuantityUnregister(struct SensorQuantity *quant)
{
    if (!quant)
        return -ERROR;
    UserMutexObtain(quant_table_lock, WAITING_FOREVER);
    DoubleLinkListRmNode(&quant->quant_link);
    DoubleLinkListRmNode(&quant->link);
    UserMutexAbandon(quant_table_lock);

    return EOK;
}

/**
 * @description: Open the sensor quantity
 * @param quant - sensor quantity pointer
 * @return success: EOK , failure: other
 */
int SensorQuantityOpen(struct SensorQuantity *quant)
{
    if (!quant)
        return -ERROR;

    int ret = EOK;
    struct SensorDevice *sdev = quant->sdev;

    if (!sdev)
        return -ERROR;

    if (sdev->ref_cnt == 0) {
        ret = SensorDeviceOpen(sdev);
        if (ret != EOK) {
            printf("%s: open sensor device failed\n", __func__);
            return ret;
        }
    }
    sdev->ref_cnt++;

    return ret;
}

/**
 * @description: Close sensor quantity
 * @param quant - sensor quantity pointer
 * @return success: EOK , failure: other
 */
int SensorQuantityClose(struct SensorQuantity *quant)
{
    if (!quant)
        return -ERROR;

    int ret = EOK;
    struct SensorDevice *sdev = quant->sdev;

    if (!sdev)
        return -ERROR;

    if (sdev->ref_cnt == 0)
        return ret;

    sdev->ref_cnt--;
    if (sdev->ref_cnt == 0)
        ret = SensorDeviceClose(sdev);

    return ret;
}

/**
 * @description: Read quantity current value
 * @param quant - sensor quantity pointer
 * @return quantity value
 */
int32 SensorQuantityRead(struct SensorQuantity *quant)
{
    if (!quant)
        return -ERROR;

    int32 result = 0;
    struct SensorDevice *sdev = quant->sdev;

    if (!sdev)
        return -ERROR;

    if (quant->ReadValue != NONE) {
        result = quant->ReadValue(quant);
    }

    return result;
}

/**
 * @description: Configure quantity mode
 * @param quant - sensor quantity pointer
 * @param cmd - mode command
 * @return success: EOK , failure: other
 */
int SensorQuantityControl(struct SensorQuantity *quant, int cmd)
{
    if (!quant)
        return -ERROR;

    if (quant->sdev->done->ioctl != NONE) {
        return quant->sdev->done->ioctl(quant->sdev, cmd);
    }

    return -ENONESYS;
}


/* =============================  Check function ============================= */

/**
 * @description: CRC16 check
 * @param data sensor receive buffer
 * @param length sensor receive buffer minus check code
 * @return check code
 */
uint32 Crc16(uint8 * data, uint8 length)
{
    int j;
    unsigned int reg_crc=0xFFFF;
    
    while (length--) {
        reg_crc ^= *data++;
        for (j=0;j<8;j++) {
            if(reg_crc & 0x01)
                reg_crc=reg_crc >>1 ^ 0xA001;
            else
                reg_crc=reg_crc >>1;
        }
    }
    
    return reg_crc;
}

/**
 * @description: The checksum
 * @param data sensor receive buffer
 * @param head not check head length
 * @param length sensor receive buffer minus check code
 * @return check code
 */
uint8 GetCheckSum(uint8 *data, uint8 head, uint8 length)
{
    uint8 i;
    uint8 checksum = 0;
    for (i = head; i < length; i++) {
        checksum += data[i];
    }
    checksum = ~checksum + 1;
    
    return checksum;
}