Added initial support for RISC OS (thanks Peter Naulls!)
--HG-- extra : convert_revision : svn%3Ac70aab31-4412-0410-b14c-859654838e24/trunk%40631
This commit is contained in:
Sam Lantinga
parent
35f9bbcbd6
commit
e8ce0bc197
29 changed files with 4002 additions and 5 deletions
301
src/video/riscos/SDL_riscosmouse.c
Normal file
301
src/video/riscos/SDL_riscosmouse.c
Normal file
|
|
@ -0,0 +1,301 @@
|
|||
/*
|
||||
SDL - Simple DirectMedia Layer
|
||||
Copyright (C) 1997, 1998, 1999, 2000, 2001 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@devolution.com
|
||||
*/
|
||||
|
||||
/*
|
||||
File added by Alan Buckley (alan_baa@hotmail.com) for RISCOS compatability
|
||||
27 March 2003
|
||||
|
||||
Implements mouse cursor shape definitions and positioning
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#include "SDL_error.h"
|
||||
#include "SDL_mouse.h"
|
||||
#include "SDL_events_c.h"
|
||||
|
||||
#include "SDL_riscosmouse_c.h"
|
||||
|
||||
#include "kernel.h"
|
||||
#include "swis.h"
|
||||
|
||||
static WMcursor *current_cursor = NULL;
|
||||
|
||||
extern int mouseInWindow;
|
||||
|
||||
void RISCOS_FreeWMCursor(_THIS, WMcursor *cursor)
|
||||
{
|
||||
free(cursor->data);
|
||||
free(cursor);
|
||||
}
|
||||
|
||||
WMcursor *RISCOS_CreateWMCursor(_THIS,
|
||||
Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y)
|
||||
{
|
||||
WMcursor *cursor;
|
||||
Uint8 *cursor_data;
|
||||
Uint8 *ptr;
|
||||
int i,j,k;
|
||||
int data_byte, mask_byte;
|
||||
|
||||
/* Check to make sure the cursor size is okay */
|
||||
if ( (w > 32) || (h > 32) ) {
|
||||
SDL_SetError("Only with width and height <= 32 pixels are allowed");
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
/* Allocate the cursor */
|
||||
cursor = (WMcursor *)malloc(sizeof(*cursor));
|
||||
if ( cursor == NULL ) {
|
||||
SDL_SetError("Out of memory");
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
/* Note: SDL says width must be a multiple of 8 */
|
||||
cursor_data = malloc(w/4 * h);
|
||||
if (cursor_data == NULL)
|
||||
{
|
||||
free(cursor);
|
||||
SDL_SetError("Out of memory");
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
cursor->w = w;
|
||||
cursor->h = h;
|
||||
cursor->hot_x = hot_x;
|
||||
cursor->hot_y = hot_y;
|
||||
cursor->data = cursor_data;
|
||||
|
||||
|
||||
/* Data / Mask Resulting pixel on screen
|
||||
0 / 1 White
|
||||
1 / 1 Black
|
||||
0 / 0 Transparent
|
||||
1 / 0 Inverted color if possible, black if not.
|
||||
*/
|
||||
ptr = cursor_data;
|
||||
|
||||
for ( i=0; i<h; ++i )
|
||||
{
|
||||
for (j = 0; j < w/8; ++j)
|
||||
{
|
||||
data_byte = *data;
|
||||
mask_byte = *mask;
|
||||
*ptr++ = 0; /* Sets whole byte transparent */
|
||||
*ptr = 0;
|
||||
for (k = 0; k < 8; k++)
|
||||
{
|
||||
(*ptr) <<= 2;
|
||||
if (data_byte & 1) *ptr |= 3; /* Black or inverted */
|
||||
else if(mask_byte & 1) *ptr |= 1; /* White */
|
||||
if ((k&3) == 3) ptr--;
|
||||
data_byte >>= 1;
|
||||
mask_byte >>= 1;
|
||||
}
|
||||
|
||||
ptr+=3;
|
||||
data++;
|
||||
mask++;
|
||||
}
|
||||
}
|
||||
|
||||
return(cursor);
|
||||
}
|
||||
|
||||
int RISCOS_ShowWMCursor(_THIS, WMcursor *cursor)
|
||||
{
|
||||
if (cursor == NULL)
|
||||
{
|
||||
_kernel_osbyte(106,0,0);
|
||||
current_cursor = NULL;
|
||||
} else
|
||||
{
|
||||
if (current_cursor == NULL)
|
||||
{
|
||||
/* First time set up the mouse colours */
|
||||
Uint8 block[5];
|
||||
|
||||
/* Set up colour 1 as white */
|
||||
block[0] = 1; /* Colour to change 1 - 3 */
|
||||
block[1] = 25; /* Set pointer colour */
|
||||
block[2] = 255; /* red component*/
|
||||
block[3] = 255; /* green component */
|
||||
block[4] = 255; /* blue component*/
|
||||
_kernel_osword(12, (int *)block);
|
||||
|
||||
/* Set colour 3 to back */
|
||||
block[0] = 3; /* Colour to change 1 - 3 */
|
||||
block[1] = 25; /* Set pointer colour*/
|
||||
block[2] = 0; /* red component*/
|
||||
block[3] = 0; /* green component */
|
||||
block[4] = 0; /* blue component*/
|
||||
_kernel_osword(12, (int *)block);
|
||||
}
|
||||
|
||||
if (cursor != current_cursor)
|
||||
{
|
||||
Uint8 cursor_def[10];
|
||||
|
||||
cursor_def[0] = 0;
|
||||
cursor_def[1] = 2; /* Use shape number 2 */
|
||||
cursor_def[2] = cursor->w/4; /* Width in bytes */
|
||||
cursor_def[3] = cursor->h; /* Height (h) in pixels */
|
||||
cursor_def[4] = cursor->hot_x; /* ActiveX in pixels from left */
|
||||
cursor_def[5] = cursor->hot_y; /* ActiveY in pixels from top */
|
||||
cursor_def[6] = ((int)(cursor->data) & 0xFF); /* Least significant byte of pointer to data */
|
||||
cursor_def[7] = ((int)(cursor->data) >> 8) & 0xFF; /* ... */
|
||||
cursor_def[8] = ((int)(cursor->data) >> 16) & 0xFF; /* ... */
|
||||
cursor_def[9] = ((int)(cursor->data) >> 24) & 0xFF; /* Most significant byte of pointer to data */
|
||||
|
||||
if (_kernel_osword(21, (int *)cursor_def) == 0)
|
||||
{
|
||||
SDL_SetError("RISCOS couldn't create the cursor to show");
|
||||
return(0);
|
||||
}
|
||||
current_cursor = cursor;
|
||||
}
|
||||
|
||||
if ((this->screen->flags & SDL_FULLSCREEN) || mouseInWindow) _kernel_osbyte(106, 2, 0);
|
||||
}
|
||||
|
||||
return(1);
|
||||
}
|
||||
|
||||
void FULLSCREEN_WarpWMCursor(_THIS, Uint16 x, Uint16 y)
|
||||
{
|
||||
Uint8 move_block[5];
|
||||
int eig_block[3];
|
||||
_kernel_swi_regs regs;
|
||||
int os_x, os_y;
|
||||
|
||||
eig_block[0] = 4; /* X eig factor */
|
||||
eig_block[1] = 5; /* Y eig factor */
|
||||
eig_block[2] = -1; /* End of list of variables to request */
|
||||
|
||||
regs.r[0] = (int)eig_block;
|
||||
regs.r[1] = (int)eig_block;
|
||||
_kernel_swi(OS_ReadVduVariables, ®s, ®s);
|
||||
|
||||
os_x = x << eig_block[0];
|
||||
os_y = y << eig_block[1];
|
||||
|
||||
move_block[0] = 3; /* Move cursor */
|
||||
move_block[1] = os_x & 0xFF;
|
||||
move_block[2] = (os_x >> 8) & 0xFF;
|
||||
move_block[3] = os_y & 0xFF;
|
||||
move_block[4] = (os_y >> 8) & 0xFF;
|
||||
|
||||
_kernel_osword(21, (int *)move_block);
|
||||
SDL_PrivateMouseMotion(0, 0, x, y);
|
||||
}
|
||||
|
||||
|
||||
/* Reshow cursor when mouse re-enters the window */
|
||||
void WIMP_ReshowCursor(_THIS)
|
||||
{
|
||||
WMcursor *cursor = current_cursor;
|
||||
current_cursor = NULL;
|
||||
RISCOS_ShowWMCursor(this, cursor);
|
||||
}
|
||||
|
||||
extern int mouseInWindow;
|
||||
|
||||
void WIMP_WarpWMCursor(_THIS, Uint16 x, Uint16 y)
|
||||
{
|
||||
_kernel_swi_regs regs;
|
||||
int window_state[9];
|
||||
char block[5];
|
||||
int osX, osY;
|
||||
|
||||
window_state[0] = this->hidden->window_handle;
|
||||
regs.r[1] = (unsigned int)window_state;
|
||||
_kernel_swi(Wimp_GetWindowState, ®s, ®s);
|
||||
|
||||
osX = (x << this->hidden->xeig) + window_state[1];
|
||||
osY = window_state[4] - (y << this->hidden->yeig);
|
||||
|
||||
block[0] = 3;
|
||||
block[1] = osX & 0xFF;
|
||||
block[2] = (osX >> 8) & 0xFF;
|
||||
block[3] = osY & 0xFF;
|
||||
block[4] = (osY >> 8) & 0xFF;
|
||||
|
||||
regs.r[0] = 21;
|
||||
regs.r[1] = (int)block;
|
||||
_kernel_swi(OS_Word, ®s, ®s);
|
||||
SDL_PrivateMouseMotion(0, 0, x, y);
|
||||
}
|
||||
|
||||
int WIMP_ShowWMCursor(_THIS, WMcursor *cursor)
|
||||
{
|
||||
if (mouseInWindow) return RISCOS_ShowWMCursor(this, cursor);
|
||||
return 1;
|
||||
}
|
||||
|
||||
SDL_GrabMode RISCOS_GrabInput(_THIS, SDL_GrabMode mode)
|
||||
{
|
||||
/* In fullscreen mode we don't need to do anything */
|
||||
if (mode < SDL_GRAB_FULLSCREEN)
|
||||
{
|
||||
_kernel_swi_regs regs;
|
||||
unsigned char block[9];
|
||||
block[0] = 1; /* Define mouse cursor bounding block */
|
||||
|
||||
if ( mode == SDL_GRAB_OFF )
|
||||
{
|
||||
/* Clip to whole screen */
|
||||
|
||||
int r = (this->hidden->screen_width << this->hidden->xeig) - 1;
|
||||
int t = (this->hidden->screen_height << this->hidden->yeig) - 1;
|
||||
|
||||
block[1] = 0; block[2] = 0; /* Left*/
|
||||
block[3] = 0; block[4] = 0; /* Bottom */
|
||||
block[5] = r & 0xFF; block[6] = (r >> 8) & 0xFF; /* Right */
|
||||
block[7] = t & 0xFF; block[8] = (t >> 8) & 0xFF; /* Top */
|
||||
} else
|
||||
{
|
||||
/* Clip to window */
|
||||
unsigned char window_state[36];
|
||||
|
||||
*((int *)window_state) = this->hidden->window_handle;
|
||||
regs.r[1] = (unsigned int)window_state;
|
||||
_kernel_swi(Wimp_GetWindowState, ®s, ®s);
|
||||
|
||||
block[1] = window_state[4];
|
||||
block[2] = window_state[5];
|
||||
block[3] = window_state[8];
|
||||
block[4] = window_state[9];
|
||||
block[5] = window_state[12];
|
||||
block[6] = window_state[13];
|
||||
block[7] = window_state[16];
|
||||
block[8] = window_state[17];
|
||||
|
||||
}
|
||||
|
||||
regs.r[0] = 21; /* OS word code */
|
||||
regs.r[1] = (int)block;
|
||||
_kernel_swi(OS_Word, ®s, ®s);
|
||||
}
|
||||
|
||||
return mode;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue