src/libgame/system.c

   1 /***********************************************************
   2 * Artsoft Retro-Game Library                               *
   3 *----------------------------------------------------------*
   4 * (c) 1994-2002 Artsoft Entertainment                      *
   5 *               Holger Schemel                             *
   6 *               Detmolder Strasse 189                      *
   7 *               33604 Bielefeld                            *
   8 *               Germany                                    *
   9 *               e-mail: info@artsoft.org                   *
  10 *----------------------------------------------------------*
  11 * system.c                                                 *
  12 ***********************************************************/
  13
  14 #include <string.h>
  15 #include <signal.h>
  16
  17 #include "platform.h"
  18
  19 #if defined(PLATFORM_MSDOS)
  20 #include <fcntl.h>
  21 #endif
  22
  23 #include "system.h"
  24 #include "image.h"
  25 #include "sound.h"
  26 #include "setup.h"
  27 #include "joystick.h"
  28 #include "misc.h"
  29
  30
  31 /* ========================================================================= */
  32 /* exported variables                                                        */
  33 /* ========================================================================= */
  34
  35 struct ProgramInfo      program;
  36 struct OptionInfo       options;
  37 struct VideoSystemInfo  video;
  38 struct AudioSystemInfo  audio;
  39 struct GfxInfo          gfx;
  40 struct ArtworkInfo      artwork;
  41 struct JoystickInfo     joystick;
  42 struct SetupInfo        setup;
  43
  44 LevelDirTree           *leveldir_first_all = NULL;
  45 LevelDirTree           *leveldir_first = NULL;
  46 LevelDirTree           *leveldir_current = NULL;
  47 int                     level_nr;
  48
  49 Display                *display = NULL;
  50 Visual                 *visual = NULL;
  51 int                     screen = 0;
  52 Colormap                cmap = None;
  53
  54 DrawWindow             *window = NULL;
  55 DrawBuffer             *backbuffer = NULL;
  56 DrawBuffer             *drawto = NULL;
  57
  58 int                     button_status = MB_NOT_PRESSED;
  59 boolean                 motion_status = FALSE;
  60
  61 int                     redraw_mask = REDRAW_NONE;
  62 int                     redraw_tiles = 0;
  63
  64 int                     FrameCounter = 0;
  65
  66
  67 /* ========================================================================= */
  68 /* init/close functions                                                      */
  69 /* ========================================================================= */
  70
  71 void InitProgramInfo(char *argv0,
  72                      char *userdata_subdir, char *userdata_subdir_unix,
  73                      char *program_title, char *window_title, char *icon_title,
  74                      char *x11_icon_filename, char *x11_iconmask_filename,
  75                      char *msdos_cursor_filename,
  76                      char *cookie_prefix, char *filename_prefix,
  77                      int program_version)
  78 {
  79   program.command_basepath = getBasePath(argv0);
  80   program.command_basename = getBaseName(argv0);
  81
  82   program.userdata_subdir = userdata_subdir;
  83   program.userdata_subdir_unix = userdata_subdir_unix;
  84   program.userdata_path = getUserGameDataDir();
  85
  86   program.program_title = program_title;
  87   program.window_title = window_title;
  88   program.icon_title = icon_title;
  89
  90   program.x11_icon_filename = x11_icon_filename;
  91   program.x11_iconmask_filename = x11_iconmask_filename;
  92   program.msdos_cursor_filename = msdos_cursor_filename;
  93
  94   program.cookie_prefix = cookie_prefix;
  95   program.filename_prefix = filename_prefix;
  96
  97   program.version_major = VERSION_MAJOR(program_version);
  98   program.version_minor = VERSION_MINOR(program_version);
  99   program.version_patch = VERSION_PATCH(program_version);
 100
 101   program.error_filename = getErrorFilename(ERROR_BASENAME);
 102   program.error_file = stderr;
 103 }
 104
 105 void InitExitFunction(void (*exit_function)(int))
 106 {
 107   program.exit_function = exit_function;
 108
 109   /* set signal handlers to custom exit function */
 110   signal(SIGINT, exit_function);
 111   signal(SIGTERM, exit_function);
 112
 113 #if defined(TARGET_SDL)
 114   /* set exit function to automatically cleanup SDL stuff after exit() */
 115   atexit(SDL_Quit);
 116 #endif
 117 }
 118
 119 void InitPlatformDependentStuff(void)
 120 {
 121 #if defined(PLATFORM_MSDOS)
 122   _fmode = O_BINARY;
 123 #endif
 124
 125 #if defined(PLATFORM_MACOSX)
 126   updateUserGameDataDir();
 127 #endif
 128
 129 #if !defined(PLATFORM_UNIX) || defined(PLATFORM_MACOSX)
 130   openErrorFile();
 131 #endif
 132
 133 #if defined(TARGET_SDL)
 134   if (SDL_Init(SDL_INIT_EVENTTHREAD | SDL_INIT_NOPARACHUTE) < 0)
 135     Error(ERR_EXIT, "SDL_Init() failed: %s", SDL_GetError());
 136
 137   SDLNet_Init();
 138 #endif
 139 }
 140
 141 void ClosePlatformDependentStuff(void)
 142 {
 143 #if defined(PLATFORM_WIN32) || defined(PLATFORM_MSDOS)
 144   closeErrorFile();
 145 #endif
 146
 147 #if defined(PLATFORM_MSDOS)
 148   dumpErrorFile();
 149 #endif
 150 }
 151
 152 void InitGfxFieldInfo(int sx, int sy, int sxsize, int sysize,
 153                       int real_sx, int real_sy,
 154                       int full_sxsize, int full_sysize,
 155                       Bitmap *field_save_buffer)
 156 {
 157   gfx.sx = sx;
 158   gfx.sy = sy;
 159   gfx.sxsize = sxsize;
 160   gfx.sysize = sysize;
 161   gfx.real_sx = real_sx;
 162   gfx.real_sy = real_sy;
 163   gfx.full_sxsize = full_sxsize;
 164   gfx.full_sysize = full_sysize;
 165
 166   gfx.field_save_buffer = field_save_buffer;
 167
 168   gfx.background_bitmap = NULL;
 169   gfx.background_bitmap_mask = REDRAW_NONE;
 170
 171   SetDrawDeactivationMask(REDRAW_NONE);         /* do not deactivate drawing */
 172   SetDrawBackgroundMask(REDRAW_NONE);           /* deactivate masked drawing */
 173 }
 174
 175 void InitGfxDoor1Info(int dx, int dy, int dxsize, int dysize)
 176 {
 177   gfx.dx = dx;
 178   gfx.dy = dy;
 179   gfx.dxsize = dxsize;
 180   gfx.dysize = dysize;
 181 }
 182
 183 void InitGfxDoor2Info(int vx, int vy, int vxsize, int vysize)
 184 {
 185   gfx.vx = vx;
 186   gfx.vy = vy;
 187   gfx.vxsize = vxsize;
 188   gfx.vysize = vysize;
 189 }
 190
 191 void InitGfxScrollbufferInfo(int scrollbuffer_width, int scrollbuffer_height)
 192 {
 193   /* currently only used by MSDOS code to alloc VRAM buffer, if available */
 194   gfx.scrollbuffer_width = scrollbuffer_width;
 195   gfx.scrollbuffer_height = scrollbuffer_height;
 196 }
 197
 198 void SetDrawDeactivationMask(int draw_deactivation_mask)
 199 {
 200   gfx.draw_deactivation_mask = draw_deactivation_mask;
 201 }
 202
 203 void SetDrawBackgroundMask(int draw_background_mask)
 204 {
 205   gfx.draw_background_mask = draw_background_mask;
 206 }
 207
 208 static void DrawBitmapFromTile(Bitmap *bitmap, Bitmap *tile,
 209                                int dest_x, int dest_y, int width, int height)
 210 {
 211   int bitmap_xsize = width;
 212   int bitmap_ysize = height;
 213   int tile_xsize = tile->width;
 214   int tile_ysize = tile->height;
 215   int tile_xsteps = (bitmap_xsize + tile_xsize - 1) / tile_xsize;
 216   int tile_ysteps = (bitmap_ysize + tile_ysize - 1) / tile_ysize;
 217   int x, y;
 218
 219   for (y = 0; y < tile_ysteps; y++)
 220   {
 221     for (x = 0; x < tile_xsteps; x++)
 222     {
 223       int draw_x = dest_x + x * tile_xsize;
 224       int draw_y = dest_y + y * tile_ysize;
 225       int draw_xsize = MIN(tile_xsize, bitmap_xsize - x * tile_xsize);
 226       int draw_ysize = MIN(tile_ysize, bitmap_ysize - y * tile_ysize);
 227
 228       BlitBitmap(tile, bitmap, 0, 0, draw_xsize, draw_ysize, draw_x, draw_y);
 229     }
 230   }
 231 }
 232
 233 void SetBackgroundBitmap(Bitmap *background_bitmap_tile, int mask)
 234 {
 235   if (background_bitmap_tile != NULL)
 236     gfx.background_bitmap_mask |= mask;
 237   else
 238     gfx.background_bitmap_mask &= ~mask;
 239
 240   if (gfx.background_bitmap == NULL)
 241     gfx.background_bitmap = CreateBitmap(video.width, video.height,
 242                                          DEFAULT_DEPTH);
 243
 244   if (background_bitmap_tile == NULL)   /* empty background requested */
 245     return;
 246
 247   if (mask == REDRAW_FIELD)
 248     DrawBitmapFromTile(gfx.background_bitmap, background_bitmap_tile,
 249                        gfx.real_sx, gfx.real_sy,
 250                        gfx.full_sxsize, gfx.full_sysize);
 251   else if (mask == REDRAW_DOOR_1)
 252   {
 253     DrawBitmapFromTile(gfx.background_bitmap, background_bitmap_tile,
 254                        gfx.dx, gfx.dy,
 255                        gfx.dxsize, gfx.dysize);
 256   }
 257 }
 258
 259 void SetMainBackgroundBitmap(Bitmap *background_bitmap_tile)
 260 {
 261   SetBackgroundBitmap(background_bitmap_tile, REDRAW_FIELD);
 262 }
 263
 264 void SetDoorBackgroundBitmap(Bitmap *background_bitmap_tile)
 265 {
 266   SetBackgroundBitmap(background_bitmap_tile, REDRAW_DOOR_1);
 267 }
 268
 269
 270 /* ========================================================================= */
 271 /* video functions                                                           */
 272 /* ========================================================================= */
 273
 274 inline static int GetRealDepth(int depth)
 275 {
 276   return (depth == DEFAULT_DEPTH ? video.default_depth : depth);
 277 }
 278
 279 inline static void sysFillRectangle(Bitmap *bitmap, int x, int y,
 280                                int width, int height, Pixel color)
 281 {
 282 #if defined(TARGET_SDL)
 283   SDLFillRectangle(bitmap, x, y, width, height, color);
 284 #else
 285   X11FillRectangle(bitmap, x, y, width, height, color);
 286 #endif
 287 }
 288
 289 inline static void sysCopyArea(Bitmap *src_bitmap, Bitmap *dst_bitmap,
 290                                int src_x, int src_y, int width, int height,
 291                                int dst_x, int dst_y, int mask_mode)
 292 {
 293 #if defined(TARGET_SDL)
 294   SDLCopyArea(src_bitmap, dst_bitmap, src_x, src_y, width, height,
 295               dst_x, dst_y, mask_mode);
 296 #else
 297   X11CopyArea(src_bitmap, dst_bitmap, src_x, src_y, width, height,
 298               dst_x, dst_y, mask_mode);
 299 #endif
 300 }
 301
 302 void InitVideoDisplay(void)
 303 {
 304 #if defined(TARGET_SDL)
 305   SDLInitVideoDisplay();
 306 #else
 307   X11InitVideoDisplay();
 308 #endif
 309 }
 310
 311 void CloseVideoDisplay(void)
 312 {
 313   KeyboardAutoRepeatOn();
 314
 315 #if defined(TARGET_SDL)
 316   SDL_QuitSubSystem(SDL_INIT_VIDEO);
 317 #else
 318   if (display)
 319     XCloseDisplay(display);
 320 #endif
 321 }
 322
 323 void InitVideoBuffer(DrawBuffer **backbuffer, DrawWindow **window,
 324                      int width, int height, int depth, boolean fullscreen)
 325 {
 326   video.width = width;
 327   video.height = height;
 328   video.depth = GetRealDepth(depth);
 329   video.fullscreen_available = FULLSCREEN_STATUS;
 330   video.fullscreen_enabled = FALSE;
 331   video.fullscreen_modes = NULL;
 332
 333 #if defined(TARGET_SDL)
 334   SDLInitVideoBuffer(backbuffer, window, fullscreen);
 335 #else
 336   X11InitVideoBuffer(backbuffer, window);
 337 #endif
 338 }
 339
 340 Bitmap *CreateBitmapStruct(void)
 341 {
 342 #if defined(TARGET_SDL)
 343   return checked_calloc(sizeof(struct SDLSurfaceInfo));
 344 #else
 345   return checked_calloc(sizeof(struct X11DrawableInfo));
 346 #endif
 347 }
 348
 349 Bitmap *CreateBitmap(int width, int height, int depth)
 350 {
 351   Bitmap *new_bitmap = CreateBitmapStruct();
 352   int real_depth = GetRealDepth(depth);
 353
 354 #if defined(TARGET_SDL)
 355   SDLCreateBitmapContent(new_bitmap, width, height, real_depth);
 356 #else
 357   X11CreateBitmapContent(new_bitmap, width, height, real_depth);
 358 #endif
 359
 360   new_bitmap->width = width;
 361   new_bitmap->height = height;
 362
 363   return new_bitmap;
 364 }
 365
 366 inline static void FreeBitmapPointers(Bitmap *bitmap)
 367 {
 368   if (bitmap == NULL)
 369     return;
 370
 371 #if defined(TARGET_SDL)
 372   SDLFreeBitmapPointers(bitmap);
 373 #else
 374   X11FreeBitmapPointers(bitmap);
 375 #endif
 376
 377   checked_free(bitmap->source_filename);
 378   bitmap->source_filename = NULL;
 379 }
 380
 381 inline static void TransferBitmapPointers(Bitmap *src_bitmap,
 382                                           Bitmap *dst_bitmap)
 383 {
 384   if (src_bitmap == NULL || dst_bitmap == NULL)
 385     return;
 386
 387   FreeBitmapPointers(dst_bitmap);
 388
 389   *dst_bitmap = *src_bitmap;
 390 }
 391
 392 void FreeBitmap(Bitmap *bitmap)
 393 {
 394   if (bitmap == NULL)
 395     return;
 396
 397   FreeBitmapPointers(bitmap);
 398
 399   free(bitmap);
 400 }
 401
 402 void CloseWindow(DrawWindow *window)
 403 {
 404 #if defined(TARGET_X11)
 405   if (window->drawable)
 406   {
 407     XUnmapWindow(display, window->drawable);
 408     XDestroyWindow(display, window->drawable);
 409   }
 410   if (window->gc)
 411     XFreeGC(display, window->gc);
 412 #endif
 413 }
 414
 415 inline static boolean CheckDrawingArea(int x, int y, int width, int height,
 416                                        int draw_mask)
 417 {
 418   if (draw_mask == REDRAW_NONE)
 419     return FALSE;
 420
 421   if (draw_mask & REDRAW_ALL)
 422     return TRUE;
 423
 424   if ((draw_mask & REDRAW_FIELD) && x < gfx.real_sx + gfx.full_sxsize)
 425     return TRUE;
 426
 427   if ((draw_mask & REDRAW_DOOR_1) && x >= gfx.dx && y < gfx.dy + gfx.dysize)
 428     return TRUE;
 429
 430   if ((draw_mask & REDRAW_DOOR_2) && x >= gfx.dx && y >= gfx.vy)
 431     return TRUE;
 432
 433   return FALSE;
 434 }
 435
 436 boolean DrawingDeactivated(int x, int y, int width, int height)
 437 {
 438   return CheckDrawingArea(x, y, width, height, gfx.draw_deactivation_mask);
 439 }
 440
 441 boolean DrawingOnBackground(int x, int y)
 442 {
 443   return (CheckDrawingArea(x, y, 1, 1, gfx.background_bitmap_mask) &&
 444           CheckDrawingArea(x, y, 1, 1, gfx.draw_background_mask));
 445 }
 446
 447 void BlitBitmap(Bitmap *src_bitmap, Bitmap *dst_bitmap,
 448                 int src_x, int src_y, int width, int height,
 449                 int dst_x, int dst_y)
 450 {
 451   if (DrawingDeactivated(dst_x, dst_y, width, height))
 452     return;
 453
 454   sysCopyArea(src_bitmap, dst_bitmap, src_x, src_y, width, height,
 455               dst_x, dst_y, BLIT_OPAQUE);
 456 }
 457
 458 void FadeScreen(Bitmap *bitmap_cross, int fade_mode, int fade_delay,
 459                 int post_delay)
 460 {
 461 #if defined(TARGET_SDL)
 462   SDLFadeScreen(bitmap_cross, fade_mode, fade_delay, post_delay);
 463 #else
 464   X11FadeScreen(bitmap_cross, fade_mode, fade_delay, post_delay);
 465 #endif
 466 }
 467
 468 void FillRectangle(Bitmap *bitmap, int x, int y, int width, int height,
 469                    Pixel color)
 470 {
 471   if (DrawingDeactivated(x, y, width, height))
 472     return;
 473
 474   sysFillRectangle(bitmap, x, y, width, height, color);
 475 }
 476
 477 void ClearRectangle(Bitmap *bitmap, int x, int y, int width, int height)
 478 {
 479   FillRectangle(bitmap, x, y, width, height, BLACK_PIXEL);
 480 }
 481
 482 void ClearRectangleOnBackground(Bitmap *bitmap, int x, int y,
 483                                 int width, int height)
 484 {
 485   if (DrawingOnBackground(x, y))
 486     BlitBitmap(gfx.background_bitmap, bitmap, x, y, width, height, x, y);
 487   else
 488     ClearRectangle(bitmap, x, y, width, height);
 489 }
 490
 491 void SetClipMask(Bitmap *bitmap, GC clip_gc, Pixmap clip_pixmap)
 492 {
 493 #if defined(TARGET_X11)
 494   if (clip_gc)
 495   {
 496     bitmap->clip_gc = clip_gc;
 497     XSetClipMask(display, bitmap->clip_gc, clip_pixmap);
 498   }
 499 #endif
 500 }
 501
 502 void SetClipOrigin(Bitmap *bitmap, GC clip_gc, int clip_x, int clip_y)
 503 {
 504 #if defined(TARGET_X11)
 505   if (clip_gc)
 506   {
 507     bitmap->clip_gc = clip_gc;
 508     XSetClipOrigin(display, bitmap->clip_gc, clip_x, clip_y);
 509   }
 510 #endif
 511 }
 512
 513 void BlitBitmapMasked(Bitmap *src_bitmap, Bitmap *dst_bitmap,
 514                       int src_x, int src_y, int width, int height,
 515                       int dst_x, int dst_y)
 516 {
 517   if (DrawingDeactivated(dst_x, dst_y, width, height))
 518     return;
 519
 520   sysCopyArea(src_bitmap, dst_bitmap, src_x, src_y, width, height,
 521               dst_x, dst_y, BLIT_MASKED);
 522 }
 523
 524 void BlitBitmapOnBackground(Bitmap *src_bitmap, Bitmap *dst_bitmap,
 525                             int src_x, int src_y, int width, int height,
 526                             int dst_x, int dst_y)
 527 {
 528   if (DrawingOnBackground(dst_x, dst_y))
 529   {
 530     /* draw background */
 531     BlitBitmap(gfx.background_bitmap, dst_bitmap, dst_x, dst_y, width, height,
 532                dst_x, dst_y);
 533
 534     /* draw foreground */
 535     SetClipOrigin(src_bitmap, src_bitmap->stored_clip_gc,
 536                   dst_x - src_x, dst_y - src_y);
 537     BlitBitmapMasked(src_bitmap, dst_bitmap, src_x, src_y, width, height,
 538                      dst_x, dst_y);
 539   }
 540   else
 541     BlitBitmap(src_bitmap, dst_bitmap, src_x, src_y, width, height,
 542                dst_x, dst_y);
 543 }
 544
 545 void DrawSimpleBlackLine(Bitmap *bitmap, int from_x, int from_y,
 546                          int to_x, int to_y)
 547 {
 548 #if defined(TARGET_SDL)
 549   SDLDrawSimpleLine(bitmap, from_x, from_y, to_x, to_y, BLACK_PIXEL);
 550 #else
 551   X11DrawSimpleLine(bitmap, from_x, from_y, to_x, to_y, BLACK_PIXEL);
 552 #endif
 553 }
 554
 555 void DrawSimpleWhiteLine(Bitmap *bitmap, int from_x, int from_y,
 556                          int to_x, int to_y)
 557 {
 558 #if defined(TARGET_SDL)
 559   SDLDrawSimpleLine(bitmap, from_x, from_y, to_x, to_y, WHITE_PIXEL);
 560 #else
 561   X11DrawSimpleLine(bitmap, from_x, from_y, to_x, to_y, WHITE_PIXEL);
 562 #endif
 563 }
 564
 565 #if !defined(TARGET_X11_NATIVE)
 566 void DrawLine(Bitmap *bitmap, int from_x, int from_y,
 567               int to_x, int to_y, Pixel pixel, int line_width)
 568 {
 569   int x, y;
 570
 571   for (x = 0; x < line_width; x++)
 572   {
 573     for (y = 0; y < line_width; y++)
 574     {
 575       int dx = x - line_width / 2;
 576       int dy = y - line_width / 2;
 577
 578       if ((x == 0 && y == 0) ||
 579           (x == 0 && y == line_width - 1) ||
 580           (x == line_width - 1 && y == 0) ||
 581           (x == line_width - 1 && y == line_width - 1))
 582         continue;
 583
 584 #if defined(TARGET_SDL)
 585       SDLDrawLine(bitmap,
 586                   from_x + dx, from_y + dy, to_x + dx, to_y + dy, pixel);
 587 #elif defined(TARGET_ALLEGRO)
 588       AllegroDrawLine(bitmap->drawable, from_x + dx, from_y + dy,
 589                       to_x + dx, to_y + dy, pixel);
 590 #endif
 591     }
 592   }
 593 }
 594 #endif
 595
 596 void DrawLines(Bitmap *bitmap, struct XY *points, int num_points, Pixel pixel)
 597 {
 598 #if !defined(TARGET_X11_NATIVE)
 599   int line_width = 4;
 600   int i;
 601
 602   for (i = 0; i < num_points - 1; i++)
 603     DrawLine(bitmap, points[i].x, points[i].y,
 604              points[i + 1].x, points[i + 1].y, pixel, line_width);
 605
 606   /*
 607   SDLDrawLines(bitmap->surface, points, num_points, pixel);
 608   */
 609 #else
 610   XSetForeground(display, bitmap->line_gc[1], pixel);
 611   XDrawLines(display, bitmap->drawable, bitmap->line_gc[1],
 612              (XPoint *)points, num_points, CoordModeOrigin);
 613 #endif
 614 }
 615
 616 Pixel GetPixel(Bitmap *bitmap, int x, int y)
 617 {
 618   if (x < 0 || x >= bitmap->width ||
 619       y < 0 || y >= bitmap->height)
 620     return BLACK_PIXEL;
 621
 622 #if defined(TARGET_SDL)
 623   return SDLGetPixel(bitmap, x, y);
 624 #elif defined(TARGET_ALLEGRO)
 625   return AllegroGetPixel(bitmap->drawable, x, y);
 626 #else
 627   return X11GetPixel(bitmap, x, y);
 628 #endif
 629 }
 630
 631 Pixel GetPixelFromRGB(Bitmap *bitmap, unsigned int color_r,
 632                       unsigned int color_g, unsigned int color_b)
 633 {
 634 #if defined(TARGET_SDL)
 635   return SDL_MapRGB(bitmap->surface->format, color_r, color_g, color_b);
 636 #elif defined(TARGET_ALLEGRO)
 637   return AllegroAllocColorCell(color_r << 8, color_g << 8, color_b << 8);
 638 #else
 639   return X11GetPixelFromRGB(color_r, color_g, color_b);
 640 #endif
 641 }
 642
 643 Pixel GetPixelFromRGBcompact(Bitmap *bitmap, unsigned int color)
 644 {
 645   unsigned int color_r = (color >> 16) & 0xff;
 646   unsigned int color_g = (color >>  8) & 0xff;
 647   unsigned int color_b = (color >>  0) & 0xff;
 648
 649   return GetPixelFromRGB(bitmap, color_r, color_g, color_b);
 650 }
 651
 652 /* execute all pending screen drawing operations */
 653 void FlushDisplay(void)
 654 {
 655 #ifndef TARGET_SDL
 656   XFlush(display);
 657 #endif
 658 }
 659
 660 /* execute and wait for all pending screen drawing operations */
 661 void SyncDisplay(void)
 662 {
 663 #ifndef TARGET_SDL
 664   XSync(display, FALSE);
 665 #endif
 666 }
 667
 668 void KeyboardAutoRepeatOn(void)
 669 {
 670 #if defined(TARGET_SDL)
 671   SDL_EnableKeyRepeat(SDL_DEFAULT_REPEAT_DELAY / 2,
 672                       SDL_DEFAULT_REPEAT_INTERVAL / 2);
 673   SDL_EnableUNICODE(1);
 674 #else
 675   if (display)
 676     XAutoRepeatOn(display);
 677 #endif
 678 }
 679
 680 void KeyboardAutoRepeatOff(void)
 681 {
 682 #if defined(TARGET_SDL)
 683   SDL_EnableKeyRepeat(0, SDL_DEFAULT_REPEAT_INTERVAL);
 684   SDL_EnableUNICODE(0);
 685 #else
 686   if (display)
 687     XAutoRepeatOff(display);
 688 #endif
 689 }
 690
 691 boolean PointerInWindow(DrawWindow *window)
 692 {
 693 #if defined(TARGET_SDL)
 694   return TRUE;
 695 #else
 696   Window root, child;
 697   int root_x, root_y;
 698   unsigned int mask;
 699   int win_x, win_y;
 700
 701   /* if XQueryPointer() returns False, the pointer
 702      is not on the same screen as the specified window */
 703   return XQueryPointer(display, window->drawable, &root, &child,
 704                        &root_x, &root_y, &win_x, &win_y, &mask);
 705 #endif
 706 }
 707
 708 boolean SetVideoMode(boolean fullscreen)
 709 {
 710 #if defined(TARGET_SDL)
 711   return SDLSetVideoMode(&backbuffer, fullscreen);
 712 #else
 713   boolean success = TRUE;
 714
 715   if (fullscreen && video.fullscreen_available)
 716   {
 717     Error(ERR_WARN, "fullscreen not available in X11 version");
 718
 719     /* display error message only once */
 720     video.fullscreen_available = FALSE;
 721
 722     success = FALSE;
 723   }
 724
 725   return success;
 726 #endif
 727 }
 728
 729 boolean ChangeVideoModeIfNeeded(boolean fullscreen)
 730 {
 731 #if defined(TARGET_SDL)
 732   if ((fullscreen && !video.fullscreen_enabled && video.fullscreen_available)||
 733       (!fullscreen && video.fullscreen_enabled))
 734     fullscreen = SetVideoMode(fullscreen);
 735 #endif
 736
 737   return fullscreen;
 738 }
 739
 740 Bitmap *LoadImage(char *filename)
 741 {
 742   Bitmap *new_bitmap;
 743
 744 #if defined(TARGET_SDL)
 745   new_bitmap = SDLLoadImage(filename);
 746 #else
 747   new_bitmap = X11LoadImage(filename);
 748 #endif
 749
 750   if (new_bitmap)
 751     new_bitmap->source_filename = getStringCopy(filename);
 752
 753   return new_bitmap;
 754 }
 755
 756 Bitmap *LoadCustomImage(char *basename)
 757 {
 758   char *filename = getCustomImageFilename(basename);
 759   Bitmap *new_bitmap;
 760
 761   if (filename == NULL)
 762     Error(ERR_EXIT, "LoadCustomImage(): cannot find file '%s'", basename);
 763
 764   if ((new_bitmap = LoadImage(filename)) == NULL)
 765     Error(ERR_EXIT, "LoadImage() failed: %s", GetError());
 766
 767   return new_bitmap;
 768 }
 769
 770 void ReloadCustomImage(Bitmap *bitmap, char *basename)
 771 {
 772   char *filename = getCustomImageFilename(basename);
 773   Bitmap *new_bitmap;
 774
 775   if (filename == NULL)         /* (should never happen) */
 776   {
 777     Error(ERR_WARN, "ReloadCustomImage(): cannot find file '%s'", basename);
 778     return;
 779   }
 780
 781   if (strEqual(filename, bitmap->source_filename))
 782   {
 783     /* The old and new image are the same (have the same filename and path).
 784        This usually means that this image does not exist in this graphic set
 785        and a fallback to the existing image is done. */
 786
 787     return;
 788   }
 789
 790   if ((new_bitmap = LoadImage(filename)) == NULL)
 791   {
 792     Error(ERR_WARN, "LoadImage() failed: %s", GetError());
 793     return;
 794   }
 795
 796   if (bitmap->width != new_bitmap->width ||
 797       bitmap->height != new_bitmap->height)
 798   {
 799     Error(ERR_WARN, "ReloadCustomImage: new image '%s' has wrong dimensions",
 800           filename);
 801     FreeBitmap(new_bitmap);
 802     return;
 803   }
 804
 805   TransferBitmapPointers(new_bitmap, bitmap);
 806   free(new_bitmap);
 807 }
 808
 809 Bitmap *ZoomBitmap(Bitmap *src_bitmap, int zoom_width, int zoom_height)
 810 {
 811   Bitmap *dst_bitmap = CreateBitmap(zoom_width, zoom_height, DEFAULT_DEPTH);
 812
 813 #if defined(TARGET_SDL)
 814   SDLZoomBitmap(src_bitmap, dst_bitmap);
 815 #else
 816   X11ZoomBitmap(src_bitmap, dst_bitmap);
 817 #endif
 818
 819   return dst_bitmap;
 820 }
 821
 822 static void CreateScaledBitmaps(Bitmap *old_bitmap, int zoom_factor,
 823                                 boolean create_small_bitmaps)
 824 {
 825   Bitmap swap_bitmap;
 826   Bitmap *new_bitmap, *tmp_bitmap_1, *tmp_bitmap_2, *tmp_bitmap_4,*tmp_bitmap_8;
 827   int width_1, height_1, width_2, height_2, width_4, height_4, width_8,height_8;
 828   int new_width, new_height;
 829
 830   /* calculate new image dimensions for normal sized image */
 831   width_1  = old_bitmap->width  * zoom_factor;
 832   height_1 = old_bitmap->height * zoom_factor;
 833
 834   /* get image with normal size (this might require scaling up) */
 835   if (zoom_factor != 1)
 836     tmp_bitmap_1 = ZoomBitmap(old_bitmap, width_1, height_1);
 837   else
 838     tmp_bitmap_1 = old_bitmap;
 839
 840   /* this is only needed to make compilers happy */
 841   tmp_bitmap_2 = tmp_bitmap_4 = tmp_bitmap_8 = NULL;
 842
 843   if (create_small_bitmaps)
 844   {
 845     /* calculate new image dimensions for small images */
 846     width_2  = width_1  / 2;
 847     height_2 = height_1 / 2;
 848     width_4  = width_1  / 4;
 849     height_4 = height_1 / 4;
 850     width_8  = width_1  / 8;
 851     height_8 = height_1 / 8;
 852
 853     /* get image with 1/2 of normal size (for use in the level editor) */
 854     if (zoom_factor != 2)
 855       tmp_bitmap_2 = ZoomBitmap(tmp_bitmap_1, width_1 / 2, height_1 / 2);
 856     else
 857       tmp_bitmap_2 = old_bitmap;
 858
 859     /* get image with 1/4 of normal size (for use in the level editor) */
 860     if (zoom_factor != 4)
 861       tmp_bitmap_4 = ZoomBitmap(tmp_bitmap_2, width_2 / 2, height_2 / 2);
 862     else
 863       tmp_bitmap_4 = old_bitmap;
 864
 865     /* get image with 1/8 of normal size (for use on the preview screen) */
 866     if (zoom_factor != 8)
 867       tmp_bitmap_8 = ZoomBitmap(tmp_bitmap_4, width_4 / 2, height_4 / 2);
 868     else
 869       tmp_bitmap_8 = old_bitmap;
 870   }
 871
 872   /* if image was scaled up, create new clipmask for normal size image */
 873   if (zoom_factor != 1)
 874   {
 875 #if defined(TARGET_X11)
 876     if (old_bitmap->clip_mask)
 877       XFreePixmap(display, old_bitmap->clip_mask);
 878
 879     old_bitmap->clip_mask =
 880       Pixmap_to_Mask(tmp_bitmap_1->drawable, width_1, height_1);
 881
 882     XSetClipMask(display, old_bitmap->stored_clip_gc, old_bitmap->clip_mask);
 883 #else
 884     SDL_Surface *tmp_surface_1 = tmp_bitmap_1->surface;
 885
 886     if (old_bitmap->surface_masked)
 887       SDL_FreeSurface(old_bitmap->surface_masked);
 888
 889     SDL_SetColorKey(tmp_surface_1, SDL_SRCCOLORKEY,
 890                     SDL_MapRGB(tmp_surface_1->format, 0x00, 0x00, 0x00));
 891     if ((old_bitmap->surface_masked = SDL_DisplayFormat(tmp_surface_1)) ==NULL)
 892       Error(ERR_EXIT, "SDL_DisplayFormat() failed");
 893     SDL_SetColorKey(tmp_surface_1, 0, 0);       /* reset transparent pixel */
 894 #endif
 895   }
 896
 897   if (create_small_bitmaps)
 898   {
 899     new_width  = width_1;
 900     new_height = height_1 + (height_1 + 1) / 2;     /* prevent odd height */
 901
 902     new_bitmap = CreateBitmap(new_width, new_height, DEFAULT_DEPTH);
 903
 904     BlitBitmap(tmp_bitmap_1, new_bitmap, 0, 0, width_1, height_1, 0, 0);
 905     BlitBitmap(tmp_bitmap_2, new_bitmap, 0, 0, width_1 / 2, height_1 / 2,
 906                0, height_1);
 907     BlitBitmap(tmp_bitmap_4, new_bitmap, 0, 0, width_1 / 4, height_1 / 4,
 908                width_1 / 2, height_1);
 909     BlitBitmap(tmp_bitmap_8, new_bitmap, 0, 0, width_1 / 8, height_1 / 8,
 910                3 * width_1 / 4, height_1);
 911   }
 912   else
 913   {
 914     new_width  = width_1;
 915     new_height = height_1;
 916
 917     new_bitmap = tmp_bitmap_1;  /* directly use tmp_bitmap_1 as new bitmap */
 918   }
 919
 920   if (create_small_bitmaps)
 921   {
 922     /* if no small bitmaps created, tmp_bitmap_1 is used as new bitmap now */
 923     if (zoom_factor != 1)
 924       FreeBitmap(tmp_bitmap_1);
 925
 926     if (zoom_factor != 2)
 927       FreeBitmap(tmp_bitmap_2);
 928
 929     if (zoom_factor != 4)
 930       FreeBitmap(tmp_bitmap_4);
 931
 932     if (zoom_factor != 8)
 933       FreeBitmap(tmp_bitmap_8);
 934   }
 935
 936   /* replace image with extended image (containing 1/1, 1/2, 1/4, 1/8 size) */
 937 #if defined(TARGET_SDL)
 938   swap_bitmap.surface = old_bitmap->surface;
 939   old_bitmap->surface = new_bitmap->surface;
 940   new_bitmap->surface = swap_bitmap.surface;
 941 #else
 942   swap_bitmap.drawable = old_bitmap->drawable;
 943   old_bitmap->drawable = new_bitmap->drawable;
 944   new_bitmap->drawable = swap_bitmap.drawable;
 945 #endif
 946
 947   old_bitmap->width  = new_bitmap->width;
 948   old_bitmap->height = new_bitmap->height;
 949
 950   FreeBitmap(new_bitmap);       /* this actually frees the _old_ bitmap now */
 951 }
 952
 953 void CreateBitmapWithSmallBitmaps(Bitmap *old_bitmap, int zoom_factor)
 954 {
 955   CreateScaledBitmaps(old_bitmap, zoom_factor, TRUE);
 956 }
 957
 958 void ScaleBitmap(Bitmap *old_bitmap, int zoom_factor)
 959 {
 960   CreateScaledBitmaps(old_bitmap, zoom_factor, FALSE);
 961 }
 962
 963
 964 /* ------------------------------------------------------------------------- */
 965 /* mouse pointer functions                                                   */
 966 /* ------------------------------------------------------------------------- */
 967
 968 #if !defined(PLATFORM_MSDOS)
 969 /* XPM */
 970 static const char *cursor_image_playfield[] =
 971 {
 972   /* width height num_colors chars_per_pixel */
 973   "    16    16        3            1",
 974
 975   /* colors */
 976   "X c #000000",
 977   ". c #ffffff",
 978   "  c None",
 979
 980 #if 1
 981   /* some people complained about a "white dot" on the screen and thought it
 982      was a graphical error... OK, let's just remove the whole pointer :-) */
 983
 984   /* pixels */
 985   "                ",
 986   "                ",
 987   "                ",
 988   "                ",
 989   "                ",
 990   "                ",
 991   "                ",
 992   "                ",
 993   "                ",
 994   "                ",
 995   "                ",
 996   "                ",
 997   "                ",
 998   "                ",
 999   "                ",
1000   "                ",
1001
1002   /* hot spot */
1003   "0,0"
1004
1005 #else
1006
1007   /* pixels */
1008   " X              ",
1009   "X.X             ",
1010   " X              ",
1011   "                ",
1012   "                ",
1013   "                ",
1014   "                ",
1015   "                ",
1016   "                ",
1017   "                ",
1018   "                ",
1019   "                ",
1020   "                ",
1021   "                ",
1022   "                ",
1023   "                ",
1024
1025   /* hot spot */
1026   "1,1"
1027 #endif
1028 };
1029
1030 #if defined(TARGET_SDL)
1031 static const int cursor_bit_order = BIT_ORDER_MSB;
1032 #elif defined(TARGET_X11_NATIVE)
1033 static const int cursor_bit_order = BIT_ORDER_LSB;
1034 #endif
1035
1036 static struct MouseCursorInfo *get_cursor_from_image(const char **image)
1037 {
1038   struct MouseCursorInfo *cursor;
1039   boolean bit_order_msb = (cursor_bit_order == BIT_ORDER_MSB);
1040   int header_lines = 4;
1041   int x, y, i;
1042
1043   cursor = checked_calloc(sizeof(struct MouseCursorInfo));
1044
1045   sscanf(image[0], " %d %d ", &cursor->width, &cursor->height);
1046
1047   i = -1;
1048   for (y = 0; y < cursor->width; y++)
1049   {
1050     for (x = 0; x < cursor->height; x++)
1051     {
1052       int bit_nr = x % 8;
1053       int bit_mask = 0x01 << (bit_order_msb ? 7 - bit_nr : bit_nr );
1054
1055       if (bit_nr == 0)
1056       {
1057         i++;
1058         cursor->data[i] = cursor->mask[i] = 0;
1059       }
1060
1061       switch (image[header_lines + y][x])
1062       {
1063         case 'X':
1064           cursor->data[i] |= bit_mask;
1065           cursor->mask[i] |= bit_mask;
1066           break;
1067
1068         case '.':
1069           cursor->mask[i] |= bit_mask;
1070           break;
1071
1072         case ' ':
1073           break;
1074       }
1075     }
1076   }
1077
1078   sscanf(image[header_lines + y], "%d,%d", &cursor->hot_x, &cursor->hot_y);
1079
1080   return cursor;
1081 }
1082 #endif  /* !PLATFORM_MSDOS */
1083
1084 void SetMouseCursor(int mode)
1085 {
1086 #if !defined(PLATFORM_MSDOS)
1087   static struct MouseCursorInfo *cursor_playfield = NULL;
1088
1089   if (cursor_playfield == NULL)
1090     cursor_playfield = get_cursor_from_image(cursor_image_playfield);
1091
1092 #if defined(TARGET_SDL)
1093   SDLSetMouseCursor(mode == CURSOR_PLAYFIELD ? cursor_playfield : NULL);
1094 #elif defined(TARGET_X11_NATIVE)
1095   X11SetMouseCursor(mode == CURSOR_PLAYFIELD ? cursor_playfield : NULL);
1096 #endif
1097 #endif
1098 }
1099
1100
1101 /* ========================================================================= */
1102 /* audio functions                                                           */
1103 /* ========================================================================= */
1104
1105 void OpenAudio(void)
1106 {
1107   /* always start with reliable default values */
1108   audio.sound_available = FALSE;
1109   audio.music_available = FALSE;
1110   audio.loops_available = FALSE;
1111
1112   audio.sound_enabled = FALSE;
1113   audio.sound_deactivated = FALSE;
1114
1115   audio.mixer_pipe[0] = audio.mixer_pipe[1] = 0;
1116   audio.mixer_pid = 0;
1117   audio.device_name = NULL;
1118   audio.device_fd = -1;
1119
1120   audio.num_channels = 0;
1121   audio.music_channel = 0;
1122   audio.first_sound_channel = 0;
1123
1124 #if defined(TARGET_SDL)
1125   SDLOpenAudio();
1126 #elif defined(PLATFORM_UNIX)
1127   UnixOpenAudio();
1128 #elif defined(PLATFORM_MSDOS)
1129   MSDOSOpenAudio();
1130 #endif
1131 }
1132
1133 void CloseAudio(void)
1134 {
1135 #if defined(TARGET_SDL)
1136   SDLCloseAudio();
1137 #elif defined(PLATFORM_UNIX)
1138   UnixCloseAudio();
1139 #elif defined(PLATFORM_MSDOS)
1140   MSDOSCloseAudio();
1141 #endif
1142
1143   audio.sound_enabled = FALSE;
1144 }
1145
1146 void SetAudioMode(boolean enabled)
1147 {
1148   if (!audio.sound_available)
1149     return;
1150
1151   audio.sound_enabled = enabled;
1152 }
1153
1154
1155 /* ========================================================================= */
1156 /* event functions                                                           */
1157 /* ========================================================================= */
1158
1159 void InitEventFilter(EventFilter filter_function)
1160 {
1161 #if defined(TARGET_SDL)
1162   /* set event filter to filter out certain events */
1163   SDL_SetEventFilter(filter_function);
1164 #endif
1165 }
1166
1167 boolean PendingEvent(void)
1168 {
1169 #if defined(TARGET_SDL)
1170   return (SDL_PollEvent(NULL) ? TRUE : FALSE);
1171 #else
1172   return (XPending(display) ? TRUE : FALSE);
1173 #endif
1174 }
1175
1176 void NextEvent(Event *event)
1177 {
1178 #if defined(TARGET_SDL)
1179   SDLNextEvent(event);
1180 #else
1181   XNextEvent(display, event);
1182 #endif
1183 }
1184
1185 void PeekEvent(Event *event)
1186 {
1187 #if defined(TARGET_SDL)
1188   SDL_PeepEvents(event, 1, SDL_PEEKEVENT, SDL_ALLEVENTS);
1189 #else
1190   XPeekEvent(display, event);
1191 #endif
1192 }
1193
1194 Key GetEventKey(KeyEvent *event, boolean with_modifiers)
1195 {
1196 #if defined(TARGET_SDL)
1197
1198 #if 0
1199   printf("unicode == '%d', sym == '%d', mod == '0x%04x'\n",
1200          (int)event->keysym.unicode,
1201          (int)event->keysym.sym,
1202          (int)SDL_GetModState());
1203 #endif
1204
1205   if (with_modifiers &&
1206       event->keysym.unicode > 0x0000 &&
1207       event->keysym.unicode < 0x2000)
1208     return event->keysym.unicode;
1209   else
1210     return event->keysym.sym;
1211
1212 #else
1213
1214 #if 0
1215   printf("with modifiers == '0x%04x', without modifiers == '0x%04x'\n",
1216          (int)XLookupKeysym(event, event->state),
1217          (int)XLookupKeysym(event, 0));
1218 #endif
1219
1220   if (with_modifiers)
1221     return XLookupKeysym(event, event->state);
1222   else
1223     return XLookupKeysym(event, 0);
1224 #endif
1225 }
1226
1227 KeyMod HandleKeyModState(Key key, int key_status)
1228 {
1229   static KeyMod current_modifiers = KMOD_None;
1230
1231 #if !defined(TARGET_SDL)
1232   if (key != KSYM_UNDEFINED)    /* new key => check for modifier key change */
1233   {
1234     KeyMod new_modifier = KMOD_None;
1235
1236     switch(key)
1237     {
1238       case KSYM_Shift_L:
1239         new_modifier = KMOD_Shift_L;
1240         break;
1241       case KSYM_Shift_R:
1242         new_modifier = KMOD_Shift_R;
1243         break;
1244       case KSYM_Control_L:
1245         new_modifier = KMOD_Control_L;
1246         break;
1247       case KSYM_Control_R:
1248         new_modifier = KMOD_Control_R;
1249         break;
1250       case KSYM_Meta_L:
1251         new_modifier = KMOD_Meta_L;
1252         break;
1253       case KSYM_Meta_R:
1254         new_modifier = KMOD_Meta_R;
1255         break;
1256       case KSYM_Alt_L:
1257         new_modifier = KMOD_Alt_L;
1258         break;
1259       case KSYM_Alt_R:
1260         new_modifier = KMOD_Alt_R;
1261         break;
1262       default:
1263         break;
1264     }
1265
1266     if (key_status == KEY_PRESSED)
1267       current_modifiers |= new_modifier;
1268     else
1269       current_modifiers &= ~new_modifier;
1270   }
1271 #endif
1272
1273   return current_modifiers;
1274 }
1275
1276 KeyMod GetKeyModState()
1277 {
1278 #if defined(TARGET_SDL)
1279   return (KeyMod)SDL_GetModState();
1280 #else
1281   return HandleKeyModState(KSYM_UNDEFINED, 0);
1282 #endif
1283 }
1284
1285 boolean CheckCloseWindowEvent(ClientMessageEvent *event)
1286 {
1287   if (event->type != EVENT_CLIENTMESSAGE)
1288     return FALSE;
1289
1290 #if defined(TARGET_SDL)
1291   return TRUE;          /* the only possible message here is SDL_QUIT */
1292 #elif defined(PLATFORM_UNIX)
1293   if ((event->window == window->drawable) &&
1294       (event->data.l[0] == XInternAtom(display, "WM_DELETE_WINDOW", FALSE)))
1295     return TRUE;
1296 #endif
1297
1298   return FALSE;
1299 }
1300
1301
1302 /* ========================================================================= */
1303 /* joystick functions                                                        */
1304 /* ========================================================================= */
1305
1306 void InitJoysticks()
1307 {
1308   int i;
1309
1310 #if defined(NO_JOYSTICK)
1311   return;       /* joysticks generally deactivated by compile-time directive */
1312 #endif
1313
1314   /* always start with reliable default values */
1315   joystick.status = JOYSTICK_NOT_AVAILABLE;
1316   for (i = 0; i < MAX_PLAYERS; i++)
1317     joystick.fd[i] = -1;                /* joystick device closed */
1318
1319 #if defined(TARGET_SDL)
1320   SDLInitJoysticks();
1321 #elif defined(PLATFORM_UNIX)
1322   UnixInitJoysticks();
1323 #elif defined(PLATFORM_MSDOS)
1324   MSDOSInitJoysticks();
1325 #endif
1326
1327 #if 0
1328   for (i = 0; i < MAX_PLAYERS; i++)
1329     printf("::: Joystick for player %d: %d\n", i, joystick.fd[i]);
1330 #endif
1331 }
1332
1333 boolean ReadJoystick(int nr, int *x, int *y, boolean *b1, boolean *b2)
1334 {
1335 #if defined(TARGET_SDL)
1336   return SDLReadJoystick(nr, x, y, b1, b2);
1337 #elif defined(PLATFORM_UNIX)
1338   return UnixReadJoystick(nr, x, y, b1, b2);
1339 #elif defined(PLATFORM_MSDOS)
1340   return MSDOSReadJoystick(nr, x, y, b1, b2);
1341 #endif
1342 }