/*
    SDL - Simple DirectMedia Layer
    Copyright (C) 1997-2006 Sam Lantinga

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

    This library 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    Sam Lantinga
    slouken@libsdl.org
*/
#include "SDL_config.h"

/* Framebuffer console based SDL video driver implementation.
*/

#include <fcntl.h>
#include <unistd.h>
#include <sys/ioctl.h>
#include <sys/mman.h>

#include "SDL_video.h"
#include "SDL_mouse.h"
#include "../SDL_sysvideo.h"
#include "../SDL_pixels_c.h"
#include "../../events/SDL_events_c.h"
#include "../SDL_cursor_c.h"
#include "SDL_gsvideo.h"
#include "SDL_gsmouse_c.h"
#include "SDL_gsevents_c.h"
#include "SDL_gsyuv_c.h"


/* Initialization/Query functions */
static int GS_VideoInit (_THIS, SDL_PixelFormat * vformat);
static SDL_Rect **GS_ListModes (_THIS, SDL_PixelFormat * format,
                                Uint32 flags);
static SDL_Surface *GS_SetVideoMode (_THIS, SDL_Surface * current, int width,
                                     int height, int bpp, Uint32 flags);
static int GS_SetColors (_THIS, int firstcolor, int ncolors,
                         SDL_Color * colors);
static void GS_VideoQuit (_THIS);

/* Hardware surface functions */
static int GS_AllocHWSurface (_THIS, SDL_Surface * surface);
static int GS_LockHWSurface (_THIS, SDL_Surface * surface);
static void GS_UnlockHWSurface (_THIS, SDL_Surface * surface);
static void GS_FreeHWSurface (_THIS, SDL_Surface * surface);

/* GS driver bootstrap functions */

static int
GS_Available (void)
{
    int console, memory;

    console = open (PS2_DEV_GS, O_RDWR, 0);
    if (console >= 0) {
        close (console);
    }
    memory = open (PS2_DEV_MEM, O_RDWR, 0);
    if (memory >= 0) {
        close (memory);
    }
    return ((console >= 0) && (memory >= 0));
}

static void
GS_DeleteDevice (SDL_VideoDevice * device)
{
    SDL_free (device->hidden);
    SDL_free (device);
}

static SDL_VideoDevice *
GS_CreateDevice (int devindex)
{
    SDL_VideoDevice *this;

    /* Initialize all variables that we clean on shutdown */
    this = (SDL_VideoDevice *) SDL_malloc (sizeof (SDL_VideoDevice));
    if (this) {
        SDL_memset (this, 0, (sizeof *this));
        this->hidden = (struct SDL_PrivateVideoData *)
            SDL_malloc ((sizeof *this->hidden));
    }
    if ((this == NULL) || (this->hidden == NULL)) {
        SDL_OutOfMemory ();
        if (this) {
            SDL_free (this);
        }
        return (0);
    }
    SDL_memset (this->hidden, 0, (sizeof *this->hidden));
    mouse_fd = -1;
    keyboard_fd = -1;

    /* Set the function pointers */
    this->VideoInit = GS_VideoInit;
    this->ListModes = GS_ListModes;
    this->SetVideoMode = GS_SetVideoMode;
    this->CreateYUVOverlay = GS_CreateYUVOverlay;
    this->SetColors = GS_SetColors;
    this->UpdateRects = NULL;
    this->VideoQuit = GS_VideoQuit;
    this->AllocHWSurface = GS_AllocHWSurface;
    this->CheckHWBlit = NULL;
    this->FillHWRect = NULL;
    this->SetHWColorKey = NULL;
    this->SetHWAlpha = NULL;
    this->LockHWSurface = GS_LockHWSurface;
    this->UnlockHWSurface = GS_UnlockHWSurface;
    this->FlipHWSurface = NULL;
    this->FreeHWSurface = GS_FreeHWSurface;
    this->SetIcon = NULL;
    this->SetCaption = NULL;
    this->GetWMInfo = NULL;
    this->FreeWMCursor = GS_FreeWMCursor;
    this->CreateWMCursor = GS_CreateWMCursor;
    this->ShowWMCursor = GS_ShowWMCursor;
    this->MoveWMCursor = GS_MoveWMCursor;
    this->InitOSKeymap = GS_InitOSKeymap;
    this->PumpEvents = GS_PumpEvents;

    this->free = GS_DeleteDevice;

    return this;
}

