/*
DingusPPC - The Experimental PowerPC Macintosh emulator
Copyright (C) 2018-23 divingkatae and maximum
                      (theweirdo)     spatium

(Contact divingkatae#1017 or powermax#2286 on Discord for more info)

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <https://www.gnu.org/licenses/>.
*/

/** @file Video Conroller base class implementation. */

#include <core/hostevents.h>
#include <devices/video/videoctrl.h>
#include <loguru.hpp>
#include <memaccess.h>
#include <SDL.h>

#include <chrono>
#include <cinttypes>

VideoCtrlBase::VideoCtrlBase(int width, int height)
{
    EventManager::get_instance()->register_handler(EventType::EVENT_WINDOW,
                                                  [this](const BaseEvent& event) {
        const WindowEvent& wnd_event = static_cast<const WindowEvent&>(event);
        if (wnd_event.sub_type == SDL_WINDOWEVENT_SIZE_CHANGED &&
            wnd_event.window_id == this->disp_wnd_id)
            this->resizing = false;
    });

    this->create_display_window(width, height);
}

VideoCtrlBase::~VideoCtrlBase()
{
    if (this->cursor_texture) {
        SDL_DestroyTexture(this->cursor_texture);
    }

    if (this->disp_texture) {
        SDL_DestroyTexture(this->disp_texture);
    }

    if (this->renderer) {
        SDL_DestroyRenderer(this->renderer);
    }

    if (this->display_wnd) {
        SDL_DestroyWindow(this->display_wnd);
    }
}

void VideoCtrlBase::create_display_window(int width, int height)
{
    if (!this->display_wnd) { // create display window
        this->display_wnd = SDL_CreateWindow(
            "DingusPPC Display",
            SDL_WINDOWPOS_UNDEFINED,
            SDL_WINDOWPOS_UNDEFINED,
            width, height,
            SDL_WINDOW_OPENGL
        );

        this->disp_wnd_id = SDL_GetWindowID(this->display_wnd);

        if (this->display_wnd == NULL) {
            ABORT_F("Display: SDL_CreateWindow failed with %s", SDL_GetError());
        }

        this->renderer = SDL_CreateRenderer(this->display_wnd, -1, SDL_RENDERER_ACCELERATED);
        if (this->renderer == NULL) {
            ABORT_F("Display: SDL_CreateRenderer failed with %s", SDL_GetError());
        }

        this->blank_on = true; // TODO: should be true!

        this->blank_display();
    } else { // resize display window
        SDL_SetWindowSize(this->display_wnd, width, height);
        this->resizing = true;
    }

    this->active_width  = width;
    this->active_height = height;

    if (this->disp_texture) {
        SDL_DestroyTexture(this->disp_texture);
    }

    this->disp_texture = SDL_CreateTexture(
        this->renderer,
        SDL_PIXELFORMAT_ARGB8888,
        SDL_TEXTUREACCESS_STREAMING,
        width, height
    );

    if (this->disp_texture == NULL) {
        ABORT_F("Display: SDL_CreateTexture failed with %s", SDL_GetError());
    }
}

void VideoCtrlBase::blank_display() {
    SDL_SetRenderDrawColor(this->renderer, 0, 0, 0, 255);
    SDL_RenderClear(this->renderer);
    SDL_RenderPresent(this->renderer);
}

void VideoCtrlBase::update_screen()
{
    uint8_t*    dst_buf;
    int         dst_pitch;

    //auto start_time = std::chrono::steady_clock::now();

    if (this->resizing)
        return;

    if (this->blank_on) {
        this->blank_display();
        return;
    }

    SDL_LockTexture(this->disp_texture, NULL, (void **)&dst_buf, &dst_pitch);

    // texture update callback to get ARGB data from guest framebuffer
    this->convert_fb_cb(dst_buf, dst_pitch);

    SDL_UnlockTexture(this->disp_texture);
    SDL_RenderClear(this->renderer);
    SDL_RenderCopy(this->renderer, this->disp_texture, NULL, NULL);

    // draw HW cursor if enabled
    if (this->cursor_on) {
        this->get_cursor_position(cursor_rect.x, cursor_rect.y);
        SDL_RenderCopy(this->renderer, this->cursor_texture, NULL, &cursor_rect);
    }

    SDL_RenderPresent(this->renderer);
}

void VideoCtrlBase::get_palette_colors(uint8_t index, uint8_t& r, uint8_t& g,
                                       uint8_t& b, uint8_t& a)
{
    b =  this->palette[index] & 0xFFU;
    g = (this->palette[index] >>  8) & 0xFFU;
    r = (this->palette[index] >> 16) & 0xFFU;
    a = (this->palette[index] >> 24) & 0xFFU;
}

void VideoCtrlBase::set_palette_color(uint8_t index, uint8_t r, uint8_t g, uint8_t b, uint8_t a)
{
    this->palette[index] = (a << 24) | (r << 16) | (g << 8) | b;
}

void VideoCtrlBase::setup_hw_cursor(int cursor_width, int cursor_height)
{
    uint8_t*    dst_buf;
    int         dst_pitch;

    if (this->cursor_texture) {
        SDL_DestroyTexture(this->cursor_texture);
    }

    this->cursor_texture = SDL_CreateTexture(
        this->renderer,
        SDL_PIXELFORMAT_ARGB8888,
        SDL_TEXTUREACCESS_STREAMING,
        cursor_width, cursor_height
    );

    if (this->cursor_texture == NULL) {
        ABORT_F("SDL_CreateTexture for HW cursor failed with %s", SDL_GetError());
    }

    SDL_LockTexture(this->cursor_texture, NULL, (void **)&dst_buf, &dst_pitch);
    SDL_SetTextureBlendMode(this->cursor_texture, SDL_BLENDMODE_BLEND);
    this->draw_hw_cursor(dst_buf, dst_pitch);
    SDL_UnlockTexture(this->cursor_texture);

    this->cursor_rect.x = 0;
    this->cursor_rect.y = 0;
    this->cursor_rect.w = cursor_width;
    this->cursor_rect.h = cursor_height;

    this->cursor_on = true;
}

void VideoCtrlBase::convert_frame_1bpp(uint8_t *dst_buf, int dst_pitch)
{
    // TODO: implement me!
}

void VideoCtrlBase::convert_frame_8bpp(uint8_t *dst_buf, int dst_pitch)
{
    uint8_t *src_buf, *src_row, *dst_row;
    int     src_pitch;

    src_buf   = this->fb_ptr;
    src_pitch = this->fb_pitch;

    for (int h = 0; h < this->active_height; h++) {
        src_row = &src_buf[h * src_pitch];
        dst_row = &dst_buf[h * dst_pitch];

        for (int x = 0; x < this->active_width; x++) {
            WRITE_DWORD_LE_A(dst_row, this->palette[src_row[x]]);
            dst_row += 4;
        }
    }
}