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