#include "communication.h"
#include "esp_log.h"
#include "esp_lvgl_port.h"
#include "mqtt_client.h"
#include "bsp/esp-bsp.h"
#include "stateManagement.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 = "domo_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 *topicdomoticCommand = "domotic/cmd";
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_LOGV(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_LOGV(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(50)){
            ESP_LOGV(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, topicdomoticCommand, 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(50)){
            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_LOGD(TAG, "\nMQTT_EVENT_DATA");
        ESP_LOGD(TAG, "TOPIC=%.*s\n", event->topic_len, event->topic);
        ESP_LOGD(TAG, "DATA=%.*s\n", event->data_len, event->data);
        if (strncmp(event->topic, topicTempExt, 27) == 0)
        {
            if(lvgl_port_lock(50)){
            // 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)
        {
            if(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)
        {
            if (lvgl_port_lock(50)){
                float temp = strtof(event->data, NULL);
                char buff[5];
                sprintf(buff,"%.0f",temp);
                lv_subject_copy_string(&hauteurCuveSubj, buff);
                lvgl_port_unlock();
            }
        }else if (strncmp(event->topic, topicTest, 4) == 0){
            ESP_LOGD(TAG,"Msg reecu sur test");
        }else if (strncmp(event->topic, topicdomoticCommand, 11) == 0){
            if(strncmp(event->data,"restart",7)==0){
                ESP_LOGI(TAG," Commande 'restart' recue");
                esp_restart();
            }
        }
        else
        {
            ESP_LOGE(TAG, "None match :-( %s", event->topic);
        }
        if (lvgl_port_lock(50)){
            lv_subject_set_int(&mqttStatus,3);
            lvgl_port_unlock();
        }
        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);
}

#include "esp_wifi.h"
#include "esp_log.h"
#include "esp_lvgl_port.h"

/* FreeRTOS event group to signal when we are connected*/
static EventGroupHandle_t s_wifi_event_group;

/* The event group allows multiple bits for each event, but we only care about two events:
 * - we are connected to the AP with an IP
 * - we failed to connect after the maximum amount of retries */
#define WIFI_CONNECTED_BIT BIT0
#define WIFI_FAIL_BIT BIT1

#define EXAMPLE_ESP_WIFI_SSID "wifimms3"
#define EXAMPLE_ESP_WIFI_PASS "mmswifi0611"
#define EXAMPLE_ESP_MAXIMUM_RETRY 5

#define ESP_WIFI_SAE_MODE WPA3_SAE_PWE_BOTH
#define EXAMPLE_H2E_IDENTIFIER CONFIG_ESP_WIFI_PW_ID
#define ESP_WIFI_SCAN_AUTH_MODE_THRESHOLD WIFI_AUTH_WPA2_PSK

static int s_retry_num = 0;

static lv_subject_t wifiStatus;
LV_IMAGE_DECLARE(wifi_ok);
LV_IMAGE_DECLARE(wifi_ko);

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


static void wifiStatus_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));
    bsp_display_lock(0);
    lv_obj_t * wifiSt = lv_obj_get_child(lv_obj_get_child(lv_layer_top(), 0),2);
    if(lv_obj_check_type(wifiSt, &lv_image_class)){
        switch (lv_subject_get_int(subject))
        {
        case 0:
            lv_image_set_src(wifiSt,&wifi_ko);
            break;
        case 1:
            lv_image_set_src(wifiSt,&wifi_ok);
            break;
        default:
            break;
        }
    }else{
        ESP_LOGE(TAG, "L'objet recuip en semble pas etre du bon type");
    }
    bsp_display_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 wifi_event_handler(void *arg, esp_event_base_t event_base, int32_t event_id, void *event_data)
{
    if (event_base == WIFI_EVENT && event_id == WIFI_EVENT_STA_START)
    {
        esp_wifi_connect();
    }
    else if (event_base == WIFI_EVENT && event_id == WIFI_EVENT_STA_DISCONNECTED)
    {
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut Wifi 0");
            lv_subject_set_int(&wifiStatus,0);
            lvgl_port_unlock();
        }
        if (s_retry_num < EXAMPLE_ESP_MAXIMUM_RETRY)
        {
            esp_wifi_connect();
            s_retry_num++;
            ESP_LOGI(TAG, "retry to connect to the AP");
        }
        else
        {
            xEventGroupSetBits(s_wifi_event_group, WIFI_FAIL_BIT);
        }
        ESP_LOGI(TAG, "connect to the AP fail");
    }
    else if (event_base == IP_EVENT && event_id == IP_EVENT_STA_GOT_IP)
    {
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut Wifi 1");
            lv_subject_set_int(&wifiStatus,1);
            lvgl_port_unlock();
        }
        ip_event_got_ip_t *event = (ip_event_got_ip_t *)event_data;
        ESP_LOGI(TAG, "got ip:" IPSTR, IP2STR(&event->ip_info.ip));
        s_retry_num = 0;
        xEventGroupSetBits(s_wifi_event_group, WIFI_CONNECTED_BIT);
        mainState.wifi_init=true;
    }
}
void wifi_init_sta(void)
{
    s_wifi_event_group = xEventGroupCreate();

    ESP_ERROR_CHECK(esp_netif_init());

    ESP_ERROR_CHECK(esp_event_loop_create_default());
    esp_netif_create_default_wifi_sta();

    wifi_init_config_t cfg = WIFI_INIT_CONFIG_DEFAULT();
    ESP_ERROR_CHECK(esp_wifi_init(&cfg));

    esp_event_handler_instance_t instance_any_id;
    esp_event_handler_instance_t instance_got_ip;
    ESP_ERROR_CHECK(esp_event_handler_instance_register(WIFI_EVENT,
                                                        ESP_EVENT_ANY_ID,
                                                        &wifi_event_handler,
                                                        NULL,
                                                        &instance_any_id));
    ESP_ERROR_CHECK(esp_event_handler_instance_register(IP_EVENT,
                                                        IP_EVENT_STA_GOT_IP,
                                                        &wifi_event_handler,
                                                        NULL,
                                                        &instance_got_ip));

    wifi_config_t wifi_config = {
        .sta = {
            .ssid = EXAMPLE_ESP_WIFI_SSID,
            .password = EXAMPLE_ESP_WIFI_PASS,
            /* Authmode threshold resets to WPA2 as default if password matches WPA2 standards (pasword len => 8).
             * If you want to connect the device to deprecated WEP/WPA networks, Please set the threshold value
             * to WIFI_AUTH_WEP/WIFI_AUTH_WPA_PSK and set the password with length and format matching to
             * WIFI_AUTH_WEP/WIFI_AUTH_WPA_PSK standards.
             */
            .threshold.authmode = ESP_WIFI_SCAN_AUTH_MODE_THRESHOLD,
            .sae_pwe_h2e = ESP_WIFI_SAE_MODE,
            .sae_h2e_identifier = EXAMPLE_H2E_IDENTIFIER,
        },
    };
    ESP_ERROR_CHECK(esp_wifi_set_mode(WIFI_MODE_STA));
    ESP_ERROR_CHECK(esp_wifi_set_config(WIFI_IF_STA, &wifi_config));
    ESP_ERROR_CHECK(esp_wifi_start());

    ESP_LOGI(TAG, "wifi_init_sta finished.");
    lv_subject_init_int(&wifiStatus,0);
    lv_subject_add_observer_obj(&wifiStatus, wifiStatus_obs_cb, NULL, NULL);


    /* Waiting until either the connection is established (WIFI_CONNECTED_BIT) or connection failed for the maximum
     * number of re-tries (WIFI_FAIL_BIT). The bits are set by event_handler() (see above) */
    EventBits_t bits = xEventGroupWaitBits(s_wifi_event_group,
                                           WIFI_CONNECTED_BIT | WIFI_FAIL_BIT,
                                           pdFALSE,
                                           pdFALSE,
                                           portMAX_DELAY);

    /* xEventGroupWaitBits() returns the bits before the call returned, hence we can test which event actually
     * happened. */
    if (bits & WIFI_CONNECTED_BIT)
    {
        ESP_LOGI(TAG, "connected to ap SSID:%s", EXAMPLE_ESP_WIFI_SSID);
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut Wifi 1");
            lv_subject_set_int(&wifiStatus,1);
            lvgl_port_unlock();
        }
    }
    else if (bits & WIFI_FAIL_BIT)
    {
        ESP_LOGI(TAG, "Failed to connect to SSID:%s, password:%s",
                 EXAMPLE_ESP_WIFI_SSID, EXAMPLE_ESP_WIFI_PASS);
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut Wifi 0");
            lv_subject_set_int(&wifiStatus,0);
            lvgl_port_unlock();
        }
    }
    else
    {
        ESP_LOGE(TAG, "UNEXPECTED EVENT");
        if(lvgl_port_lock(0)){
            ESP_LOGE(TAG,"Statut Wifi 0");
            lv_subject_set_int(&wifiStatus,0);
            lvgl_port_unlock();
        }

    }
}