sdl-ios-xcode: src/video/riscos/SDL

annotate src/video/riscos/SDL_riscosvideo.c @ 3293:0d60bdebed39

Fixed bug #674 Matej 2009-01-08 09:25:34 PST Hello, I maintain a cross-platform project that uses SDL. One of the users who runs OSX has told me that he has problems with linking to SDL due to missing -framework option. I think that the problem is because of this: 'sdl-config --libs' outputs '-L/opt/local/lib -lSDLmain -lSDL -Wl,-framework,Cocoa' All the options are passed to the linker except the last one. I think that the good output should be just: '-L/opt/local/lib -lSDLmain -lSDL -framework Cocoa' since those options (--libs) are passed to the linker, so the '-Wl' option is redundant and possibly harmful in this very case I use autotools with libtool to do the build... Regards, Matej

author	Sam Lantinga <slouken@libsdl.org>
date	Mon, 21 Sep 2009 10:23:19 +0000
parents	99210400e8b9
children	f7b03b6838cb

rev	line source
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1 /*
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
2859 99210400e8b9 Updated copyright date Sam Lantinga <slouken@libsdl.org> parents: 2735 diff changeset	3 Copyright (C) 1997-2009 Sam Lantinga
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	4
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	6 modify it under the terms of the GNU Library General Public
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	8 version 2 of the License, or (at your option) any later version.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	9
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	13 Library General Public License for more details.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	14
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	15 You should have received a copy of the GNU Library General Public
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	16 License along with this library; if not, write to the Free
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	18
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	19 Sam Lantinga
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1208 diff changeset	20 slouken@libsdl.org
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	21 */
1402 d910939febfa Use consistent identifiers for the various platforms we support. Sam Lantinga <slouken@libsdl.org> parents: 1361 diff changeset	22 #include "SDL_config.h"
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	23
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	24 /*
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	25 File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	26 23 March 2003
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	27
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	28 Implements RISC OS display device management.
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	29 Routines for full screen and wimp modes are split
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	30 into other source files.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	32
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	33 #include "SDL_video.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 #include "SDL_mouse.h"
1358 c71e05b4dc2e More header massaging... works great on Windows. ;-) Sam Lantinga <slouken@libsdl.org> parents: 1338 diff changeset	35 #include "SDL_syswm.h"
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	36 #include "../SDL_sysvideo.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	37 #include "../SDL_pixels_c.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	38 #include "../../events/SDL_events_c.h"
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	39
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	40 #include "SDL_riscostask.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	41 #include "SDL_riscosvideo.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 #include "SDL_riscosevents_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43 #include "SDL_riscosmouse_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	44
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45 #include "kernel.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	46 #include "swis.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	47
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	48 #define RISCOSVID_DRIVER_NAME "riscos"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	49
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	50 /* Initialization/Query functions */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	51 static int RISCOS_VideoInit(_THIS, SDL_PixelFormat * vformat);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52 static void RISCOS_VideoQuit(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	53
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	54 static SDL_Rect *RISCOS_ListModes(_THIS, SDL_PixelFormat format,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	55 Uint32 flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	56 static SDL_Surface RISCOS_SetVideoMode(_THIS, SDL_Surface current,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	57 int width, int height, int bpp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	58 Uint32 flags);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	59
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	60 int RISCOS_GetWmInfo(_THIS, SDL_SysWMinfo * info);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	61
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	62 int RISCOS_ToggleFullScreen(_THIS, int fullscreen);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63 /* Mouse checking */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	64 void RISCOS_CheckMouseMode(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	65 extern SDL_GrabMode RISCOS_GrabInput(_THIS, SDL_GrabMode mode);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	66
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	67 /* Fullscreen mode functions */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	68 extern SDL_Surface FULLSCREEN_SetVideoMode(_THIS, SDL_Surface current,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	69 int width, int height, int bpp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	70 Uint32 flags);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	71 extern void FULLSCREEN_BuildModeList(_THIS);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	72 extern void FULLSCREEN_SetDeviceMode(_THIS);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	73 extern int FULLSCREEN_ToggleFromWimp(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	74
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	75 /* Wimp mode functions */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	76 extern SDL_Surface WIMP_SetVideoMode(_THIS, SDL_Surface current,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	77 int width, int height, int bpp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	78 Uint32 flags);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	79 extern void WIMP_DeleteWindow(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	80 extern int WIMP_ToggleFromFullScreen(_THIS);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	81
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	82 /* Hardware surface functions - common to WIMP and FULLSCREEN */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	83 static int RISCOS_AllocHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	84 static int RISCOS_LockHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	85 static void RISCOS_UnlockHWSurface(_THIS, SDL_Surface * surface);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	86 static void RISCOS_FreeHWSurface(_THIS, SDL_Surface * surface);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	87
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	88 /* RISC OS driver bootstrap functions */
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	89
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	90 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	91 RISCOS_Available(void)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	92 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	93 return (1);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	94 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	95
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	96 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	97 RISCOS_DeleteDevice(SDL_VideoDevice * device)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	98 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	99 SDL_free(device->hidden);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	100 SDL_free(device);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	101 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	102
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	103 static SDL_VideoDevice *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	104 RISCOS_CreateDevice(int devindex)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	105 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	106 SDL_VideoDevice *device;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	107
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	108 /* Initialize all variables that we clean on shutdown */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	109 device = (SDL_VideoDevice *) SDL_malloc(sizeof(SDL_VideoDevice));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	110 if (device) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	111 SDL_memset(device, 0, (sizeof *device));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	112 device->hidden = (struct SDL_PrivateVideoData *)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	113 SDL_malloc((sizeof *device->hidden));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	114 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	115 if ((device == NULL) \|\| (device->hidden == NULL)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	116 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	117 if (device) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	118 SDL_free(device);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	119 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	120 return (0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	121 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	122 SDL_memset(device->hidden, 0, (sizeof *device->hidden));
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	123
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	124 /* Set the function pointers */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	125 device->VideoInit = RISCOS_VideoInit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	126 device->VideoQuit = RISCOS_VideoQuit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	127
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	128 device->ListModes = RISCOS_ListModes;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	129 device->SetVideoMode = RISCOS_SetVideoMode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	130 device->CreateYUVOverlay = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	131 device->AllocHWSurface = RISCOS_AllocHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	132 device->CheckHWBlit = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	133 device->FillHWRect = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	134 device->SetHWColorKey = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	135 device->SetHWAlpha = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	136 device->LockHWSurface = RISCOS_LockHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	137 device->UnlockHWSurface = RISCOS_UnlockHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	138 device->FreeHWSurface = RISCOS_FreeHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	139
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	140 device->FreeWMCursor = RISCOS_FreeWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	141 device->CreateWMCursor = RISCOS_CreateWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	142 device->CheckMouseMode = RISCOS_CheckMouseMode;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	143 device->GrabInput = RISCOS_GrabInput;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	144
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	145 device->InitOSKeymap = RISCOS_InitOSKeymap;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	146
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	147 device->GetWMInfo = RISCOS_GetWmInfo;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	148
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	149 device->free = RISCOS_DeleteDevice;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	150
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	151 /* Can't get Toggle screen to work if program starts up in Full screen mode so
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	152 disable it here and re-enable it when a wimp screen is chosen */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	153 device->ToggleFullScreen = NULL; /RISCOS_ToggleFullScreen; /
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	154
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	155 /* Set other entries for fullscreen mode */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	156 FULLSCREEN_SetDeviceMode(device);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	157
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	158 /* Mouse pointer needs to use the WIMP ShowCursor version so
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	159 that it doesn't modify the pointer until the SDL Window is
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	160 entered or the application goes full screen */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	161 device->ShowWMCursor = WIMP_ShowWMCursor;
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	162
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	163 return device;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	164 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	165
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	166 VideoBootStrap RISCOS_bootstrap = {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	167 RISCOSVID_DRIVER_NAME, "RISC OS video driver",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	168 RISCOS_Available, RISCOS_CreateDevice
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	169 };
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	170
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	171
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	172 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	173 RISCOS_VideoInit(_THIS, SDL_PixelFormat * vformat)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	174 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	175 _kernel_swi_regs regs;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	176 int vars[4], vals[3];
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	177
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	178 if (RISCOS_InitTask() == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	179 SDL_SetError("Unable to start task");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	180 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	181 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	182
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	183 vars[0] = 9; /* Log base 2 bpp */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	184 vars[1] = 11; /* XWndLimit - num x pixels -1 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	185 vars[2] = 12; /* YWndLimit - num y pixels -1 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	186 vars[3] = -1; /* Terminate list */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	187 regs.r[0] = (int) vars;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	188 regs.r[1] = (int) vals;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	189
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	190 _kernel_swi(OS_ReadVduVariables, &regs, &regs);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	191 vformat->BitsPerPixel = (1 << vals[0]);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	192
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	193 /* Determine the current screen size */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	194 this->info.current_w = vals[1] + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	195 this->info.current_h = vals[2] + 1;
1545 8d9bb0cf2c2a Added current_w and current_h to the SDL_VideoInfo structure, which is set to the desktop resolution during video intialization, and then set to the current resolution when a video mode is set. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	196
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	197 /* Minimum bpp for SDL is 8 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	198 if (vformat->BitsPerPixel < 8)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	199 vformat->BitsPerPixel = 8;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	200
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	201
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	202 switch (vformat->BitsPerPixel) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	203 case 15:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	204 case 16:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	205 vformat->Bmask = 0x00007c00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	206 vformat->Gmask = 0x000003e0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	207 vformat->Rmask = 0x0000001f;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	208 vformat->BitsPerPixel = 16; /* SDL wants actual number of bits used */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	209 vformat->BytesPerPixel = 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	210 break;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	211
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	212 case 24:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	213 case 32:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	214 vformat->Bmask = 0x00ff0000;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	215 vformat->Gmask = 0x0000ff00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	216 vformat->Rmask = 0x000000ff;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	217 vformat->BytesPerPixel = 4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	218 break;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	219
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	220 default:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	221 vformat->Bmask = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	222 vformat->Gmask = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	223 vformat->Rmask = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	224 vformat->BytesPerPixel = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	225 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	226 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	227
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	228 /* Fill in some window manager capabilities */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	229 this->info.wm_available = 1;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	230
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	231 /* We're done! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	232 return (0);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	233 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	234
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	235 /* Note: If we are terminated, this could be called in the middle of
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	236 another SDL video routine -- notably UpdateRects.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	237 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	238 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	239 RISCOS_VideoQuit(_THIS)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	240 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	241 RISCOS_ExitTask();
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	242
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	243 if (this->hidden->alloc_bank)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	244 SDL_free(this->hidden->alloc_bank);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	245 this->hidden->alloc_bank = 0;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	246 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	247
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	248
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	249 SDL_Rect **
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	250 RISCOS_ListModes(_THIS, SDL_PixelFormat * format, Uint32 flags)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	251 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	252 if (flags & SDL_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	253 /* Build mode list when first required. */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	254 if (SDL_nummodes[0] == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	255 FULLSCREEN_BuildModeList(this);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	256
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	257 return (SDL_modelist[((format->BitsPerPixel + 7) / 8) - 1]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	258 } else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	259 return (SDL_Rect **) - 1;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	260 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	261
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	262
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	263 /* Set up video mode */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	264 SDL_Surface *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	265 RISCOS_SetVideoMode(_THIS, SDL_Surface * current,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	266 int width, int height, int bpp, Uint32 flags)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	267 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	268 if (flags & SDL_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	269 RISCOS_StoreWimpMode();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	270 /* Dump wimp window on switch to full screen */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	271 if (this->hidden->window_handle)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	272 WIMP_DeleteWindow(this);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	273
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	274 return FULLSCREEN_SetVideoMode(this, current, width, height, bpp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	275 flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	276 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	277 RISCOS_RestoreWimpMode();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	278 return WIMP_SetVideoMode(this, current, width, height, bpp, flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	279 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	280 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	281
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	282
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	283 /* We don't actually allow hardware surfaces other than the main one */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	284 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	285 RISCOS_AllocHWSurface(_THIS, SDL_Surface * surface)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	286 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	287 return (-1);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	288 }
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	289
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	290 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	291 RISCOS_FreeHWSurface(_THIS, SDL_Surface * surface)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	292 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	293 return;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	294 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	295
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	296 /* We need to wait for vertical retrace on page flipped displays */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	297 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	298 RISCOS_LockHWSurface(_THIS, SDL_Surface * surface)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	299 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	300 return (0);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	301 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	302
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	303 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	304 RISCOS_UnlockHWSurface(_THIS, SDL_Surface * surface)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	305 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	306 return;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	307 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	308
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	309
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	310 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	311 RISCOS_GetWmInfo(_THIS, SDL_SysWMinfo * info)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	312 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	313 SDL_VERSION(&(info->version));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	314 info->wimpVersion = RISCOS_GetWimpVersion();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	315 info->taskHandle = RISCOS_GetTaskHandle();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	316 info->window = this->hidden->window_handle;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	317
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	318 return 1;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	319 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	320
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	321 /* Toggle full screen mode.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	322 Returns 1 if successful otherwise 0
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	323 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	324
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	325 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	326 RISCOS_ToggleFullScreen(_THIS, int fullscreen)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	327 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	328 if (fullscreen) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	329 return FULLSCREEN_ToggleFromWimp(this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	330 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	331 return WIMP_ToggleFromFullScreen(this);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	332 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	333
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	334 return 0;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	335 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	336
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	337 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/video/riscos/SDL_riscosvideo.c @ 3293:0d60bdebed39