#include "mqtt.h"
#include "esp_log.h"
#include "esp_lvgl_port.h"
#include "mqtt_client.h"

esp_mqtt_client_handle_t client;
lv_subject_t mqttStatus;

extern lv_subject_t tempIntSubj;
extern lv_subject_t tempExtSubj;
extern lv_subject_t hauteurCuveSubj;
extern lv_subject_t hauteurCuveEvolSubj;

static const char *TAG = "mqtt";

char *upEvent = "monter";
char *downEvent = "descendre";

char *topicTempExt = "house/temp/282A802600008059";
char *topicHauteurCuve = "house/cuve/hauteur";
char *topicTempInt = "house/temp/287DCF1E00008020";
char *topicHauteurCuveEvol = "house/cuve/hauteurEvol";
char *topicTest = "test";

LV_IMAGE_DECLARE(mqtt_ok);
LV_IMAGE_DECLARE(mqtt_ko);

static void mqttStatus_obs_cb(lv_observer_t * observer, lv_subject_t * subject);

static void mqttStatus_obs_cb(lv_observer_t * observer, lv_subject_t * subject)
{
    ESP_LOGE(TAG, "On passe dans le callback de chgt de statut; %li", lv_subject_get_int(subject));
    if(lvgl_port_lock(0)){
            lv_obj_t * wifiSt = lv_obj_get_child(lv_obj_get_child(lv_layer_top(), 0),3);
    if(lv_obj_check_type(wifiSt, &lv_image_class)){
        switch (lv_subject_get_int(subject))
        {
        case 0:
            lv_image_set_src(wifiSt,&mqtt_ko);
            break;
        case 1:
            lv_image_set_src(wifiSt,&mqtt_ok);
            break;
        case 2:
            lv_color_t color  = lv_color_make(255, 0, 0);
            lv_obj_set_style_image_recolor_opa(wifiSt, 125, 0);
            lv_obj_set_style_image_recolor(wifiSt, color, 0);
            vTaskDelay(2000 / portTICK_PERIOD_MS);

            break;
        case 3:
            lv_obj_set_style_image_recolor_opa(wifiSt, 0, 0);
            break;
        default:
            break;
        }
    }else{
        ESP_LOGE(TAG, "L'objet recuip en semble pas etre du bon type");
    }
    lvgl_port_unlock();
    }
    //int32_t prev_v = lv_subject_get_previous_int(subject);
    //int32_t cur_v = lv_subject_get_int(subject);

    //lv_obj_t * btn = lv_observer_get_target(observer);
}

static void log_error_if_nonzero(const char *message, int error_code)
{
    if (error_code != 0)
    {
        ESP_LOGE(TAG, "Last error %s: 0x%x", message, error_code);
    }
}

void splitIt(char *payload, unsigned int length, float *datas)
{
    char *sep = ",";
    char *token;
    char *saveptr1;

    token = strtok_r(payload, sep, &saveptr1);
    datas[0] = atoff(token);
    ESP_LOGE(TAG,"%f",datas[0]);

    token = strtok_r(NULL, sep, &saveptr1);
    datas[1] = atoff(token);
    ESP_LOGE(TAG,"%f",datas[1]);

    token = strtok_r(NULL, sep, &saveptr1);
    datas[2] = atoff(token);
    ESP_LOGE(TAG,"%f",datas[2]);

    token = strtok_r(NULL, sep, &saveptr1);
    datas[3] = atoff(token);
    ESP_LOGE(TAG,"%f",datas[3]);
}

/*
 * @brief Event handler registered to receive MQTT events
 *
 *  This function is called by the MQTT client event loop.
 *
 * @param handler_args user data registered to the event.
 * @param base Event base for the handler(always MQTT Base in this example).
 * @param event_id The id for the received event.
 * @param event_data The data for the event, esp_mqtt_event_handle_t.
 */
