/*

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"

/* DGA 2.0 based SDL video driver implementation.

*/

#include <stdio.h>

#include <X11/Xlib.h>

#include "../Xext/extensions/xf86dga.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_dgavideo.h"

#include "SDL_dgamouse_c.h"

#include "SDL_dgaevents_c.h"

/* get function pointers... */

#include "../x11/SDL_x11dyn.h"

/*#define DGA_DEBUG*/

/* Heheh we're using X11 event code */

extern void X11_SaveScreenSaver(Display *display, int *saved_timeout, BOOL *dpms);

extern void X11_DisableScreenSaver(Display *display);

extern void X11_RestoreScreenSaver(Display *display, int saved_timeout, BOOL dpms);

/* Initialization/Query functions */

static int DGA_VideoInit(_THIS, SDL_PixelFormat *vformat);

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

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

static int DGA_SetColors(_THIS, int firstcolor, int ncolors,

SDL_Color *colors);

static int DGA_SetGammaRamp(_THIS, Uint16 *ramp);

static void DGA_VideoQuit(_THIS);

/* Hardware surface functions */

static int DGA_InitHWSurfaces(_THIS, SDL_Surface *screen, Uint8 *base, int size);

static void DGA_FreeHWSurfaces(_THIS);

static int DGA_AllocHWSurface(_THIS, SDL_Surface *surface);

static int DGA_FillHWRect(_THIS, SDL_Surface *dst, SDL_Rect *rect, Uint32 color);

static int DGA_CheckHWBlit(_THIS, SDL_Surface *src, SDL_Surface *dst);

static int DGA_LockHWSurface(_THIS, SDL_Surface *surface);

static void DGA_UnlockHWSurface(_THIS, SDL_Surface *surface);

static void DGA_FreeHWSurface(_THIS, SDL_Surface *surface);

static int DGA_FlipHWSurface(_THIS, SDL_Surface *surface);

/* DGA driver bootstrap functions */

static int DGA_Available(void)

{

const char *display = NULL;

Display *dpy = NULL;

int available = 0;

/* The driver is available is available if the display is local

and the DGA 2.0+ extension is available, and we can map mem.

*/

if ( SDL_X11_LoadSymbols() ) {

if ( (SDL_strncmp(XDisplayName(display), ":", 1) == 0) ||

(SDL_strncmp(XDisplayName(display), "unix:", 5) == 0) ) {

dpy = XOpenDisplay(display);

if ( dpy ) {

int events, errors, major, minor;

if ( SDL_NAME(XDGAQueryExtension)(dpy, &events, &errors) &&

SDL_NAME(XDGAQueryVersion)(dpy, &major, &minor) ) {

int screen;

screen = DefaultScreen(dpy);

if ( (major >= 2) &&

SDL_NAME(XDGAOpenFramebuffer)(dpy, screen) ) {

available = 1;

SDL_NAME(XDGACloseFramebuffer)(dpy, screen);

}

}

XCloseDisplay(dpy);

}

}

SDL_X11_UnloadSymbols();

}

return(available);

}

static void DGA_DeleteDevice(SDL_VideoDevice *device)

{

if (device != NULL) {

SDL_free(device->hidden);

SDL_free(device);

SDL_X11_UnloadSymbols();

}

}

static SDL_VideoDevice *DGA_CreateDevice(int devindex)

{

SDL_VideoDevice *device = NULL;

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

if (SDL_X11_LoadSymbols()) {

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

if ( device ) {

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

device->hidden = (struct SDL_PrivateVideoData *)

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

}

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

SDL_OutOfMemory();

if ( device ) {

SDL_free(device);

}

SDL_X11_UnloadSymbols();

return(0);

}

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

/* Set the function pointers */

device->VideoInit = DGA_VideoInit;

device->ListModes = DGA_ListModes;

device->SetVideoMode = DGA_SetVideoMode;

device->SetColors = DGA_SetColors;

device->UpdateRects = NULL;

device->VideoQuit = DGA_VideoQuit;

device->AllocHWSurface = DGA_AllocHWSurface;

device->CheckHWBlit = DGA_CheckHWBlit;

device->FillHWRect = DGA_FillHWRect;

device->SetHWColorKey = NULL;

device->SetHWAlpha = NULL;

device->LockHWSurface = DGA_LockHWSurface;

device->UnlockHWSurface = DGA_UnlockHWSurface;

device->FlipHWSurface = DGA_FlipHWSurface;

device->FreeHWSurface = DGA_FreeHWSurface;

device->SetGammaRamp = DGA_SetGammaRamp;

device->GetGammaRamp = NULL;

device->SetCaption = NULL;

device->SetIcon = NULL;

device->IconifyWindow = NULL;

device->GrabInput = NULL;

device->GetWMInfo = NULL;

device->InitOSKeymap = DGA_InitOSKeymap;

device->PumpEvents = DGA_PumpEvents;

device->free = DGA_DeleteDevice;

}

