platform/win32/GenaDrive/Main.cpp

   1 \r
   2 #include "app.h"\r
   3 #include <crtdbg.h>\r
   4 #include <commdlg.h>\r
   5 \r
   6 char *romname;\r
   7 HWND FrameWnd=NULL;\r
   8 \r
   9 int MainWidth=720,MainHeight=480;\r
  10 \r
  11 char AppName[]="GenaDrive";\r
  12 \r
  13 #ifdef STARSCREAM\r
  14   extern "C" int SekReset();\r
  15 #endif\r
  16 \r
  17 // ------------------------------------ XBox Main ------------------------------------------\r
  18 #ifdef _XBOX\r
  19 \r
  20 static int MainCode()\r
  21 {\r
  22   int ret=0;\r
  23 \r
  24   ret=LoopInit(); if (ret) { LoopExit(); return 1; }\r
  25 \r
  26   LoopQuit=0; LoopCode();\r
  27   LoopExit();\r
  28 \r
  29   return 0;\r
  30 }\r
  31 \r
  32 int __cdecl main()\r
  33 {\r
  34   LD_LAUNCH_DASHBOARD launch;\r
  35 \r
  36   MainCode();\r
  37 \r
  38   // Go back to dashboard:\r
  39   memset(&launch,0,sizeof(launch));\r
  40   launch.dwReason=XLD_LAUNCH_DASHBOARD_MAIN_MENU;\r
  41   XLaunchNewImage(NULL,(LAUNCH_DATA *)&launch);\r
  42 }\r
  43 #endif\r
  44 \r
  45 // ----------------------------------- Windows Main ----------------------------------------\r
  46 #ifndef _XBOX\r
  47 // Window proc for the frame window:\r
  48 static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)\r
  49 {\r
  50   if (msg==WM_CLOSE) { PostQuitMessage(0); return 0; }\r
  51   if (msg==WM_DESTROY) FrameWnd=NULL; // Blank handle\r
  52 \r
  53   return DefWindowProc(hwnd,msg,wparam,lparam);\r
  54 }\r
  55 \r
  56 static int FrameInit()\r
  57 {\r
  58   WNDCLASS wc;\r
  59   RECT rect={0,0,0,0};\r
  60   int style=0;\r
  61   int left=0,top=0,width=0,height=0;\r
  62 \r
  63   memset(&wc,0,sizeof(wc));\r
  64 \r
  65   // Register the window class:\r
  66   wc.lpfnWndProc=WndProc;\r
  67   wc.hInstance=GetModuleHandle(NULL);\r
  68   wc.hCursor=LoadCursor(NULL,IDC_ARROW);\r
  69   wc.hbrBackground=CreateSolidBrush(0);\r
  70   wc.lpszClassName="MainFrame";\r
  71   RegisterClass(&wc);\r
  72 \r
  73   rect.right =320;//MainWidth;\r
  74   rect.bottom=224;//MainHeight;\r
  75 \r
  76   // Adjust size of windows based on borders:\r
  77   style=WS_OVERLAPPEDWINDOW;\r
  78   AdjustWindowRect(&rect,style,0);\r
  79   width =rect.right-rect.left;\r
  80   height=rect.bottom-rect.top;\r
  81 \r
  82   // Place window in the centre of the screen:\r
  83   SystemParametersInfo(SPI_GETWORKAREA,0,&rect,0);\r
  84   left=rect.left+rect.right;\r
  85   top=rect.top+rect.bottom;\r
  86 \r
  87   left-=width; left>>=1;\r
  88   top-=height; top>>=1;\r
  89 \r
  90   // Create the window:\r
  91   FrameWnd=CreateWindow(wc.lpszClassName,AppName,style|WS_VISIBLE,\r
  92     left,top,width,height,NULL,NULL,NULL,NULL);\r
  93 \r
  94   return 0;\r
  95 }\r
  96 \r
  97 // --------------------\r
  98 \r
  99 static DWORD WINAPI ThreadCode(void *)\r
 100 {\r
 101   LoopCode();\r
 102   return 0;\r
 103 }\r
 104 \r
 105 // starscream needs this\r
 106 unsigned char *rom_data = 0;\r
 107 unsigned int rom_size = 0;\r
 108 \r
 109 int WINAPI WinMain(HINSTANCE,HINSTANCE,LPSTR cmdline,int)\r
 110 {\r
 111   MSG msg;\r
 112   int ret=0;\r
 113   DWORD tid=0;\r
 114   HANDLE thread=NULL;\r
 115 \r
 116   // notaz: load rom\r
 117   static char rompath[MAX_PATH]; rompath[0] = 0;\r
 118   strcpy(rompath, cmdline + (cmdline[0] == '\"' ? 1 : 0));\r
 119   if(rompath[strlen(rompath)-1] == '\"') rompath[strlen(rompath)-1] = 0;\r
 120 \r
 121   FILE *rom = 0;\r
 122   if(strlen(rompath) > 4) rom = fopen(rompath, "rb");\r
 123   if(!rom) {\r
 124     OPENFILENAME of; ZeroMemory(&of, sizeof(OPENFILENAME));\r
 125         of.lStructSize = sizeof(OPENFILENAME);\r
 126         of.lpstrFilter = "ROMs\0*.smd;*.bin;*.gen\0";\r
 127         of.lpstrFile = rompath; rompath[0] = 0;\r
 128         of.nMaxFile = MAX_PATH;\r
 129         of.Flags = OFN_FILEMUSTEXIST|OFN_HIDEREADONLY;\r
 130         if(!GetOpenFileName(&of)) return 1;\r
 131         rom = fopen(rompath, "rb");\r
 132         if(!rom) return 1;\r
 133   }\r
 134   romname = rompath;\r
 135 \r
 136   if(PicoCartLoad(rom, &rom_data, &rom_size)) {\r
 137         //RDebug::Print(_L("PicoCartLoad() failed."));\r
 138         //goto cleanup;\r
 139   }\r
 140 \r
 141   FrameInit();\r
 142   ret=LoopInit(); if (ret) { LoopExit(); return 1; }\r
 143 \r
 144   PicoCartInsert(rom_data, rom_size);\r
 145 \r
 146   // only now we got the mode (pal/ntsc), so init sound now\r
 147   DSoundInit();\r
 148 \r
 149   preLoopInit();\r
 150 \r
 151   // Make another thread to run LoopCode():\r
 152   LoopQuit=0;\r
 153   thread=CreateThread(NULL,0,ThreadCode,NULL,0,&tid);\r
 154 \r
 155   // Main window loop:\r
 156   for (;;)\r
 157   {\r
 158     GetMessage(&msg,NULL,0,0);\r
 159     if (msg.message==WM_QUIT) break;\r
 160 \r
 161     TranslateMessage(&msg);\r
 162     DispatchMessage(&msg);\r
 163   }\r
 164 \r
 165   // Signal thread to quit and wait for it to exit:\r
 166   LoopQuit=1; WaitForSingleObject(thread,5000);\r
 167   CloseHandle(thread); thread=NULL;\r
 168 \r
 169   LoopExit();\r
 170   DestroyWindow(FrameWnd);\r
 171 \r
 172   free(rom_data);\r
 173 \r
 174   _CrtDumpMemoryLeaks();\r
 175   return 0;\r
 176 }\r
 177 #endif\r
 178 \r