#include <stdio.h>
#include <string.h>
#include "freertos/FreeRTOS.h"
#include "freertos/task.h"
#include "driver/gpio.h"
#include "driver/uart.h"
#include <esp_log.h>
#include <esp_vfs.h>
#include <esp_vfs_fat.h>
#include <sdmmc_cmd.h>

#define CONFIG_LOG_DEFAULT_LEVEL_VERBOSE 1
#define CONFIG_LOG_MAXIMUM_LEVEL 5
#define TAG "SD"

/* Indique las conexiones de SPI aquí */
#define PIN_NUM_MISO  19
#define PIN_NUM_MOSI 23
#define PIN_NUM_CLK  18
#define PIN_NUM_CS  5  

#define EXAMPLE_MAX_CHAR_SIZE 512
#define MOUNT_POINT "/sdcard"
#define UART_NUM UART_NUM_2


void uart_putchar(char data)
{
  uart_write_bytes(0, (const char*)&data, 1);
}

char uart_getchar(uart_port_t uart_num)
{ char c;
  uart_read_bytes(uart_num, (uint8_t*)&c, 1, portMAX_DELAY);
  return c;
}

void SPI_init()
{
  gpio_set_direction(PIN_NUM_MISO, GPIO_MODE_INPUT);
  gpio_set_direction(PIN_NUM_MOSI, GPIO_MODE_OUTPUT);
  gpio_set_direction(PIN_NUM_CLK, GPIO_MODE_OUTPUT);
  gpio_set_direction(PIN_NUM_CS, GPIO_MODE_OUTPUT);
  
  gpio_set_pull_mode(PIN_NUM_MOSI, GPIO_PULLUP_ONLY);
  gpio_set_pull_mode(PIN_NUM_MISO, GPIO_PULLUP_ONLY);  
  gpio_set_pull_mode(PIN_NUM_CLK, GPIO_PULLUP_ONLY);
  gpio_set_pull_mode(PIN_NUM_CS, GPIO_PULLUP_ONLY);


  esp_err_t ret;

    // Opciones para montar el sistema de archivos.
    // Si format_if_mount_failed es true, la SD card va a ser particionada y
    // formateada en caso de que el montaje falle.
    esp_vfs_fat_sdmmc_mount_config_t mount_config = 
    {
#ifdef CONFIG_EXAMPLE_FORMAT_IF_MOUNT_FAILED
        .format_if_mount_failed = true,
#else
        .format_if_mount_failed = false,
#endif // EXAMPLE_FORMAT_IF_MOUNT_FAILED
        .max_files = 5,
        .allocation_unit_size = 16 * 1024
    };


    sdmmc_card_t *card;
    const char mount_point[] = MOUNT_POINT;
    ESP_LOGI(TAG, "Inicializando SD card");
    ESP_LOGI(TAG, "Usando el periferico SPI");

    // Por default, la frecuencia de la SD card es inicializada a SDMMC_FREQ_DEFAULT (20MHz)
    // Para configurar una frecuencia específica, use host.max_freq_khz (rango 400kHz - 20MHz para SDSPI)
    // Ejemplo: para una frecuencia fija de 10MHz, use host.max_freq_khz = 10000;
    sdmmc_host_t host = SDSPI_HOST_DEFAULT();    
    host.slot = SPI3_HOST;

    spi_bus_config_t bus_cfg = {
      /* configure la conexión de SPI aquí */
      .mosi_io_num = PIN_NUM_MOSI,
      .miso_io_num = PIN_NUM_MISO,
      .sclk_io_num = PIN_NUM_CLK,
      .quadwp_io_num = -1,
      .quadhd_io_num = -1,
      .max_transfer_sz = 4000,

    };

    ret = spi_bus_initialize(host.slot, &bus_cfg, SDSPI_DEFAULT_DMA);
    if (ret != ESP_OK) {
        ESP_LOGE(TAG, "Fallo inicializacion del bus.");
        return;
    }

    sdspi_device_config_t slot_config = SDSPI_DEVICE_CONFIG_DEFAULT();
    slot_config.gpio_cs = PIN_NUM_CS;
    slot_config.host_id = host.slot;

    ESP_LOGI(TAG, "Montaje del sistema de archivos");
    ret = esp_vfs_fat_sdspi_mount(mount_point, &host, &slot_config, &mount_config, &card);

    if (ret != ESP_OK) {
        if (ret == ESP_FAIL) {
            ESP_LOGE(TAG, "Falló montaje del sistema de archivos. "
                     "Si quieres que la tarjeta se formateé, configura la opción CONFIG_EXAMPLE_FORMAT_IF_MOUNT_FAILED.");
        } else {
            ESP_LOGE(TAG, "Falló inicialización de la tarjeta (%s). "
                     "Asegúrese de que las líneas de la tarjeta SD tengan resistencias pull-up en su lugar.", esp_err_to_name(ret));
        }
        return;
    }
    ESP_LOGI(TAG, "Sistema de archivos montado");
    // Imprimir las propiedades de la tarjeta
    sdmmc_card_print_info(stdout, card);

}


