src/i_system.c

   1 // Emacs style mode select   -*- C++ -*-
   2 //-----------------------------------------------------------------------------
   3 //
   4 // Copyright(C) 1993-1996 Id Software, Inc.
   5 // Copyright(C) 2005 Simon Howard
   6 //
   7 // This program is free software; you can redistribute it and/or
   8 // modify it under the terms of the GNU General Public License
   9 // as published by the Free Software Foundation; either version 2
  10 // of the License, or (at your option) any later version.
  11 //
  12 // This program is distributed in the hope that it will be useful,
  13 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 // GNU General Public License for more details.
  16 //
  17 // You should have received a copy of the GNU General Public License
  18 // along with this program; if not, write to the Free Software
  19 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  20 // 02111-1307, USA.
  21 //
  22 // DESCRIPTION:
  23 //
  24 //-----------------------------------------------------------------------------
  25
  26
  27
  28 #include <stdlib.h>
  29 #include <stdio.h>
  30 #include <string.h>
  31
  32 #include <stdarg.h>
  33
  34 #ifdef _WIN32
  35 #define WIN32_LEAN_AND_MEAN
  36 #include <windows.h>
  37 #else
  38 #include <unistd.h>
  39 #endif
  40
  41 #include "deh_main.h"
  42 #include "doomdef.h"
  43 #include "doomstat.h"
  44 #include "m_argv.h"
  45 #include "m_config.h"
  46 #include "m_misc.h"
  47 #include "i_joystick.h"
  48 #include "i_timer.h"
  49 #include "i_video.h"
  50 #include "s_sound.h"
  51
  52 #include "d_net.h"
  53 #include "g_game.h"
  54
  55 #include "i_system.h"
  56 #include "txt_main.h"
  57
  58
  59 #include "w_wad.h"
  60 #include "z_zone.h"
  61
  62 #define DEFAULT_RAM 16 /* MiB */
  63 #define MIN_RAM     4  /* MiB */
  64
  65 int show_endoom = 1;
  66
  67 // Tactile feedback function, probably used for the Logitech Cyberman
  68
  69 void I_Tactile(int on, int off, int total)
  70 {
  71 }
  72
  73 #ifdef _WIN32_WCE
  74
  75 // Windows CE-specific auto-allocation function that allocates the zone
  76 // size based on the amount of memory reported free by the OS.
  77
  78 static byte *AutoAllocMemory(int *size, int default_ram, int min_ram)
  79 {
  80     MEMORYSTATUS memory_status;
  81     byte *zonemem;
  82     size_t available;
  83
  84     // Get available physical RAM.  We leave one megabyte extra free
  85     // for the OS to keep running (my PDA becomes unstable if too
  86     // much RAM is allocated)
  87
  88     GlobalMemoryStatus(&memory_status);
  89     available = memory_status.dwAvailPhys - 2 * 1024 * 1024;
  90
  91     // Limit to default_ram if we have more than that available:
  92
  93     if (available > default_ram * 1024 * 1024)
  94     {
  95         available = default_ram * 1024 * 1024;
  96     }
  97
  98     if (available < min_ram * 1024 * 1024)
  99     {
 100         I_Error("Unable to allocate %i MiB of RAM for zone", min_ram);
 101     }
 102
 103     // Allocate zone:
 104
 105     *size = available;
 106     zonemem = malloc(*size);
 107
 108     if (zonemem == NULL)
 109     {
 110         I_Error("Failed when allocating %i bytes", *size);
 111     }
 112
 113     return zonemem;
 114 }
 115
 116 #else
 117
 118 // Zone memory auto-allocation function that allocates the zone size
 119 // by trying progressively smaller zone sizes until one is found that
 120 // works.
 121
 122 static byte *AutoAllocMemory(int *size, int default_ram, int min_ram)
 123 {
 124     byte *zonemem;
 125
 126     // Allocate the zone memory.  This loop tries progressively smaller
 127     // zone sizes until a size is found that can be allocated.
 128     // If we used the -mb command line parameter, only the parameter
 129     // provided is accepted.
 130
 131     zonemem = NULL;
 132
 133     while (zonemem == NULL)
 134     {
 135         // We need a reasonable minimum amount of RAM to start.
 136
 137         if (default_ram < min_ram)
 138         {
 139             I_Error("Unable to allocate %i MiB of RAM for zone", default_ram);
 140         }
 141
 142         // Try to allocate the zone memory.
 143
 144         *size = default_ram * 1024 * 1024;
 145
 146         zonemem = malloc(*size);
 147
 148         // Failed to allocate?  Reduce zone size until we reach a size
 149         // that is acceptable.
 150
 151         if (zonemem == NULL)
 152         {
 153             default_ram -= 1;
 154         }
 155     }
 156
 157     return zonemem;
 158 }
 159
 160 #endif
 161
 162 byte *I_ZoneBase (int *size)
 163 {
 164     byte *zonemem;
 165     int min_ram, default_ram;
 166     int p;
 167
 168     //!
 169     // @arg <mb>
 170     //
 171     // Specify the heap size, in MiB (default 16).
 172     //
 173
 174     p = M_CheckParm("-mb");
 175
 176     if (p > 0)
 177     {
 178         default_ram = atoi(myargv[p+1]);
 179         min_ram = default_ram;
 180     }
 181     else
 182     {
 183         default_ram = DEFAULT_RAM;
 184         min_ram = MIN_RAM;
 185     }
 186
 187     zonemem = AutoAllocMemory(size, default_ram, min_ram);
 188
 189     printf("zone memory: %p, %x allocated for zone\n",
 190            zonemem, *size);
 191
 192     return zonemem;
 193 }
 194
 195 //
 196 // I_ConsoleStdout
 197 //
 198 // Returns true if stdout is a real console, false if it is a file
 199 //
 200
 201 boolean I_ConsoleStdout(void)
 202 {
 203 #ifdef _WIN32
 204     // SDL "helpfully" always redirects stdout to a file.
 205     return 0;
 206 #else
 207     return isatty(fileno(stdout));
 208 #endif
 209 }
 210
 211 //
 212 // I_Init
 213 //
 214 void I_Init (void)
 215 {
 216     I_CheckIsScreensaver();
 217     I_InitTimer();
 218     I_InitJoystick();
 219 }
 220
 221 #define ENDOOM_W 80
 222 #define ENDOOM_H 25
 223
 224 //
 225 // Displays the text mode ending screen after the game quits
 226 //
 227
 228 void I_Endoom(void)
 229 {
 230     unsigned char *endoom_data;
 231     unsigned char *screendata;
 232     int y;
 233     int indent;
 234
 235     endoom_data = W_CacheLumpName(DEH_String("ENDOOM"), PU_STATIC);
 236
 237     // Set up text mode screen
 238
 239     TXT_Init();
 240
 241     // Make sure the new window has the right title and icon
 242
 243     I_SetWindowCaption();
 244     I_SetWindowIcon();
 245
 246     // Write the data to the screen memory
 247
 248     screendata = TXT_GetScreenData();
 249
 250     indent = (ENDOOM_W - TXT_SCREEN_W) / 2;
 251
 252     for (y=0; y<TXT_SCREEN_H; ++y)
 253     {
 254         memcpy(screendata + (y * TXT_SCREEN_W * 2),
 255                endoom_data + (y * ENDOOM_W + indent) * 2,
 256                TXT_SCREEN_W * 2);
 257     }
 258
 259     // Wait for a keypress
 260
 261     while (true)
 262     {
 263         TXT_UpdateScreen();
 264
 265         if (TXT_GetChar() >= 0)
 266         {
 267             break;
 268         }
 269
 270         TXT_Sleep(0);
 271     }
 272
 273     // Shut down text mode screen
 274
 275     TXT_Shutdown();
 276 }
 277
 278 //
 279 // I_Quit
 280 //
 281
 282 void I_Quit (void)
 283 {
 284     D_QuitNetGame ();
 285     G_CheckDemoStatus();
 286     S_Shutdown();
 287
 288     if (!screensaver_mode)
 289     {
 290         M_SaveDefaults ();
 291     }
 292
 293     I_ShutdownGraphics();
 294
 295     if (show_endoom && !testcontrols && !screensaver_mode)
 296     {
 297         I_Endoom();
 298     }
 299
 300     exit(0);
 301 }
 302
 303 void I_WaitVBL(int count)
 304 {
 305     I_Sleep((count * 1000) / 70);
 306 }
 307
 308 //
 309 // I_Error
 310 //
 311 extern boolean demorecording;
 312
 313 static boolean already_quitting = false;
 314
 315 void I_Error (char *error, ...)
 316 {
 317     va_list     argptr;
 318
 319     if (already_quitting)
 320     {
 321         fprintf(stderr, "Warning: recursive call to I_Error detected.\n");
 322         exit(-1);
 323     }
 324     else
 325     {
 326         already_quitting = true;
 327     }
 328
 329     // Message first.
 330     va_start(argptr, error);
 331     fprintf(stderr, "\nError: ");
 332     vfprintf(stderr, error, argptr);
 333     fprintf(stderr, "\n");
 334     va_end(argptr);
 335     fflush(stderr);
 336
 337     // Shutdown. Here might be other errors.
 338
 339     if (demorecording)
 340     {
 341         G_CheckDemoStatus();
 342     }
 343
 344     D_QuitNetGame ();
 345     I_ShutdownGraphics();
 346     S_Shutdown();
 347
 348 #ifdef _WIN32
 349     // On Windows, pop up a dialog box with the error message.
 350     {
 351         char msgbuf[512];
 352         wchar_t wmsgbuf[512];
 353
 354         va_start(argptr, error);
 355         memset(msgbuf, 0, sizeof(msgbuf));
 356         vsnprintf(msgbuf, sizeof(msgbuf) - 1, error, argptr);
 357         va_end(argptr);
 358
 359         MultiByteToWideChar(CP_ACP, 0,
 360                             msgbuf, strlen(msgbuf) + 1,
 361                             wmsgbuf, sizeof(wmsgbuf));
 362
 363         MessageBoxW(NULL, wmsgbuf, L"Error", MB_OK);
 364     }
 365 #endif
 366
 367     // abort();
 368
 369     exit(-1);
 370 }
 371