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