#include "EC801E.h"
#include "stdio.h"
#include "usart.h"
#include "string.h"
#include "cJSON.h"
#include "uart_dev.h"
#include "anemometer_dev.h"

#define USE_UTC 1

// ID
uint8_t g_devic_id[] = {0x11, 0x22, 0x33, 0x44, 0x55, 0x66, 0x77};
// 客户端名字
char g_cilent_name[] = "Test_cilent";
// 连接用户名
char g_cilent_user_name[] = "12345";
// 连接密码
char g_cilent_paaword[] = "12345";
// 服务器IP
char g_server_ip[] = "199.7.140.10,1883";
// 订阅主题名
char g_topic_name[] = "Test_Topic_1";

// 时间戳
uint32_t g_time_stamp;
// 最新一条信息发送时的时间戳
uint32_t trans_time_stamp;

// 打开客户端网络标志
int flag_open_net = 0;
// 连接服务器标志
int flag_connect = 0;
// 订阅成功网络标志
int flag_sub = 0;
// 发布信息标志
int flag_pubex = 0;

void parse_json(uint8_t *json_buff);


//控制上电并开机
void EC801E_Power_ON()
{
    // PWR_KEY_4G_Pin低电平，上电自动开机
    HAL_GPIO_WritePin(GPIO_4G_PWR_KEY_GPIO_Port, GPIO_4G_PWR_KEY_Pin, GPIO_PIN_SET);
    //上电
    HAL_GPIO_WritePin(GPIO_4G_PWR_CTRL_GPIO_Port, GPIO_4G_PWR_CTRL_Pin, GPIO_PIN_RESET);
    HAL_Delay(1000);
    HAL_GPIO_WritePin(GPIO_4G_PWR_CTRL_GPIO_Port, GPIO_4G_PWR_CTRL_Pin, GPIO_PIN_SET);
}

//开机状态检测
//HAL_OK:正常开机
uint8_t Read_Status()
{
    uint8_t temp_status = HAL_ERROR;
    temp_status = HAL_GPIO_ReadPin(GPIO_4G_STATUS_GPIO_Port, GPIO_4G_STATUS_Pin) == GPIO_PIN_SET ? HAL_OK : HAL_ERROR;
    return temp_status;
}

//串口重定向打印
size_t __write(int handle, const unsigned char * buffer, size_t size)
{
  if(HAL_OK == HAL_UART_Transmit(&huart1,(uint8_t *)buffer,size,100000))
  {
    return size;
  }
  else
  {
    return -1;
  }
}

// MQTT打开客户端网络.连接MQTT服务器.订阅
// ip,端口，客户端ID(0-5)，客户端名称，用户名，密码，订阅主题名
void MQTT_Config()
{
    // 确保4G模块完全开机
    osDelay(5000);
    
    // 打开客户端网络
    while(!flag_open_net)
    {
//    uart_sendstr(g_ec801_uart_handle, "AT+QMTOPEN=0,199.7.140.10,1883\r\n");
    uart_sendstr(g_ec801_uart_handle, "AT+QMTOPEN=0,");
    uart_sendstr(g_ec801_uart_handle, g_server_ip);
    uart_sendstr(g_ec801_uart_handle, "\r\n");
    osDelay(5000);
    }flag_open_net = 0;
    
    // 连接服务器
    while(!flag_connect)
    {
    uart_sendstr(g_ec801_uart_handle, "AT+QMTCONN=0,");
    uart_sendstr(g_ec801_uart_handle, g_cilent_name);
    uart_sendstr(g_ec801_uart_handle, ",");
    uart_sendstr(g_ec801_uart_handle, g_cilent_user_name);
    uart_sendstr(g_ec801_uart_handle, ",");
    uart_sendstr(g_ec801_uart_handle, g_cilent_paaword);
    uart_sendstr(g_ec801_uart_handle, "\r\n");
    osDelay(5000);
    }flag_connect = 0;
    
    // 订阅主题
    while(!flag_sub)
    {
    uart_sendstr(g_ec801_uart_handle, "AT+QMTSUB=0,0,");
    uart_sendstr(g_ec801_uart_handle, g_topic_name);
    uart_sendstr(g_ec801_uart_handle, ",0\r\n");
    osDelay(5000);
    }flag_sub = 0;
}

void EC801_start()
{
    EC801E_Power_ON();
    osDelay(5000);
    while(!EC801_GET_Time());
    MQTT_Config();
}