static esp_err_t s_example_write_file(const char *path, char *data)
{
    ESP_LOGI(TAG, "Abriendo archivo %s", path);
    FILE *f = fopen(path, "w");
    if (f == NULL) {
        ESP_LOGE(TAG, "Falló abrir archivo para escritura");
        return ESP_FAIL;
    }
    fprintf(f, data);
    fclose(f);
    ESP_LOGI(TAG, "Archivo escrito");

    return ESP_OK;
}

static esp_err_t s_example_read_file(const char *path)
{
    ESP_LOGI(TAG, "Leyendo archivo %s", path);
    FILE *f = fopen(path, "r");
    if (f == NULL) {
        ESP_LOGE(TAG, "Falló abrir archivo para lectura");
        return ESP_FAIL;
    }
    char line[EXAMPLE_MAX_CHAR_SIZE];
    fgets(line, sizeof(line), f);
    fclose(f);

    ESP_LOGI(TAG, "Lectura de archivo: '%s'", line);

    return ESP_OK;
}

#define CONFIG_EXAMPLE_FORMAT_IF_MOUNT_FAILED

void app_main() 
{
  SPI_init();
  
  //printf("Hola, Wokwi!!\n");
  esp_log_level_set(TAG, ESP_LOG_INFO); 

    const uart_port_t uart_num = UART_NUM_0;
    uart_config_t uart_cfg = 
    {
      .baud_rate = 115200,
      .data_bits = UART_DATA_8_BITS,
      .parity = UART_PARITY_DISABLE,
      .stop_bits = UART_STOP_BITS_1,
      .flow_ctrl = UART_HW_FLOWCTRL_DISABLE,
      .rx_flow_ctrl_thresh = 122, 
 
    };

    uart_param_config(uart_num, &uart_cfg);

    uart_set_pin(uart_num, 17,16,UART_PIN_NO_CHANGE, UART_PIN_NO_CHANGE);

    QueueHandle_t uart_queue;
    uart_driver_install(uart_num, EXAMPLE_MAX_CHAR_SIZE, EXAMPLE_MAX_CHAR_SIZE, 10, &uart_queue, 0); 

  char m, n;
  //c = uart_getchar(UART_NUM_2);

    m = uart_getchar(UART_NUM_0);
    uart_putchar(m);

    n = uart_getchar(UART_NUM_0);
    uart_putchar(n);


    m-='0';
    n-='0';

    int** matriz = (int **)malloc( m * sizeof(int*));
    for(int i=0; i<m; i++)
    {
      matriz[i] = (int*)malloc(n* sizeof(int)); 
    }



    int counter =1;
    for(int i=0; i<m; i++)
    {
      for(int j=0; j<n; j++)
      {
        counter++; 
        matriz[i][j] = counter ;
      }

    }


/*
    for(int i=0; i<m; i++)
    {
      for(int j=0; j<n; j++)
      {
  
        uart_putchar((matriz[i][j]+='0'));
      }
      uart_putchar('\n');

    }
*/

    /*
    // Crear un archivo
    const char *file_hello = MOUNT_POINT"/cmp.txt";
    char data[EXAMPLE_MAX_CHAR_SIZE];

    for(int i = 0; i<ROWS; i++)
    {
      for(int j = 0; i<COLS; j++)
      {
          snprintf(data, EXAMPLE_MAX_CHAR_SIZE, "%s", matriz[ROWS][COLS]);
      }
        snprintf(data, EXAMPLE_MAX_CHAR_SIZE, "%s", '\n');
    }
    
    ret = s_example_write_file(file_hello, data);
    if (ret != ESP_OK) {
        return;
    }
    
    const char *file_foo = MOUNT_POINT"/foo.txt";

    // Borrar archivo si existe (primero revisa si existe)
    struct stat st;
    if (stat(file_foo, &st) == 0) {
        // Borrar
        unlink(file_foo);
    }

    // Renombrar archivo
    ESP_LOGI(TAG, "Renombrando %s a %s", file_hello, file_foo);
    if (rename(file_hello, file_foo) != 0) {
        ESP_LOGE(TAG, "Fallo renombrar");
        return;
    }

    ret = s_example_read_file(file_foo);
    if (ret != ESP_OK) {
        return;
    }
    */

    ESP_LOGI(TAG, "Fin del ejemplo");


  while (true) {
    vTaskDelay(1000 / portTICK_PERIOD_MS);
  }
}