#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <dpmi.h>
#include <sys/nearptr.h>
#include <pc.h>

#include "vga.h"

static uint8_t buffer[320 * 200];
static uint8_t *screen = NULL;

uint8_t open_framebuffer()
{
    if (__djgpp_nearptr_enable() == 0)
        return 0;

    screen = (uint8_t *)(0xa0000 + __djgpp_conventional_base);
    return 1;
}

void close_framebuffer()
{
    __djgpp_nearptr_disable();
}

void set_mode(uint8_t mode)
{
    __dpmi_regs regs = { 0 };
    regs.x.ax = mode;
    __dpmi_int(0x10, &regs);
}

void wait_vsync()
{
    while (inportb(0x3da) & 8);
    while (!(inportb(0x3da) & 8));
}

void set_palette(const uint8_t *palette)
{
    outportb(0x3c8, 0);
    for (int i = 0; i < 768; i++)
        outportb(0x3c9, palette[i] >> 2);
}

void blit(const uint8_t *src, uint16_t x, uint16_t y, uint16_t w, uint16_t h)
{
    for (int32_t j = y * 320; j < (y + h) * 320; j += 320)
        for (int16_t i = x; i < x + w; i++)
        {
            uint8_t b = *src++;

            /* transparent */
            if (b == TRANSPARENT)
                continue;

            /* clipping */
            if (i < 0 || i >= 320 || j < 0 || j >= 200 * 320)
                continue;

            buffer[i + j] = b;
        }
}

void blit_erase(uint8_t c)
{
    memset(buffer, c, 320 * 200);
}

void blit_update()
{
    memcpy(screen, buffer, 320 * 200);
}