/*

SDL - Simple DirectMedia Layer

Copyright (C) 2003 Sam Hocevar

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Library General Public

License as published by the Free Software Foundation; either

version 2 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

Library General Public License for more details.

You should have received a copy of the GNU Library General Public

License along with this library; if not, write to the Free

Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

Sam Hocevar

sam@zoy.org

*/

#ifdef SAVE_RCSID

static char rcsid =

"@(#) $Id: libsdl-1.2.11-libcaca.patch,v 1.1 2006/09/18 16:06:06 mr_bones_ Exp $";

#endif

/* libcaca based SDL video driver implementation.

*/

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <unistd.h>

#include <sys/stat.h>

#include "SDL.h"

#include "SDL_error.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_cacavideo.h"

#include "SDL_cacaevents_c.h"

#include <caca.h>

#ifdef CACA_API_VERSION_1

#include <caca0.h>

#endif

/* Initialization/Query functions */

static int Caca_VideoInit(_THIS, SDL_PixelFormat *vformat);

static SDL_Rect **Caca_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags);

static SDL_Surface *Caca_SetVideoMode(_THIS, SDL_Surface *current, int width, int height, int bpp, Uint32 flags);

static void Caca_VideoQuit(_THIS);

/* Hardware surface functions */

static int Caca_AllocHWSurface(_THIS, SDL_Surface *surface);

static int Caca_LockHWSurface(_THIS, SDL_Surface *surface);

static int Caca_FlipHWSurface(_THIS, SDL_Surface *surface);

static void Caca_UnlockHWSurface(_THIS, SDL_Surface *surface);

static void Caca_FreeHWSurface(_THIS, SDL_Surface *surface);

/* Cache the VideoDevice struct */

static struct SDL_VideoDevice *local_this;

/* libcaca driver bootstrap functions */

static int Caca_Available(void)

{

return 1; /* Always available ! */

}

static void Caca_DeleteDevice(SDL_VideoDevice *device)

{

free(device->hidden);

free(device);

}

static SDL_VideoDevice *Caca_CreateDevice(int devindex)

{

SDL_VideoDevice *device;

/* Initialize all variables that we clean on shutdown */

device = (SDL_VideoDevice *)malloc(sizeof(SDL_VideoDevice));

if ( device ) {

memset(device, 0, (sizeof *device));

device->hidden = (struct SDL_PrivateVideoData *)

malloc((sizeof *device->hidden));

}

if ( (device == NULL) || (device->hidden == NULL) ) {

SDL_OutOfMemory();

if ( device ) {

free(device);

}

return(0);

}

memset(device->hidden, 0, (sizeof *device->hidden));

/* Set the function pointers */

device->VideoInit = Caca_VideoInit;

device->ListModes = Caca_ListModes;

device->SetVideoMode = Caca_SetVideoMode;

device->CreateYUVOverlay = NULL;

device->SetColors = NULL;

device->UpdateRects = NULL;

device->VideoQuit = Caca_VideoQuit;

device->AllocHWSurface = Caca_AllocHWSurface;

device->CheckHWBlit = NULL;

device->FillHWRect = NULL;

device->SetHWColorKey = NULL;

device->SetHWAlpha = NULL;

device->LockHWSurface = Caca_LockHWSurface;

device->UnlockHWSurface = Caca_UnlockHWSurface;

device->FlipHWSurface = NULL;

device->FreeHWSurface = Caca_FreeHWSurface;

device->SetCaption = NULL;

device->SetIcon = NULL;

device->IconifyWindow = NULL;

device->GrabInput = NULL;

device->GetWMInfo = NULL;

device->InitOSKeymap = Caca_InitOSKeymap;

device->PumpEvents = Caca_PumpEvents;

device->free = Caca_DeleteDevice;

return device;

}

VideoBootStrap CACA_bootstrap = {

"caca", "Color ASCII Art Library",

Caca_Available, Caca_CreateDevice

};

int Caca_VideoInit(_THIS, SDL_PixelFormat *vformat)