static void mqtt_event_handler(void *handler_args, esp_event_base_t base, int32_t event_id, void *event_data)
{
    ESP_LOGD(TAG, "Event dispatched from event loop base=%s, event_id=%" PRIi32 "", base, event_id);
    esp_mqtt_event_handle_t event = event_data;
    esp_mqtt_client_handle_t client = event->client;
    int msg_id;
    switch ((esp_mqtt_event_id_t)event_id)
    {
    case MQTT_EVENT_CONNECTED:
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut mqttStatus 1");
            lv_subject_set_int(&mqttStatus,1);
            lvgl_port_unlock();
        }
        ESP_LOGI(TAG, "MQTT_EVENT_CONNECTED");
        //msg_id = esp_mqtt_client_publish(client, "/topic/qos1", "data_3", 0, 1, 0);
        //ESP_LOGI(TAG, "sent publish successful, msg_id=%d", msg_id);

        msg_id = esp_mqtt_client_subscribe(client, topicTempExt, 0);
        ESP_LOGI(TAG, "sent subscribe successful, msg_id=%d", msg_id);

        msg_id = esp_mqtt_client_subscribe(client, topicTempInt, 0);
        ESP_LOGI(TAG, "sent subscribe successful, msg_id=%d", msg_id);

        msg_id = esp_mqtt_client_subscribe(client, topicHauteurCuve, 0);
        ESP_LOGI(TAG, "sent subscribe successful, msg_id=%d", msg_id);

        msg_id = esp_mqtt_client_subscribe(client, topicHauteurCuveEvol, 0);
        ESP_LOGI(TAG, "sent subscribe successful, msg_id=%d", msg_id);

         msg_id = esp_mqtt_client_subscribe(client, topicTest, 0);
        ESP_LOGI(TAG, "sent subscribe successful, msg_id=%d", msg_id);

       //msg_id = esp_mqtt_client_subscribe(client, "/topic/qos1", 1);
        //ESP_LOGI(TAG, "sent subscribe successful, msg_id=%d", msg_id);

        //msg_id = esp_mqtt_client_unsubscribe(client, "/topic/qos1");
        //ESP_LOGI(TAG, "sent unsubscribe successful, msg_id=%d", msg_id);
        break;
    case MQTT_EVENT_DISCONNECTED:
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut mqttStatus 0");
            lv_subject_set_int(&mqttStatus,0);
            lvgl_port_unlock();
        }
        ESP_LOGI(TAG, "MQTT_EVENT_DISCONNECTED");
        break;

    case MQTT_EVENT_SUBSCRIBED:
        ESP_LOGI(TAG, "MQTT_EVENT_SUBSCRIBED, msg_id=%d", event->msg_id);
        //msg_id = esp_mqtt_client_publish(client, "/topic/qos0", "data", 0, 0, 0);
        //ESP_LOGI(TAG, "sent publish successful, msg_id=%d", msg_id);
        break;
    case MQTT_EVENT_UNSUBSCRIBED:
        ESP_LOGI(TAG, "MQTT_EVENT_UNSUBSCRIBED, msg_id=%d", event->msg_id);
        break;
    case MQTT_EVENT_PUBLISHED:
        ESP_LOGI(TAG, "MQTT_EVENT_PUBLISHED, msg_id=%d", event->msg_id);
        break;
    case MQTT_EVENT_DATA:
        lv_subject_set_int(&mqttStatus,2);
        ESP_LOGI(TAG, "MQTT_EVENT_DATA");
        printf("TOPIC=%.*s\r\n", event->topic_len, event->topic);
        printf("DATA=%.*s\r\n", event->data_len, event->data);
        if (strncmp(event->topic, topicTempExt, 27) == 0)
        {
            lvgl_port_lock(0);
            // on retransforme en float pour ne garder que la partie entiere de la température
            float temp = strtof(event->data, NULL);
            char buff[5];
            sprintf(buff,"%.1f",temp);
            lv_subject_copy_string(&tempExtSubj, buff);
            lvgl_port_unlock();
        }
        else if (strncmp(event->topic, topicTempInt, 27) == 0)
        {
            lvgl_port_lock(0);
            // on retransforme en float pour ne garder que la partie entiere de la température
            float temp = strtof(event->data, NULL);
            char buff[5];
            sprintf(buff,"%.1f",temp);
            lv_subject_copy_string(&tempIntSubj, buff);
            lvgl_port_unlock();
        }
        else if (strncmp(event->topic, topicHauteurCuveEvol, 22) == 0)
        {
           /* float datas[4] = {};
            splitIt(event->data, event->data_len, datas);
            ser1->y_points[0] = 130 - (int)datas[0];
            ser1->y_points[1] = 130 - (int)datas[1];
            ser1->y_points[2] = 130 - (int)datas[2];
            ser1->y_points[3] = 130 - (int)datas[3];
            lvgl_port_lock(0);
            lv_chart_refresh(chart);
            lvgl_port_unlock();
            */

            // lv_subject_copy_string(&hauteurCuveEvolSubj, event->data);
        }
        else if (strncmp(event->topic, topicHauteurCuve, 18) == 0)
        {
            lvgl_port_lock(0);
            char *datas = NULL;
            datas = (char *)malloc(event->data_len * sizeof(char));
            stpncpy(datas, event->data, event->data_len);
            datas[event->data_len] = '\0';
            lv_subject_copy_string(&hauteurCuveSubj, datas);
            free(datas);
            lvgl_port_unlock();
        }else if (strncmp(event->topic, topicTest, 4) == 0){
            ESP_LOGE(TAG,"Msg reecu sur test");
        }

        else
        {
            ESP_LOGE(TAG, "None match :-(");
        }
        lv_subject_set_int(&mqttStatus,3);
        break;
    case MQTT_EVENT_ERROR:
        ESP_LOGI(TAG, "MQTT_EVENT_ERROR");
        if (event->error_handle->error_type == MQTT_ERROR_TYPE_TCP_TRANSPORT)
        {
            log_error_if_nonzero("reported from esp-tls", event->error_handle->esp_tls_last_esp_err);
            log_error_if_nonzero("reported from tls stack", event->error_handle->esp_tls_stack_err);
            log_error_if_nonzero("captured as transport's socket errno", event->error_handle->esp_transport_sock_errno);
            ESP_LOGI(TAG, "Last errno string (%s)", strerror(event->error_handle->esp_transport_sock_errno));
        }
        break;
    default:
        ESP_LOGI(TAG, "Other event id:%d", event->event_id);
        break;
    }
}
void mqtt_app_start(void)
{

    lv_subject_init_int(&mqttStatus,-1);
    lv_subject_add_observer_obj(&mqttStatus, mqttStatus_obs_cb, NULL, NULL);


    esp_mqtt_client_config_t mqtt_cfg = {
        .broker.address.uri = "mqtt://192.168.0.10",
        .network.timeout_ms = 1000};
#if CONFIG_BROKER_URL_FROM_STDIN
    char line[128];

    if (strcmp(mqtt_cfg.broker.address.uri, "FROM_STDIN") == 0)
    {
        int count = 0;
        printf("Please enter url of mqtt broker\n");
        while (count < 128)
        {
            int c = fgetc(stdin);
            if (c == '\n')
            {
                line[count] = '\0';
                break;
            }
            else if (c > 0 && c < 127)
            {
                line[count] = c;
                ++count;
            }
            vTaskDelay(10 / portTICK_PERIOD_MS);
        }
        mqtt_cfg.broker.address.uri = line;
        printf("Broker url: %s\n", line);
    }
    else
    {
        ESP_LOGE(TAG, "Configuration mismatch: wrong broker url");
        abort();
    }
#endif /* CONFIG_BROKER_URL_FROM_STDIN */

    client = esp_mqtt_client_init(&mqtt_cfg);
    /* The last argument may be used to pass data to the event handler, in this example mqtt_event_handler */
    esp_mqtt_client_register_event(client, ESP_EVENT_ANY_ID, mqtt_event_handler, NULL);
    esp_mqtt_client_start(client);
}