VideoBootStrap PS2GS_bootstrap = {
    "ps2gs", "PlayStation 2 Graphics Synthesizer",
    GS_Available, GS_CreateDevice
};

/* These are the pixel formats for the 32, 24, and 16 bit video modes */
static struct
{
    int bpp;
    Uint32 r;
    Uint32 g;
    Uint32 b;
} GS_pixelmasks[] = {
    {
        32, 0x000000FF,         /* RGB little-endian */
    0x0000FF00, 0x00FF0000}, {
        24, 0x000000FF,         /* RGB little-endian */
    0x0000FF00, 0x00FF0000}, {
        16, 0x0000001f,         /* RGB little-endian */
0x000003e0, 0x00007c00},};

/* This is a mapping from SDL bytes-per-pixel to GS pixel format */
static int GS_formatmap[] = {
    -1,                         /* 0 bpp, not a legal value */
    -1,                         /* 8 bpp, not supported (yet?) */
    PS2_GS_PSMCT16,             /* 16 bpp */
    PS2_GS_PSMCT24,             /* 24 bpp */
    PS2_GS_PSMCT32              /* 32 bpp */
};

static unsigned long long head_tags[] __attribute__ ((aligned (16))) = {
    4 | (1LL << 60),            /* GIFtag */
        0x0e,                   /* A+D */
        0,                      /* 2 */
        PS2_GS_BITBLTBUF, 0,    /* 4 */
        PS2_GS_TRXPOS, 0,       /* 6 */
        PS2_GS_TRXREG, 0,       /* 8 */
PS2_GS_TRXDIR};

#define MAXIMG		(32767 * 16)
#define MAXTAGS		8

static inline int
loadimage_nonblock (int fd, struct ps2_image *image, int size,
                    unsigned long long *hm, unsigned long long *im)
{
    struct ps2_plist plist;
    struct ps2_packet packet[1 + MAXTAGS * 2];
    int isize;
    int pnum, it, eop;
    char *data;

    /* initialize the variables */
    data = (char *) image->ptr;
    pnum = it = eop = 0;
    plist.packet = packet;

    /* make BITBLT packet */
    packet[pnum].ptr = hm;
    packet[pnum].len = sizeof (head_tags);
    pnum++;
    hm[2] = ((unsigned long long) image->fbp << 32) |
        ((unsigned long long) image->fbw << 48) |
        ((unsigned long long) image->psm << 56);
    hm[4] = ((unsigned long long) image->x << 32) |
        ((unsigned long long) image->y << 48);
    hm[6] = (unsigned long long) image->w |
        ((unsigned long long) image->h << 32);

    /* make image mode tags */
    while (!eop) {
        isize = size > MAXIMG ? MAXIMG : size;
        size -= isize;
        eop = (size == 0);

        packet[pnum].ptr = &im[it];
        packet[pnum].len = sizeof (unsigned long long) * 2;
        pnum++;
        im[it++] = (isize >> 4) | (eop ? (1 << 15) : 0) | (2LL << 58);
        im[it++] = 0;

        packet[pnum].ptr = (void *) data;
        packet[pnum].len = isize;
        pnum++;
        data += isize;
    }
    plist.num = pnum;

    return ioctl (fd, PS2IOC_SENDL, &plist);
}