return device;

}

VideoBootStrap DGA_bootstrap = {

"dga", "XFree86 DGA 2.0",

DGA_Available, DGA_CreateDevice

};

static int DGA_AddMode(_THIS, int bpp, int w, int h)

{

SDL_Rect *mode;

int i, index;

int next_mode;

/* Check to see if we already have this mode */

if ( bpp < 8 ) { /* Not supported */

return(0);

}

index = ((bpp+7)/8)-1;

if ( SDL_nummodes[index] > 0 ) {

mode = SDL_modelist[index][SDL_nummodes[index]-1];

if ( (mode->w == w) && (mode->h == h) ) {

return(0);

}

}

/* Set up the new video mode rectangle */

mode = (SDL_Rect *)SDL_malloc(sizeof *mode);

if ( mode == NULL ) {

SDL_OutOfMemory();

return(-1);

}

mode->x = 0;

mode->y = 0;

mode->w = w;

mode->h = h;

/* Allocate the new list of modes, and fill in the new mode */

next_mode = SDL_nummodes[index];

SDL_modelist[index] = (SDL_Rect **)

SDL_realloc(SDL_modelist[index], (1+next_mode+1)*sizeof(SDL_Rect *));

if ( SDL_modelist[index] == NULL ) {

SDL_OutOfMemory();

SDL_nummodes[index] = 0;

SDL_free(mode);

return(-1);

}

SDL_modelist[index][next_mode] = mode;

SDL_modelist[index][next_mode+1] = NULL;

SDL_nummodes[index]++;

return(0);

}

/* This whole function is a hack. :) */

static Uint32 get_video_size(_THIS)

{

/* This is a non-exported function from libXxf86dga.a */

extern unsigned char *SDL_NAME(XDGAGetMappedMemory)(int screen);

FILE *proc;

unsigned long mem;

unsigned start, stop;

char line[BUFSIZ];

Uint32 size;

mem = (unsigned long)SDL_NAME(XDGAGetMappedMemory)(DGA_Screen);

size = 0;

proc = fopen("/proc/self/maps", "r");

if ( proc ) {

while ( fgets(line, sizeof(line)-1, proc) ) {

SDL_sscanf(line, "%x-%x", &start, &stop);

if ( start == mem ) {

size = (Uint32)((stop-start)/1024);

break;

}

}

fclose(proc);

}

return(size);

}

#ifdef DGA_DEBUG

static void PrintMode(SDL_NAME(XDGAMode) *mode)

{

printf("Mode: %s (%dx%d) at %d bpp (%f refresh, %d pitch) num: %d\n",

mode->name,

mode->viewportWidth, mode->viewportHeight,

mode->depth == 24 ? mode->bitsPerPixel : mode->depth,

mode->verticalRefresh, mode->bytesPerScanline, mode->num);

printf("\tRGB: 0x%8.8x 0x%8.8x 0x%8.8x (%d - %s)\n",

mode->redMask, mode->greenMask, mode->blueMask,

mode->visualClass,

mode->visualClass == TrueColor ? "truecolor" :

mode->visualClass == DirectColor ? "directcolor" :

mode->visualClass == PseudoColor ? "pseudocolor" : "unknown");

printf("\tFlags: ");

if ( mode->flags & XDGAConcurrentAccess )

printf(" XDGAConcurrentAccess");

if ( mode->flags & XDGASolidFillRect )

printf(" XDGASolidFillRect");

if ( mode->flags & XDGABlitRect )

printf(" XDGABlitRect");

if ( mode->flags & XDGABlitTransRect )

printf(" XDGABlitTransRect");

if ( mode->flags & XDGAPixmap )

printf(" XDGAPixmap");

if ( mode->flags & XDGAInterlaced )

printf(" XDGAInterlaced");

if ( mode->flags & XDGADoublescan )

printf(" XDGADoublescan");

if ( mode->viewportFlags & XDGAFlipRetrace )

printf(" XDGAFlipRetrace");

if ( mode->viewportFlags & XDGAFlipImmediate )

printf(" XDGAFlipImmediate");

printf("\n");

}