{

int i;

/* Initialize all variables that we clean on shutdown */

for ( i=0; i<SDL_NUMMODES; ++i ) {

SDL_modelist[i] = malloc(sizeof(SDL_Rect));

SDL_modelist[i]->x = SDL_modelist[i]->y = 0;

}

/* Modes sorted largest to smallest */

SDL_modelist[0]->w = 1024; SDL_modelist[0]->h = 768;

SDL_modelist[1]->w = 800; SDL_modelist[1]->h = 600;

SDL_modelist[2]->w = 640; SDL_modelist[2]->h = 480;

SDL_modelist[3]->w = 320; SDL_modelist[3]->h = 400;

SDL_modelist[4]->w = 320; SDL_modelist[4]->h = 240;

SDL_modelist[5]->w = 320; SDL_modelist[5]->h = 200;

SDL_modelist[6] = NULL;

Caca_mutex = SDL_CreateMutex();

/* Initialize the library */

if ( caca_init() != 0 ) {

SDL_SetError("Unable to initialize libcaca");

return(-1);

}

/* Initialize private variables */

Caca_lastkey = 0;

Caca_bitmap = NULL;

Caca_buffer = NULL;

local_this = this;

/* Determine the screen depth (use default 8-bit depth) */

vformat->BitsPerPixel = 8;

vformat->BytesPerPixel = 1;

/* We're done! */

return(0);

}

SDL_Rect **Caca_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags)

{

if(format->BitsPerPixel != 8)

return NULL;

if ( flags & SDL_FULLSCREEN ) {

return SDL_modelist;

} else {

return (SDL_Rect **) -1;

}

}

/* Various screen update functions available */

static void Caca_DirectUpdate(_THIS, int numrects, SDL_Rect *rects);

SDL_Surface *Caca_SetVideoMode(_THIS, SDL_Surface *current,

int width, int height, int bpp, Uint32 flags)

{

if ( Caca_buffer ) {

free( Caca_buffer );

Caca_buffer = NULL;

}

if ( Caca_bitmap ) {

caca_free_bitmap( Caca_bitmap );

Caca_bitmap = NULL;

}

Caca_buffer = malloc(2 * ((width + 15) & ~15) * height);

if ( ! Caca_buffer ) {

SDL_SetError("Couldn't allocate buffer for requested mode");

return(NULL);

}

memset(Caca_buffer, 0, 2 * ((width + 15) & ~15) * height);

/* Allocate the new pixel format for the screen */

if ( ! SDL_ReallocFormat(current, 16, 0xf800, 0x07e0, 0x001f, 0) ) {

return(NULL);

}

/* Set up the new mode framebuffer */

current->flags = SDL_FULLSCREEN;

Caca_w = current->w = width;

Caca_h = current->h = height;

current->pitch = 2 * ((width + 15) & ~15);

current->pixels = Caca_buffer;

/* Create the libcaca bitmap */

Caca_bitmap = caca_create_bitmap( 16, width, height, current->pitch, 0xf800, 0x07e0, 0x001f, 0x0000 );

if ( ! Caca_bitmap ) {

SDL_SetError("Couldn't allocate libcaca bitmap");

return(NULL);

}

/* Set the blit function */

this->UpdateRects = Caca_DirectUpdate;

/* We're done */

return(current);

}

/* We don't actually allow hardware surfaces other than the main one */

static int Caca_AllocHWSurface(_THIS, SDL_Surface *surface)

{

return(-1);

}

static void Caca_FreeHWSurface(_THIS, SDL_Surface *surface)

{

return;

}

/* We need to wait for vertical retrace on page flipped displays */

static int Caca_LockHWSurface(_THIS, SDL_Surface *surface)

{

/* TODO ? */

return(0);

}

static void Caca_UnlockHWSurface(_THIS, SDL_Surface *surface)

{

return;

}

/* FIXME: How is this done with libcaca? */

static int Caca_FlipHWSurface(_THIS, SDL_Surface *surface)

{

SDL_mutexP(Caca_mutex);

caca_refresh();

SDL_mutexV(Caca_mutex);

return(0);

}

static void Caca_DirectUpdate(_THIS, int numrects, SDL_Rect *rects)

{

SDL_mutexP(Caca_mutex);

caca_draw_bitmap( 0, 0, caca_get_width() - 1, caca_get_height() - 1,

Caca_bitmap, Caca_buffer );

caca_refresh();

SDL_mutexV(Caca_mutex);

return;

}

/* Note: If we are terminated, this could be called in the middle of

another SDL video routine -- notably UpdateRects.

*/

void Caca_VideoQuit(_THIS)

{

int i;

/* Free video mode lists */

for ( i=0; i<SDL_NUMMODES; ++i ) {

if ( SDL_modelist[i] != NULL ) {

free(SDL_modelist[i]);

SDL_modelist[i] = NULL;

}

}

if ( Caca_bitmap ) {

caca_free_bitmap( Caca_bitmap );

Caca_bitmap = NULL;

}

caca_end();

SDL_DestroyMutex(Caca_mutex);

}