static unsigned long long tex_tags[] __attribute__ ((aligned (16))) = {
    3 | (1LL << 60),            /* GIFtag */
        0x0e,                   /* A+D */
        0,                      /* 2 */
PS2_GS_TEX0_1, (1 << 5) + (1 << 6), PS2_GS_TEX1_1, 0, PS2_GS_TEXFLUSH};
static unsigned long long scale_tags[] __attribute__ ((aligned (16))) = {
    5 | (1LL << 60),            /* GIFtag */
        0x0e,                   /* A+D */
        6 + (1 << 4) + (1 << 8), PS2_GS_PRIM, ((unsigned long long) 0 * 16) + (((unsigned long long) 0 * 16) << 16), PS2_GS_UV, ((unsigned long long) 0 * 16) + (((unsigned long long) 0 * 16) << 16), PS2_GS_XYZ2, 0,  /* 8 */
        PS2_GS_UV, 0,           /* 10 */
PS2_GS_XYZ2};


int
scaleimage_nonblock (int fd, unsigned long long *tm, unsigned long long *sm)
{
    struct ps2_plist plist;
    struct ps2_packet packet[2];

    /* initialize the variables */
    plist.num = 2;
    plist.packet = packet;

    packet[0].ptr = tm;
    packet[0].len = sizeof (tex_tags);
    packet[1].ptr = sm;
    packet[1].len = sizeof (scale_tags);

    return ioctl (fd, PS2IOC_SENDL, &plist);
}

static int
power_of_2 (int value)
{
    int shift;

    for (shift = 0; (1 << shift) < value; ++shift) {
        /* Keep looking */ ;
    }
    return (shift);
}

static int
GS_VideoInit (_THIS, SDL_PixelFormat * vformat)
{
    struct ps2_screeninfo vinfo;

    /* Initialize the library */
    console_fd = open (PS2_DEV_GS, O_RDWR, 0);
    if (console_fd < 0) {
        SDL_SetError ("Unable to open %s", PS2_DEV_GS);
        return (-1);
    }
    memory_fd = open (PS2_DEV_MEM, O_RDWR, 0);
    if (memory_fd < 0) {
        close (console_fd);
        console_fd = -1;
        SDL_SetError ("Unable to open %s", PS2_DEV_MEM);
        return (-1);
    }

    if (ioctl (console_fd, PS2IOC_GSCREENINFO, &vinfo) < 0) {
        close (memory_fd);
        close (console_fd);
        console_fd = -1;
        SDL_SetError ("Couldn't get console pixel format");
        return (-1);
    }

    /* Determine the current screen size */
    this->info.current_w = vinfo.w;
    this->info.current_h = vinfo.h;

    /* Determine the current screen depth */
    switch (vinfo.psm) {
        /* Supported pixel formats */
    case PS2_GS_PSMCT32:
    case PS2_GS_PSMCT24:
    case PS2_GS_PSMCT16:
        break;
    default:
        GS_VideoQuit (this);
        SDL_SetError ("Unknown console pixel format: %d", vinfo.psm);
        return (-1);
    }
    vformat->BitsPerPixel = GS_pixelmasks[vinfo.psm].bpp;
    vformat->Rmask = GS_pixelmasks[vinfo.psm].r;
    vformat->Gmask = GS_pixelmasks[vinfo.psm].g;
    vformat->Bmask = GS_pixelmasks[vinfo.psm].b;
    saved_vinfo = vinfo;

    /* Enable mouse and keyboard support */
    if (GS_OpenKeyboard (this) < 0) {
        GS_VideoQuit (this);
        SDL_SetError ("Unable to open keyboard");
        return (-1);
    }
    if (GS_OpenMouse (this) < 0) {
        const char *sdl_nomouse;

        sdl_nomouse = SDL_getenv ("SDL_NOMOUSE");
        if (!sdl_nomouse) {
            GS_VideoQuit (this);
            SDL_SetError ("Unable to open mouse");
            return (-1);
        }
    }

    /* We're done! */
    return (0);
}