// MQTT发送数据
void MQTT_Trans_Data()
{
      //字符串长度
    uint8_t str_len = 0;
    char str_len_str[32];
  //创建获取数据指针
    float32_t *ptr = (float32_t *)&g_stMcs_Para;
    // 创建JSON数组及对象
    char *cjson_str = NULL;
    cJSON * JsonRoot =  cJSON_CreateObject();
    cJSON * DataArray = cJSON_CreateArray();
  
    //将uint8的ID存到字符串内
    char deviId_str[15];
    snprintf(deviId_str, sizeof(deviId_str), "%X%X%X%X%X%X%X", g_devic_id[0], \
                                                                g_devic_id[1], \
                                                                g_devic_id[2], \
                                                                g_devic_id[3], \
                                                                g_devic_id[4], \
                                                                g_devic_id[5], \
                                                                g_devic_id[6]);
    
    trans_time_stamp = g_time_stamp;// 将发送时时间戳存入最新发送时间时间戳
    
    cJSON_AddStringToObject(JsonRoot, "deviId", deviId_str);
    cJSON_AddStringToObject(JsonRoot, "frameType", "item_type");
    cJSON_AddNumberToObject(JsonRoot, "timeStamp", g_time_stamp);
    cJSON_AddNumberToObject(JsonRoot, "version", 10);

    cJSON_AddItemToObject(JsonRoot, "data", DataArray);//添加data数组
    
    for(int i = 0; i < sizeof(mcs_para)/sizeof(float32_t) - 2; i++)// 雨量光辐射还是空气
    {
        cJSON_AddItemToArray(DataArray, cJSON_CreateNumber(((float)((int )(ptr[i] * 100 + 0.5)))/100.0));// 四舍五入两位小数
    }
    
//   对象转字符串
    cjson_str = cJSON_Print(JsonRoot);
    
    str_len = strlen(cjson_str) + 2 + 4;
    sprintf(str_len_str, "%d", str_len);
    
    while(!flag_pubex)
    {
        // 发送发数据包命令
        uart_sendstr(g_ec801_uart_handle, "AT+QMTPUBEX=0,0,0,0,");
        uart_sendstr(g_ec801_uart_handle, g_topic_name);
        uart_sendstr(g_ec801_uart_handle, ",");
        uart_sendstr(g_ec801_uart_handle, str_len_str);
        uart_sendstr(g_ec801_uart_handle, "\r\n");
    
        //发送数据包
        osDelay(2000);
        uart_sendstr(g_ec801_uart_handle, cjson_str);
        HAL_Delay(3000);
    }flag_pubex = 0;
    
    //释放
    vPortFree(cjson_str);
    cJSON_Delete(JsonRoot);
}

// 判断闰年，1闰0平
uint16_t fml_leap_year(uint16_t year)
{
    return (((year % 4 == 0)&&(year % 100 != 0)) || (year % 400 == 0));
}

//日期转时间戳
uint32_t fml_time_to_stamp(int year, int month, int day, int hour, int minute, int second)
{
    static  uint32_t dax = 0;
    static  uint32_t day_count = 0;
    uint16_t leap_year_count = 0;
    uint16_t i;
 
    // 计算闰年数
    for (i = 1970; i < year; i++)
    {
        if (fml_leap_year(i))
        {
            leap_year_count++;
        }
    }
 
    // 计算年的总天数
    day_count = leap_year_count * 366 + (year - 1970 - leap_year_count) * 365;

    uint8_t mouthday[13] = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
    // 计算当年到当前月的所有天数

    for (i = 1; i < month; i++)
    {
        day_count += mouthday[i];
    }
    if(fml_leap_year(year))
    {
        day_count += 1;
    }

    // 累加计算当月的天数
    day_count += (day - 1);
 
    dax = (uint32_t)(day_count * 86400) + (uint32_t)((uint32_t)hour * 3600) + (uint32_t)((uint32_t)minute * 60) + (uint32_t)second;
 
    return dax;
}


