/*

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, &regs, &regs);

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, &regs, &regs);

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, &regs, &regs);

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, &regs, &regs);

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, &regs, &regs);

}

return mode;

}