19682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* 29682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL - Simple DirectMedia Layer 39682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Copyright (C) 1997-2012 Sam Lantinga 49682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 59682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall This library is free software; you can redistribute it and/or 69682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall modify it under the terms of the GNU Library General Public 79682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall License as published by the Free Software Foundation; either 89682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall version 2 of the License, or (at your option) any later version. 99682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 109682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall This library is distributed in the hope that it will be useful, 119682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall but WITHOUT ANY WARRANTY; without even the implied warranty of 129682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 139682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Library General Public License for more details. 149682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 159682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall You should have received a copy of the GNU Library General Public 169682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall License along with this library; if not, write to the Free 179682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 189682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 199682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Sam Lantinga 209682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall slouken@libsdl.org 219682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall*/ 229682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include "SDL_config.h" 239682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 249682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* 259682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall This file added by Alan Buckley (alan_baa@hotmail.com) to support RISC OS 269682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 26 March 2003 279682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 289682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall File includes routines for: 299682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Setting up as a WIMP Task 309682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Reading information about the current desktop 319682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Storing information before a switch to full screen 329682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Restoring desktop after switching to full screen 339682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall*/ 349682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 359682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include "kernel.h" 369682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include "swis.h" 379682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 389682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include "SDL_stdinc.h" 399682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include "SDL_riscostask.h" 409682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 419682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#if !SDL_THREADS_DISABLED 429682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include <pthread.h> 439682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallpthread_t main_thread; 449682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#endif 459682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 469682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* RISC OS variables */ 479682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 489682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallstatic int task_handle = 0; 499682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallstatic int wimp_version = 0; 509682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 519682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* RISC OS variables to help compatability with certain programs */ 529682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallint riscos_backbuffer = 0; /* Create a back buffer in system memory for full screen mode */ 539682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallint riscos_closeaction = 1; /* Close icon action */ 549682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 559682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallstatic int stored_mode = -1; /* -1 when in desktop, mode number or pointer when full screen */ 569682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 579682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallextern int mouseInWindow; /* Mouse is in WIMP window */ 589682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 599682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* Local function */ 609682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 619682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallstatic int RISCOS_GetTaskName(char *task_name, size_t maxlen); 629682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 639682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* Uncomment next line to copy mode changes/restores to stderr */ 649682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/* #define DUMP_MODE */ 659682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#ifdef DUMP_MODE 669682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#include "stdio.h" 679682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallstatic void dump_mode() 689682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 699682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall fprintf(stderr, "mode %d\n", stored_mode); 709682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (stored_mode < -1 || stored_mode >= 256) 719682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 729682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int blockSize = 0; 739682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int *storeBlock = (int *)stored_mode; 749682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 759682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall while(blockSize < 5 || storeBlock[blockSize] != -1) 769682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 779682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall fprintf(stderr, " %d\n", storeBlock[blockSize++]); 789682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 799682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 809682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 819682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#endif 829682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 839682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/****************************************************************** 849682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 859682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Initialise as RISC OS Wimp task 869682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 879682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall*******************************************************************/ 889682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 899682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallint RISCOS_InitTask() 909682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 919682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char task_name[32]; 929682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi_regs regs; 939682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int messages[4]; 949682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 959682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (RISCOS_GetTaskName(task_name, SDL_arraysize(task_name)) == 0) return 0; 969682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 979682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall messages[0] = 9; /* Palette changed */ 989682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall messages[1] = 0x400c1; /* Mode changed */ 999682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall messages[2] = 8; /* Pre quit */ 1009682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall messages[2] = 0; 1019682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1029682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[0] = (unsigned int)360; /* Minimum version 3.6 */ 1039682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[1] = (unsigned int)0x4b534154; 1049682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[2] = (unsigned int)task_name; 1059682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[3] = (unsigned int)messages; 1069682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1079682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (_kernel_swi(Wimp_Initialise, ®s, ®s) == 0) 1089682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 1099682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall wimp_version = regs.r[0]; 1109682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall task_handle = regs.r[1]; 1119682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall return 1; 1129682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 1139682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1149682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#if !SDL_THREADS_DISABLED 1159682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall main_thread = pthread_self(); 1169682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#endif 1179682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1189682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall return 0; 1199682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 1209682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1219682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/********************************************************************* 1229682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1239682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Close down application on exit. 1249682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1259682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall**********************************************************************/ 1269682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1279682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallvoid RISCOS_ExitTask() 1289682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 1299682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi_regs regs; 1309682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1319682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (stored_mode == -1) 1329682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 1339682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Ensure cursor is put back to standard pointer shape if 1349682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall we have been running in a window */ 1359682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_osbyte(106,1,0); 1369682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 1379682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1389682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Ensure we end up back in the wimp */ 1399682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall RISCOS_RestoreWimpMode(); 1409682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1419682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Neatly exit the task */ 1429682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[0] = task_handle; 1439682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[1] = (unsigned int)0x4b534154; 1449682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi(Wimp_CloseDown, ®s, ®s); 1459682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall task_handle = 0; 1469682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 1479682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1489682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/************************************************************************** 1499682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1509682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Get the name of the task for the desktop. 1519682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1529682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Param: task_name - name of task 32 characters. 1539682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1549682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Returns: 1 is successful, otherwise 0 1559682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1569682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Notes: Works by getting using OS_GetEnv to get the command line 1579682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall used to run the program and then parsing a name from it 1589682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall as follows. 1599682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1609682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1. Use name after final period if not !RunImage 1619682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2. If name is !RunImage then process item before the period 1629682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall in front of !RunImage. 1639682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3. If directory name use that 1649682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 4. if in form <XXX$Dir> use the XXX. 1659682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1669682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Finally once this value has been retrieved use it unless 1679682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall there is a variable set up in the form SDL$<name>$TaskName 1689682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall in which case the value of this variable will be used. 1699682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1709682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Now also gets other RISC OS configuration varibles 1719682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL$<name>$BackBuffer - set to 1 to use a system memory backbuffer in fullscreen mode 1729682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall so updates wait until a call to SDL_UpdateRects. (default 0) 1739682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall This is required for programmes where they have assumed this is 1749682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall always the case which is contrary to the documentation. 1759682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL$<name>$CloseAction 1769682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 0 Don't show close icon 1779682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1 Show close icon 1789682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1799682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall***************************************************************************/ 1809682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1819682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallint RISCOS_GetTaskName(char *task_name, size_t maxlen) 1829682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 1839682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi_regs regs; 1849682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1859682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall task_name[0] = 0; 1869682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1879682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Figure out a sensible task name */ 1889682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (_kernel_swi(OS_GetEnv, ®s, ®s) == 0) 1899682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 1909682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char *command_line = (char *)regs.r[0]; 1919682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall size_t len = SDL_strlen(command_line)+1; 1929682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char *buffer = SDL_stack_alloc(char, len); 1939682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char *env_var; 1949682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char *p; 1959682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 1969682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcpy(buffer, command_line, len); 1979682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall p = SDL_strchr(buffer, ' '); 1989682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (p) *p = 0; 1999682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall p = SDL_strrchr(buffer, '.'); 2009682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (p == 0) p = buffer; 2019682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (stricmp(p+1,"!RunImage") == 0) 2029682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 2039682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall *p = 0; 2049682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall p = SDL_strrchr(buffer, '.'); 2059682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (p == 0) p = buffer; 2069682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 2079682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (*p == '.') p++; 2089682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (*p == '!') p++; /* Skip "!" at beginning of application directories */ 2099682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2109682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (*p == '<') 2119682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 2129682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall // Probably in the form <appname$Dir> 2139682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char *q = SDL_strchr(p, '$'); 2149682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (q == 0) q = SDL_strchr(p,'>'); /* Use variable name if not */ 2159682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (q) *q = 0; 2169682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall p++; /* Move over the < */ 2179682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 2189682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2199682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (*p) 2209682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 2219682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Read variables that effect the RISC OS SDL engine for this task */ 2229682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall len = SDL_strlen(p) + 18; /* 18 is larger than the biggest variable name */ 2239682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall env_var = SDL_stack_alloc(char, len); 2249682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (env_var) 2259682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 2269682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall char *env_val; 2279682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2289682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* See if a variable of form SDL$<dirname>$TaskName exists */ 2299682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2309682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcpy(env_var, "SDL$", len); 2319682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcat(env_var, p, len); 2329682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcat(env_var, "$TaskName", len); 2339682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2349682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall env_val = SDL_getenv(env_var); 2359682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (env_val) SDL_strlcpy(task_name, env_val, maxlen); 2369682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2379682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcpy(env_var, "SDL$", len); 2389682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcat(env_var, p, len); 2399682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcat(env_var, "$BackBuffer", len); 2409682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2419682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall env_val = SDL_getenv(env_var); 2429682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (env_val) riscos_backbuffer = atoi(env_val); 2439682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2449682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcpy(env_var, "SDL$", len); 2459682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcat(env_var, p, len); 2469682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_strlcat(env_var, "$CloseAction", len); 2479682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2489682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall env_val = SDL_getenv(env_var); 2499682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (env_val && SDL_strcmp(env_val,"0") == 0) riscos_closeaction = 0; 2509682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2519682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_stack_free(env_var); 2529682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 2539682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2549682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (!*task_name) SDL_strlcpy(task_name, p, maxlen); 2559682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 2569682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2579682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_stack_free(buffer); 2589682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 2599682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2609682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (task_name[0] == 0) SDL_strlcpy(task_name, "SDL Task", maxlen); 2619682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2629682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall return 1; 2639682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 2649682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2659682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/***************************************************************** 2669682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2679682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Store the current desktop screen mode if we are in the desktop. 2689682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2699682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall******************************************************************/ 2709682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2719682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallvoid RISCOS_StoreWimpMode() 2729682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 2739682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi_regs regs; 2749682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2759682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Don't store if in full screen mode */ 2769682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (stored_mode != -1) return; 2779682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2789682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[0] = 1; 2799682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi(OS_ScreenMode, ®s, ®s); 2809682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (regs.r[1] >= 0 && regs.r[1] < 256) stored_mode = regs.r[1]; 2819682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall else 2829682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 2839682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int blockSize = 0; 2849682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int *retBlock = (int *)regs.r[1]; 2859682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int *storeBlock; 2869682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall int j; 2879682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2889682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall while(blockSize < 5 || retBlock[blockSize] != -1) blockSize++; 2899682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall blockSize++; 2909682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall storeBlock = (int *)SDL_malloc(blockSize * sizeof(int)); 2919682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall retBlock = (int *)regs.r[1]; 2929682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall for ( j = 0; j < blockSize; j++) 2939682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall storeBlock[j] = retBlock[j]; 2949682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 2959682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall stored_mode = (int)storeBlock; 2969682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 2979682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#if DUMP_MODE 2989682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall fprintf(stderr, "Stored "); dump_mode(); 2999682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#endif 3009682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 3019682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3029682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/***************************************************************** 3039682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3049682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Restore desktop screen mode if we are in full screen mode. 3059682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3069682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall*****************************************************************/ 3079682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3089682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallvoid RISCOS_RestoreWimpMode() 3099682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 3109682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi_regs regs; 3119682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3129682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Only need to restore if we are in full screen mode */ 3139682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (stored_mode == -1) return; 3149682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3159682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#if DUMP_MODE 3169682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall fprintf(stderr, "Restored"); dump_mode(); 3179682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall#endif 3189682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3199682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[0] = stored_mode; 3209682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi(Wimp_SetMode, ®s, ®s); 3219682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall if (stored_mode < 0 || stored_mode > 256) 3229682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall { 3239682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall SDL_free((int *)stored_mode); 3249682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall } 3259682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall stored_mode = -1; 3269682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3279682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall /* Flush keyboard buffer to dump the keystrokes we've already polled */ 3289682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[0] = 21; 3299682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall regs.r[1] = 0; /* Keyboard buffer number */ 3309682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall _kernel_swi(OS_Byte, ®s, ®s); 3319682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3329682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall mouseInWindow = 0; 3339682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3349682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 3359682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3369682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall/********************************************************************* 3379682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3389682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall Get version of Wimp running when task was initialised. 3399682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3409682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall*********************************************************************/ 3419682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3429682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallint RISCOS_GetWimpVersion() 3439682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 3449682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall return wimp_version; 3459682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 3469682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall 3479682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hallint RISCOS_GetTaskHandle() 3489682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall{ 3499682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall return task_handle; 3509682c8870b8ff5e4ac2e4c70b759f791c6f38c1fJesse Hall} 351