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

annotate src/video/riscos/SDL_riscostask.c @ 787:07760c8854d1

Date: Sat, 24 Jan 2004 14:49:58 +0100 From: Stephane Marchesin Subject: Re: [SDL] 3DNow! detection on a P4 system Well... I found another bug : 3dnow was detected on P2/P3 cpus. So I took one more look at the code and found a mistake in CPU_getCPUIDFeaturesExt : The condition for having extended cpuinfo is that when we query extended cpuinfo we get a result >= 0x80000001. So we must exit if eax < 0x80000001. The attached patch does that.

author	Sam Lantinga <slouken@libsdl.org>
date	Sat, 24 Jan 2004 15:55:00 +0000
parents	b8d311d90021
children	d74fbf56f2f6

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
769 b8d311d90021 Updated copyright information for 2004 (Happy New Year!) Sam Lantinga <slouken@libsdl.org> parents: 630 diff changeset	3 Copyright (C) 1997-2004 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
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	20 slouken@devolution.com
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	21 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	22
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 This file added by Alan Buckley (alan_baa@hotmail.com) to support RISCOS
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	25 26 March 2003
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	26
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	27 File includes routines for:
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	28 Setting up as a WIMP Task
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	29 Reading information about the current desktop
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	30 Storing information before a switch to full screen
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31 Restoring desktop after switching to full screen
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
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 #include <stdlib.h>
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35 #include <string.h>
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	36
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37 #include "kernel.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	38 #include "swis.h"
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
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 /* RISCOS variables */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	44 static int task_handle = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	45 static int wimp_version = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	46
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	47 /* RISC OS variables to help compatability with certain programs */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	48 int riscos_backbuffer = 0; /* Create a back buffer in system memory for full screen mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	49 int riscos_closeaction = 1; /* Close icon action */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	50 int riscos_audiobuffer = 0; /* Audio buffer size */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	51
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	52 static int stored_mode = -1; /* -1 when in desktop, mode number or pointer when full screen */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	53
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	54 extern int mouseInWindow; /* Mouse is in WIMP window */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	55
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	56 /* Local function */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	57
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	58 static int RISCOS_GetTaskName(char *task_name);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	59
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	60 /* Uncomment next line to copy mode changes/restores to stderr */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	61 /* #define DUMP_MODE */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	62 #ifdef DUMP_MODE
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63 #include "stdio.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	64 static void dump_mode()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	65 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	66 fprintf(stderr, "mode %d\n", stored_mode);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	67 if (stored_mode < -1 \|\| stored_mode >= 256)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	68 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	69 int blockSize = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	70 int storeBlock = (int )stored_mode;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	71
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	72 while(blockSize < 5 \|\| storeBlock[blockSize] != -1)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	73 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	74 fprintf(stderr, " %d\n", storeBlock[blockSize++]);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	75 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	76 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	77 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	78 #endif
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	79
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	80 /******************************************************************
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 Initialise as RISCOS Wimp task
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	83
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	84 *******************************************************************/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	85
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	86 int RISCOS_InitTask()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	87 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	88 char task_name[32];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	89 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	90 int messages[4];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	91
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	92 if (RISCOS_GetTaskName(task_name) == 0) return 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	93
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	94 messages[0] = 9; /* Palette changed */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	95 messages[1] = 0x400c1; /* Mode changed */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	96 messages[2] = 8; /* Pre quit */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	97 messages[2] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	98
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	99 regs.r[0] = (unsigned int)360; /* Minimum version 3.6 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	100 regs.r[1] = (unsigned int)0x4b534154;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	101 regs.r[2] = (unsigned int)task_name;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	102 regs.r[3] = (unsigned int)messages;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	103
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	104 if (_kernel_swi(Wimp_Initialise, &regs, &regs) == 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	105 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	106 wimp_version = regs.r[0];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	107 task_handle = regs.r[1];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	108 return 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	109 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	110
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	111 return 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	112 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	113
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	114 /*********************************************************************
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	115
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	116 Close down application on exit.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	117
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	118 **********************************************************************/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	119
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	120 void RISCOS_ExitTask()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	121 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	122 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	123
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	124 if (stored_mode == -1)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	125 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	126 /* Ensure cursor is put back to standard pointer shape if
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	127 we have been running in a window */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	128 _kernel_osbyte(106,1,0);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	129 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	130
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	131 /* Ensure we end up back in the wimp */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	132 RISCOS_RestoreWimpMode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	133
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	134 /* Neatly exit the task */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	135 regs.r[0] = task_handle;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	136 regs.r[1] = (unsigned int)0x4b534154;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	137 _kernel_swi(Wimp_CloseDown, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	138 task_handle = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	139 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	140
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	141 /**************************************************************************
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	142
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	143 Get the name of the task for the desktop.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	144
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	145 Param: task_name - name of task 32 characters.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	146
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	147 Returns: 1 is successful, otherwise 0
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	148
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	149 Notes: Works by getting using OS_GetEnv to get the command line
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	150 used to run the program and then parsing a name from it
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	151 as follows.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	152
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	153 1. Use name after final period if not !RunImage
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	154 2. If name is !RunImage then process item before the period
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	155 in front of !RunImage.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	156 3. If directory name use that
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	157 4. if in form <XXX$Dir> use the XXX.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	158
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	159 Finally once this value has been retrieved use it unless
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	160 there is a variable set up in the form SDL$<name>$TaskName
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	161 in which case the value of this variable will be used.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	162
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	163 Now also gets other riscos configuration varibles
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	164 SDL$<name>$BackBuffer - set to 1 to use a system memory backbuffer in fullscreen mode
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	165 so updates wait until a call to SDL_UpdateRects. (default 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	166 This is required for programmes where they have assumed this is
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	167 always the case which is contrary to the documentation.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	168 SDL$<name>$CloseAction
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	169 0 Don't show close icon
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	170 1 Show close icon
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	171
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	172 SDL$<name>$AudioBuffer - set to number of samples to buffer
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	173 in advance. Will default to a minimum of 1024 or twice
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	174 amount requested by program whichever is largest.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	175 If not specified default is amount for 10 csecs.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	176 Time that will be pre-buffered can be calculated as
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	177 sample to buffer * 1000 / freq milliseconds.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	178
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	179 ***************************************************************************/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	180
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	181 int RISCOS_GetTaskName(char *task_name)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	182 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	183 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	184
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	185 task_name[0] = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	186
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	187 /* Figure out a sensible task name */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	188 if (_kernel_swi(OS_GetEnv, &regs, &regs) == 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	189 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	190 char command_line = (char )regs.r[0];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	191 char *buffer = malloc(strlen(command_line)+1);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	192 char *env_var;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	193 char *p;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	194
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	195 strcpy(buffer, command_line);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	196 p = strchr(buffer, ' ');
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	197 if (p) *p = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	198 p = strrchr(buffer, '.');
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	199 if (p == 0) p = buffer;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	200 if (stricmp(p+1,"!RunImage") == 0)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	201 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	202 *p = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	203 p = strrchr(buffer, '.');
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	204 if (p == 0) p = buffer;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	205 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	206 if (*p == '.') p++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	207 if (p == '!') p++; / Skip "!" at beginning of application directories */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	208
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	209 if (*p == '<')
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	210 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	211 // Probably in the form <appname$Dir>
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	212 char *q = strchr(p, '$');
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	213 if (q == 0) q = strchr(p,'>'); /* Use variable name if not */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	214 if (q) *q = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	215 p++; /* Move over the < */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	216 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	217
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	218 if (*p)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	219 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	220 /* Read variables that effect the RISCOS SDL engine for this task */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	221 env_var = malloc(strlen(p) + 18); /* 18 is larger than the biggest variable name */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	222 if (env_var)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	223 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	224 char *env_val;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	225
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	226 /* See if a variable of form SDL$<dirname>$TaskName exists */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	227
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	228 strcpy(env_var, "SDL$");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	229 strcat(env_var, p);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	230 strcat(env_var, "$TaskName");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	231
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	232 env_val = getenv(env_var);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	233 if (env_val) strncpy(task_name, env_val, 31);
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 strcpy(env_var, "SDL$");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	236 strcat(env_var, p);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	237 strcat(env_var, "$BackBuffer");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	238
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	239 env_val = getenv(env_var);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	240 if (env_val && strcmp(env_val,"1") == 0) riscos_backbuffer = 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	241
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	242 strcpy(env_var, "SDL$");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	243 strcat(env_var, p);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	244 strcat(env_var, "$CloseAction");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	245
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	246 env_val = getenv(env_var);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	247 if (env_val && strcmp(env_val,"0") == 0) riscos_closeaction = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	248
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	249 strcpy(env_var, "SDL$");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	250 strcat(env_var, p);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	251 strcat(env_var, "$AudioBuffer");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	252
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	253 env_val = getenv(env_var);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	254 riscos_audiobuffer = atoi(env_val);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	255
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	256 free(env_var);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	257 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	258
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	259 if (task_name[0] == 0) strncpy(task_name, p, 31);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	260 task_name[31] = 0;
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 free(buffer);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	264 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	265
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	266 if (task_name[0] == 0) strcpy(task_name, "SDL Task");
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	267
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	268 return 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	269 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	270
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	271 /*****************************************************************
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	272
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	273 Store the current desktop screen mode if we are in the desktop.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	274
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	275 ******************************************************************/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	276
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	277 void RISCOS_StoreWimpMode()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	278 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	279 _kernel_swi_regs regs;
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 /* Don't store if in full screen mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	282 if (stored_mode != -1) return;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	283
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	284 regs.r[0] = 1;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	285 _kernel_swi(OS_ScreenMode, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	286 if (regs.r[1] >= 0 && regs.r[1] < 256) stored_mode = regs.r[1];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	287 else
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	288 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	289 int blockSize = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	290 int retBlock = (int )regs.r[1];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	291 int *storeBlock;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	292 int j;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	293
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	294 while(blockSize < 5 \|\| retBlock[blockSize] != -1) blockSize++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	295 blockSize++;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	296 storeBlock = (int )malloc(blockSize sizeof(int));
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	297 retBlock = (int *)regs.r[1];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	298 for ( j = 0; j < blockSize; j++)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	299 storeBlock[j] = retBlock[j];
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	300
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	301 stored_mode = (int)storeBlock;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	302 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	303 #if DUMP_MODE
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	304 fprintf(stderr, "Stored "); dump_mode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	305 #endif
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	306 }
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
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	310 Restore desktop screen mode if we are in full screen mode.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	311
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	312 *****************************************************************/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	313
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	314 void RISCOS_RestoreWimpMode()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	315 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	316 _kernel_swi_regs regs;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	317
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	318 /* Only need to restore if we are in full screen mode */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	319 if (stored_mode == -1) return;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	320
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	321 #if DUMP_MODE
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	322 fprintf(stderr, "Restored"); dump_mode();
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	323 #endif
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	324
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	325 regs.r[0] = stored_mode;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	326 _kernel_swi(Wimp_SetMode, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	327 if (stored_mode < 0 \|\| stored_mode > 256)
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	328 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	329 free((int *)stored_mode);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	330 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	331 stored_mode = -1;
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 /* Flush keyboard buffer to dump the keystrokes we've already polled */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	334 regs.r[0] = 21;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	335 regs.r[1] = 0; /* Keyboard buffer number */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	336 _kernel_swi(OS_Byte, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	337
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	338 mouseInWindow = 0;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	339
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	340 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	341
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	342 /*********************************************************************
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	343
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	344 Get version of Wimp running when task was initialised.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	345
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	346 *********************************************************************/
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	347
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	348 int RISCOS_GetWimpVersion()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	349 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	350 return wimp_version;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	351 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	352
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	353 int RISCOS_GetTaskHandle()
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	354 {
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	355 return task_handle;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	356 }

Mercurial > sdl-ios-xcode

annotate src/video/riscos/SDL_riscostask.c @ 787:07760c8854d1