static SDL_Rect **
GS_ListModes (_THIS, SDL_PixelFormat * format, Uint32 flags)
{
    static SDL_Rect GS_vesa_mode_list[] = {
        {0, 0, 1280, 1024},
        {0, 0, 1024, 768},
        {0, 0, 800, 600},
        {0, 0, 640, 480}
    };
    static SDL_Rect *GS_vesa_modes[] = {
        &GS_vesa_mode_list[0],
        &GS_vesa_mode_list[1],
        &GS_vesa_mode_list[2],
        &GS_vesa_mode_list[3],
        NULL
    };
    static SDL_Rect GS_tvout_stretch;
    static SDL_Rect GS_tvout_mode;
    static SDL_Rect *GS_tvout_modes[3];
    SDL_Rect **modes = NULL;

    switch (format->BitsPerPixel) {
    case 16:
    case 24:
    case 32:
        if (saved_vinfo.mode == PS2_GS_VESA) {
            modes = GS_vesa_modes;
        } else {
            int i, j = 0;

// FIXME - what's wrong with the stretch code at 16 bpp?
            if (format->BitsPerPixel != 32)
                break;
            /* Add a mode that we could possibly stretch to */
            for (i = 0; GS_vesa_modes[i]; ++i) {
                if ((GS_vesa_modes[i]->w == saved_vinfo.w) &&
                    (GS_vesa_modes[i]->h != saved_vinfo.h)) {
                    GS_tvout_stretch.w = GS_vesa_modes[i]->w;
                    GS_tvout_stretch.h = GS_vesa_modes[i]->h;
                    GS_tvout_modes[j++] = &GS_tvout_stretch;
                    break;
                }
            }
            /* Add the current TV video mode */
            GS_tvout_mode.w = saved_vinfo.w;
            GS_tvout_mode.h = saved_vinfo.h;
            GS_tvout_modes[j++] = &GS_tvout_mode;
            GS_tvout_modes[j++] = NULL;

            /* Return the created list of modes */
            modes = GS_tvout_modes;
        }
        break;
    default:
        break;
    }
    return (modes);
}

/* Various screen update functions available */
static void GS_DMAFullUpdate (_THIS, int numrects, SDL_Rect * rects);