#endif /* DGA_DEBUG */

static int cmpmodes(const void *va, const void *vb)

{

const SDL_NAME(XDGAMode) *a = (const SDL_NAME(XDGAMode) *)va;

const SDL_NAME(XDGAMode) *b = (const SDL_NAME(XDGAMode) *)vb;

if ( (a->viewportWidth == b->viewportWidth) &&

(b->viewportHeight == a->viewportHeight) ) {

/* Prefer 32 bpp over 24 bpp, 16 bpp over 15 bpp */

int a_bpp = a->depth == 24 ? a->bitsPerPixel : a->depth;

int b_bpp = b->depth == 24 ? b->bitsPerPixel : b->depth;

if ( a_bpp != b_bpp ) {

return b_bpp - a_bpp;

}

/* Prefer DirectColor visuals, for gamma support */

if ( a->visualClass == DirectColor && b->visualClass != DirectColor )

return -1;

if ( b->visualClass == DirectColor && a->visualClass != DirectColor )

return 1;

/* Maintain server refresh rate sorting */

return a->num - b->num;

} else if ( a->viewportWidth == b->viewportWidth ) {

return b->viewportHeight - a->viewportHeight;

} else {

return b->viewportWidth - a->viewportWidth;

}

}

static void UpdateHWInfo(_THIS, SDL_NAME(XDGAMode) *mode)

{

this->info.wm_available = 0;

this->info.hw_available = 1;

if ( mode->flags & XDGABlitRect ) {

this->info.blit_hw = 1;

} else {

this->info.blit_hw = 0;

}

if ( mode->flags & XDGABlitTransRect ) {

this->info.blit_hw_CC = 1;

} else {

this->info.blit_hw_CC = 0;

}

if ( mode->flags & XDGASolidFillRect ) {

this->info.blit_fill = 1;

} else {

this->info.blit_fill = 0;

}

this->info.video_mem = get_video_size(this);

}

static int DGA_VideoInit(_THIS, SDL_PixelFormat *vformat)

{

const char *display;

int event_base, error_base;

int major_version, minor_version;

Visual *visual;

SDL_NAME(XDGAMode) *modes;

int i, num_modes;

/* Open the X11 display */

display = NULL; /* Get it from DISPLAY environment variable */

DGA_Display = XOpenDisplay(display);

if ( DGA_Display == NULL ) {

SDL_SetError("Couldn't open X11 display");

return(-1);

}

/* Check for the DGA extension */

if ( ! SDL_NAME(XDGAQueryExtension)(DGA_Display, &event_base, &error_base) ||

! SDL_NAME(XDGAQueryVersion)(DGA_Display, &major_version, &minor_version) ) {

SDL_SetError("DGA extension not available");

XCloseDisplay(DGA_Display);

return(-1);

}

if ( major_version < 2 ) {

SDL_SetError("DGA driver requires DGA 2.0 or newer");

XCloseDisplay(DGA_Display);

return(-1);

}

DGA_event_base = event_base;

/* Determine the current screen size */

this->info.current_w = DisplayWidth(DGA_Display, DGA_Screen);

this->info.current_h = DisplayHeight(DGA_Display, DGA_Screen);

/* Determine the current screen depth */

visual = DefaultVisual(DGA_Display, DGA_Screen);

{

XPixmapFormatValues *pix_format;

int i, num_formats;

vformat->BitsPerPixel = DefaultDepth(DGA_Display, DGA_Screen);

pix_format = XListPixmapFormats(DGA_Display, &num_formats);

if ( pix_format == NULL ) {

SDL_SetError("Couldn't determine screen formats");

XCloseDisplay(DGA_Display);

return(-1);

}

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

if ( vformat->BitsPerPixel == pix_format[i].depth )

break;

}

if ( i != num_formats )

vformat->BitsPerPixel = pix_format[i].bits_per_pixel;

XFree((char *)pix_format);

}

