| /* |
| SDL - Simple DirectMedia Layer |
| Copyright (C) 1997-2004 Sam Lantinga |
| |
| 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 Lantinga |
| slouken@libsdl.org |
| */ |
| #include "SDL_config.h" |
| |
| /* |
| File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability |
| 23 March 2003 |
| |
| Implements RISC OS display device management. |
| Routines for full screen and wimp modes are split |
| into other source files. |
| */ |
| |
| #include "SDL_video.h" |
| #include "SDL_mouse.h" |
| #include "SDL_syswm.h" |
| #include "../SDL_sysvideo.h" |
| #include "../SDL_pixels_c.h" |
| #include "../../events/SDL_events_c.h" |
| |
| #include "SDL_riscostask.h" |
| #include "SDL_riscosvideo.h" |
| #include "SDL_riscosevents_c.h" |
| #include "SDL_riscosmouse_c.h" |
| |
| #include "kernel.h" |
| #include "swis.h" |
| |
| #define RISCOSVID_DRIVER_NAME "riscos" |
| |
| /* Initialization/Query functions */ |
| static int RISCOS_VideoInit(_THIS, SDL_PixelFormat *vformat); |
| static void RISCOS_VideoQuit(_THIS); |
| |
| static SDL_Rect **RISCOS_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags); |
| static SDL_Surface *RISCOS_SetVideoMode(_THIS, SDL_Surface *current, int width, int height, int bpp, Uint32 flags); |
| |
| int RISCOS_GetWmInfo(_THIS, SDL_SysWMinfo *info); |
| |
| int RISCOS_ToggleFullScreen(_THIS, int fullscreen); |
| /* Mouse checking */ |
| void RISCOS_CheckMouseMode(_THIS); |
| extern SDL_GrabMode RISCOS_GrabInput(_THIS, SDL_GrabMode mode); |
| |
| /* Fullscreen mode functions */ |
| extern SDL_Surface *FULLSCREEN_SetVideoMode(_THIS, SDL_Surface *current, int width, int height, int bpp, Uint32 flags); |
| extern void FULLSCREEN_BuildModeList(_THIS); |
| extern void FULLSCREEN_SetDeviceMode(_THIS); |
| extern int FULLSCREEN_ToggleFromWimp(_THIS); |
| |
| /* Wimp mode functions */ |
| extern SDL_Surface *WIMP_SetVideoMode(_THIS, SDL_Surface *current, int width, int height, int bpp, Uint32 flags); |
| extern void WIMP_DeleteWindow(_THIS); |
| extern int WIMP_ToggleFromFullScreen(_THIS); |
| |
| /* Hardware surface functions - common to WIMP and FULLSCREEN */ |
| static int RISCOS_AllocHWSurface(_THIS, SDL_Surface *surface); |
| static int RISCOS_LockHWSurface(_THIS, SDL_Surface *surface); |
| static void RISCOS_UnlockHWSurface(_THIS, SDL_Surface *surface); |
| static void RISCOS_FreeHWSurface(_THIS, SDL_Surface *surface); |
| |
| /* RISC OS driver bootstrap functions */ |
| |
| static int RISCOS_Available(void) |
| { |
| return(1); |
| } |
| |
| static void RISCOS_DeleteDevice(SDL_VideoDevice *device) |
| { |
| SDL_free(device->hidden); |
| SDL_free(device); |
| } |
| |
| static SDL_VideoDevice *RISCOS_CreateDevice(int devindex) |
| { |
| SDL_VideoDevice *device; |
| |
| /* Initialize all variables that we clean on shutdown */ |
| 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); |
| } |
| return(0); |
| } |
| SDL_memset(device->hidden, 0, (sizeof *device->hidden)); |
| |
| /* Set the function pointers */ |
| device->VideoInit = RISCOS_VideoInit; |
| device->VideoQuit = RISCOS_VideoQuit; |
| |
| device->ListModes = RISCOS_ListModes; |
| device->SetVideoMode = RISCOS_SetVideoMode; |
| device->CreateYUVOverlay = NULL; |
| device->AllocHWSurface = RISCOS_AllocHWSurface; |
| device->CheckHWBlit = NULL; |
| device->FillHWRect = NULL; |
| device->SetHWColorKey = NULL; |
| device->SetHWAlpha = NULL; |
| device->LockHWSurface = RISCOS_LockHWSurface; |
| device->UnlockHWSurface = RISCOS_UnlockHWSurface; |
| device->FreeHWSurface = RISCOS_FreeHWSurface; |
| |
| device->FreeWMCursor = RISCOS_FreeWMCursor; |
| device->CreateWMCursor = RISCOS_CreateWMCursor; |
| device->CheckMouseMode = RISCOS_CheckMouseMode; |
| device->GrabInput = RISCOS_GrabInput; |
| |
| device->InitOSKeymap = RISCOS_InitOSKeymap; |
| |
| device->GetWMInfo = RISCOS_GetWmInfo; |
| |
| device->free = RISCOS_DeleteDevice; |
| |
| /* Can't get Toggle screen to work if program starts up in Full screen mode so |
| disable it here and re-enable it when a wimp screen is chosen */ |
| device->ToggleFullScreen = NULL; /*RISCOS_ToggleFullScreen;*/ |
| |
| /* Set other entries for fullscreen mode */ |
| FULLSCREEN_SetDeviceMode(device); |
| |
| /* Mouse pointer needs to use the WIMP ShowCursor version so |
| that it doesn't modify the pointer until the SDL Window is |
| entered or the application goes full screen */ |
| device->ShowWMCursor = WIMP_ShowWMCursor; |
| |
| return device; |
| } |
| |
| VideoBootStrap RISCOS_bootstrap = { |
| RISCOSVID_DRIVER_NAME, "RISC OS video driver", |
| RISCOS_Available, RISCOS_CreateDevice |
| }; |
| |
| |
| int RISCOS_VideoInit(_THIS, SDL_PixelFormat *vformat) |
| { |
| _kernel_swi_regs regs; |
| int vars[4], vals[3]; |
| |
| if (RISCOS_InitTask() == 0) |
| { |
| SDL_SetError("Unable to start task"); |
| return 0; |
| } |
| |
| vars[0] = 9; /* Log base 2 bpp */ |
| vars[1] = 11; /* XWndLimit - num x pixels -1 */ |
| vars[2] = 12; /* YWndLimit - num y pixels -1 */ |
| vars[3] = -1; /* Terminate list */ |
| regs.r[0] = (int)vars; |
| regs.r[1] = (int)vals; |
| |
| _kernel_swi(OS_ReadVduVariables, ®s, ®s); |
| vformat->BitsPerPixel = (1 << vals[0]); |
| |
| /* Determine the current screen size */ |
| this->info.current_w = vals[1] + 1; |
| this->info.current_h = vals[2] + 1; |
| |
| /* Minimum bpp for SDL is 8 */ |
| if (vformat->BitsPerPixel < 8) vformat->BitsPerPixel = 8; |
| |
| |
| switch (vformat->BitsPerPixel) |
| { |
| case 15: |
| case 16: |
| vformat->Bmask = 0x00007c00; |
| vformat->Gmask = 0x000003e0; |
| vformat->Rmask = 0x0000001f; |
| vformat->BitsPerPixel = 16; /* SDL wants actual number of bits used */ |
| vformat->BytesPerPixel = 2; |
| break; |
| |
| case 24: |
| case 32: |
| vformat->Bmask = 0x00ff0000; |
| vformat->Gmask = 0x0000ff00; |
| vformat->Rmask = 0x000000ff; |
| vformat->BytesPerPixel = 4; |
| break; |
| |
| default: |
| vformat->Bmask = 0; |
| vformat->Gmask = 0; |
| vformat->Rmask = 0; |
| vformat->BytesPerPixel = 1; |
| break; |
| } |
| |
| /* Fill in some window manager capabilities */ |
| this->info.wm_available = 1; |
| |
| /* We're done! */ |
| return(0); |
| } |
| |
| /* Note: If we are terminated, this could be called in the middle of |
| another SDL video routine -- notably UpdateRects. |
| */ |
| void RISCOS_VideoQuit(_THIS) |
| { |
| RISCOS_ExitTask(); |
| |
| if (this->hidden->alloc_bank) SDL_free(this->hidden->alloc_bank); |
| this->hidden->alloc_bank = 0; |
| } |
| |
| |
| SDL_Rect **RISCOS_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags) |
| { |
| if (flags & SDL_FULLSCREEN) |
| { |
| /* Build mode list when first required. */ |
| if (SDL_nummodes[0] == 0) FULLSCREEN_BuildModeList(this); |
| |
| return(SDL_modelist[((format->BitsPerPixel+7)/8)-1]); |
| } else |
| return (SDL_Rect **)-1; |
| } |
| |
| |
| /* Set up video mode */ |
| SDL_Surface *RISCOS_SetVideoMode(_THIS, SDL_Surface *current, |
| int width, int height, int bpp, Uint32 flags) |
| { |
| if (flags & SDL_FULLSCREEN) |
| { |
| RISCOS_StoreWimpMode(); |
| /* Dump wimp window on switch to full screen */ |
| if (this->hidden->window_handle) WIMP_DeleteWindow(this); |
| |
| return FULLSCREEN_SetVideoMode(this, current, width, height, bpp, flags); |
| } else |
| { |
| RISCOS_RestoreWimpMode(); |
| return WIMP_SetVideoMode(this, current, width, height, bpp, flags); |
| } |
| } |
| |
| |
| /* We don't actually allow hardware surfaces other than the main one */ |
| static int RISCOS_AllocHWSurface(_THIS, SDL_Surface *surface) |
| { |
| return(-1); |
| } |
| static void RISCOS_FreeHWSurface(_THIS, SDL_Surface *surface) |
| { |
| return; |
| } |
| |
| /* We need to wait for vertical retrace on page flipped displays */ |
| static int RISCOS_LockHWSurface(_THIS, SDL_Surface *surface) |
| { |
| return(0); |
| } |
| |
| static void RISCOS_UnlockHWSurface(_THIS, SDL_Surface *surface) |
| { |
| return; |
| } |
| |
| |
| int RISCOS_GetWmInfo(_THIS, SDL_SysWMinfo *info) |
| { |
| SDL_VERSION(&(info->version)); |
| info->wimpVersion = RISCOS_GetWimpVersion(); |
| info->taskHandle = RISCOS_GetTaskHandle(); |
| info->window = this->hidden->window_handle; |
| |
| return 1; |
| } |
| /* Toggle full screen mode. |
| Returns 1 if successful otherwise 0 |
| */ |
| |
| int RISCOS_ToggleFullScreen(_THIS, int fullscreen) |
| { |
| if (fullscreen) |
| { |
| return FULLSCREEN_ToggleFromWimp(this); |
| } else |
| { |
| return WIMP_ToggleFromFullScreen(this); |
| } |
| |
| return 0; |
| } |
| |