static SDL_Surface *
GS_SetVideoMode (_THIS, SDL_Surface * current,
                 int width, int height, int bpp, Uint32 flags)
{
    struct ps2_screeninfo vinfo;

    /* Set the terminal into graphics mode */
    if (GS_EnterGraphicsMode (this) < 0) {
        return (NULL);
    }

    /* Set the video mode and get the final screen format */
    if (ioctl (console_fd, PS2IOC_GSCREENINFO, &vinfo) < 0) {
        SDL_SetError ("Couldn't get console screen info");
        return (NULL);
    }
    if ((vinfo.w != width) || (vinfo.h != height) ||
        (GS_pixelmasks[vinfo.psm].bpp != bpp)) {
        /* If we're not in VESA mode, we have to scale resolution */
        if (saved_vinfo.mode == PS2_GS_VESA) {
            switch (width) {
            case 640:
                vinfo.res = PS2_GS_640x480;
                break;
            case 800:
                vinfo.res = PS2_GS_800x600;
                break;
            case 1024:
                vinfo.res = PS2_GS_1024x768;
                break;
            case 1280:
                vinfo.res = PS2_GS_1280x1024;
                break;
            default:
                SDL_SetError ("Unsupported resolution: %dx%d\n",
                              width, height);
                return (NULL);
            }
            vinfo.res |= (PS2_GS_75Hz << 8);
            vinfo.w = width;
            vinfo.h = height;
        }
        vinfo.fbp = 0;
        vinfo.psm = GS_formatmap[bpp / 8];
        if (vinfo.psm < 0) {
            SDL_SetError ("Unsupported depth: %d bpp\n", bpp);
            return (NULL);
        }
        if (ioctl (console_fd, PS2IOC_SSCREENINFO, &vinfo) < 0) {
            SDL_SetError ("Couldn't set console screen info");
            return (NULL);
        }

        /* Unmap the previous DMA buffer */
        if (mapped_mem) {
            munmap (mapped_mem, mapped_len);
            mapped_mem = NULL;
        }
    }
    if (!SDL_ReallocFormat (current, GS_pixelmasks[vinfo.psm].bpp,
                            GS_pixelmasks[vinfo.psm].r,
                            GS_pixelmasks[vinfo.psm].g,
                            GS_pixelmasks[vinfo.psm].b, 0)) {
        return (NULL);
    }

    /* Set up the new mode framebuffer */
    current->flags = SDL_FULLSCREEN;
    current->w = width;
    current->h = height;
    current->pitch = SDL_CalculatePitch (current);

    /* Memory map the DMA area for block memory transfer */
    if (!mapped_mem) {
        pixels_len = height * current->pitch;
        mapped_len = pixels_len +
            /* Screen update DMA command area */
            sizeof (head_tags) + ((2 * MAXTAGS) * 16);
        if (saved_vinfo.mode != PS2_GS_VESA) {
            mapped_len += sizeof (tex_tags) + sizeof (scale_tags);
        }
        mapped_mem = mmap (0, mapped_len, PROT_READ | PROT_WRITE,
                           MAP_SHARED, memory_fd, 0);
        if (mapped_mem == MAP_FAILED) {
            SDL_SetError ("Unable to map %d bytes for DMA", mapped_len);
            mapped_mem = NULL;
            return (NULL);
        }

        /* Set up the entire screen for DMA transfer */
        screen_image.ptr = mapped_mem;
        screen_image.fbp = 0;
        screen_image.fbw = (vinfo.w + 63) / 64;
        screen_image.psm = vinfo.psm;
        screen_image.x = 0;
        if (vinfo.h == height) {
            screen_image.y = 0;
        } else {
            /* Put image offscreen and scale to screen height */
            screen_image.y = vinfo.h;
        }
        screen_image.w = current->w;
        screen_image.h = current->h;

        /* get screen image data size (qword aligned) */
        screen_image_size = (screen_image.w * screen_image.h);
        switch (screen_image.psm) {
        case PS2_GS_PSMCT32:
            screen_image_size *= 4;
            break;
        case PS2_GS_PSMCT24:
            screen_image_size *= 3;
            break;
        case PS2_GS_PSMCT16:
            screen_image_size *= 2;
            break;
        }
        screen_image_size = (screen_image_size + 15) & ~15;

        /* Set up the memory for screen update DMA commands */
        head_tags_mem = (unsigned long long *) (mapped_mem + pixels_len);
        image_tags_mem = (unsigned long long *)
            ((caddr_t) head_tags_mem + sizeof (head_tags));
        SDL_memcpy (head_tags_mem, head_tags, sizeof (head_tags));
        if (saved_vinfo.mode != PS2_GS_VESA) {
            tex_tags_mem = (unsigned long long *)
                ((caddr_t) image_tags_mem + ((2 * MAXTAGS) * 16));
            scale_tags_mem = (unsigned long long *)
                ((caddr_t) tex_tags_mem + sizeof (tex_tags));
            SDL_memcpy (tex_tags_mem, tex_tags, sizeof (tex_tags));
            tex_tags_mem[2] =
                (vinfo.h * vinfo.w) / 64 +
                ((unsigned long long) screen_image.fbw << 14) +
                ((unsigned long long) screen_image.psm << 20) +
                ((unsigned long long) power_of_2 (screen_image.w) << 26) +
                ((unsigned long long) power_of_2 (screen_image.h) << 30) +
                ((unsigned long long) 1 << 34) +
                ((unsigned long long) 1 << 35);
            SDL_memcpy (scale_tags_mem, scale_tags, sizeof (scale_tags));
            scale_tags_mem[8] =
                ((unsigned long long) screen_image.w * 16) +
                (((unsigned long long) screen_image.h * 16) << 16);
            scale_tags_mem[10] =
                ((unsigned long long) vinfo.w * 16) +
                (((unsigned long long) vinfo.h * 16) << 16);
        }
    }
    current->pixels = NULL;
    if (SDL_getenv ("SDL_FULLSCREEN_UPDATE")) {
        /* Correct semantics */
        current->flags |= SDL_ASYNCBLIT;
    } else {
        /* We lie here - the screen memory isn't really the visible
           display memory and still requires an update, but this
           has the desired effect for most applications.
         */
        current->flags |= SDL_HWSURFACE;
    }

    /* Set the update rectangle function */
    this->UpdateRects = GS_DMAFullUpdate;

    /* We're done */
    return (current);
}