if ( vformat->BitsPerPixel > 8 ) {

vformat->Rmask = visual->red_mask;

vformat->Gmask = visual->green_mask;

vformat->Bmask = visual->blue_mask;

}

/* Open access to the framebuffer */

if ( ! SDL_NAME(XDGAOpenFramebuffer)(DGA_Display, DGA_Screen) ) {

SDL_SetError("Unable to map the video memory");

XCloseDisplay(DGA_Display);

return(-1);

}

/* Save DPMS and screensaver settings */

X11_SaveScreenSaver(DGA_Display, &screensaver_timeout, &dpms_enabled);

X11_DisableScreenSaver(DGA_Display);

/* Query for the list of available video modes */

modes = SDL_NAME(XDGAQueryModes)(DGA_Display, DGA_Screen, &num_modes);

SDL_qsort(modes, num_modes, sizeof *modes, cmpmodes);

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

if ( ((modes[i].visualClass == PseudoColor) ||

(modes[i].visualClass == DirectColor) ||

(modes[i].visualClass == TrueColor)) &&

!(modes[i].flags & (XDGAInterlaced|XDGADoublescan)) ) {

#ifdef DGA_DEBUG

PrintMode(&modes[i]);

#endif

DGA_AddMode(this, modes[i].bitsPerPixel,

modes[i].viewportWidth,

modes[i].viewportHeight);

}

}

UpdateHWInfo(this, modes);

XFree(modes);

/* Create the hardware surface lock mutex */

hw_lock = SDL_CreateMutex();

if ( hw_lock == NULL ) {

SDL_SetError("Unable to create lock mutex");

DGA_VideoQuit(this);

return(-1);

}

#ifdef LOCK_DGA_DISPLAY

/* Create the event lock so we're thread-safe.. :-/ */

event_lock = SDL_CreateMutex();

#endif /* LOCK_DGA_DISPLAY */

/* We're done! */

return(0);

}

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

{

return(SDL_modelist[((format->BitsPerPixel+7)/8)-1]);

}

/* Various screen update functions available */

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