//时间获取完成变量，用于控制是否开始MQTT信息接收
uint8_t time_get_ok = 0;
// 生成时间戳
int EC801_GET_Time()
{
    int year, month, day, hour, minute, second;
    if(USE_UTC)
    {
        uart_sendstr(g_ec801_uart_handle, "AT+QLTS=0\r\n");
    }else
    {
        uart_sendstr(g_ec801_uart_handle, "AT+QLTS=2\r\n");
    }
    osDelay(1000);
    char time[100] = {0};int index = 0;
    
    //        第一个“后是时间，前面不要
    do{
        time[index] = uart_dev_in_char(g_ec801_uart_handle);
    }while(time[index++] != '"' && uart_dev_char_present(g_ec801_uart_handle));
    // 丢掉前面的    
    memcpy(time, time + index - 1, index);
    index = 1;
    
    //        "前面是时间
    do{
        time[index] = uart_dev_in_char(g_ec801_uart_handle);
    }while(time[index++] != '"' && uart_dev_char_present(g_ec801_uart_handle));
    
    // 字符提取成int
    sscanf(time, "\"%d/%d/%d,%d:%d:%d\"", &year, &month, &day, &hour, &minute, &second);
    
    if(year)
    {
        time_get_ok = 1;
    }
    // 生成时间戳
    g_time_stamp = fml_time_to_stamp(year, month, day, hour, minute, second);
    return year;
}



#define JSON_BUFFER_SIZE 200
// 解析收到的4g模块数据
void parse_4g_receive_data()
{   
    if(uart_dev_char_present(g_ec801_uart_handle)){
        int temp_5_index = 0;
        char temp_5_char[5] = {0};
        
        int AT_Command_flag = 0;
        int Command_index = 0;
        char AT_Command[10] = {0};
        
        int AT_Command_ok_flag = 0;
        
        int AT_data_ok_flag = 0;
        uint8_t temp_buff[JSON_BUFFER_SIZE];
        int temp_buff_index = 0; // 索引
        
        char c = 0;
        int inJson = 0;
        
        
        memset(temp_buff, '\0', sizeof(temp_buff));//每次接受前清空一下BUFF
        for(; uart_dev_char_present(g_ec801_uart_handle);)
        {
            // 思路：挨个解析，每次解析3个字符存入BUFFER，依次后移，检测到+后看前面两个
            // 如果前面两个是AT，则继续解析
            // 如果前面两个不是AT，则将从+开始到：的内容都存入命令BUFF
            // 根据 命令BUFF 处理后面的数据
            c = uart_dev_in_char(g_ec801_uart_handle);
            temp_5_char[temp_5_index] = c;
            if(c == '+')
            {
                if(temp_5_char[(temp_5_index + 4)%5] == 'T' && temp_5_char[(temp_5_index + 3)%5] == 'A')// 判断 + 前是不是AT
                {
                }
                else
                {
                    AT_Command_flag = 1;
                }
            }
            temp_5_index = (temp_5_index + 1)%5;//更新索引
            
            // 读命令
            if(AT_Command_flag){
                AT_Command[Command_index] = c;// 存入命令Buff
                if(AT_Command[Command_index] == ':')// :后面是状态
                {
                    AT_Command_flag = 0;// 命令读完
                    AT_Command_ok_flag = 1;
                }
                Command_index ++;
            }
            
            // 命令读完，根据命令匹配反馈数据
            if(AT_Command_ok_flag)
            {
//                term_printf(AT_Command);
                // 打开QMTT客户端反馈
                if(strstr(AT_Command, "QMTOPEN"))
                {
                    temp_buff[temp_buff_index] = c;
                    if(temp_buff[temp_buff_index] == '\r'||temp_buff[temp_buff_index] == '\n')
                    {
                        // 处理完归零
                        AT_Command_ok_flag = 0;
                        memset(AT_Command, 0, 10);
                        
                        // 处理读完之后的数据
                        int client_idx, result;
                        sscanf(temp_buff, ": %d,%d", &client_idx, &result);
                        // 打开完成
                        if(result == 0)
                        {
                            flag_open_net = 1;
                        }
                        return;
                    }
                    temp_buff_index ++;                    
                }
                
                // 连接服务器反馈
                if(strstr(AT_Command, "QMTCONN"))
                {
                    temp_buff[temp_buff_index] = c;
                    if(temp_buff[temp_buff_index] == '\r'||temp_buff[temp_buff_index] == '\n')
                    {
                        // 处理完归零
                        AT_Command_ok_flag = 0;
                        memset(AT_Command, 0, 10);
                        
                        // 处理读完之后的数据
                        int client_idx, result, ret_code;
                        sscanf(temp_buff, ": %d,%d,%d", &client_idx, &result, &ret_code);
                        // 连接完成
                        if(result == 0 && ret_code == 0)
                        {
                            flag_connect = 1;
                        }
                        return;
                    }
                    temp_buff_index ++;
                }
                
                // 订阅主题反馈
                if(strstr(AT_Command, "QMTSUB"))
                {
                    temp_buff[temp_buff_index] = c;
                    if(temp_buff[temp_buff_index] == '\r'||temp_buff[temp_buff_index] == '\n')
                    {
                        // 处理完归零
                        AT_Command_ok_flag = 0;
                        memset(AT_Command, 0, 10);
                        
                        // 处理读完之后的数据
                        int client_idx, msgID, result, value;
                        sscanf(temp_buff, ": %d,%d,%d,%d", &client_idx, &msgID, &result, &value);
                        // 连接完成
                        if(result == 0)
                        {
                            flag_sub = 1;
                        }
                        return;
                    }
                    temp_buff_index ++;
                }
                
                // 发布消息反馈
                if(strstr(AT_Command, "QMTPUBEX"))
                {
                    temp_buff[temp_buff_index] = c;
                    if(temp_buff[temp_buff_index] == '\r'||temp_buff[temp_buff_index] == '\n')
                    {
                        // 处理完归零
                        AT_Command_ok_flag = 0;
                        memset(AT_Command, 0, 10);
                        
                        // 处理读完之后的数据
                        int client_idx, msgID, result, value;
                        sscanf(temp_buff, ": %d,%d,%d,%d", &client_idx, &msgID, &result, &value);
                        // 连接完成
                        if(result == 0 || result == 1)
                        {
                            flag_pubex = 1;
                        }
                        return;
                    }
                    temp_buff_index ++;
                }
                
//                收到消息反馈+++++收到json
                if(strstr(AT_Command, "QMTRECV"))
                {
                    if (c == '{')
                    {
                        AT_data_ok_flag = 1;
                    }
                    if (AT_data_ok_flag == 1) 
                    {
                        temp_buff[temp_buff_index] = c;
                        if (temp_buff[temp_buff_index] == '}')
                        {
                            // 处理完归零
                            AT_data_ok_flag = 0;
                            memset(AT_Command, 0, 10);
                            
                            // 接收完了
                            if(temp_buff[0] != '\0')
                            {
                                parse_json(temp_buff);
                            }
//                            term_printf(temp_buff);
                            return;
                        }
                        temp_buff_index ++;
                    }
                }
            }
        }
    }
}

