/* 
  vo_ggi.c - General Graphics Interface (GGI) Renderer for MPlayer

  (C) Alex Beregszaszi <alex@naxine.org>
  
  Uses libGGI - http://www.ggi-project.org/
*/

#define DISP

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>

#include "config.h"
#include "video_out.h"
#include "video_out_internal.h"

#include "yuv2rgb.h"

#include <ggi/ggi.h>
#include "fastmemcpy.h"

LIBVO_EXTERN (ggi)

static vo_info_t vo_info = 
{
	"General Graphics Interface (GGI) output",
	"ggi",
	"Alex Beregszaszi <alex@naxine.org>",
	""
};

extern int verbose;

static char *ggi_output_name = NULL;
static ggi_visual_t ggi_vis;
static ggi_directbuffer *ggi_buffer;
static int bpp = 0;
static uint32_t virt_width;
static uint32_t virt_height;
static ggi_pixel white;
static ggi_pixel black;

static int ggi_setmode(uint32_t d_width, uint32_t d_height, int d_depth, int format)
{
    ggi_mode mode =
    {
	1,			/* frames */
	{ GGI_AUTO, GGI_AUTO },	/* visible */
	{ GGI_AUTO, GGI_AUTO },	/* virt */
	{ GGI_AUTO, GGI_AUTO },	/* size */
	GT_AUTO,		/* graphtype */
	{ GGI_AUTO, GGI_AUTO }	/* dots per pixel */
    };
    ggi_color pal[256];
    int depth;

    mode.visible.x = mode.virt.x = d_width;
    mode.visible.y = mode.virt.y = d_height;
    
    switch(d_depth)
    {
	case 1:
	    mode.graphtype = GT_1BIT;
	    depth = 1;
	    break;
	case 2:
	    mode.graphtype = GT_2BIT;
	    depth = 2;
	    break;
	case 4:
	    mode.graphtype = GT_4BIT;
	    depth = 4;
	    break;
	case 8:
	    mode.graphtype = GT_8BIT;
	    depth = 8;
	    break;
	case 15:
	    mode.graphtype = GT_15BIT;
	    depth = 15;
	    break;
	case 16:
	    mode.graphtype = GT_16BIT;
	    depth = 16;
	    break;
	case 24:
	    mode.graphtype = GT_24BIT;
	    depth = 24;
	    break;
	case 32:
	    mode.graphtype = GT_32BIT;
	    depth = 32;
	    break;
	default:
	    printf("ggi-setmode: unknown bit depth - using auto\n");
	    mode.graphtype = GT_AUTO;
    }
    
    ggiCheckMode(ggi_vis, &mode);
    
    if (ggiSetMode(ggi_vis, &mode) != 0)
    {
	printf("ggi-setmode: unable to set mode\n");
	ggiClose(ggi_vis);
	ggiExit();
	return(-1);
    }
    
    virt_width = mode.virt.x;
    virt_height = mode.virt.y;
    vo_screenwidth = mode.visible.x;
    vo_screenheight = mode.visible.y;
    vo_depthonscreen = depth;
    bpp = depth; /* byte per pixel = depth ? */


#ifdef get_db_info
    {
	const ggi_directbuffer *db = ggiDBGetBuffer(ggi_vis, 0);
	
	if (db)
	{
	    vo_depthonscreen = db->buffer.plb.pixelformat->depth;
	    bpp = db->buffer.plb.pixelformat->size / 8;
	}
    }
#endif

    if (GT_SCHEME(mode.graphtype) == GT_PALETTE)
    {
	ggiSetColorfulPalette(ggi_vis);
	ggiGetPalette(ggi_vis, 0, 1 << bpp, pal);
    }

    if (verbose)
	printf("ggi-setmode: %dx%d (virt: %dx%d) %d depth, %d bpp\n", vo_screenwidth,
	    vo_screenheight, virt_width, virt_height, vo_depthonscreen, bpp);

    return(0);
}