SDL_Surface *DGA_SetVideoMode(_THIS, SDL_Surface *current,

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

{

SDL_NAME(XDGAMode) *modes;

int i, num_modes;

SDL_NAME(XDGADevice) *mode;

int screen_len;

Uint8 *surfaces_mem;

int surfaces_len;

/* Free any previous colormap */

if ( DGA_colormap ) {

XFreeColormap(DGA_Display, DGA_colormap);

DGA_colormap = 0;

}

/* Search for a matching video mode */

modes = SDL_NAME(XDGAQueryModes)(DGA_Display, DGA_Screen, &num_modes);

SDL_qsort(modes, num_modes, sizeof *modes, cmpmodes);

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

int depth;

depth = modes[i].depth;

if ( depth == 24 ) { /* Distinguish between 24 and 32 bpp */

depth = modes[i].bitsPerPixel;

}

if ( (depth == bpp) &&

(modes[i].viewportWidth == width) &&

(modes[i].viewportHeight == height) &&

((modes[i].visualClass == PseudoColor) ||

(modes[i].visualClass == DirectColor) ||

(modes[i].visualClass == TrueColor)) &&

!(modes[i].flags & (XDGAInterlaced|XDGADoublescan)) ) {

break;

}

}

if ( i == num_modes ) {

SDL_SetError("No matching video mode found");

return(NULL);

}

#ifdef DGA_DEBUG

PrintMode(&modes[i]);

#endif

/* Set the video mode */

mode = SDL_NAME(XDGASetMode)(DGA_Display, DGA_Screen, modes[i].num);

XFree(modes);

if ( mode == NULL ) {

SDL_SetError("Unable to switch to requested mode");

return(NULL);

}

DGA_visualClass = mode->mode.visualClass;

memory_base = (Uint8 *)mode->data;

memory_pitch = mode->mode.bytesPerScanline;

/* Set up the new mode framebuffer */

current->flags = (SDL_FULLSCREEN|SDL_HWSURFACE);

current->w = mode->mode.viewportWidth;

current->h = mode->mode.viewportHeight;

current->pitch = memory_pitch;

current->pixels = memory_base;

if ( ! SDL_ReallocFormat(current, mode->mode.bitsPerPixel,

mode->mode.redMask,

mode->mode.greenMask,

mode->mode.blueMask, 0) ) {

return(NULL);

}

screen_len = current->h*current->pitch;

/* Create a colormap if necessary */

if ( (DGA_visualClass == PseudoColor) ||

(DGA_visualClass == DirectColor) ) {

DGA_colormap = SDL_NAME(XDGACreateColormap)(DGA_Display, DGA_Screen,

mode, AllocAll);

if ( DGA_visualClass == PseudoColor ) {

current->flags |= SDL_HWPALETTE;

} else {

/* Initialize the colormap to the identity mapping */

SDL_GetGammaRamp(0, 0, 0);

this->screen = current;

DGA_SetGammaRamp(this, this->gamma);

this->screen = NULL;

}

} else {

DGA_colormap = SDL_NAME(XDGACreateColormap)(DGA_Display, DGA_Screen,

mode, AllocNone);

}

SDL_NAME(XDGAInstallColormap)(DGA_Display, DGA_Screen, DGA_colormap);

/* Update the hardware capabilities */

UpdateHWInfo(this, &mode->mode);

/* Set up the information for hardware surfaces */

surfaces_mem = (Uint8 *)current->pixels + screen_len;

surfaces_len = (mode->mode.imageHeight*current->pitch - screen_len);

/* Update for double-buffering, if we can */

SDL_NAME(XDGASetViewport)(DGA_Display, DGA_Screen, 0, 0, XDGAFlipRetrace);

if ( flags & SDL_DOUBLEBUF ) {

if ( mode->mode.imageHeight >= (current->h*2) ) {

current->flags |= SDL_DOUBLEBUF;

flip_page = 0;

flip_yoffset[0] = 0;

flip_yoffset[1] = current->h;

flip_address[0] = memory_base;

flip_address[1] = memory_base+screen_len;

surfaces_mem += screen_len;

surfaces_len -= screen_len;

}

}

/* Allocate memory tracking for hardware surfaces */

DGA_FreeHWSurfaces(this);

if ( surfaces_len < 0 ) {

surfaces_len = 0;

}

DGA_InitHWSurfaces(this, current, surfaces_mem, surfaces_len);

/* Expose the back buffer as surface memory */

if ( current->flags & SDL_DOUBLEBUF ) {

this->screen = current;

DGA_FlipHWSurface(this, current);

this->screen = NULL;

}

/* Set the update rectangle function */

this->UpdateRects = DGA_DirectUpdate;

/* Enable mouse and keyboard support */

{ long input_mask;

input_mask = (KeyPressMask | KeyReleaseMask);

input_mask |= (ButtonPressMask | ButtonReleaseMask);

input_mask |= PointerMotionMask;

SDL_NAME(XDGASelectInput)(DGA_Display, DGA_Screen, input_mask);

}

/* We're done */

return(current);

}

#ifdef DGA_DEBUG

static void DGA_DumpHWSurfaces(_THIS)

{

vidmem_bucket *bucket;

printf("Memory left: %d (%d total)\n", surfaces_memleft, surfaces_memtotal);

printf("\n");

printf(" Base Size\n");

for ( bucket=&surfaces; bucket; bucket=bucket->next ) {

printf("Bucket: %p, %d (%s)\n", bucket->base, bucket->size, bucket->used ? "used" : "free");

if ( bucket->prev ) {

if ( bucket->base != bucket->prev->base+bucket->prev->size ) {

printf("Warning, corrupt bucket list! (prev)\n");

}

} else {

if ( bucket != &surfaces ) {

printf("Warning, corrupt bucket list! (!prev)\n");

}

}

if ( bucket->next ) {

if ( bucket->next->base != bucket->base+bucket->size ) {

printf("Warning, corrupt bucket list! (next)\n");

}

}

}

printf("\n");

}

