#include "nfc_playlist.h"
#include "scences/emulation.h"

bool cancel = false;

void nfc_playlist_emulation_scene_on_enter(void* context) {
    NfcPlaylist* nfc_playlist = context;
    nfc_playlist_emulation_setup(nfc_playlist);
    nfc_playlist_emulation_start(nfc_playlist);
}

bool nfc_playlist_emulation_scene_on_event(void* context, SceneManagerEvent event) {
    NfcPlaylist* nfc_playlist = context;
    UNUSED(nfc_playlist);
    FURI_LOG_RAW_I("nfc_playlist_emulation_scene_on_event: %ld", event.event);
    switch (event.event) {
        case 0:
            if (nfc_playlist_worker_is_emulating(nfc_playlist->nfc_playlist_worker) && cancel != true) {
                cancel = true;
                return true;
            }
        default:
            break;
    }

    return false;
}

void nfc_playlist_emulation_scene_on_exit(void* context) {
    NfcPlaylist* nfc_playlist = context;
    cancel = false;
    nfc_playlist_emulation_stop(nfc_playlist);
    nfc_playlist_emulation_free(nfc_playlist);
    popup_reset(nfc_playlist->popup);
}

void nfc_playlist_emulation_setup(void* context) {
    NfcPlaylist* nfc_playlist = context;

    nfc_playlist->thread = furi_thread_alloc_ex(
        "NfcPlaylistEmulationWorker", 8192, nfc_playlist_emulation_task, nfc_playlist);
    nfc_playlist->nfc_playlist_worker = nfc_playlist_worker_alloc();
}

void nfc_playlist_emulation_free(NfcPlaylist* nfc_playlist) {
    furi_assert(nfc_playlist);
    furi_thread_free(nfc_playlist->thread);
    nfc_playlist_worker_free(nfc_playlist->nfc_playlist_worker);
    nfc_playlist->thread = NULL;
    nfc_playlist->nfc_playlist_worker = NULL;
}

void nfc_playlist_emulation_start(NfcPlaylist* nfc_playlist) {
    furi_assert(nfc_playlist);
    furi_thread_start(nfc_playlist->thread);
}

void nfc_playlist_emulation_stop(NfcPlaylist* nfc_playlist) {
    furi_assert(nfc_playlist);
    furi_thread_join(nfc_playlist->thread);
}

int32_t nfc_playlist_emulation_task(void* context) {
    NfcPlaylist* nfc_playlist = context;
    // open/alloc resources
    Storage* storage = furi_record_open(RECORD_STORAGE);
    Stream* stream = file_stream_alloc(storage);
    FuriString* line = furi_string_alloc();

    popup_reset(nfc_playlist->popup);
    popup_set_context(nfc_playlist->popup, nfc_playlist);
    view_dispatcher_switch_to_view(nfc_playlist->view_dispatcher, NfcPlaylistView_Popup);

    // Read file
    if(file_stream_open(stream, APP_DATA_PATH("playlist.txt"), FSAM_READ, FSOM_OPEN_EXISTING)) {

        popup_set_header(nfc_playlist->popup, "Emulating:", 64, 10, AlignCenter, AlignTop);

        int file_position = 0;
        // read the file line by line and print the text
        while(stream_read_line(stream, line) && cancel == false) {
            if (options_emulate_delay[nfc_playlist->emulate_delay] > 0) {
                if (file_position > 0) {
                    int time_counter_delay_ms = options_emulate_delay[nfc_playlist->emulate_delay];
                    do {
                        char display_text[30];
                        snprintf(display_text, 30, "%s\n\n%ds", "Delaying...", (time_counter_delay_ms/1000));
                        popup_set_text(nfc_playlist->popup, display_text, 64, 25, AlignCenter, AlignTop);
                        furi_delay_ms(500);
                        time_counter_delay_ms -= 500;
                    } while(time_counter_delay_ms > 0 && cancel == false);
                } else {
                    file_position++;
                }
            }

            char* file_path = (char*)furi_string_get_cstr(line);
            char* file_name = &strrchr(file_path, '/')[1];
            int time_counter_ms = options_emulate_timeout[nfc_playlist->emulate_timeout];

            if (storage_file_exists(storage, file_path) == false) {
                char const* popup_text_unformatted = strcat(file_name, "\nnot found");
                int popup_text_size = (strlen(popup_text_unformatted) + 4);
                char popup_text[popup_text_size];

                do {
                    snprintf(popup_text, popup_text_size, "%s\n%ds", file_name, (time_counter_ms/1000));
                    popup_set_text(nfc_playlist->popup, popup_text, 64, 25, AlignCenter, AlignTop);
                    furi_delay_ms(500);
                    time_counter_ms -= 500;
                } while(time_counter_ms > 0);
            } else {
                nfc_playlist_worker_set_nfc_data(nfc_playlist->nfc_playlist_worker, file_path);
                nfc_playlist_worker_start(nfc_playlist->nfc_playlist_worker);

                int popup_text_size = (strlen(file_name) + 4);
                char popup_text[popup_text_size];

                do {
                    snprintf(popup_text, popup_text_size, "%s\n%ds", file_name, (time_counter_ms/1000));
                    popup_set_text(nfc_playlist->popup, popup_text, 64, 25, AlignCenter, AlignTop);
                    furi_delay_ms(500);
                    time_counter_ms -= 500;
                } while(nfc_playlist_worker_is_emulating(nfc_playlist->nfc_playlist_worker) && time_counter_ms > 0 && cancel == false);

                nfc_playlist_worker_stop(nfc_playlist->nfc_playlist_worker);
            }
        }
        popup_reset(nfc_playlist->popup);
        popup_set_header(nfc_playlist->popup, "Emulation finished", 64, 10, AlignCenter, AlignTop);
        popup_set_text(nfc_playlist->popup, "Press back", 64, 25, AlignCenter, AlignTop);
    } else {
        popup_set_header(nfc_playlist->popup, "Error:", 64, 10, AlignCenter, AlignTop);
        popup_set_text(nfc_playlist->popup, "Failed to open file\n/ext/apps_data/nfc_playlist/playlist.txt", 64, 25, AlignCenter, AlignTop);
    }
    // Free/close resources
    furi_string_free(line);
    file_stream_close(stream);
    stream_free(stream);
    // Close storage    
    return 0;
}