/* We don't support hardware surfaces yet */
static int
GS_AllocHWSurface (_THIS, SDL_Surface * surface)
{
    return (-1);
}
static void
GS_FreeHWSurface (_THIS, SDL_Surface * surface)
{
    return;
}
static int
GS_LockHWSurface (_THIS, SDL_Surface * surface)
{
    if (surface == this->screen) {
        /* Since mouse motion affects 'pixels', lock it */
        SDL_LockCursor ();

        /* Make sure any pending DMA has completed */
        if (dma_pending) {
            ioctl (console_fd, PS2IOC_SENDQCT, 1);
            dma_pending = 0;
        }

        /* If the cursor is drawn on the DMA area, remove it */
        if (cursor_drawn) {
            surface->pixels = mapped_mem + surface->offset;
            SDL_EraseCursorNoLock (this->screen);
            cursor_drawn = 0;
        }

        /* Set the surface pixels to the base of the DMA area */
        surface->pixels = mapped_mem;

        /* We're finished! */
        SDL_UnlockCursor ();
    }
    return (0);
}
static void
GS_UnlockHWSurface (_THIS, SDL_Surface * surface)
{
    if (surface == this->screen) {
        /* Since mouse motion affects 'pixels', lock it */
        SDL_LockCursor ();
        surface->pixels = NULL;
        SDL_UnlockCursor ();
    }
}

static void
GS_DMAFullUpdate (_THIS, int numrects, SDL_Rect * rects)
{
    /* Lock so we aren't interrupted by a mouse update */
    SDL_LockCursor ();

    /* Make sure any pending DMA has completed */
    if (dma_pending) {
        ioctl (console_fd, PS2IOC_SENDQCT, 1);
        dma_pending = 0;
    }

    /* If the mouse is visible, draw it on the DMA area */
    if ((SDL_cursorstate & CURSOR_VISIBLE) && !cursor_drawn) {
        this->screen->pixels = mapped_mem + this->screen->offset;
        SDL_DrawCursorNoLock (this->screen);
        this->screen->pixels = NULL;
        cursor_drawn = 1;
    }

    /* Put the image onto the screen */
    loadimage_nonblock (console_fd,
                        &screen_image, screen_image_size,
                        head_tags_mem, image_tags_mem);
    if (screen_image.y > 0) {
        /* Need to scale offscreen image to TV output */
        ioctl (console_fd, PS2IOC_SENDQCT, 1);
        dma_pending = 0;
        scaleimage_nonblock (console_fd, tex_tags_mem, scale_tags_mem);
    } else {
        dma_pending = 1;
    }

    /* We're finished! */
    SDL_UnlockCursor ();
}

static int
GS_SetColors (_THIS, int firstcolor, int ncolors, SDL_Color * colors)
{
    return (0);
}

static void
GS_VideoQuit (_THIS)
{
    /* Close console and input file descriptors */
    if (console_fd > 0) {
        /* Unmap the video framebuffer */
        if (mapped_mem) {
            /* Unmap the video framebuffer */
            munmap (mapped_mem, mapped_len);
            mapped_mem = NULL;
        }
        close (memory_fd);

        /* Restore the original video mode */
        if (GS_InGraphicsMode (this)) {
            ioctl (console_fd, PS2IOC_SSCREENINFO, &saved_vinfo);
        }

        /* We're all done with the graphics device */
        close (console_fd);
        console_fd = -1;
    }
    GS_CloseMouse (this);
    GS_CloseKeyboard (this);
}

/* vi: set ts=4 sw=4 expandtab: */