#endif

static int DGA_InitHWSurfaces(_THIS, SDL_Surface *screen, Uint8 *base, int size)

{

vidmem_bucket *bucket;

surfaces_memtotal = size;

surfaces_memleft = size;

if ( surfaces_memleft > 0 ) {

bucket = (vidmem_bucket *)SDL_malloc(sizeof(*bucket));

if ( bucket == NULL ) {

SDL_OutOfMemory();

return(-1);

}

bucket->prev = &surfaces;

bucket->used = 0;

bucket->dirty = 0;

bucket->base = base;

bucket->size = size;

bucket->next = NULL;

} else {

bucket = NULL;

}

surfaces.prev = NULL;

surfaces.used = 1;

surfaces.dirty = 0;

surfaces.base = screen->pixels;

surfaces.size = (unsigned int)((long)base - (long)surfaces.base);

surfaces.next = bucket;

screen->hwdata = (struct private_hwdata *)&surfaces;

return(0);

}

static void DGA_FreeHWSurfaces(_THIS)

{

vidmem_bucket *bucket, *freeable;

bucket = surfaces.next;

while ( bucket ) {

freeable = bucket;

bucket = bucket->next;

SDL_free(freeable);

}

surfaces.next = NULL;

}

static __inline__ void DGA_AddBusySurface(SDL_Surface *surface)

{

((vidmem_bucket *)surface->hwdata)->dirty = 1;

}

static __inline__ int DGA_IsSurfaceBusy(SDL_Surface *surface)

{

return ((vidmem_bucket *)surface->hwdata)->dirty;

}

static __inline__ void DGA_WaitBusySurfaces(_THIS)

{

vidmem_bucket *bucket;

/* Wait for graphic operations to complete */

SDL_NAME(XDGASync)(DGA_Display, DGA_Screen);

/* Clear all surface dirty bits */

for ( bucket=&surfaces; bucket; bucket=bucket->next ) {

bucket->dirty = 0;

}

}

static int DGA_AllocHWSurface(_THIS, SDL_Surface *surface)

{

vidmem_bucket *bucket;

int size;

int extra;

int retval = 0;

/* Temporarily, we only allow surfaces the same width as display.

Some blitters require the pitch between two hardware surfaces

to be the same. Others have interesting alignment restrictions.

*/

if ( surface->pitch > SDL_VideoSurface->pitch ) {

SDL_SetError("Surface requested wider than screen");

return(-1);

}

surface->pitch = SDL_VideoSurface->pitch;

size = surface->h * surface->pitch;

#ifdef DGA_DEBUG

fprintf(stderr, "Allocating bucket of %d bytes\n", size);

#endif

LOCK_DISPLAY();

/* Quick check for available mem */

if ( size > surfaces_memleft ) {

SDL_SetError("Not enough video memory");

retval = -1;

goto done;

}

/* Search for an empty bucket big enough */

for ( bucket=&surfaces; bucket; bucket=bucket->next ) {

if ( ! bucket->used && (size <= bucket->size) ) {

break;

}

}

if ( bucket == NULL ) {

SDL_SetError("Video memory too fragmented");

retval = -1;

goto done;

}

/* Create a new bucket for left-over memory */

extra = (bucket->size - size);

if ( extra ) {

vidmem_bucket *newbucket;

#ifdef DGA_DEBUG

fprintf(stderr, "Adding new free bucket of %d bytes\n", extra);

#endif

newbucket = (vidmem_bucket *)SDL_malloc(sizeof(*newbucket));

if ( newbucket == NULL ) {

SDL_OutOfMemory();

retval = -1;

goto done;

}

newbucket->prev = bucket;

newbucket->used = 0;

newbucket->base = bucket->base+size;

newbucket->size = extra;

newbucket->next = bucket->next;

if ( bucket->next ) {

bucket->next->prev = newbucket;

}

bucket->next = newbucket;

}

/* Set the current bucket values and return it! */

bucket->used = 1;

bucket->size = size;

bucket->dirty = 0;

#ifdef DGA_DEBUG

fprintf(stderr, "Allocated %d bytes at %p\n", bucket->size, bucket->base);

#endif

surfaces_memleft -= size;

surface->flags |= SDL_HWSURFACE;

surface->pixels = bucket->base;

surface->hwdata = (struct private_hwdata *)bucket;

done:

UNLOCK_DISPLAY();

return(retval);

}

