ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/BasiliskII/src/Unix/video_x.cpp
Revision: 1.15
Committed: 2000-07-13T13:47:12Z (24 years ago) by cebix
Branch: MAIN
Changes since 1.14: +141 -101 lines
Log Message:
- first version to run natively on NetBSD/m68k

File Contents

# User Rev Content
1 cebix 1.1 /*
2     * video_x.cpp - Video/graphics emulation, X11 specific stuff
3     *
4 cebix 1.14 * Basilisk II (C) 1997-2000 Christian Bauer
5 cebix 1.1 *
6     * This program is free software; you can redistribute it and/or modify
7     * it under the terms of the GNU General Public License as published by
8     * the Free Software Foundation; either version 2 of the License, or
9     * (at your option) any later version.
10     *
11     * This program is distributed in the hope that it will be useful,
12     * but WITHOUT ANY WARRANTY; without even the implied warranty of
13     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14     * GNU General Public License for more details.
15     *
16     * You should have received a copy of the GNU General Public License
17     * along with this program; if not, write to the Free Software
18     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19     */
20    
21     /*
22     * NOTES:
23     * The Ctrl key works like a qualifier for special actions:
24     * Ctrl-Tab = suspend DGA mode
25     * Ctrl-Esc = emergency quit
26     * Ctrl-F1 = mount floppy
27     */
28    
29     #include "sysdeps.h"
30    
31     #include <X11/Xlib.h>
32     #include <X11/Xutil.h>
33     #include <X11/keysym.h>
34     #include <X11/extensions/XShm.h>
35     #include <sys/ipc.h>
36     #include <sys/shm.h>
37     #include <errno.h>
38    
39 cebix 1.15 #ifdef HAVE_PTHREADS
40     # include <pthread.h>
41     #endif
42    
43     #ifdef ENABLE_XF86_DGA
44     # include <X11/extensions/xf86dga.h>
45     #endif
46    
47     #ifdef ENABLE_XF86_VIDMODE
48     # include <X11/extensions/xf86vmode.h>
49     #endif
50    
51     #ifdef ENABLE_FBDEV_DGA
52     # include <sys/mman.h>
53     #endif
54    
55 cebix 1.1 #include "cpu_emulation.h"
56     #include "main.h"
57     #include "adb.h"
58     #include "macos_util.h"
59     #include "prefs.h"
60     #include "user_strings.h"
61     #include "video.h"
62    
63     #define DEBUG 1
64     #include "debug.h"
65    
66    
67     // Display types
68     enum {
69     DISPLAY_WINDOW, // X11 window, using MIT SHM extensions if possible
70     DISPLAY_DGA // DGA fullscreen display
71     };
72    
73     // Constants
74 cebix 1.4 const char KEYCODE_FILE_NAME[] = DATADIR "/keycodes";
75 cebix 1.7 const char FBDEVICES_FILE_NAME[] = DATADIR "/fbdevices";
76 cebix 1.1
77    
78     // Global variables
79 cebix 1.10 static int32 frame_skip; // Prefs items
80     static int16 mouse_wheel_mode = 1;
81     static int16 mouse_wheel_lines = 3;
82    
83 cebix 1.1 static int display_type = DISPLAY_WINDOW; // See enum above
84     static uint8 *the_buffer; // Mac frame buffer
85 cebix 1.15
86     #ifdef HAVE_PTHREADS
87 cebix 1.1 static bool redraw_thread_active = false; // Flag: Redraw thread installed
88     static volatile bool redraw_thread_cancel = false; // Flag: Cancel Redraw thread
89     static pthread_t redraw_thread; // Redraw thread
90 cebix 1.15 #endif
91 cebix 1.1
92     static bool has_dga = false; // Flag: Video DGA capable
93 cebix 1.12 static bool has_vidmode = false; // Flag: VidMode extension available
94 cebix 1.1
95     static bool ctrl_down = false; // Flag: Ctrl key pressed
96 cebix 1.3 static bool caps_on = false; // Flag: Caps Lock on
97 cebix 1.1 static bool quit_full_screen = false; // Flag: DGA close requested from redraw thread
98     static bool emerg_quit = false; // Flag: Ctrl-Esc pressed, emergency quit requested from MacOS thread
99     static bool emul_suspended = false; // Flag: Emulator suspended
100    
101     static bool classic_mode = false; // Flag: Classic Mac video mode
102    
103     static bool use_keycodes = false; // Flag: Use keycodes rather than keysyms
104     static int keycode_table[256]; // X keycode -> Mac keycode translation table
105    
106     // X11 variables
107     static int screen; // Screen number
108     static int xdepth; // Depth of X screen
109     static int depth; // Depth of Mac frame buffer
110     static Window rootwin, the_win; // Root window and our window
111     static XVisualInfo visualInfo;
112     static Visual *vis;
113     static Colormap cmap[2]; // Two colormaps (DGA) for 8-bit mode
114     static XColor black, white;
115     static unsigned long black_pixel, white_pixel;
116     static int eventmask;
117     static const int win_eventmask = KeyPressMask | KeyReleaseMask | ButtonPressMask | ButtonReleaseMask | PointerMotionMask | EnterWindowMask | ExposureMask;
118     static const int dga_eventmask = KeyPressMask | KeyReleaseMask | ButtonPressMask | ButtonReleaseMask | PointerMotionMask;
119    
120     static XColor palette[256]; // Color palette for 8-bit mode
121     static bool palette_changed = false; // Flag: Palette changed, redraw thread must set new colors
122 cebix 1.15 #ifdef HAVE_PTHREADS
123     static pthread_mutex_t palette_lock = PTHREAD_MUTEX_INITIALIZER; // Mutex to protect palette
124     #endif
125 cebix 1.1
126     // Variables for window mode
127     static GC the_gc;
128     static XImage *img = NULL;
129     static XShmSegmentInfo shminfo;
130     static XImage *cursor_image, *cursor_mask_image;
131     static Pixmap cursor_map, cursor_mask_map;
132     static Cursor mac_cursor;
133     static GC cursor_gc, cursor_mask_gc;
134     static uint8 *the_buffer_copy = NULL; // Copy of Mac frame buffer
135     static uint8 the_cursor[64]; // Cursor image data
136     static bool have_shm = false; // Flag: SHM extensions available
137 cebix 1.13 static bool updt_box[17][17]; // Flag for Update
138     static int nr_boxes;
139     static const int sm_uptd[] = {4,1,6,3,0,5,2,7};
140     static int sm_no_boxes[] = {1,8,32,64,128,300};
141 cebix 1.1
142 cebix 1.7 // Variables for XF86 DGA mode
143 cebix 1.1 static int current_dga_cmap; // Number (0 or 1) of currently installed DGA colormap
144     static Window suspend_win; // "Suspend" window
145     static void *fb_save = NULL; // Saved frame buffer for suspend
146 cebix 1.15 #ifdef HAVE_PTHREADS
147 cebix 1.7 static pthread_mutex_t frame_buffer_lock = PTHREAD_MUTEX_INITIALIZER; // Mutex to protect frame buffer
148 cebix 1.15 #endif
149 cebix 1.1
150 cebix 1.7 // Variables for fbdev DGA mode
151     const char FBDEVICE_FILE_NAME[] = "/dev/fb";
152     static int fbdev_fd;
153 cebix 1.1
154 cebix 1.15 #ifdef ENABLE_XF86_VIDMODE
155 cebix 1.12 // Variables for XF86 VidMode support
156     static XF86VidModeModeInfo **x_video_modes; // Array of all available modes
157     static int num_x_video_modes;
158     #endif
159    
160 cebix 1.1
161     // Prototypes
162     static void *redraw_func(void *arg);
163     static int event2keycode(XKeyEvent *ev);
164    
165    
166     // From main_unix.cpp
167     extern Display *x_display;
168    
169     // From sys_unix.cpp
170     extern void SysMountFirstFloppy(void);
171    
172    
173     /*
174     * Initialization
175     */
176    
177     // Set VideoMonitor according to video mode
178     void set_video_monitor(int width, int height, int bytes_per_row, bool native_byte_order)
179     {
180 cebix 1.15 #if !REAL_ADDRESSING
181 cebix 1.5 int layout = FLAYOUT_DIRECT;
182 cebix 1.1 switch (depth) {
183     case 1:
184     layout = FLAYOUT_DIRECT;
185 cebix 1.15 break;
186     case 8:
187     layout = FLAYOUT_DIRECT;
188     break;
189     case 15:
190     layout = FLAYOUT_HOST_555;
191     break;
192     case 16:
193     layout = FLAYOUT_HOST_565;
194     break;
195     case 24:
196     case 32:
197     layout = FLAYOUT_HOST_888;
198     break;
199     }
200     if (native_byte_order)
201     MacFrameLayout = layout;
202     else
203     MacFrameLayout = FLAYOUT_DIRECT;
204     #endif
205     switch (depth) {
206     case 1:
207 cebix 1.1 VideoMonitor.mode = VMODE_1BIT;
208     break;
209     case 8:
210     VideoMonitor.mode = VMODE_8BIT;
211     break;
212     case 15:
213     VideoMonitor.mode = VMODE_16BIT;
214     break;
215     case 16:
216     VideoMonitor.mode = VMODE_16BIT;
217     break;
218     case 24:
219     case 32:
220     VideoMonitor.mode = VMODE_32BIT;
221     break;
222     }
223     VideoMonitor.x = width;
224     VideoMonitor.y = height;
225     VideoMonitor.bytes_per_row = bytes_per_row;
226     }
227    
228     // Trap SHM errors
229     static bool shm_error = false;
230     static int (*old_error_handler)(Display *, XErrorEvent *);
231    
232     static int error_handler(Display *d, XErrorEvent *e)
233     {
234     if (e->error_code == BadAccess) {
235     shm_error = true;
236     return 0;
237     } else
238     return old_error_handler(d, e);
239     }
240    
241     // Init window mode
242     static bool init_window(int width, int height)
243     {
244 cebix 1.13 int aligned_width = (width + 15) & ~15;
245     int aligned_height = (height + 15) & ~15;
246    
247 cebix 1.1 // Set absolute mouse mode
248     ADBSetRelMouseMode(false);
249    
250     // Read frame skip prefs
251     frame_skip = PrefsFindInt32("frameskip");
252     if (frame_skip == 0)
253     frame_skip = 1;
254    
255     // Create window
256     XSetWindowAttributes wattr;
257     wattr.event_mask = eventmask = win_eventmask;
258     wattr.background_pixel = black_pixel;
259     wattr.border_pixel = black_pixel;
260 cebix 1.13 wattr.backing_store = NotUseful;
261     wattr.save_under = false;
262 cebix 1.7 wattr.backing_planes = xdepth;
263 cebix 1.1
264     XSync(x_display, false);
265     the_win = XCreateWindow(x_display, rootwin, 0, 0, width, height, 0, xdepth,
266 cebix 1.7 InputOutput, vis, CWEventMask | CWBackPixel | CWBorderPixel |
267     CWBackingStore | CWBackingPlanes, &wattr);
268 cebix 1.1 XSync(x_display, false);
269     XStoreName(x_display, the_win, GetString(STR_WINDOW_TITLE));
270     XMapRaised(x_display, the_win);
271     XSync(x_display, false);
272    
273     // Set colormap
274     if (depth == 8) {
275     XSetWindowColormap(x_display, the_win, cmap[0]);
276     XSetWMColormapWindows(x_display, the_win, &the_win, 1);
277     }
278    
279     // Make window unresizable
280     XSizeHints *hints;
281     if ((hints = XAllocSizeHints()) != NULL) {
282     hints->min_width = width;
283     hints->max_width = width;
284     hints->min_height = height;
285     hints->max_height = height;
286     hints->flags = PMinSize | PMaxSize;
287     XSetWMNormalHints(x_display, the_win, hints);
288     XFree((char *)hints);
289     }
290 cebix 1.7
291 cebix 1.1 // Try to create and attach SHM image
292     have_shm = false;
293     if (depth != 1 && XShmQueryExtension(x_display)) {
294    
295     // Create SHM image ("height + 2" for safety)
296     img = XShmCreateImage(x_display, vis, depth, depth == 1 ? XYBitmap : ZPixmap, 0, &shminfo, width, height);
297 cebix 1.13 shminfo.shmid = shmget(IPC_PRIVATE, (aligned_height + 2) * img->bytes_per_line, IPC_CREAT | 0777);
298     the_buffer_copy = (uint8 *)shmat(shminfo.shmid, 0, 0);
299     shminfo.shmaddr = img->data = (char *)the_buffer_copy;
300 cebix 1.1 shminfo.readOnly = False;
301    
302     // Try to attach SHM image, catching errors
303     shm_error = false;
304     old_error_handler = XSetErrorHandler(error_handler);
305     XShmAttach(x_display, &shminfo);
306     XSync(x_display, false);
307     XSetErrorHandler(old_error_handler);
308     if (shm_error) {
309     shmdt(shminfo.shmaddr);
310     XDestroyImage(img);
311     shminfo.shmid = -1;
312     } else {
313     have_shm = true;
314     shmctl(shminfo.shmid, IPC_RMID, 0);
315     }
316     }
317 cebix 1.7
318 cebix 1.1 // Create normal X image if SHM doesn't work ("height + 2" for safety)
319     if (!have_shm) {
320 cebix 1.13 int bytes_per_row = aligned_width;
321 cebix 1.1 switch (depth) {
322     case 1:
323     bytes_per_row /= 8;
324     break;
325     case 15:
326     case 16:
327     bytes_per_row *= 2;
328     break;
329     case 24:
330     case 32:
331     bytes_per_row *= 4;
332     break;
333     }
334 cebix 1.13 the_buffer_copy = (uint8 *)malloc((aligned_height + 2) * bytes_per_row);
335     img = XCreateImage(x_display, vis, depth, depth == 1 ? XYBitmap : ZPixmap, 0, (char *)the_buffer_copy, aligned_width, aligned_height, 32, bytes_per_row);
336 cebix 1.1 }
337    
338     // 1-Bit mode is big-endian
339     if (depth == 1) {
340     img->byte_order = MSBFirst;
341     img->bitmap_bit_order = MSBFirst;
342     }
343    
344     // Allocate memory for frame buffer copy
345 cebix 1.13 the_buffer = (uint8 *)malloc((aligned_height + 2) * img->bytes_per_line);
346 cebix 1.1
347     // Create GC
348     the_gc = XCreateGC(x_display, the_win, 0, 0);
349     XSetState(x_display, the_gc, black_pixel, white_pixel, GXcopy, AllPlanes);
350    
351 cebix 1.13 // Create no_cursor
352     mac_cursor = XCreatePixmapCursor (x_display,
353     XCreatePixmap (x_display, the_win, 1, 1, 1),
354     XCreatePixmap (x_display, the_win, 1, 1, 1),
355     &black, &white, 0, 0);
356     XDefineCursor (x_display, the_win, mac_cursor);
357 cebix 1.1
358     // Set VideoMonitor
359     #ifdef WORDS_BIGENDIAN
360     set_video_monitor(width, height, img->bytes_per_line, img->bitmap_bit_order == MSBFirst);
361     #else
362     set_video_monitor(width, height, img->bytes_per_line, img->bitmap_bit_order == LSBFirst);
363     #endif
364 cebix 1.7
365     #if REAL_ADDRESSING
366     VideoMonitor.mac_frame_base = (uint32)the_buffer;
367     #else
368     VideoMonitor.mac_frame_base = MacFrameBaseMac;
369     #endif
370     return true;
371     }
372    
373     // Init fbdev DGA display
374     static bool init_fbdev_dga(char *in_fb_name)
375     {
376 cebix 1.15 #ifdef ENABLE_FBDEV_DGA
377 cebix 1.7 // Find the maximum depth available
378     int ndepths, max_depth(0);
379     int *depths = XListDepths(x_display, screen, &ndepths);
380     if (depths == NULL) {
381 cebix 1.9 printf("FATAL: Could not determine the maximal depth available\n");
382 cebix 1.7 return false;
383     } else {
384     while (ndepths-- > 0) {
385     if (depths[ndepths] > max_depth)
386     max_depth = depths[ndepths];
387     }
388     }
389    
390     // Get fbdevices file path from preferences
391 cebix 1.8 const char *fbd_path = PrefsFindString("fbdevicefile");
392 cebix 1.7
393     // Open fbdevices file
394     FILE *fp = fopen(fbd_path ? fbd_path : FBDEVICES_FILE_NAME, "r");
395     if (fp == NULL) {
396     char str[256];
397     sprintf(str, GetString(STR_NO_FBDEVICE_FILE_ERR), fbd_path ? fbd_path : FBDEVICES_FILE_NAME, strerror(errno));
398     ErrorAlert(str);
399     return false;
400     }
401    
402     int fb_depth; // supported depth
403     uint32 fb_offset; // offset used for mmap(2)
404     char fb_name[20];
405     char line[256];
406     bool device_found = false;
407     while (fgets(line, 255, fp)) {
408     // Read line
409     int len = strlen(line);
410     if (len == 0)
411     continue;
412     line[len - 1] = '\0';
413    
414     // Comments begin with "#" or ";"
415     if ((line[0] == '#') || (line[0] == ';') || (line[0] == '\0'))
416     continue;
417    
418 cebix 1.8 if ((sscanf(line, "%19s %d %x", &fb_name, &fb_depth, &fb_offset) == 3)
419 cebix 1.7 && (strcmp(fb_name, in_fb_name) == 0) && (fb_depth == max_depth)) {
420     device_found = true;
421     break;
422     }
423     }
424    
425     // fbdevices file completely read
426     fclose(fp);
427    
428     // Frame buffer name not found ? Then, display warning
429     if (!device_found) {
430     char str[256];
431     sprintf(str, GetString(STR_FBDEV_NAME_ERR), in_fb_name, max_depth);
432     ErrorAlert(str);
433     return false;
434     }
435    
436     int width = DisplayWidth(x_display, screen);
437     int height = DisplayHeight(x_display, screen);
438     depth = fb_depth; // max_depth
439    
440     // Set relative mouse mode
441     ADBSetRelMouseMode(false);
442    
443     // Create window
444     XSetWindowAttributes wattr;
445     wattr.override_redirect = True;
446     wattr.backing_store = NotUseful;
447     wattr.background_pixel = white_pixel;
448     wattr.border_pixel = black_pixel;
449     wattr.event_mask = eventmask = dga_eventmask;
450    
451     XSync(x_display, false);
452     the_win = XCreateWindow(x_display, rootwin,
453     0, 0, width, height,
454     0, xdepth, InputOutput, vis,
455     CWEventMask|CWBackPixel|CWBorderPixel|CWOverrideRedirect|CWBackingStore,
456     &wattr);
457     XSync(x_display, false);
458     XMapRaised(x_display, the_win);
459     XSync(x_display, false);
460    
461     // Grab mouse and keyboard
462     XGrabKeyboard(x_display, the_win, True,
463     GrabModeAsync, GrabModeAsync, CurrentTime);
464     XGrabPointer(x_display, the_win, True,
465     PointerMotionMask | ButtonPressMask | ButtonReleaseMask,
466     GrabModeAsync, GrabModeAsync, the_win, None, CurrentTime);
467    
468     // Set colormap
469     if (depth == 8) {
470 cebix 1.9 XSetWindowColormap(x_display, the_win, cmap[0]);
471 cebix 1.7 XSetWMColormapWindows(x_display, the_win, &the_win, 1);
472     }
473    
474     // Set VideoMonitor
475     int bytes_per_row = width;
476     switch (depth) {
477     case 1:
478     bytes_per_row = ((width | 7) & ~7) >> 3;
479     break;
480     case 15:
481     case 16:
482     bytes_per_row *= 2;
483     break;
484     case 24:
485     case 32:
486     bytes_per_row *= 4;
487     break;
488     }
489    
490     if ((the_buffer = (uint8 *) mmap(NULL, height * bytes_per_row, PROT_READ | PROT_WRITE, MAP_PRIVATE, fbdev_fd, fb_offset)) == MAP_FAILED) {
491     if ((the_buffer = (uint8 *) mmap(NULL, height * bytes_per_row, PROT_READ | PROT_WRITE, MAP_SHARED, fbdev_fd, fb_offset)) == MAP_FAILED) {
492     char str[256];
493     sprintf(str, GetString(STR_FBDEV_MMAP_ERR), strerror(errno));
494     ErrorAlert(str);
495     return false;
496     }
497     }
498    
499     set_video_monitor(width, height, bytes_per_row, true);
500 cebix 1.1 #if REAL_ADDRESSING
501     VideoMonitor.mac_frame_base = (uint32)the_buffer;
502     #else
503     VideoMonitor.mac_frame_base = MacFrameBaseMac;
504     #endif
505     return true;
506 cebix 1.7 #else
507     ErrorAlert("Basilisk II has been compiled with fbdev DGA support disabled.");
508     return false;
509     #endif
510 cebix 1.1 }
511    
512 cebix 1.7 // Init XF86 DGA display
513     static bool init_xf86_dga(int width, int height)
514 cebix 1.1 {
515 cebix 1.15 #ifdef ENABLE_XF86_DGA
516 cebix 1.1 // Set relative mouse mode
517     ADBSetRelMouseMode(true);
518    
519 cebix 1.15 #ifdef ENABLE_XF86_VIDMODE
520 cebix 1.12 // Switch to best mode
521     if (has_vidmode) {
522     int best = 0;
523     for (int i=1; i<num_x_video_modes; i++) {
524     if (x_video_modes[i]->hdisplay >= width && x_video_modes[i]->vdisplay >= height &&
525     x_video_modes[i]->hdisplay <= x_video_modes[best]->hdisplay && x_video_modes[i]->vdisplay <= x_video_modes[best]->vdisplay) {
526     best = i;
527     }
528     }
529     XF86VidModeSwitchToMode(x_display, screen, x_video_modes[best]);
530     XF86VidModeSetViewPort(x_display, screen, 0, 0);
531     }
532     #endif
533    
534 cebix 1.1 // Create window
535     XSetWindowAttributes wattr;
536     wattr.event_mask = eventmask = dga_eventmask;
537     wattr.border_pixel = black_pixel;
538     wattr.override_redirect = True;
539    
540     XSync(x_display, false);
541     the_win = XCreateWindow(x_display, rootwin, 0, 0, width, height, 0, xdepth,
542     InputOutput, vis, CWEventMask | CWBorderPixel | CWOverrideRedirect, &wattr);
543     XSync(x_display, false);
544     XStoreName(x_display, the_win, GetString(STR_WINDOW_TITLE));
545     XMapRaised(x_display, the_win);
546     XSync(x_display, false);
547    
548     // Establish direct screen connection
549     XMoveResizeWindow(x_display, the_win, 0, 0, width, height);
550     XWarpPointer(x_display, None, rootwin, 0, 0, 0, 0, 0, 0);
551     XGrabKeyboard(x_display, rootwin, True, GrabModeAsync, GrabModeAsync, CurrentTime);
552     XGrabPointer(x_display, rootwin, True, PointerMotionMask | ButtonPressMask | ButtonReleaseMask, GrabModeAsync, GrabModeAsync, None, None, CurrentTime);
553    
554     int v_width, v_bank, v_size;
555     XF86DGAGetVideo(x_display, screen, (char **)&the_buffer, &v_width, &v_bank, &v_size);
556     XF86DGADirectVideo(x_display, screen, XF86DGADirectGraphics | XF86DGADirectKeyb | XF86DGADirectMouse);
557     XF86DGASetViewPort(x_display, screen, 0, 0);
558     XF86DGASetVidPage(x_display, screen, 0);
559    
560     // Set colormap
561     if (depth == 8) {
562     XSetWindowColormap(x_display, the_win, cmap[current_dga_cmap = 0]);
563     XSetWMColormapWindows(x_display, the_win, &the_win, 1);
564     XF86DGAInstallColormap(x_display, screen, cmap[current_dga_cmap]);
565     }
566    
567     // Set VideoMonitor
568     int bytes_per_row = (v_width + 7) & ~7;
569     switch (depth) {
570     case 1:
571     bytes_per_row /= 8;
572     break;
573     case 15:
574     case 16:
575     bytes_per_row *= 2;
576     break;
577     case 24:
578     case 32:
579     bytes_per_row *= 4;
580     break;
581     }
582     set_video_monitor(width, height, bytes_per_row, true);
583     #if REAL_ADDRESSING
584     VideoMonitor.mac_frame_base = (uint32)the_buffer;
585     MacFrameLayout = FLAYOUT_DIRECT;
586     #else
587     VideoMonitor.mac_frame_base = MacFrameBaseMac;
588     #endif
589     return true;
590     #else
591 cebix 1.7 ErrorAlert("Basilisk II has been compiled with XF86 DGA support disabled.");
592 cebix 1.1 return false;
593     #endif
594     }
595    
596     // Init keycode translation table
597     static void keycode_init(void)
598     {
599     bool use_kc = PrefsFindBool("keycodes");
600     if (use_kc) {
601    
602     // Get keycode file path from preferences
603     const char *kc_path = PrefsFindString("keycodefile");
604    
605     // Open keycode table
606     FILE *f = fopen(kc_path ? kc_path : KEYCODE_FILE_NAME, "r");
607     if (f == NULL) {
608     char str[256];
609     sprintf(str, GetString(STR_KEYCODE_FILE_WARN), kc_path ? kc_path : KEYCODE_FILE_NAME, strerror(errno));
610     WarningAlert(str);
611     return;
612     }
613    
614     // Default translation table
615     for (int i=0; i<256; i++)
616     keycode_table[i] = -1;
617    
618     // Search for server vendor string, then read keycodes
619     const char *vendor = ServerVendor(x_display);
620     bool vendor_found = false;
621     char line[256];
622     while (fgets(line, 255, f)) {
623     // Read line
624     int len = strlen(line);
625     if (len == 0)
626     continue;
627     line[len-1] = 0;
628    
629     // Comments begin with "#" or ";"
630     if (line[0] == '#' || line[0] == ';' || line[0] == 0)
631     continue;
632    
633     if (vendor_found) {
634     // Read keycode
635     int x_code, mac_code;
636     if (sscanf(line, "%d %d", &x_code, &mac_code) == 2)
637     keycode_table[x_code & 0xff] = mac_code;
638     else
639     break;
640     } else {
641     // Search for vendor string
642     if (strstr(vendor, line) == vendor)
643     vendor_found = true;
644     }
645     }
646    
647     // Keycode file completely read
648     fclose(f);
649     use_keycodes = vendor_found;
650    
651     // Vendor not found? Then display warning
652     if (!vendor_found) {
653     char str[256];
654     sprintf(str, GetString(STR_KEYCODE_VENDOR_WARN), vendor, kc_path ? kc_path : KEYCODE_FILE_NAME);
655     WarningAlert(str);
656     return;
657     }
658     }
659     }
660    
661     bool VideoInit(bool classic)
662     {
663     // Init keycode translation
664     keycode_init();
665    
666 cebix 1.10 // Read prefs
667     mouse_wheel_mode = PrefsFindInt16("mousewheelmode");
668     mouse_wheel_lines = PrefsFindInt16("mousewheellines");
669    
670 cebix 1.1 // Find screen and root window
671     screen = XDefaultScreen(x_display);
672     rootwin = XRootWindow(x_display, screen);
673 cebix 1.7
674 cebix 1.1 // Get screen depth
675     xdepth = DefaultDepth(x_display, screen);
676 cebix 1.7
677 cebix 1.15 #ifdef ENABLE_FBDEV_DGA
678 cebix 1.7 // Frame buffer name
679     char fb_name[20];
680    
681     // Could do fbdev dga ?
682     if ((fbdev_fd = open(FBDEVICE_FILE_NAME, O_RDWR)) != -1)
683     has_dga = true;
684     else
685     has_dga = false;
686     #endif
687 cebix 1.12
688 cebix 1.15 #ifdef ENABLE_XF86_DGA
689 cebix 1.1 // DGA available?
690 cebix 1.12 int dga_event_base, dga_error_base;
691     if (XF86DGAQueryExtension(x_display, &dga_event_base, &dga_error_base)) {
692 cebix 1.5 int dga_flags = 0;
693     XF86DGAQueryDirectVideo(x_display, screen, &dga_flags);
694     has_dga = dga_flags & XF86DGADirectPresent;
695     } else
696     has_dga = false;
697 cebix 1.1 #endif
698    
699 cebix 1.15 #ifdef ENABLE_XF86_VIDMODE
700 cebix 1.12 // VidMode available?
701     int vm_event_base, vm_error_base;
702     has_vidmode = XF86VidModeQueryExtension(x_display, &vm_event_base, &vm_error_base);
703     if (has_vidmode)
704     XF86VidModeGetAllModeLines(x_display, screen, &num_x_video_modes, &x_video_modes);
705     #endif
706    
707 cebix 1.1 // Find black and white colors
708     XParseColor(x_display, DefaultColormap(x_display, screen), "rgb:00/00/00", &black);
709     XAllocColor(x_display, DefaultColormap(x_display, screen), &black);
710     XParseColor(x_display, DefaultColormap(x_display, screen), "rgb:ff/ff/ff", &white);
711     XAllocColor(x_display, DefaultColormap(x_display, screen), &white);
712     black_pixel = BlackPixel(x_display, screen);
713     white_pixel = WhitePixel(x_display, screen);
714    
715     // Get appropriate visual
716     int color_class;
717     switch (xdepth) {
718     case 1:
719     color_class = StaticGray;
720     break;
721     case 8:
722     color_class = PseudoColor;
723     break;
724     case 15:
725     case 16:
726     case 24:
727     case 32:
728     color_class = TrueColor;
729     break;
730     default:
731     ErrorAlert(GetString(STR_UNSUPP_DEPTH_ERR));
732     return false;
733     }
734     if (!XMatchVisualInfo(x_display, screen, xdepth, color_class, &visualInfo)) {
735     ErrorAlert(GetString(STR_NO_XVISUAL_ERR));
736     return false;
737     }
738     if (visualInfo.depth != xdepth) {
739     ErrorAlert(GetString(STR_NO_XVISUAL_ERR));
740     return false;
741     }
742     vis = visualInfo.visual;
743    
744     // Mac screen depth is always 1 bit in Classic mode, but follows X depth otherwise
745     classic_mode = classic;
746     if (classic)
747     depth = 1;
748     else
749     depth = xdepth;
750    
751     // Create color maps for 8 bit mode
752     if (depth == 8) {
753     cmap[0] = XCreateColormap(x_display, rootwin, vis, AllocAll);
754     cmap[1] = XCreateColormap(x_display, rootwin, vis, AllocAll);
755     XInstallColormap(x_display, cmap[0]);
756     XInstallColormap(x_display, cmap[1]);
757     }
758    
759     // Get screen mode from preferences
760     const char *mode_str;
761     if (classic)
762     mode_str = "win/512/342";
763     else
764     mode_str = PrefsFindString("screen");
765    
766     // Determine type and mode
767     int width = 512, height = 384;
768     display_type = DISPLAY_WINDOW;
769     if (mode_str) {
770     if (sscanf(mode_str, "win/%d/%d", &width, &height) == 2)
771     display_type = DISPLAY_WINDOW;
772 cebix 1.15 #ifdef ENABLE_FBDEV_DGA
773 cebix 1.8 else if (has_dga && sscanf(mode_str, "dga/%19s", fb_name) == 1) {
774 cebix 1.7 #else
775 cebix 1.3 else if (has_dga && sscanf(mode_str, "dga/%d/%d", &width, &height) == 2) {
776 cebix 1.7 #endif
777 cebix 1.1 display_type = DISPLAY_DGA;
778 cebix 1.3 if (width > DisplayWidth(x_display, screen))
779     width = DisplayWidth(x_display, screen);
780     if (height > DisplayHeight(x_display, screen))
781     height = DisplayHeight(x_display, screen);
782     }
783     if (width <= 0)
784 cebix 1.1 width = DisplayWidth(x_display, screen);
785 cebix 1.3 if (height <= 0)
786 cebix 1.1 height = DisplayHeight(x_display, screen);
787     }
788    
789     // Initialize according to display type
790     switch (display_type) {
791     case DISPLAY_WINDOW:
792     if (!init_window(width, height))
793     return false;
794     break;
795     case DISPLAY_DGA:
796 cebix 1.15 #ifdef ENABLE_FBDEV_DGA
797 cebix 1.7 if (!init_fbdev_dga(fb_name))
798     #else
799     if (!init_xf86_dga(width, height))
800     #endif
801 cebix 1.1 return false;
802     break;
803     }
804    
805 cebix 1.15 #ifdef HAVE_PTHREADS
806 cebix 1.1 // Lock down frame buffer
807     pthread_mutex_lock(&frame_buffer_lock);
808 cebix 1.15 #endif
809 cebix 1.1
810     #if !REAL_ADDRESSING
811     // Set variables for UAE memory mapping
812     MacFrameBaseHost = the_buffer;
813     MacFrameSize = VideoMonitor.bytes_per_row * VideoMonitor.y;
814    
815     // No special frame buffer in Classic mode (frame buffer is in Mac RAM)
816     if (classic)
817     MacFrameLayout = FLAYOUT_NONE;
818     #endif
819    
820 cebix 1.15 XSync(x_display, false);
821    
822     #ifdef HAVE_PTHREADS
823 cebix 1.1 // Start redraw/input thread
824     redraw_thread_active = (pthread_create(&redraw_thread, NULL, redraw_func, NULL) == 0);
825 cebix 1.15 if (!redraw_thread_active) {
826 cebix 1.1 printf("FATAL: cannot create redraw thread\n");
827 cebix 1.15 return false;
828     }
829     #endif
830     return true;
831 cebix 1.1 }
832    
833    
834     /*
835     * Deinitialization
836     */
837    
838     void VideoExit(void)
839     {
840 cebix 1.15 #ifdef HAVE_PTHREADS
841 cebix 1.1 // Stop redraw thread
842     if (redraw_thread_active) {
843     redraw_thread_cancel = true;
844     #ifdef HAVE_PTHREAD_CANCEL
845     pthread_cancel(redraw_thread);
846     #endif
847     pthread_join(redraw_thread, NULL);
848     redraw_thread_active = false;
849     }
850 cebix 1.15 #endif
851 cebix 1.1
852 cebix 1.15 #ifdef HAVE_PTHREADS
853 cebix 1.1 // Unlock frame buffer
854     pthread_mutex_unlock(&frame_buffer_lock);
855 cebix 1.15 #endif
856 cebix 1.1
857     // Close window and server connection
858     if (x_display != NULL) {
859     XSync(x_display, false);
860    
861 cebix 1.15 #ifdef ENABLE_XF86_DGA
862 cebix 1.1 if (display_type == DISPLAY_DGA) {
863     XF86DGADirectVideo(x_display, screen, 0);
864     XUngrabPointer(x_display, CurrentTime);
865     XUngrabKeyboard(x_display, CurrentTime);
866     }
867 cebix 1.12 #endif
868    
869 cebix 1.15 #ifdef ENABLE_XF86_VIDMODE
870 cebix 1.12 if (has_vidmode && display_type == DISPLAY_DGA)
871     XF86VidModeSwitchToMode(x_display, screen, x_video_modes[0]);
872 cebix 1.1 #endif
873    
874 cebix 1.15 #ifdef ENABLE_FBDEV_DGA
875 cebix 1.7 if (display_type == DISPLAY_DGA) {
876     XUngrabPointer(x_display, CurrentTime);
877     XUngrabKeyboard(x_display, CurrentTime);
878     close(fbdev_fd);
879     }
880     #endif
881 cebix 1.1
882     XFlush(x_display);
883     XSync(x_display, false);
884     if (depth == 8) {
885     XFreeColormap(x_display, cmap[0]);
886     XFreeColormap(x_display, cmap[1]);
887     }
888 cebix 1.13
889     if (the_buffer) {
890     free(the_buffer);
891     the_buffer = NULL;
892     }
893    
894     if (!have_shm && the_buffer_copy) {
895     free(the_buffer_copy);
896     the_buffer_copy = NULL;
897     }
898 cebix 1.1 }
899     }
900    
901    
902     /*
903     * Close down full-screen mode (if bringing up error alerts is unsafe while in full-screen mode)
904     */
905    
906     void VideoQuitFullScreen(void)
907     {
908     D(bug("VideoQuitFullScreen()\n"));
909     if (display_type == DISPLAY_DGA)
910     quit_full_screen = true;
911     }
912    
913    
914     /*
915     * Mac VBL interrupt
916     */
917    
918     void VideoInterrupt(void)
919     {
920     // Emergency quit requested? Then quit
921     if (emerg_quit)
922     QuitEmulator();
923    
924 cebix 1.15 #ifdef HAVE_PTHREADS
925 cebix 1.1 // Temporarily give up frame buffer lock (this is the point where
926     // we are suspended when the user presses Ctrl-Tab)
927     pthread_mutex_unlock(&frame_buffer_lock);
928     pthread_mutex_lock(&frame_buffer_lock);
929 cebix 1.15 #endif
930 cebix 1.1 }
931    
932    
933     /*
934     * Set palette
935     */
936    
937     void video_set_palette(uint8 *pal)
938     {
939 cebix 1.15 #ifdef HAVE_PTHREDS
940 cebix 1.1 pthread_mutex_lock(&palette_lock);
941 cebix 1.15 #endif
942 cebix 1.1
943     // Convert colors to XColor array
944     for (int i=0; i<256; i++) {
945     palette[i].pixel = i;
946     palette[i].red = pal[i*3] * 0x0101;
947     palette[i].green = pal[i*3+1] * 0x0101;
948     palette[i].blue = pal[i*3+2] * 0x0101;
949     palette[i].flags = DoRed | DoGreen | DoBlue;
950     }
951    
952     // Tell redraw thread to change palette
953     palette_changed = true;
954    
955 cebix 1.15 #ifdef HAVE_PTHREADS
956 cebix 1.1 pthread_mutex_unlock(&palette_lock);
957 cebix 1.15 #endif
958 cebix 1.1 }
959    
960    
961     /*
962     * Suspend/resume emulator
963     */
964    
965 cebix 1.15 #if defined(ENABLE_XF86_DGA) || defined(ENABLE_FBDEV_DGA)
966 cebix 1.1 static void suspend_emul(void)
967     {
968     if (display_type == DISPLAY_DGA) {
969     // Release ctrl key
970     ADBKeyUp(0x36);
971     ctrl_down = false;
972    
973 cebix 1.15 #ifdef HAVE_PTHREADS
974 cebix 1.1 // Lock frame buffer (this will stop the MacOS thread)
975     pthread_mutex_lock(&frame_buffer_lock);
976 cebix 1.15 #endif
977 cebix 1.1
978     // Save frame buffer
979     fb_save = malloc(VideoMonitor.y * VideoMonitor.bytes_per_row);
980     if (fb_save)
981     memcpy(fb_save, the_buffer, VideoMonitor.y * VideoMonitor.bytes_per_row);
982    
983     // Close full screen display
984 cebix 1.15 #ifdef ENABLE_XF86_DGA
985 cebix 1.1 XF86DGADirectVideo(x_display, screen, 0);
986 cebix 1.7 #endif
987 cebix 1.1 XUngrabPointer(x_display, CurrentTime);
988     XUngrabKeyboard(x_display, CurrentTime);
989     XUnmapWindow(x_display, the_win);
990     XSync(x_display, false);
991    
992     // Open "suspend" window
993     XSetWindowAttributes wattr;
994     wattr.event_mask = KeyPressMask;
995     wattr.background_pixel = black_pixel;
996     wattr.border_pixel = black_pixel;
997     wattr.backing_store = Always;
998     wattr.backing_planes = xdepth;
999     wattr.colormap = DefaultColormap(x_display, screen);
1000 cebix 1.7
1001 cebix 1.1 XSync(x_display, false);
1002     suspend_win = XCreateWindow(x_display, rootwin, 0, 0, 512, 1, 0, xdepth,
1003     InputOutput, vis, CWEventMask | CWBackPixel | CWBorderPixel |
1004     CWBackingStore | CWBackingPlanes | (xdepth == 8 ? CWColormap : 0), &wattr);
1005     XSync(x_display, false);
1006     XStoreName(x_display, suspend_win, GetString(STR_SUSPEND_WINDOW_TITLE));
1007     XMapRaised(x_display, suspend_win);
1008     XSync(x_display, false);
1009     emul_suspended = true;
1010     }
1011     }
1012    
1013     static void resume_emul(void)
1014     {
1015     // Close "suspend" window
1016     XDestroyWindow(x_display, suspend_win);
1017     XSync(x_display, false);
1018    
1019     // Reopen full screen display
1020     XMapRaised(x_display, the_win);
1021     XWarpPointer(x_display, None, rootwin, 0, 0, 0, 0, 0, 0);
1022     XSync(x_display, false);
1023     XGrabKeyboard(x_display, rootwin, 1, GrabModeAsync, GrabModeAsync, CurrentTime);
1024     XGrabPointer(x_display, rootwin, 1, PointerMotionMask | ButtonPressMask | ButtonReleaseMask, GrabModeAsync, GrabModeAsync, None, None, CurrentTime);
1025 cebix 1.15 #ifdef ENABLE_XF86_DGA
1026 cebix 1.1 XF86DGADirectVideo(x_display, screen, XF86DGADirectGraphics | XF86DGADirectKeyb | XF86DGADirectMouse);
1027     XF86DGASetViewPort(x_display, screen, 0, 0);
1028 cebix 1.7 #endif
1029 cebix 1.1 XSync(x_display, false);
1030    
1031     // Restore frame buffer
1032     if (fb_save) {
1033     memcpy(the_buffer, fb_save, VideoMonitor.y * VideoMonitor.bytes_per_row);
1034     free(fb_save);
1035     fb_save = NULL;
1036     }
1037 cebix 1.7
1038 cebix 1.15 #ifdef ENABLE_XF86_DGA
1039 cebix 1.1 if (depth == 8)
1040     XF86DGAInstallColormap(x_display, screen, cmap[current_dga_cmap]);
1041 cebix 1.7 #endif
1042 cebix 1.1
1043 cebix 1.15 #ifdef HAVE_PTHREADS
1044 cebix 1.1 // Unlock frame buffer (and continue MacOS thread)
1045     pthread_mutex_unlock(&frame_buffer_lock);
1046     emul_suspended = false;
1047 cebix 1.15 #endif
1048 cebix 1.1 }
1049     #endif
1050    
1051    
1052     /*
1053     * Translate key event to Mac keycode
1054     */
1055    
1056     static int kc_decode(KeySym ks)
1057     {
1058     switch (ks) {
1059     case XK_A: case XK_a: return 0x00;
1060     case XK_B: case XK_b: return 0x0b;
1061     case XK_C: case XK_c: return 0x08;
1062     case XK_D: case XK_d: return 0x02;
1063     case XK_E: case XK_e: return 0x0e;
1064     case XK_F: case XK_f: return 0x03;
1065     case XK_G: case XK_g: return 0x05;
1066     case XK_H: case XK_h: return 0x04;
1067     case XK_I: case XK_i: return 0x22;
1068     case XK_J: case XK_j: return 0x26;
1069     case XK_K: case XK_k: return 0x28;
1070     case XK_L: case XK_l: return 0x25;
1071     case XK_M: case XK_m: return 0x2e;
1072     case XK_N: case XK_n: return 0x2d;
1073     case XK_O: case XK_o: return 0x1f;
1074     case XK_P: case XK_p: return 0x23;
1075     case XK_Q: case XK_q: return 0x0c;
1076     case XK_R: case XK_r: return 0x0f;
1077     case XK_S: case XK_s: return 0x01;
1078     case XK_T: case XK_t: return 0x11;
1079     case XK_U: case XK_u: return 0x20;
1080     case XK_V: case XK_v: return 0x09;
1081     case XK_W: case XK_w: return 0x0d;
1082     case XK_X: case XK_x: return 0x07;
1083     case XK_Y: case XK_y: return 0x10;
1084     case XK_Z: case XK_z: return 0x06;
1085    
1086     case XK_1: case XK_exclam: return 0x12;
1087     case XK_2: case XK_at: return 0x13;
1088     case XK_3: case XK_numbersign: return 0x14;
1089     case XK_4: case XK_dollar: return 0x15;
1090     case XK_5: case XK_percent: return 0x17;
1091     case XK_6: return 0x16;
1092     case XK_7: return 0x1a;
1093     case XK_8: return 0x1c;
1094     case XK_9: return 0x19;
1095     case XK_0: return 0x1d;
1096    
1097     case XK_grave: case XK_asciitilde: return 0x0a;
1098     case XK_minus: case XK_underscore: return 0x1b;
1099     case XK_equal: case XK_plus: return 0x18;
1100     case XK_bracketleft: case XK_braceleft: return 0x21;
1101     case XK_bracketright: case XK_braceright: return 0x1e;
1102     case XK_backslash: case XK_bar: return 0x2a;
1103     case XK_semicolon: case XK_colon: return 0x29;
1104     case XK_apostrophe: case XK_quotedbl: return 0x27;
1105     case XK_comma: case XK_less: return 0x2b;
1106     case XK_period: case XK_greater: return 0x2f;
1107     case XK_slash: case XK_question: return 0x2c;
1108    
1109 cebix 1.15 #if defined(ENABLE_XF86_DGA) || defined(ENABLE_FBDEV_DGA)
1110 cebix 1.1 case XK_Tab: if (ctrl_down) {suspend_emul(); return -1;} else return 0x30;
1111     #else
1112     case XK_Tab: return 0x30;
1113     #endif
1114     case XK_Return: return 0x24;
1115     case XK_space: return 0x31;
1116     case XK_BackSpace: return 0x33;
1117    
1118     case XK_Delete: return 0x75;
1119     case XK_Insert: return 0x72;
1120     case XK_Home: case XK_Help: return 0x73;
1121     case XK_End: return 0x77;
1122     #ifdef __hpux
1123     case XK_Prior: return 0x74;
1124     case XK_Next: return 0x79;
1125     #else
1126     case XK_Page_Up: return 0x74;
1127     case XK_Page_Down: return 0x79;
1128     #endif
1129    
1130     case XK_Control_L: return 0x36;
1131     case XK_Control_R: return 0x36;
1132     case XK_Shift_L: return 0x38;
1133     case XK_Shift_R: return 0x38;
1134     case XK_Alt_L: return 0x37;
1135     case XK_Alt_R: return 0x37;
1136     case XK_Meta_L: return 0x3a;
1137     case XK_Meta_R: return 0x3a;
1138     case XK_Menu: return 0x32;
1139     case XK_Caps_Lock: return 0x39;
1140     case XK_Num_Lock: return 0x47;
1141    
1142     case XK_Up: return 0x3e;
1143     case XK_Down: return 0x3d;
1144     case XK_Left: return 0x3b;
1145     case XK_Right: return 0x3c;
1146    
1147     case XK_Escape: if (ctrl_down) {quit_full_screen = true; emerg_quit = true; return -1;} else return 0x35;
1148    
1149     case XK_F1: if (ctrl_down) {SysMountFirstFloppy(); return -1;} else return 0x7a;
1150     case XK_F2: return 0x78;
1151     case XK_F3: return 0x63;
1152     case XK_F4: return 0x76;
1153     case XK_F5: return 0x60;
1154     case XK_F6: return 0x61;
1155     case XK_F7: return 0x62;
1156     case XK_F8: return 0x64;
1157     case XK_F9: return 0x65;
1158     case XK_F10: return 0x6d;
1159     case XK_F11: return 0x67;
1160     case XK_F12: return 0x6f;
1161    
1162     case XK_Print: return 0x69;
1163     case XK_Scroll_Lock: return 0x6b;
1164     case XK_Pause: return 0x71;
1165    
1166     #if defined(XK_KP_Prior) && defined(XK_KP_Left) && defined(XK_KP_Insert) && defined (XK_KP_End)
1167     case XK_KP_0: case XK_KP_Insert: return 0x52;
1168     case XK_KP_1: case XK_KP_End: return 0x53;
1169     case XK_KP_2: case XK_KP_Down: return 0x54;
1170     case XK_KP_3: case XK_KP_Next: return 0x55;
1171     case XK_KP_4: case XK_KP_Left: return 0x56;
1172     case XK_KP_5: case XK_KP_Begin: return 0x57;
1173     case XK_KP_6: case XK_KP_Right: return 0x58;
1174     case XK_KP_7: case XK_KP_Home: return 0x59;
1175     case XK_KP_8: case XK_KP_Up: return 0x5b;
1176     case XK_KP_9: case XK_KP_Prior: return 0x5c;
1177     case XK_KP_Decimal: case XK_KP_Delete: return 0x41;
1178     #else
1179     case XK_KP_0: return 0x52;
1180     case XK_KP_1: return 0x53;
1181     case XK_KP_2: return 0x54;
1182     case XK_KP_3: return 0x55;
1183     case XK_KP_4: return 0x56;
1184     case XK_KP_5: return 0x57;
1185     case XK_KP_6: return 0x58;
1186     case XK_KP_7: return 0x59;
1187     case XK_KP_8: return 0x5b;
1188     case XK_KP_9: return 0x5c;
1189     case XK_KP_Decimal: return 0x41;
1190     #endif
1191     case XK_KP_Add: return 0x45;
1192     case XK_KP_Subtract: return 0x4e;
1193     case XK_KP_Multiply: return 0x43;
1194     case XK_KP_Divide: return 0x4b;
1195     case XK_KP_Enter: return 0x4c;
1196     case XK_KP_Equal: return 0x51;
1197     }
1198     return -1;
1199     }
1200    
1201     static int event2keycode(XKeyEvent *ev)
1202     {
1203     KeySym ks;
1204     int as;
1205     int i = 0;
1206    
1207     do {
1208     ks = XLookupKeysym(ev, i++);
1209     as = kc_decode(ks);
1210     if (as != -1)
1211     return as;
1212     } while (ks != NoSymbol);
1213    
1214     return -1;
1215     }
1216    
1217    
1218     /*
1219     * X event handling
1220     */
1221    
1222     static void handle_events(void)
1223     {
1224     XEvent event;
1225     for (;;) {
1226     if (!XCheckMaskEvent(x_display, eventmask, &event))
1227     break;
1228    
1229     switch (event.type) {
1230     // Mouse button
1231     case ButtonPress: {
1232     unsigned int button = ((XButtonEvent *)&event)->button;
1233     if (button < 4)
1234     ADBMouseDown(button - 1);
1235 cebix 1.10 else if (button < 6) { // Wheel mouse
1236     if (mouse_wheel_mode == 0) {
1237     int key = (button == 5) ? 0x79 : 0x74; // Page up/down
1238     ADBKeyDown(key);
1239     ADBKeyUp(key);
1240     } else {
1241     int key = (button == 5) ? 0x3d : 0x3e; // Cursor up/down
1242     for(int i=0; i<mouse_wheel_lines; i++) {
1243     ADBKeyDown(key);
1244     ADBKeyUp(key);
1245     }
1246     }
1247     }
1248 cebix 1.1 break;
1249     }
1250     case ButtonRelease: {
1251     unsigned int button = ((XButtonEvent *)&event)->button;
1252     if (button < 4)
1253     ADBMouseUp(button - 1);
1254     break;
1255     }
1256    
1257     // Mouse moved
1258     case EnterNotify:
1259     ADBMouseMoved(((XMotionEvent *)&event)->x, ((XMotionEvent *)&event)->y);
1260     break;
1261     case MotionNotify:
1262     ADBMouseMoved(((XMotionEvent *)&event)->x, ((XMotionEvent *)&event)->y);
1263     break;
1264    
1265     // Keyboard
1266     case KeyPress: {
1267     int code;
1268     if (use_keycodes) {
1269     event2keycode((XKeyEvent *)&event); // This is called to process the hotkeys
1270     code = keycode_table[((XKeyEvent *)&event)->keycode & 0xff];
1271     } else
1272     code = event2keycode((XKeyEvent *)&event);
1273     if (code != -1) {
1274     if (!emul_suspended) {
1275 cebix 1.3 if (code == 0x39) { // Caps Lock pressed
1276     if (caps_on) {
1277     ADBKeyUp(code);
1278     caps_on = false;
1279     } else {
1280     ADBKeyDown(code);
1281     caps_on = true;
1282     }
1283     } else
1284     ADBKeyDown(code);
1285 cebix 1.1 if (code == 0x36)
1286     ctrl_down = true;
1287     } else {
1288 cebix 1.15 #if defined(ENABLE_XF86_DGA) || defined(ENABLE_FBDEV_DGA)
1289 cebix 1.1 if (code == 0x31)
1290     resume_emul(); // Space wakes us up
1291     #endif
1292     }
1293     }
1294     break;
1295     }
1296     case KeyRelease: {
1297     int code;
1298     if (use_keycodes) {
1299     event2keycode((XKeyEvent *)&event); // This is called to process the hotkeys
1300     code = keycode_table[((XKeyEvent *)&event)->keycode & 0xff];
1301     } else
1302     code = event2keycode((XKeyEvent *)&event);
1303 cebix 1.3 if (code != -1 && code != 0x39) { // Don't propagate Caps Lock releases
1304 cebix 1.1 ADBKeyUp(code);
1305     if (code == 0x36)
1306     ctrl_down = false;
1307     }
1308     break;
1309     }
1310    
1311     // Hidden parts exposed, force complete refresh of window
1312     case Expose:
1313 cebix 1.13 if (display_type == DISPLAY_WINDOW) {
1314     int x1, y1;
1315     for (y1=0; y1<16; y1++)
1316     for (x1=0; x1<16; x1++)
1317     updt_box[x1][y1] = true;
1318     nr_boxes = 16 * 16;
1319     }
1320 cebix 1.1 break;
1321     }
1322     }
1323     }
1324    
1325    
1326     /*
1327     * Window display update
1328     */
1329    
1330 cebix 1.13 static void update_display(int ticker)
1331 cebix 1.1 {
1332 cebix 1.13 int y1, y2, y2s, y2a, i, x1, xm, xmo, ymo, yo, yi, yil, xic, xicl, xi;
1333     int xil = 0;
1334     int rxm = 0, rxmo = 0;
1335 cebix 1.1 int bytes_per_row = VideoMonitor.bytes_per_row;
1336     int bytes_per_pixel = VideoMonitor.bytes_per_row / VideoMonitor.x;
1337 cebix 1.13 int rx = VideoMonitor.bytes_per_row / 16;
1338     int ry = VideoMonitor.y / 16;
1339     int max_box;
1340    
1341     y2s = sm_uptd[ticker % 8];
1342     y2a = 8;
1343     for (i = 0; i < 6; i++)
1344     if (ticker % (2 << i))
1345 cebix 1.1 break;
1346 cebix 1.13 max_box = sm_no_boxes[i];
1347 cebix 1.1
1348 cebix 1.13 if (y2a) {
1349     for (y1=0; y1<16; y1++) {
1350     for (y2=y2s; y2 < ry; y2 += y2a) {
1351     i = ((y1 * ry) + y2) * bytes_per_row;
1352     for (x1=0; x1<16; x1++, i += rx) {
1353     if (updt_box[x1][y1] == false) {
1354     if (memcmp(&the_buffer_copy[i], &the_buffer[i], rx)) {
1355     updt_box[x1][y1] = true;
1356     nr_boxes++;
1357     }
1358 cebix 1.1 }
1359     }
1360     }
1361 cebix 1.13 }
1362     }
1363 cebix 1.1
1364 cebix 1.13 if ((nr_boxes <= max_box) && (nr_boxes)) {
1365     for (y1=0; y1<16; y1++) {
1366     for (x1=0; x1<16; x1++) {
1367     if (updt_box[x1][y1] == true) {
1368     if (rxm == 0)
1369     xm = x1;
1370     rxm += rx;
1371     updt_box[x1][y1] = false;
1372 cebix 1.1 }
1373 cebix 1.13 if (((updt_box[x1+1][y1] == false) || (x1 == 15)) && (rxm)) {
1374     if ((rxmo != rxm) || (xmo != xm) || (yo != y1 - 1)) {
1375     if (rxmo) {
1376     xi = xmo * rx;
1377     yi = ymo * ry;
1378     xil = rxmo;
1379     yil = (yo - ymo +1) * ry;
1380     }
1381     rxmo = rxm;
1382     xmo = xm;
1383     ymo = y1;
1384 cebix 1.1 }
1385 cebix 1.13 rxm = 0;
1386     yo = y1;
1387     }
1388     if (xil) {
1389     i = (yi * bytes_per_row) + xi;
1390     for (y2=0; y2 < yil; y2++, i += bytes_per_row)
1391     memcpy(&the_buffer_copy[i], &the_buffer[i], xil);
1392     if (depth == 1) {
1393     if (have_shm)
1394     XShmPutImage(x_display, the_win, the_gc, img, xi * 8, yi, xi * 8, yi, xil * 8, yil, 0);
1395     else
1396     XPutImage(x_display, the_win, the_gc, img, xi * 8, yi, xi * 8, yi, xil * 8, yil);
1397     } else {
1398     if (have_shm)
1399     XShmPutImage(x_display, the_win, the_gc, img, xi / bytes_per_pixel, yi, xi / bytes_per_pixel, yi, xil / bytes_per_pixel, yil, 0);
1400     else
1401     XPutImage(x_display, the_win, the_gc, img, xi / bytes_per_pixel, yi, xi / bytes_per_pixel, yi, xil / bytes_per_pixel, yil);
1402 cebix 1.1 }
1403 cebix 1.13 xil = 0;
1404 cebix 1.1 }
1405 cebix 1.13 if ((x1 == 15) && (y1 == 15) && (rxmo)) {
1406     x1--;
1407     xi = xmo * rx;
1408     yi = ymo * ry;
1409     xil = rxmo;
1410     yil = (yo - ymo +1) * ry;
1411     rxmo = 0;
1412 cebix 1.1 }
1413     }
1414     }
1415 cebix 1.13 nr_boxes = 0;
1416 cebix 1.1 }
1417     }
1418    
1419    
1420     /*
1421     * Thread for screen refresh, input handling etc.
1422     */
1423    
1424 cebix 1.15 void VideoRefresh(void)
1425 cebix 1.1 {
1426 cebix 1.15 #if defined(ENABLE_XF86_DGA) || defined(ENABLE_FBDEV_DGA)
1427     // Quit DGA mode if requested
1428     if (quit_full_screen) {
1429     quit_full_screen = false;
1430     if (display_type == DISPLAY_DGA) {
1431     #ifdef ENABLE_XF86_DGA
1432     XF86DGADirectVideo(x_display, screen, 0);
1433     #endif
1434     XUngrabPointer(x_display, CurrentTime);
1435     XUngrabKeyboard(x_display, CurrentTime);
1436     XUnmapWindow(x_display, the_win);
1437     XSync(x_display, false);
1438     }
1439     }
1440     #endif
1441 cebix 1.1
1442 cebix 1.15 // Handle X events
1443     handle_events();
1444 cebix 1.1
1445 cebix 1.15 // Handle palette changes
1446     #ifdef HAVE_PTHREADS
1447     pthread_mutex_lock(&palette_lock);
1448 cebix 1.1 #endif
1449 cebix 1.15 if (palette_changed) {
1450     palette_changed = false;
1451     if (depth == 8) {
1452     XStoreColors(x_display, cmap[0], palette, 256);
1453     XStoreColors(x_display, cmap[1], palette, 256);
1454    
1455     #ifdef ENABLE_XF86_DGA
1456 cebix 1.1 if (display_type == DISPLAY_DGA) {
1457 cebix 1.15 current_dga_cmap ^= 1;
1458     XF86DGAInstallColormap(x_display, screen, cmap[current_dga_cmap]);
1459 cebix 1.1 }
1460 cebix 1.15 #endif
1461 cebix 1.1 }
1462 cebix 1.15 }
1463     #ifdef HAVE_PTHREADS
1464     pthread_mutex_unlock(&palette_lock);
1465 cebix 1.1 #endif
1466    
1467 cebix 1.15 // In window mode, update display
1468     static int tick_counter = 0;
1469     if (display_type == DISPLAY_WINDOW) {
1470     tick_counter++;
1471     update_display(tick_counter);
1472     }
1473     }
1474 cebix 1.1
1475 cebix 1.15 #ifdef HAVE_PTHREADS
1476     static void *redraw_func(void *arg)
1477     {
1478     while (!redraw_thread_cancel) {
1479     #ifdef HAVE_NANOSLEEP
1480     struct timespec req = {0, 16666667};
1481     nanosleep(&req, NULL);
1482     #else
1483     usleep(16667);
1484 cebix 1.1 #endif
1485 cebix 1.15 VideoRefresh();
1486 cebix 1.1 }
1487     return NULL;
1488     }
1489 cebix 1.15 #endif