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