static void DGA_FreeHWSurface(_THIS, SDL_Surface *surface)

{

vidmem_bucket *bucket, *freeable;

/* Look for the bucket in the current list */

for ( bucket=&surfaces; bucket; bucket=bucket->next ) {

if ( bucket == (vidmem_bucket *)surface->hwdata ) {

break;

}

}

if ( bucket && bucket->used ) {

/* Add the memory back to the total */

#ifdef DGA_DEBUG

printf("Freeing bucket of %d bytes\n", bucket->size);

#endif

surfaces_memleft += bucket->size;

/* Can we merge the space with surrounding buckets? */

bucket->used = 0;

if ( bucket->next && ! bucket->next->used ) {

#ifdef DGA_DEBUG

printf("Merging with next bucket, for %d total bytes\n", bucket->size+bucket->next->size);

#endif

freeable = bucket->next;

bucket->size += bucket->next->size;

bucket->next = bucket->next->next;

if ( bucket->next ) {

bucket->next->prev = bucket;

}

SDL_free(freeable);

}

if ( bucket->prev && ! bucket->prev->used ) {

#ifdef DGA_DEBUG

printf("Merging with previous bucket, for %d total bytes\n", bucket->prev->size+bucket->size);

#endif

freeable = bucket;

bucket->prev->size += bucket->size;

bucket->prev->next = bucket->next;

if ( bucket->next ) {

bucket->next->prev = bucket->prev;

}

SDL_free(freeable);

}

}

surface->pixels = NULL;

surface->hwdata = NULL;

}

static __inline__ void DGA_dst_to_xy(_THIS, SDL_Surface *dst, int *x, int *y)

{

*x = (long)((Uint8 *)dst->pixels - memory_base)%memory_pitch;

*y = (long)((Uint8 *)dst->pixels - memory_base)/memory_pitch;

}

static int DGA_FillHWRect(_THIS, SDL_Surface *dst, SDL_Rect *rect, Uint32 color)

{

int x, y;

unsigned int w, h;

/* Don't fill the visible part of the screen, wait until flipped */

LOCK_DISPLAY();

if ( was_flipped && (dst == this->screen) ) {

while ( SDL_NAME(XDGAGetViewportStatus)(DGA_Display, DGA_Screen) )

/* Keep waiting for the hardware ... */ ;

was_flipped = 0;

}

DGA_dst_to_xy(this, dst, &x, &y);

x += rect->x;

y += rect->y;

w = rect->w;

h = rect->h;

#if 0

printf("Hardware accelerated rectangle fill: %dx%d at %d,%d\n", w, h, x, y);

#endif

SDL_NAME(XDGAFillRectangle)(DGA_Display, DGA_Screen, x, y, w, h, color);

if ( !(this->screen->flags & SDL_DOUBLEBUF) ) {

XFlush(DGA_Display);

}

DGA_AddBusySurface(dst);

UNLOCK_DISPLAY();

return(0);

}

static int HWAccelBlit(SDL_Surface *src, SDL_Rect *srcrect,

SDL_Surface *dst, SDL_Rect *dstrect)