extern int trans_4g_flag;
// 收到json数据处理
void parse_json(uint8_t *json_buff)
{
    cJSON* cjson_root = cJSON_Parse(json_buff);
    
    if(cjson_root == NULL)
    {
        term_printf("parse fail.\n");
        return;
    }
    
    cJSON* cjson_id          = cJSON_GetObjectItem(cjson_root, "deviId");
    cJSON* cjson_type        = cJSON_GetObjectItem(cjson_root, "frameType");
    cJSON* cjson_version     = cJSON_GetObjectItem(cjson_root, "version");
    cJSON* cjson_response    = cJSON_GetObjectItem(cjson_root, "response");
    cJSON* cjson_time        = cJSON_GetObjectItem(cjson_root, "timeStamp");
    
    cJSON* cjson_cmd        = cJSON_GetObjectItem(cjson_root, "cmd");
    
//    取出数据
    char *temp_id = cjson_id -> valuestring;
    char *temp_type = cjson_type -> valuestring;
    int temp_version = cjson_version -> valueint;
    int temp_response = cjson_response -> valueint;
    int temp_time = cjson_time -> valueint;
    int temp_cmd = cjson_cmd -> valueint;
    
    term_printf("deviId=%s\n frameType=%s\n version=%d\n response=%d\n timeStamp=%d\n cmd=%d", temp_id, temp_type, temp_version, temp_response, temp_time, temp_cmd);
    
    cJSON_Delete(cjson_root);
    
    // 与发送时间不一样才处理
    if(temp_time != trans_time_stamp)
    {
        term_printf("1111");
        if(temp_cmd == 1)
        {
            trans_4g_flag = 1;
        }
    }
    
//    数据处理
//    if(abs(temp_time - g_time_stamp) >= 120)
//    {
//        g_time_stamp = temp_time;
//    }
}