notaz.gp2x.de / picodrive.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
UIQ3 update, some makefile unification, rm old configs, stuff
[picodrive.git] / platform / uiq3 / engine / main.cpp
CommitLineData
cc68a136 1// mainloop with window server event handling\r
2// event polling mechnism was taken from\r
3// Peter van Sebille's projects\r
4\r
5// (c) Copyright 2006, notaz\r
6// All Rights Reserved\r
7\r
8#include <e32base.h>\r
9#include <hal.h>\r
10#include <e32keys.h>\r
11#include <w32std.h>\r
12\r
13#include <stdio.h>\r
14#include <stdlib.h>\r
15#include <sys/time.h>\r
16\r
17#include "debug.h"\r
18#include "../Engine.h"\r
19\r
ca482e5d 20#include <Pico/PicoInt.h>\r
21#include "../../common/emu.h"\r
22#include "../emu.h"\r
cc68a136 23#include "vid.h"\r
ca482e5d 24#include "PolledAS.h"\r
cc68a136 25//#include "audio.h"\r
26#include "audio_mediaserver.h"\r
27\r
ca482e5d 28//#include <ezlib.h>\r
29#include <zlib/zlib.h>\r
cc68a136 30\r
31\r
32//#define BENCHMARK\r
33\r
34\r
35// scancodes we care about\r
36enum TUsedScanCodes {\r
37 EStdKeyM600JogUp = EStdKeyDevice1,\r
38 EStdKeyM600JogDown = EStdKeyDevice2,\r
39};\r
40\r
41static unsigned char keyFlags[256]; // lsb->msb: key_down, pulse_only, ?, ?, ?, ?, not_configurable, disabled\r
42static unsigned char pressedKeys[11]; // List of pressed key scancodes, up to 10\r
43\r
44// list of areas\r
45TPicoAreaConfigEntry areaConfig[] = {\r
46 { TRect( 0, 0, 0, 0) },\r
47 // small corner bottons\r
48 { TRect( 0, 0, 15, 15) },\r
49 { TRect(224, 0, 239, 15) },\r
50 { TRect( 0, 304, 15, 319) },\r
51 { TRect(224, 304, 239, 319) },\r
52 // normal buttons\r
53 { TRect( 0, 0, 79, 63) },\r
54 { TRect( 80, 0, 159, 63) },\r
55 { TRect(160, 0, 239, 63) },\r
56 { TRect( 0, 64, 79, 127) },\r
57 { TRect( 80, 64, 159, 127) },\r
58 { TRect(160, 64, 239, 127) },\r
59 { TRect( 0, 128, 79, 191) },\r
60 { TRect( 80, 128, 159, 191) },\r
61 { TRect(160, 128, 239, 191) },\r
62 { TRect( 0, 192, 79, 255) },\r
63 { TRect( 80, 192, 159, 255) },\r
64 { TRect(160, 192, 239, 255) },\r
65 { TRect( 0, 256, 79, 319) },\r
66 { TRect( 80, 256, 159, 319) },\r
67 { TRect(160, 256, 239, 319) },\r
68 { TRect( 0, 0, 0, 0) }\r
69};\r
70\r
71// PicoPad[] format: SACB RLDU\r
72const char *actionNames[] = {\r
73 "UP", "DOWN", "LEFT", "RIGHT", "B", "C", "A", "START",\r
74 0, 0, 0, 0, 0, 0, 0, 0, // Z, Y, X, MODE (enabled only when needed), ?, ?, ?, ?\r
75 0, 0, 0, 0, "VOLUME@UP", "VOLUME@DOWN", "NEXT@SAVE@SLOT", "PREV@SAVE@SLOT", // ?, ?, ?, ?, vol_up, vol_down, next_slot, prev_slot\r
76 0, 0, "PAUSE@EMU", "SAVE@STATE", "LOAD@STATE", 0, 0, "DONE" // ?, switch_renderer, [...], "FRAMESKIP@8", "AUTO@FRAMESKIP"\r
77};\r
78\r
79\r
80// globals are allowed, so why not to (ab)use them?\r
81//TInt machineUid = 0;\r
82int gamestate = PGS_Paused, gamestate_next = PGS_Paused;\r
ca482e5d 83char *loadrom_fname = NULL;\r
84int loadrom_result = 0;\r
cc68a136 85static timeval noticeMsgTime = { 0, 0 }; // when started showing\r
86static CGameAudioMS *gameAudio = 0; // the audio object itself\r
ca482e5d 87static int reset_timing;\r
88extern int pico_was_reset;\r
cc68a136 89extern RSemaphore initSemaphore;\r
90extern RSemaphore pauseSemaphore;\r
ca482e5d 91extern RSemaphore loadWaitSemaphore;\r
cc68a136 92\r
93// some forward declarations\r
94static void MainInit();\r
95static void MainExit();\r
96static void DumpMemInfo();\r
cc68a136 97\r
98\r
99class TPicoDirectScreenAccess : public MDirectScreenAccess\r
100{\r
101public: // implements MDirectScreenAccess\r
102 void Restart(RDirectScreenAccess::TTerminationReasons aReason);\r
103public: // implements MAbortDirectScreenAccess\r
104 void AbortNow(RDirectScreenAccess::TTerminationReasons aReason);\r
105};\r
106\r
107\r
108// just for a nicer grouping of WS related stuff\r
109class CGameWindow\r
110{\r
111public:\r
112 static void ConstructResourcesL(void);\r
113 static void FreeResources(void);\r
114 static void DoKeys(void);\r
115 static void DoKeysConfig(TUint &which);\r
116 static void RunEvents(TUint32 which);\r
117\r
118 static RWsSession* iWsSession;\r
119 static RWindowGroup iWsWindowGroup;\r
120 static RWindow iWsWindow;\r
121 static CWsScreenDevice* iWsScreen;\r
122 static CWindowGc* iWindowGc;\r
123 static TRequestStatus iWsEventStatus;\r
124// static TThreadId iLauncherThreadId;\r
125// static RDirectScreenAccess* iDSA;\r
126// static TRequestStatus iDSAstatus;\r
127 static TPicoDirectScreenAccess iPDSA;\r
128 static CDirectScreenAccess* iDSA;\r
129};\r
130\r
131\r
ca482e5d 132static void updateSound(int len)\r
cc68a136 133{\r
cc68a136 134 PsndOut = gameAudio->NextFrameL(len);\r
135 if(!PsndOut) { // sound output problems?\r
136 strcpy(noticeMsg, "SOUND@OUTPUT@ERROR;@SOUND@DISABLED");\r
137 gettimeofday(&noticeMsgTime, 0);\r
138 }\r
139}\r
140\r
141\r
142static void SkipFrame(void)\r
143{\r
144 PicoSkipFrame=1;\r
145 PicoFrame();\r
146 PicoSkipFrame=0;\r
147}\r
148\r
149\r
150static void simpleWait(int thissec, int lim_time)\r
151{\r
152 struct timeval tval;\r
153 int sleep = 0;\r
154\r
155 gettimeofday(&tval, 0);\r
156 if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
157\r
158 sleep = lim_time - tval.tv_usec - 2000;\r
159 if (sleep > 0) {\r
160// User::After((sleep = lim_time - tval.tv_usec));\r
161 User::AfterHighRes(sleep);\r
162 }\r
163}\r
164\r
165\r
166static void TargetEpocGameL()\r
167{\r
168 char buff[24]; // fps count c string\r
169 struct timeval tval; // timing\r
170 int thissec = 0, frames_done = 0, frames_shown = 0;\r
171 int target_fps, target_frametime;\r
172 int i, lim_time;\r
173 //TRawEvent blevent;\r
174\r
175 MainInit();\r
176 buff[0] = 0;\r
177\r
ca482e5d 178 PicoInit();\r
179\r
cc68a136 180 // just to keep the backlight on (works only on UIQ2)\r
181 //blevent.Set(TRawEvent::EActive);\r
182\r
183 // loop?\r
ca482e5d 184 for(;;)\r
185 {\r
186 if (gamestate == PGS_Running)\r
187 {\r
cc68a136 188 // switch context to other thread\r
189 User::After(50000);\r
190 // prepare window and stuff\r
191 CGameWindow::ConstructResourcesL();\r
192\r
193 // if the system has something to do, it should better do it now\r
194 User::After(50000);\r
195 //CPolledActiveScheduler::Instance()->Schedule();\r
196\r
197 // pal/ntsc might have changed, reset related stuff\r
198 if(Pico.m.pal) {\r
199 target_fps = 50;\r
200 if(!noticeMsgTime.tv_sec) strcpy(noticeMsg, "PAL@SYSTEM@/@50@FPS");\r
201 } else {\r
202 target_fps = 60;\r
203 if(!noticeMsgTime.tv_sec) strcpy(noticeMsg, "NTSC@SYSTEM@/@60@FPS");\r
204 }\r
205 target_frametime = 1000000/target_fps;\r
206 if(!noticeMsgTime.tv_sec && pico_was_reset)\r
207 gettimeofday(&noticeMsgTime, 0);\r
208\r
ca482e5d 209 // prepare CD buffer\r
210 if (PicoAHW & PAHW_MCD) PicoCDBufferInit();\r
cc68a136 211\r
212 pico_was_reset = 0;\r
213 reset_timing = 1;\r
214\r
ca482e5d 215 while (gamestate == PGS_Running)\r
216 {\r
cc68a136 217 gettimeofday(&tval, 0);\r
218 if(reset_timing) {\r
219 reset_timing = 0;\r
220 thissec = tval.tv_sec;\r
221 frames_done = tval.tv_usec/target_frametime;\r
222 }\r
223\r
224 // show notice message?\r
225 char *notice = 0;\r
226 if(noticeMsgTime.tv_sec) {\r
227 if((tval.tv_sec*1000000+tval.tv_usec) - (noticeMsgTime.tv_sec*1000000+noticeMsgTime.tv_usec) > 2000000) // > 2.0 sec\r
228 noticeMsgTime.tv_sec = noticeMsgTime.tv_usec = 0;\r
229 else notice = noticeMsg;\r
230 }\r
231\r
232 // second changed?\r
ca482e5d 233 if (thissec != tval.tv_sec)\r
234 {\r
cc68a136 235#ifdef BENCHMARK\r
236 static int bench = 0, bench_fps = 0, bench_fps_s = 0, bfp = 0, bf[4];\r
237 if(++bench == 10) {\r
238 bench = 0;\r
239 bench_fps_s = bench_fps;\r
240 bf[bfp++ & 3] = bench_fps;\r
241 bench_fps = 0;\r
242 }\r
243 bench_fps += frames_shown;\r
244 sprintf(buff, "%02i/%02i/%02i", frames_shown, bench_fps_s, (bf[0]+bf[1]+bf[2]+bf[3])>>2);\r
245#else\r
ca482e5d 246 if (currentConfig.EmuOpt & EOPT_SHOW_FPS) \r
cc68a136 247 sprintf(buff, "%02i/%02i", frames_shown, frames_done);\r
248#endif\r
249\r
250\r
251 thissec = tval.tv_sec;\r
252\r
ca482e5d 253 if(PsndOut == 0 && currentConfig.Frameskip >= 0) {\r
cc68a136 254 frames_done = frames_shown = 0;\r
255 } else {\r
256 // it is quite common for this implementation to leave 1 fame unfinished\r
257 // when second changes, but we don't want buffer to starve.\r
258 if(PsndOut && frames_done < target_fps && frames_done > target_fps-5) {\r
259 SkipFrame(); frames_done++;\r
260 }\r
261\r
262 frames_done -= target_fps; if (frames_done < 0) frames_done = 0;\r
263 frames_shown -= target_fps; if (frames_shown < 0) frames_shown = 0;\r
264 if (frames_shown > frames_done) frames_shown = frames_done;\r
265 }\r
266 }\r
267\r
268\r
269 lim_time = (frames_done+1) * target_frametime;\r
ca482e5d 270 if (currentConfig.Frameskip >= 0) // frameskip enabled\r
271 {\r
272 for (i = 0; i < currentConfig.Frameskip && gamestate == PGS_Running; i++)\r
273 {\r
cc68a136 274 CGameWindow::DoKeys();\r
275 SkipFrame(); frames_done++;\r
276 if (PsndOut) { // do framelimitting if sound is enabled\r
277 gettimeofday(&tval, 0);\r
278 if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
279 if(tval.tv_usec < lim_time) { // we are too fast\r
280 simpleWait(thissec, lim_time);\r
281 }\r
282 }\r
283 lim_time += target_frametime;\r
284 }\r
ca482e5d 285 }\r
286 else if(tval.tv_usec > lim_time) { // auto frameskip\r
cc68a136 287 // no time left for this frame - skip\r
288 CGameWindow::DoKeys();\r
289 SkipFrame(); frames_done++;\r
290 continue;\r
291 }\r
292\r
ca482e5d 293 // we might have lost focus already\r
294 if (gamestate != PGS_Running) break;\r
295\r
cc68a136 296 CGameWindow::DoKeys();\r
297 PicoFrame();\r
298\r
299 // check time\r
300 gettimeofday(&tval, 0);\r
301 if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
302\r
303 // sleep if we are still too fast\r
ca482e5d 304 if(PsndOut != 0 || currentConfig.Frameskip < 0)\r
cc68a136 305 {\r
306 // TODO: check if User::After() is accurate\r
307 gettimeofday(&tval, 0);\r
308 if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
309 if(tval.tv_usec < lim_time)\r
310 {\r
311 // we are too fast\r
312 simpleWait(thissec, lim_time);\r
313 }\r
314 }\r
315\r
316 CPolledActiveScheduler::Instance()->Schedule();\r
317\r
318 if (gamestate != PGS_Paused)\r
319 vidDrawFrame(notice, buff, frames_shown);\r
320\r
321 frames_done++; frames_shown++;\r
ca482e5d 322 } // while\r
323\r
324 if (PicoAHW & PAHW_MCD) PicoCDBufferFree();\r
cc68a136 325\r
326 // save SRAM\r
ca482e5d 327 if ((currentConfig.EmuOpt & EOPT_USE_SRAM) && SRam.changed) {\r
328 emu_SaveLoadGame(0, 1);\r
cc68a136 329 SRam.changed = 0;\r
330 }\r
ca482e5d 331 CPolledActiveScheduler::Instance()->Schedule();\r
cc68a136 332 CGameWindow::FreeResources();\r
ca482e5d 333 }\r
334 else if(gamestate == PGS_ReloadRom)\r
335 {\r
336 loadrom_result = emu_ReloadRom(loadrom_fname);\r
337 pico_was_reset = 1;\r
338 if (loadrom_result)\r
339 gamestate = PGS_Running;\r
340 else\r
341 gamestate = PGS_Paused;\r
342 DEBUGPRINT(_L("done loading ROM, retval=%i"), loadrom_result);\r
343 loadWaitSemaphore.Signal();\r
344 User::After(50000);\r
345 }\r
346 else if(gamestate == PGS_Paused) {\r
cc68a136 347 DEBUGPRINT(_L("pausing.."));\r
348 pauseSemaphore.Wait();\r
ca482e5d 349 }\r
350 else if(gamestate == PGS_KeyConfig)\r
351 {\r
cc68a136 352 // switch context to other thread\r
353 User::After(50000);\r
354 // prepare window and stuff\r
355 CGameWindow::ConstructResourcesL();\r
356\r
357 TUint whichAction = 0;\r
358 while(gamestate == PGS_KeyConfig) {\r
359 CGameWindow::DoKeysConfig(whichAction);\r
360 CPolledActiveScheduler::Instance()->Schedule();\r
361 if (gamestate != PGS_Paused)\r
362 vidKeyConfigFrame(whichAction);\r
363 User::After(150000);\r
364 }\r
365\r
366 CGameWindow::FreeResources();\r
367 } else if(gamestate == PGS_DebugHeap) {\r
368 #ifdef __DEBUG_PRINT\r
369 TInt cells = User::CountAllocCells();\r
370 TInt mem;\r
371 User::AllocSize(mem);\r
372 DEBUGPRINT(_L("worker: cels=%d, size=%d KB"), cells, mem/1024);\r
373 gamestate = gamestate_next;\r
374 #endif\r
375 } else if(gamestate == PGS_Quit) {\r
376 break;\r
377 }\r
378 }\r
379\r
ca482e5d 380 // this thread has to close it's own handles,\r
381 // other one will crash trying to do that\r
382 PicoExit();\r
383\r
cc68a136 384 MainExit();\r
385}\r
386\r
387\r
388// main initialization\r
389static void MainInit()\r
390{\r
391 DEBUGPRINT(_L("\r\n\r\nstarting.."));\r
392\r
cc68a136 393 DEBUGPRINT(_L("CPolledActiveScheduler::NewL()"));\r
394 CPolledActiveScheduler::NewL(); // create Polled AS for the sound engine\r
395\r
396// HAL::Get(HALData::EMachineUid, machineUid); // find out the machine UID\r
397\r
398 DumpMemInfo();\r
399\r
400 // try to start pico\r
ca482e5d 401 DEBUGPRINT(_L("PicoInit()"));\r
cc68a136 402 PicoDrawSetColorFormat(2);\r
403 PicoWriteSound = updateSound;\r
404\r
405// if (pauseSemaphore.Handle() <= 0)\r
406// pauseSemaphore.CreateLocal(0);\r
407 DEBUGPRINT(_L("initSemaphore.Signal()"));\r
408 initSemaphore.Signal();\r
409}\r
410\r
411\r
412// does not return\r
413static void MainExit()\r
414{\r
415 RThread thisThread;\r
416\r
417 DEBUGPRINT(_L("%i: cleaning up.."), (TInt32) thisThread.Id());\r
418\r
cc68a136 419// pauseSemaphore.Close();\r
420\r
421 if(gameAudio) delete gameAudio;\r
422\r
423 // Polled AS\r
424 delete CPolledActiveScheduler::Instance();\r
425}\r
426\r
cc68a136 427static void DumpMemInfo()\r
428{\r
429 TInt ramSize, ramSizeFree, romSize;\r
430 \r
431 HAL::Get(HALData::EMemoryRAM, ramSize);\r
432 HAL::Get(HALData::EMemoryRAMFree, ramSizeFree);\r
433 HAL::Get(HALData::EMemoryROM, romSize);\r
434\r
435 DEBUGPRINT(_L("ram=%dKB, ram_free=%dKB, rom=%dKB"), ramSize/1024, ramSizeFree/1024, romSize/1024);\r
436}\r
437\r
438\r
ca482e5d 439extern "C" TInt my_SetExceptionHandler(TInt, TExceptionHandler, TUint32);\r
440\r
cc68a136 441TInt EmuThreadFunction(TAny*)\r
442{\r
ca482e5d 443 TInt ret;\r
cc68a136 444 const TUint32 exs = KExceptionAbort|KExceptionKill|KExceptionUserInterrupt|KExceptionFpe|KExceptionFault|KExceptionInteger|KExceptionDebug;\r
445 \r
ca482e5d 446 DEBUGPRINT(_L("EmuThreadFunction(), def ExceptionHandler %08x, my %08x"),\r
447 User::ExceptionHandler(), ExceptionHandler);\r
448 User::SetJustInTime(1);\r
449 ret = User::SetExceptionHandler(ExceptionHandler, exs/*(TUint32) -1*/); // does not work :(\r
450 // my_SetExceptionHandler(KCurrentThreadHandle, ExceptionHandler, 0xffffffff);\r
451 DEBUGPRINT(_L("SetExceptionHandler %i, %08x"), ret, User::ExceptionHandler());\r
452 User::ModifyExceptionMask(0, exs);\r
cc68a136 453\r
454 //TInt pc, sp;\r
455 //asm volatile ("str pc, %0" : "=m" (pc) );\r
456 //asm volatile ("str sp, %0" : "=m" (sp) );\r
457 //RDebug::Print(_L("executing @ 0x%08x, sp=0x%08x"), pc, sp);\r
458\r
459/*\r
460 RDebug::Print(_L("Base Bottom Top Size RW Name"));\r
461 TBuf<4> l_r(_L("R")), l_w(_L("W")), l_d(_L("-"));\r
462 RChunk chunk;\r
463 TFullName chunkname;\r
464 TFindChunk findChunk(_L("*"));\r
465 while( findChunk.Next(chunkname) != KErrNotFound ) {\r
466 chunk.Open(findChunk);\r
467 RDebug::Print(_L("%08x %08x %08x %08x %S%S %S"), chunk.Base(), chunk.Base()+chunk.Bottom(), chunk.Base()+chunk.Top(), chunk.Size(), chunk.IsReadable() ? &l_r : &l_d, chunk.IsWritable() ? &l_w : &l_d, &chunkname);\r
468 chunk.Close();\r
469 }\r
470*/\r
471\r
472 // can't do that, will crash here\r
473// if(cleanup) {\r
474// DEBUGPRINT(_L("found old CTrapCleanup, deleting.."));\r
475// delete cleanup;\r
476// }\r
477 \r
478 CTrapCleanup *cleanup = CTrapCleanup::New();\r
479\r
480 TRAPD(error, TargetEpocGameL());\r
481\r
ca482e5d 482 __ASSERT_ALWAYS(!error, User::Panic(_L("PicoDrive"), error));\r
cc68a136 483 delete cleanup;\r
484\r
485 DEBUGPRINT(_L("exitting..")); \r
486 return 1;\r
487}\r
488\r
489\r
490void TPicoDirectScreenAccess::Restart(RDirectScreenAccess::TTerminationReasons aReason)\r
491{\r
492 DEBUGPRINT(_L("TPicoDirectScreenAccess::Restart(%i)"), aReason);\r
493\r
494// if (CGameWindow::iDSA) {\r
495// TRAPD(error, CGameWindow::iDSA->StartL());\r
496// if (error) DEBUGPRINT(_L("iDSA->StartL() error: %i"), error);\r
497// }\r
498}\r
499\r
500\r
501void TPicoDirectScreenAccess::AbortNow(RDirectScreenAccess::TTerminationReasons aReason)\r
502{\r
503 DEBUGPRINT(_L("TPicoDirectScreenAccess::AbortNow(%i)"), aReason);\r
504\r
505 // the WS wants us to stop, so let's obey\r
506 gamestate = PGS_Paused;\r
507}\r
508\r
509\r
510void CGameWindow::ConstructResourcesL()\r
511{\r
512 DEBUGPRINT(_L("ConstructResourcesL()"));\r
513 // connect to window server\r
514 // tried to create it globally and not re-connect everytime,\r
515 // but my window started to lose focus strangely\r
516 iWsSession = new(ELeave) RWsSession();\r
517 User::LeaveIfError(iWsSession->Connect());\r
518\r
519 // * Tell the Window Server not to mess about with our process priority\r
520 // * Also, because of the way legacy games are written, they never sleep\r
521 // * and thus never voluntarily yield the CPU. We set our process priority\r
522 // * to EPriorityForeground and hope that a Telephony application on\r
523 // * this device runs at EPriorityForeground as well. If not, tough! ;-)\r
524\r
525 iWsSession->ComputeMode(RWsSession::EPriorityControlDisabled);\r
526 RProcess me;\r
527 me.SetPriority(EPriorityForeground);\r
528\r
529 iWsScreen = new(ELeave) CWsScreenDevice(*iWsSession);\r
530 User::LeaveIfError(iWsScreen->Construct());\r
531// User::LeaveIfError(iWsScreen->CreateContext(iWindowGc));\r
532\r
533 iWsWindowGroup = RWindowGroup(*iWsSession);\r
534 User::LeaveIfError(iWsWindowGroup.Construct((TUint32)&iWsWindowGroup));\r
535 //iWsWindowGroup.SetOrdinalPosition(0);\r
536 //iWsWindowGroup.SetName(KServerWGName);\r
537 iWsWindowGroup.EnableScreenChangeEvents(); // flip events (EEventScreenDeviceChanged)\r
538 iWsWindowGroup.EnableFocusChangeEvents(); // EEventFocusGroupChanged\r
539 iWsWindowGroup.SetOrdinalPosition(0, 1); // TInt aPos, TInt aOrdinalPriority\r
540\r
541 iWsWindow=RWindow(*iWsSession);\r
542 User::LeaveIfError(iWsWindow.Construct(iWsWindowGroup, (TUint32)&iWsWindow));\r
543 iWsWindow.SetSize(iWsScreen->SizeInPixels());\r
544 iWsWindow.PointerFilter(EPointerFilterDrag, 0);\r
545 iWsWindow.SetPointerGrab(ETrue);\r
546 iWsWindow.SetVisible(ETrue);\r
547 iWsWindow.Activate();\r
548\r
549#if 0\r
550 // request access through RDirectScreenAccess api, but don't care about the result\r
551 // hangs?\r
552 RRegion *dsa_region = 0;\r
553 iDSA = new(ELeave) RDirectScreenAccess(*iWsSession);\r
554 if(iDSA->Construct() == KErrNone)\r
555 iDSA->Request(dsa_region, iDSAstatus, iWsWindow);\r
556 DEBUGPRINT(_L("DSA: %i"), dsa_region ? dsa_region->Count() : -1);\r
557#endif\r
558\r
559 TInt ret;\r
560\r
561 // request access through CDirectScreenAccess\r
562 iDSA = CDirectScreenAccess::NewL(*iWsSession, *iWsScreen, iWsWindow, iPDSA);\r
563\r
564 // now get the screenbuffer\r
565 TScreenInfoV01 screenInfo;\r
566 TPckg<TScreenInfoV01> sI(screenInfo);\r
567 UserSvr::ScreenInfo(sI);\r
568\r
569 if(!screenInfo.iScreenAddressValid)\r
570 User::Leave(KErrNotSupported);\r
571\r
572 DEBUGPRINT(_L("framebuffer=0x%08x (%dx%d)"), screenInfo.iScreenAddress,\r
573 screenInfo.iScreenSize.iWidth, screenInfo.iScreenSize.iHeight);\r
574 \r
575 // vidInit\r
576 DEBUGPRINT(_L("vidInit()"));\r
577 ret = vidInit((void *)screenInfo.iScreenAddress, 0);\r
578 DEBUGPRINT(_L("vidInit() done (%i)"), ret);\r
579\r
580 User::LeaveIfError(ret);\r
581\r
582 memset(keyFlags, 0, 256);\r
583 keyFlags[EStdKeyM600JogUp] = keyFlags[EStdKeyM600JogDown] = 2; // add "pulse only" for jog up/down\r
584 keyFlags[EStdKeyOff] = 0x40; // not configurable\r
585\r
586 // try to start the audio engine\r
587 static int PsndRate_old = 0, PicoOpt_old = 0, pal_old = 0;\r
588\r
ca482e5d 589 if (gamestate == PGS_Running && (currentConfig.EmuOpt & EOPT_EN_SOUND))\r
590 {\r
cc68a136 591 TInt err = 0;\r
592 if(PsndRate != PsndRate_old || (PicoOpt&11) != (PicoOpt_old&11) || Pico.m.pal != pal_old) {\r
593 // if rate changed, reset all enabled chips, else reset only those chips, which were recently enabled\r
594 //sound_reset(PsndRate != PsndRate_old ? PicoOpt : (PicoOpt&(PicoOpt^PicoOpt_old)));\r
ca482e5d 595 PsndRerate(1);\r
cc68a136 596 }\r
597 if(!gameAudio || PsndRate != PsndRate_old || ((PicoOpt&8) ^ (PicoOpt_old&8)) || Pico.m.pal != pal_old) { // rate or stereo or pal/ntsc changed\r
598 if(gameAudio) delete gameAudio; gameAudio = 0;\r
599 DEBUGPRINT(_L("starting audio: %i len: %i stereo: %i, pal: %i"), PsndRate, PsndLen, PicoOpt&8, Pico.m.pal);\r
ca482e5d 600 TRAP(err, gameAudio = CGameAudioMS::NewL(PsndRate, (PicoOpt&8) ? 1 : 0,\r
601 Pico.m.pal ? 50 : 60, currentConfig.volume));\r
cc68a136 602 }\r
603 if( gameAudio) {\r
604 TRAP(err, PsndOut = gameAudio->ResumeL());\r
605 }\r
606 if(err) {\r
607 if(gameAudio) delete gameAudio;\r
608 gameAudio = 0;\r
609 PsndOut = 0;\r
610 strcpy(noticeMsg, "SOUND@STARTUP@FAILED");\r
611 gettimeofday(&noticeMsgTime, 0);\r
612 }\r
613 PsndRate_old = PsndRate;\r
614 PicoOpt_old = PicoOpt;\r
615 pal_old = Pico.m.pal;\r
616 } else {\r
617 if(gameAudio) delete gameAudio;\r
618 gameAudio = 0;\r
619 PsndOut = 0;\r
620 }\r
621\r
622 CPolledActiveScheduler::Instance()->Schedule();\r
623\r
624 // start key WS event polling\r
625 iWsSession->EventReady(&iWsEventStatus);\r
626\r
627 iWsSession->Flush(); // check: short hang in UIQ2\r
628 User::After(1);\r
629\r
630 // I don't know why but the Window server sometimes hangs completely (hanging the phone too) after calling StartL()\r
631 // Is this a sync broblem? weird bug?\r
632 TRAP(ret, iDSA->StartL());\r
633 if (ret) DEBUGPRINT(_L("iDSA->StartL() error: %i"), ret);\r
634\r
635// User::After(1);\r
636// CPolledActiveScheduler::Instance()->Schedule();\r
637\r
638 DEBUGPRINT(_L("CGameWindow::ConstructResourcesL() finished."));\r
639}\r
640\r
641// this may be run even if there is nothing to free\r
642void CGameWindow::FreeResources()\r
643{\r
644 if(gameAudio) gameAudio->Pause();\r
645\r
646 //DEBUGPRINT(_L("CPolledActiveScheduler::Instance(): %08x"), CPolledActiveScheduler::Instance());\r
647 if(CPolledActiveScheduler::Instance())\r
648 CPolledActiveScheduler::Instance()->Schedule();\r
649\r
650#if 0\r
651 // free RDirectScreenAccess stuff (seems to be deleted automatically after crash?)\r
652 if(iDSA) {\r
653 iDSA->Cancel();\r
654 iDSA->Close();\r
655 delete iDSA;\r
656 }\r
657 iDSA = NULL;\r
658#endif\r
659 if(iDSA) delete iDSA;\r
660 iDSA = 0;\r
661\r
662 if(iWsSession->WsHandle() > 0 && iWsEventStatus != KRequestPending) // TODO: 2 UIQ2 (?)\r
663 iWsSession->EventReadyCancel();\r
664\r
665 if(iWsWindow.WsHandle() > 0)\r
666 iWsWindow.Close();\r
667\r
668 if(iWsWindowGroup.WsHandle() > 0)\r
669 iWsWindowGroup.Close();\r
670\r
671 // these must be deleted before calling iWsSession->Close()\r
672 if(iWsScreen) {\r
673 delete iWsScreen;\r
674 iWsScreen = NULL;\r
675 }\r
676\r
677 if(iWsSession->WsHandle() > 0) {\r
678 iWsSession->Close();\r
679 delete iWsSession;\r
680 }\r
681 \r
682 vidFree();\r
cc68a136 683}\r
684\r
685\r
686void CGameWindow::DoKeys(void)\r
687{\r
688 TWsEvent iWsEvent;\r
689 TInt iWsEventType;\r
690 unsigned long allActions = 0;\r
691 static unsigned long areaActions = 0, forceUpdate = 0;\r
692 int i, nEvents;\r
693\r
694 for(nEvents = 0; iWsEventStatus != KRequestPending; nEvents++)\r
695 {\r
696 iWsSession->GetEvent(iWsEvent);\r
697 iWsEventType = iWsEvent.Type();\r
698\r
699 // pointer events?\r
700 if(iWsEventType == EEventPointer) {\r
701 if(iWsEvent.Pointer()->iType == TPointerEvent::EButton1Up) {\r
702 areaActions = 0; // remove all directionals\r
703 } else { // if(iWsEvent.Pointer()->iType == TPointerEvent::EButton1Down) {\r
704 TPoint p = iWsEvent.Pointer()->iPosition;\r
705 const TPicoAreaConfigEntry *e = areaConfig + 1;\r
706 for(i = 0; !e->rect.IsEmpty(); e++, i++)\r
707 if(e->rect.Contains(p)) {\r
ca482e5d 708 areaActions = currentConfig.KeyBinds[i+256];\r
cc68a136 709 break;\r
710 }\r
711 //DEBUGPRINT(_L("pointer event: %i %i"), p.iX, p.iY);\r
712 }\r
713 }\r
714 else if(iWsEventType == EEventKeyDown || iWsEventType == EEventKeyUp) {\r
715 TInt iScanCode = iWsEvent.Key()->iScanCode;\r
716 //DEBUGPRINT(_L("key event: 0x%02x"), iScanCode);\r
717\r
718 if(iScanCode < 256)\r
719 {\r
720 if(iWsEventType == EEventKeyDown) {\r
721 keyFlags[iScanCode] |= 1;\r
722 for(i=0; i < 10; i++) {\r
723 if( pressedKeys[i] == (TUint8) iScanCode) break;\r
724 if(!pressedKeys[i]) { pressedKeys[i] = (TUint8) iScanCode; break; }\r
725 }\r
726 } else if(!(keyFlags[iScanCode]&2)) {\r
727 keyFlags[iScanCode] &= ~1;\r
728 for(i=0; i < 10; i++) {\r
729 if(pressedKeys[i] == (TUint8) iScanCode) { pressedKeys[i] = 0; break; }\r
730 }\r
731 }\r
732\r
733 // power?\r
734 if(iScanCode == EStdKeyOff) gamestate = PGS_Paused;\r
735 } else {\r
736 DEBUGPRINT(_L("weird scancode: 0x%02x"), iScanCode);\r
737 }\r
738 }\r
739 else if(iWsEventType == EEventScreenDeviceChanged) {\r
740 // ???\r
741 //User::After(500000);\r
742 //reset_timing = 1;\r
743 DEBUGPRINT(_L("EEventScreenDeviceChanged, focus: %i, our: %i"),\r
744 iWsSession->GetFocusWindowGroup(), iWsWindowGroup.Identifier());\r
745 }\r
746 else if(iWsEventType == EEventFocusGroupChanged) {\r
747 TInt focusGrpId = iWsSession->GetFocusWindowGroup();\r
748 DEBUGPRINT(_L("EEventFocusGroupChanged: %i, our: %i"),\r
749 focusGrpId, iWsWindowGroup.Identifier());\r
750 // if it is not us and not launcher that got focus, pause emu\r
751 if(focusGrpId != iWsWindowGroup.Identifier())\r
752 gamestate = PGS_Paused;\r
753 }\r
754\r
755 iWsEventStatus = KRequestPending;\r
756 iWsSession->EventReady(&iWsEventStatus);\r
757 }\r
758\r
759 if(nEvents || forceUpdate) {\r
760 allActions = areaActions;\r
761 forceUpdate = 0;\r
762\r
763 // add all pushed button actions\r
764 for(i = 9; i >= 0; i--) {\r
765 int scan = pressedKeys[i];\r
766 if(scan) {\r
ca482e5d 767 if(keyFlags[scan] & 1) allActions |= currentConfig.KeyBinds[scan];\r
cc68a136 768 if((keyFlags[scan]& 3)==3) forceUpdate = 1;\r
769 if(keyFlags[scan] & 2) keyFlags[scan] &= ~1;\r
770 }\r
771 }\r
772\r
773 PicoPad[0] = (unsigned short) allActions;\r
774 if(allActions & 0xFFFF0000) {\r
775 RunEvents(allActions >> 16);\r
776 areaActions = 0;\r
777 }\r
778 }\r
779}\r
780\r
781\r
782void CGameWindow::DoKeysConfig(TUint &which)\r
783{\r
784 TWsEvent iWsEvent;\r
785 int i;\r
786\r
787 while(iWsEventStatus != KRequestPending)\r
788 {\r
789 TUint currentActCode = 1 << which;\r
790\r
791 iWsSession->GetEvent(iWsEvent);\r
792\r
793 // pointer events?\r
794 if(iWsEvent.Type() == EEventPointer) {\r
795 TPoint p = iWsEvent.Pointer()->iPosition;\r
796 TRect prev(56, 0, 120, 26);\r
797 TRect next(120, 0, 180, 26);\r
798\r
799 if(iWsEvent.Pointer()->iType == TPointerEvent::EButton1Down) {\r
800 if(prev.Contains(p)) do { which = (which-1) & 0x1F; } while(!actionNames[which]);\r
801 else if(next.Contains(p)) do { which = (which+1) & 0x1F; } while(!actionNames[which]);\r
802 else if(which == 31) gamestate = PGS_Paused; // done\r
803 else {\r
804 const TPicoAreaConfigEntry *e = areaConfig + 1;\r
805 for(i = 0; e->rect != TRect(0,0,0,0); e++, i++)\r
806 if(e->rect.Contains(p)) {\r
ca482e5d 807 currentConfig.KeyBinds[i+256] ^= currentActCode;\r
cc68a136 808 break;\r
809 }\r
810 }\r
811 }\r
812 }\r
813 else if(iWsEvent.Type() == EEventKeyDown || iWsEvent.Type() == EEventKeyUp)\r
814 {\r
815 TUint scan = (TUint) iWsEvent.Key()->iScanCode;\r
816\r
817 // key events?\r
818 if(iWsEvent.Type() == EEventKeyDown) {\r
819 if(which == 31) {\r
820 gamestate = PGS_Paused;\r
821 } else if (scan < 256) {\r
ca482e5d 822 if(!(keyFlags[scan]&0x40)) currentConfig.KeyBinds[scan] ^= currentActCode;\r
cc68a136 823 }\r
824 }\r
825\r
826 // power?\r
827 if(iWsEvent.Key()->iScanCode == EStdKeyOff) gamestate = PGS_Paused;\r
828 }\r
829 else if(iWsEvent.Type() == EEventFocusGroupChanged) {\r
830 TInt focusGrpId = iWsSession->GetFocusWindowGroup();\r
831 // if we lost focus, exit config mode\r
832 if(focusGrpId != iWsWindowGroup.Identifier())\r
833 gamestate = PGS_Paused;\r
834 }\r
835\r
836// iWsEventStatus = KRequestPending;\r
837 iWsSession->EventReady(&iWsEventStatus);\r
838 }\r
839}\r
840\r
841\r
842void CGameWindow::RunEvents(TUint32 which)\r
843{\r
ca482e5d 844 if (which & 0x4000) currentConfig.Frameskip = -1;\r
845 if (which & 0x2000) currentConfig.Frameskip = 8;\r
846 if (which & 0x1800) { // save or load (but not both)\r
cc68a136 847 if(PsndOut) gameAudio->Pause(); // this may take a while, so we pause sound output\r
848\r
849 vidDrawNotice((which & 0x1000) ? "LOADING@GAME" : "SAVING@GAME");\r
ca482e5d 850 emu_SaveLoadGame(which & 0x1000, 0);\r
cc68a136 851\r
852 if(PsndOut) PsndOut = gameAudio->ResumeL();\r
853 reset_timing = 1;\r
854 }\r
ca482e5d 855 if (which & 0x0400) gamestate = PGS_Paused;\r
856 if (which & 0x0200) { // switch renderer\r
857 if (!(currentConfig.scaling == TPicoConfig::PMFit &&\r
858 (currentConfig.rotation == TPicoConfig::PRot0 || currentConfig.rotation == TPicoConfig::PRot180)))\r
859 {\r
cc68a136 860 PicoOpt^=0x10;\r
861 vidInit(0, 1);\r
862\r
863 strcpy(noticeMsg, (PicoOpt&0x10) ? "ALT@RENDERER" : "DEFAULT@RENDERER");\r
864 gettimeofday(&noticeMsgTime, 0);\r
865 }\r
866 }\r
867 if(which & 0x00c0) {\r
868 if(which&0x0080) {\r
869 state_slot -= 1;\r
870 if(state_slot < 0) state_slot = 9;\r
871 } else {\r
872 state_slot += 1;\r
873 if(state_slot > 9) state_slot = 0;\r
874 }\r
875 sprintf(noticeMsg, "SAVE@SLOT@%i@SELECTED", state_slot);\r
876 gettimeofday(&noticeMsgTime, 0);\r
877 }\r
ca482e5d 878 if(which & 0x0020) if(gameAudio) currentConfig.volume = gameAudio->ChangeVolume(0);\r
879 if(which & 0x0010) if(gameAudio) currentConfig.volume = gameAudio->ChangeVolume(1);\r
cc68a136 880}\r
881\r
882\r
ca482e5d 883extern "C" void emu_noticeMsgUpdated(void)\r
cc68a136 884{\r
ca482e5d 885 char *p = noticeMsg;\r
886 while (*p) {\r
887 if (*p == ' ') *p = '@';\r
888 if (*p < '0' || *p > 'Z') { *p = 0; break; }\r
889 p++;\r
cc68a136 890 }\r
ca482e5d 891 gettimeofday(&noticeMsgTime, 0);\r
cc68a136 892}\r
893\r
894// static class members\r
895RWsSession* CGameWindow::iWsSession;\r
896RWindowGroup CGameWindow::iWsWindowGroup;\r
897RWindow CGameWindow::iWsWindow;\r
898CWsScreenDevice* CGameWindow::iWsScreen = NULL;\r
899CWindowGc* CGameWindow::iWindowGc = NULL;\r
900TRequestStatus CGameWindow::iWsEventStatus = KRequestPending;\r
901//RDirectScreenAccess* CGameWindow::iDSA;\r
902//TRequestStatus CGameWindow::iDSAstatus = KRequestPending;\r
903TPicoDirectScreenAccess CGameWindow::iPDSA;\r
904CDirectScreenAccess* CGameWindow::iDSA = NULL;\r
905\r
fast MegaDrive/MegaCD/32X emulator