{

SDL_VideoDevice *this;

int srcx, srcy;

int dstx, dsty;

unsigned int w, h;

this = current_video;

/* Don't blit to the visible part of the screen, wait until flipped */

LOCK_DISPLAY();

if ( was_flipped && (dst == this->screen) ) {

while ( SDL_NAME(XDGAGetViewportStatus)(DGA_Display, DGA_Screen) )

/* Keep waiting for the hardware ... */ ;

was_flipped = 0;

}

DGA_dst_to_xy(this, src, &srcx, &srcy);

srcx += srcrect->x;

srcy += srcrect->y;

DGA_dst_to_xy(this, dst, &dstx, &dsty);

dstx += dstrect->x;

dsty += dstrect->y;

w = srcrect->w;

h = srcrect->h;

#if 0

printf("Blitting %dx%d from %d,%d to %d,%d\n", w, h, srcx, srcy, dstx, dsty);

#endif

if ( (src->flags & SDL_SRCCOLORKEY) == SDL_SRCCOLORKEY ) {

SDL_NAME(XDGACopyTransparentArea)(DGA_Display, DGA_Screen,

srcx, srcy, w, h, dstx, dsty, src->format->colorkey);

} else {

SDL_NAME(XDGACopyArea)(DGA_Display, DGA_Screen,

srcx, srcy, w, h, dstx, dsty);

}

if ( !(this->screen->flags & SDL_DOUBLEBUF) ) {

XFlush(DGA_Display);

}

DGA_AddBusySurface(src);

DGA_AddBusySurface(dst);

UNLOCK_DISPLAY();

return(0);

}

static int DGA_CheckHWBlit(_THIS, SDL_Surface *src, SDL_Surface *dst)

{

int accelerated;

/* Set initial acceleration on */

src->flags |= SDL_HWACCEL;

/* Set the surface attributes */

if ( (src->flags & SDL_SRCALPHA) == SDL_SRCALPHA ) {

if ( ! this->info.blit_hw_A ) {

src->flags &= ~SDL_HWACCEL;

}

}

if ( (src->flags & SDL_SRCCOLORKEY) == SDL_SRCCOLORKEY ) {

if ( ! this->info.blit_hw_CC ) {

src->flags &= ~SDL_HWACCEL;

}

}

/* Check to see if final surface blit is accelerated */

accelerated = !!(src->flags & SDL_HWACCEL);

if ( accelerated ) {

src->map->hw_blit = HWAccelBlit;

}

return(accelerated);

}

static __inline__ void DGA_WaitFlip(_THIS)

{

if ( was_flipped ) {

while ( SDL_NAME(XDGAGetViewportStatus)(DGA_Display, DGA_Screen) )

/* Keep waiting for the hardware ... */ ;

was_flipped = 0;

}

}

static int DGA_LockHWSurface(_THIS, SDL_Surface *surface)

{

if ( surface == this->screen ) {

SDL_mutexP(hw_lock);

LOCK_DISPLAY();

if ( DGA_IsSurfaceBusy(surface) ) {

DGA_WaitBusySurfaces(this);

}

DGA_WaitFlip(this);

UNLOCK_DISPLAY();

} else {

if ( DGA_IsSurfaceBusy(surface) ) {

LOCK_DISPLAY();

DGA_WaitBusySurfaces(this);

UNLOCK_DISPLAY();

}

}

return(0);

}

static void DGA_UnlockHWSurface(_THIS, SDL_Surface *surface)

{

if ( surface == this->screen ) {

SDL_mutexV(hw_lock);

}

}

static int DGA_FlipHWSurface(_THIS, SDL_Surface *surface)

{

/* Wait for vertical retrace and then flip display */

LOCK_DISPLAY();

if ( DGA_IsSurfaceBusy(this->screen) ) {

DGA_WaitBusySurfaces(this);

}

DGA_WaitFlip(this);

SDL_NAME(XDGASetViewport)(DGA_Display, DGA_Screen,

0, flip_yoffset[flip_page], XDGAFlipRetrace);

XFlush(DGA_Display);

UNLOCK_DISPLAY();

was_flipped = 1;

flip_page = !flip_page;

surface->pixels = flip_address[flip_page];

return(0);

}

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

{

/* The application is already updating the visible video memory */

return;

}

static int DGA_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors)

{

int i;

XColor *xcmap;

/* This happens on initialization */

if ( ! DGA_colormap ) {

return(0);

}

xcmap = SDL_stack_alloc(XColor, ncolors);

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

xcmap[i].pixel = firstcolor + i;

xcmap[i].red = (colors[i].r<<8)|colors[i].r;

xcmap[i].green = (colors[i].g<<8)|colors[i].g;

xcmap[i].blue = (colors[i].b<<8)|colors[i].b;

xcmap[i].flags = (DoRed|DoGreen|DoBlue);

}

LOCK_DISPLAY();