static uint32_t init(uint32_t width, uint32_t height, uint32_t d_width,
    uint32_t d_height, uint32_t fullscreen, char *title, uint32_t format)
{
    printf("\nggi: THIS DRIVER IS IN PRE-ALPHA PHASE, DO NOT USE!\n\n");
    if (ggiInit() != 0)
    {
	printf("ggi-init: unable to initialize GGI\n");
	return(-1);
    }
    
    if ((ggi_vis = ggiOpen(ggi_output_name)) == NULL)
    {
	printf("ggi-init: unable to open GGI for %s output\n",
	    (ggi_output_name == NULL) ? "default" : ggi_output_name);
	ggiExit();
	return(-1);
    }

    switch(format)
    {
	case IMGFMT_RGB8:
	    bpp = 8;
	    break;
	case IMGFMT_RGB15:
	    bpp = 15;
	    break;
	case IMGFMT_RGB16:
	    bpp = 16;
	    break;
	case IMGFMT_RGB24:
	    bpp = 24;
	    break;
	case IMGFMT_RGB32:
	    bpp = 32;
	    break;
	case IMGFMT_BGR8:
	    bpp = 8;
	    break;
	case IMGFMT_BGR15:
	    bpp = 15;
	    break;
	case IMGFMT_BGR16:
	    bpp = 16;
	    break;
	case IMGFMT_BGR24:
	    bpp = 24;
	    break;
	case IMGFMT_BGR32:
	    bpp = 32;
	    break;
	case IMGFMT_YV12: /* rgb, 24bit */
	    bpp = 16;
	    yuv2rgb_init(32/*screendepth*/, MODE_RGB);
	    break;
	default:
	    printf("ggi-init: no suitable image format found\n");
	    return(-1);
    }

    ggiSetFlags(ggi_vis, GGIFLAG_ASYNC);

    if (ggi_setmode(d_width, d_height, 32/*bpp*/, format) != 0)
    {
	printf("ggi-init: setmode returned with error\n");
	return(-1);
    }    

    ggi_buffer = (ggi_directbuffer *)ggiDBGetBuffer(ggi_vis, 0);

    if (ggi_buffer == NULL)
    {
	printf("ggi-init: double buffering is not available\n");
	ggiClose(ggi_vis);
	ggiExit();
	return(-1);
    }
	
    if (!(ggi_buffer->type & GGI_DB_SIMPLE_PLB) ||
	(ggi_buffer->page_size != 0) ||
	(ggi_buffer->write == NULL) ||
	(ggi_buffer->noaccess != 0) ||
	(ggi_buffer->align != 0))
    {
	printf("ggi-init: incorrect video memory type\n");
	ggiClose(ggi_vis);
	ggiExit();
	return(-1);
    }

    /* just for fun */
    {
	ggi_color col;

	/* set black */
	col.r = col.g = col.b = 0x0000;
	black = ggiMapColor(ggi_vis, &col);

	/* set white */
	col.r = col.g = col.b = 0xffff;
	white = ggiMapColor(ggi_vis, &col);

	ggiSetGCForeground(ggi_vis, white);
	ggiSetGCBackground(ggi_vis, black);
    }

    return(0);
}

static const vo_info_t* get_info(void)
{
    return &vo_info;
}

static uint32_t draw_frame(uint8_t *src[])
{
    uint8_t *ptr;
    int y, x, i;
    /*int bppmul = vo_depthonscreen/8;*/

    ggiResourceAcquire(ggi_buffer->resource, GGI_ACTYPE_WRITE);
    ggiSetDisplayFrame(ggi_vis, ggi_buffer->frame);
    ggiSetWriteFrame(ggi_vis, ggi_buffer->frame);
    
    ptr = ggi_buffer->write;
    
//    for (i = 1; i < 3; i++)
/*	for (x = 0; x < virt_width; x++)
	    for (y = 0; y < virt_height; y++)
		*ptr++ = src[0][x*virt_height+y];*/
    memcpy(ptr,src[0],virt_width*virt_height*(bpp/8));

    ggiPuts(ggi_vis, x/2, y-10, "MPlayer GGI");
    
    ggiResourceRelease(ggi_buffer->resource);
}

static void flip_page(void)
{
    check_events();
    ggiFlush(ggi_vis);
}

static uint32_t draw_slice(uint8_t *src[], int stride[], int w, int h,
    int x, int y)
{
    uint8_t *dst;

    dst = ggi_buffer->write + (virt_width * y + x) * (bpp/8);
    yuv2rgb(dst, src[0], src[1], src[2], w, h, virt_width*(bpp/8),
	stride[0], stride[1]);
    //draw_frame(dst);

//    dst = image_data + (virt_width * y + x) * (bpp/8);
//    yuv2rgb(dst, src[0], src[1], src[2], w, h, virt_width*(bpp/8),
//	stride[0], stride[1]);
    return(0);
}

static uint32_t query_format(uint32_t format)
{
    switch(format){
    case IMGFMT_YV12:
	return 1;
    case IMGFMT_RGB8:
    case IMGFMT_RGB15:
    case IMGFMT_RGB16:
    case IMGFMT_RGB24:
    case IMGFMT_RGB32:
    case IMGFMT_BGR8:
    case IMGFMT_BGR15:
    case IMGFMT_BGR16:
    case IMGFMT_BGR24:
    case IMGFMT_BGR32:
        return 1;
    }
    return 0;
}

static void uninit(void)
{
    ggiResourceRelease(ggi_buffer->resource);
    ggiClose(ggi_vis);
    ggiExit();
}

static void check_events(void)
{
/* add ggiPollEvent stuff */
}