source: libcaca/trunk/caca/driver/x11.c @ 4767

Last change on this file since 4767 was 4767, checked in by Sam Hocevar, 11 years ago

Fix a bug in our Xutf8LookupString() usage.

  • Property svn:keywords set to Id
File size: 30.9 KB
Line 
1/*
2 *  libcaca       Colour ASCII-Art library
3 *  Copyright (c) 2002-2010 Sam Hocevar <sam@hocevar.net>
4 *                2007 Ben Wiley Sittler <bsittler@gmail.com>
5 *                All Rights Reserved
6 *
7 *  This library is free software. It comes without any warranty, to
8 *  the extent permitted by applicable law. You can redistribute it
9 *  and/or modify it under the terms of the Do What The Fuck You Want
10 *  To Public License, Version 2, as published by Sam Hocevar. See
11 *  http://sam.zoy.org/wtfpl/COPYING for more details.
12 */
13
14/*
15 *  This file contains the libcaca X11 input and output driver
16 */
17
18#include "config.h"
19
20#if defined(USE_X11)
21
22#include <X11/Xlib.h>
23#include <X11/Xutil.h>
24#include <X11/keysym.h>
25#if defined HAVE_X11_XKBLIB_H
26#   include <X11/XKBlib.h>
27#endif
28
29#include <stdio.h> /* BUFSIZ */
30#include <stdlib.h>
31#include <string.h>
32#if defined HAVE_LOCALE_H
33#   include <locale.h>
34#endif
35
36#include "caca.h"
37#include "caca.h"
38#include "caca_internals.h"
39
40/*
41 * Local functions
42 */
43static int x11_error_handler(Display *, XErrorEvent *);
44static void x11_put_glyph(caca_display_t *, int, int, int, int, int,
45                          uint32_t, uint32_t);
46
47struct driver_private
48{
49    Display *dpy;
50    Window window;
51    Pixmap pixmap;
52    GC gc;
53    long int event_mask;
54    int font_width, font_height;
55    int colors[4096];
56#if defined X_HAVE_UTF8_STRING
57    XFontSet font_set;
58#endif
59    Font font;
60    XFontStruct *font_struct;
61    int font_offset;
62    Cursor pointer;
63    Atom wm_protocols;
64    Atom wm_delete_window;
65#if defined HAVE_X11_XKBLIB_H
66    Bool autorepeat;
67#endif
68    uint32_t max_char;
69    int cursor_flags;
70    int dirty_cursor_x, dirty_cursor_y;
71#if defined X_HAVE_UTF8_STRING
72    XIM im;
73    XIC ic;
74#endif
75};
76
77#define UNICODE_XLFD_SUFFIX "-iso10646-1"
78#define LATIN_1_XLFD_SUFFIX "-iso8859-1"
79
80static int x11_init_graphics(caca_display_t *dp)
81{
82    Colormap colormap;
83    XSetWindowAttributes x11_winattr;
84#if defined X_HAVE_UTF8_STRING
85    XVaNestedList list;
86#endif
87    int (*old_error_handler)(Display *, XErrorEvent *);
88    char const *fonts[] = { NULL, "8x13bold", "fixed", NULL }, **parser;
89    char const *geometry;
90    int width = caca_get_canvas_width(dp->cv);
91    int height = caca_get_canvas_height(dp->cv);
92    int i;
93
94    dp->drv.p = malloc(sizeof(struct driver_private));
95
96#if defined HAVE_GETENV
97    geometry = getenv("CACA_GEOMETRY");
98    if(geometry && *geometry)
99        sscanf(geometry, "%ux%u", &width, &height);
100#endif
101
102    caca_add_dirty_rect(dp->cv, 0, 0, dp->cv->width, dp->cv->height);
103    dp->resize.allow = 1;
104    caca_set_canvas_size(dp->cv, width ? width : 80, height ? height : 32);
105    width = caca_get_canvas_width(dp->cv);
106    height = caca_get_canvas_height(dp->cv);
107    dp->resize.allow = 0;
108
109#if defined HAVE_LOCALE_H
110    setlocale(LC_ALL, "");
111#endif
112
113    dp->drv.p->dpy = XOpenDisplay(NULL);
114    if(dp->drv.p->dpy == NULL)
115        return -1;
116
117#if defined HAVE_GETENV
118    fonts[0] = getenv("CACA_FONT");
119    if(fonts[0] && *fonts[0])
120        parser = fonts;
121    else
122#endif
123        parser = fonts + 1;
124
125    /* Ignore font errors */
126    old_error_handler = XSetErrorHandler(x11_error_handler);
127
128    /* Parse our font list */
129    for( ; ; parser++)
130    {
131#if defined X_HAVE_UTF8_STRING
132        char **missing_charset_list;
133        char *def_string;
134        int missing_charset_count;
135#endif
136        uint32_t font_max_char;
137
138        if(!*parser)
139        {
140            XSetErrorHandler(old_error_handler);
141            XCloseDisplay(dp->drv.p->dpy);
142            return -1;
143        }
144
145#if defined X_HAVE_UTF8_STRING
146        dp->drv.p->font_set = XCreateFontSet(dp->drv.p->dpy, *parser,
147                                             &missing_charset_list,
148                                             &missing_charset_count,
149                                             &def_string);
150        if (missing_charset_list)
151            XFreeStringList(missing_charset_list);
152
153        if (!dp->drv.p->font_set || missing_charset_count)
154        {
155            char buf[BUFSIZ];
156
157            if (dp->drv.p->font_set)
158                XFreeFontSet(dp->drv.p->dpy, dp->drv.p->font_set);
159            snprintf(buf, BUFSIZ - 1, "%s,*", *parser);
160            dp->drv.p->font_set = XCreateFontSet(dp->drv.p->dpy, buf,
161                                                 &missing_charset_list,
162                                                 &missing_charset_count,
163                                                 &def_string);
164            if (missing_charset_list)
165                XFreeStringList(missing_charset_list);
166        }
167
168        if (dp->drv.p->font_set)
169            break;
170#endif
171
172        dp->drv.p->font = XLoadFont(dp->drv.p->dpy, *parser);
173        if(!dp->drv.p->font)
174            continue;
175
176        dp->drv.p->font_struct = XQueryFont(dp->drv.p->dpy, dp->drv.p->font);
177        if(!dp->drv.p->font_struct)
178        {
179            XUnloadFont(dp->drv.p->dpy, dp->drv.p->font);
180            continue;
181        }
182
183        if((strlen(*parser) > sizeof(UNICODE_XLFD_SUFFIX))
184             && !strcasecmp(*parser + strlen(*parser)
185                          - strlen(UNICODE_XLFD_SUFFIX), UNICODE_XLFD_SUFFIX))
186            dp->drv.p->max_char = 0xffff;
187        else if((strlen(*parser) > sizeof(LATIN_1_XLFD_SUFFIX))
188                 && !strcasecmp(*parser + strlen(*parser)
189                        - strlen(LATIN_1_XLFD_SUFFIX), LATIN_1_XLFD_SUFFIX))
190            dp->drv.p->max_char = 0xff;
191        else
192            dp->drv.p->max_char = 0x7f;
193
194        font_max_char =
195            (dp->drv.p->font_struct->max_byte1 << 8)
196             | dp->drv.p->font_struct->max_char_or_byte2;
197        if(font_max_char && (font_max_char < dp->drv.p->max_char))
198            dp->drv.p->max_char = font_max_char;
199
200        break;
201    }
202
203    /* Reset the default X11 error handler */
204    XSetErrorHandler(old_error_handler);
205
206    /* Set font width to the largest character in the set */
207#if defined X_HAVE_UTF8_STRING
208    if (dp->drv.p->font_set)
209    {
210        /* Do not trust the fontset, because some fonts may have
211         * irrelevantly large glyphs. Pango and rxvt use the same method. */
212        static wchar_t const test[] =
213        {
214            '0', '1', '8', 'a', 'd', 'x', 'm', 'y', 'g', 'W', 'X', '\'', '_',
215            0x00cd, 0x00e7, 0x00d5, 0x0114, 0x0177, /* Í ç Õ Ĕ ŷ */
216            /* 0x0643, */ /* ﻙ */
217            0x304c, 0x672c, /* が本 */
218            0,
219        };
220
221        XRectangle ink, logical;
222
223        dp->drv.p->font_width =
224             (XmbTextEscapement(dp->drv.p->font_set, "CAca", 4) + 2) / 4;
225        XwcTextExtents(dp->drv.p->font_set, test, sizeof(test) / sizeof(*test),
226                       &ink, &logical);
227        dp->drv.p->font_height = ink.height;
228        dp->drv.p->font_offset = ink.height + ink.y;
229    }
230    else
231#endif
232    {
233        dp->drv.p->font_width = 0;
234        if(dp->drv.p->font_struct->per_char
235            && !dp->drv.p->font_struct->min_byte1
236            && dp->drv.p->font_struct->min_char_or_byte2 <= 0x21
237            && dp->drv.p->font_struct->max_char_or_byte2 >= 0x7e)
238        {
239            for(i = 0x21; i < 0x7f; i++)
240            {
241                int cw = dp->drv.p->font_struct->per_char[i
242                            - dp->drv.p->font_struct->min_char_or_byte2].width;
243                if(cw > dp->drv.p->font_width)
244                    dp->drv.p->font_width = cw;
245            }
246        }
247
248        if(!dp->drv.p->font_width)
249            dp->drv.p->font_width = dp->drv.p->font_struct->max_bounds.width;
250
251        dp->drv.p->font_height = dp->drv.p->font_struct->max_bounds.ascent
252                                  + dp->drv.p->font_struct->max_bounds.descent;
253        dp->drv.p->font_offset = dp->drv.p->font_struct->max_bounds.descent;
254    }
255
256    colormap = DefaultColormap(dp->drv.p->dpy, DefaultScreen(dp->drv.p->dpy));
257    for(i = 0x000; i < 0x1000; i++)
258    {
259        XColor color;
260        color.red = ((i & 0xf00) >> 8) * 0x1111;
261        color.green = ((i & 0x0f0) >> 4) * 0x1111;
262        color.blue = (i & 0x00f) * 0x1111;
263        XAllocColor(dp->drv.p->dpy, colormap, &color);
264        dp->drv.p->colors[i] = color.pixel;
265    }
266
267    x11_winattr.backing_store = Always;
268    x11_winattr.background_pixel = dp->drv.p->colors[0x000];
269    x11_winattr.event_mask = ExposureMask | StructureNotifyMask;
270
271    dp->drv.p->window =
272        XCreateWindow(dp->drv.p->dpy, DefaultRootWindow(dp->drv.p->dpy), 0, 0,
273                      width * dp->drv.p->font_width,
274                      height * dp->drv.p->font_height,
275                      0, 0, InputOutput, 0,
276                      CWBackingStore | CWBackPixel | CWEventMask,
277                      &x11_winattr);
278
279    dp->drv.p->wm_protocols =
280        XInternAtom(dp->drv.p->dpy, "WM_PROTOCOLS", True);
281    dp->drv.p->wm_delete_window =
282        XInternAtom(dp->drv.p->dpy, "WM_DELETE_WINDOW", True);
283
284    if(dp->drv.p->wm_protocols != None && dp->drv.p->wm_delete_window != None)
285        XSetWMProtocols(dp->drv.p->dpy, dp->drv.p->window,
286                        &dp->drv.p->wm_delete_window, 1);
287
288    XStoreName(dp->drv.p->dpy, dp->drv.p->window, "caca for X");
289
290    XSelectInput(dp->drv.p->dpy, dp->drv.p->window, StructureNotifyMask);
291    XMapWindow(dp->drv.p->dpy, dp->drv.p->window);
292
293    dp->drv.p->gc = XCreateGC(dp->drv.p->dpy, dp->drv.p->window, 0, NULL);
294    XSetForeground(dp->drv.p->dpy, dp->drv.p->gc, dp->drv.p->colors[0x888]);
295#if defined X_HAVE_UTF8_STRING
296    if (!dp->drv.p->font_set)
297#endif
298        XSetFont(dp->drv.p->dpy, dp->drv.p->gc, dp->drv.p->font);
299
300    for(;;)
301    {
302        XEvent xevent;
303        XNextEvent(dp->drv.p->dpy, &xevent);
304        if(xevent.type == MapNotify)
305            break;
306    }
307
308#if defined HAVE_X11_XKBLIB_H
309    /* Disable autorepeat */
310    XkbSetDetectableAutoRepeat(dp->drv.p->dpy, True, &dp->drv.p->autorepeat);
311    if(!dp->drv.p->autorepeat)
312        XAutoRepeatOff(dp->drv.p->dpy);
313#endif
314
315    dp->drv.p->event_mask = KeyPressMask | KeyReleaseMask | ButtonPressMask
316          | ButtonReleaseMask | PointerMotionMask | StructureNotifyMask
317          | ExposureMask;
318
319    XSelectInput(dp->drv.p->dpy, dp->drv.p->window, dp->drv.p->event_mask);
320
321    XSync(dp->drv.p->dpy, False);
322
323    dp->drv.p->pixmap = XCreatePixmap(dp->drv.p->dpy, dp->drv.p->window,
324                                      width * dp->drv.p->font_width,
325                                      height * dp->drv.p->font_height,
326                                      DefaultDepth(dp->drv.p->dpy,
327                                      DefaultScreen(dp->drv.p->dpy)));
328    dp->drv.p->pointer = None;
329
330    dp->drv.p->cursor_flags = 0;
331    dp->drv.p->dirty_cursor_x = -1;
332    dp->drv.p->dirty_cursor_y = -1;
333
334#if defined X_HAVE_UTF8_STRING
335    list = XVaCreateNestedList(0, XNFontSet, dp->drv.p->font_set, NULL);
336    dp->drv.p->im = XOpenIM(dp->drv.p->dpy, NULL, NULL, NULL);
337    dp->drv.p->ic = XCreateIC(dp->drv.p->im,
338                          XNInputStyle, XIMPreeditNothing | XIMStatusNothing,
339                          XNClientWindow, dp->drv.p->window,
340                          XNPreeditAttributes, list,
341                          XNStatusAttributes, list,
342                          NULL);
343#endif
344
345    return 0;
346}
347
348static int x11_end_graphics(caca_display_t *dp)
349{
350    XSync(dp->drv.p->dpy, False);
351#if defined HAVE_X11_XKBLIB_H
352    if(!dp->drv.p->autorepeat)
353        XAutoRepeatOn(dp->drv.p->dpy);
354#endif
355    XFreePixmap(dp->drv.p->dpy, dp->drv.p->pixmap);
356#if defined X_HAVE_UTF8_STRING
357    if (dp->drv.p->font_set)
358        XFreeFontSet(dp->drv.p->dpy, dp->drv.p->font_set);
359    else
360#endif
361        XFreeFont(dp->drv.p->dpy, dp->drv.p->font_struct);
362    XFreeGC(dp->drv.p->dpy, dp->drv.p->gc);
363    XUnmapWindow(dp->drv.p->dpy, dp->drv.p->window);
364    XDestroyWindow(dp->drv.p->dpy, dp->drv.p->window);
365#if defined X_HAVE_UTF8_STRING
366    XDestroyIC(dp->drv.p->ic);
367    XCloseIM(dp->drv.p->im);
368#endif
369    XCloseDisplay(dp->drv.p->dpy);
370
371    free(dp->drv.p);
372
373    return 0;
374}
375
376static int x11_set_display_title(caca_display_t *dp, char const *title)
377{
378    XStoreName(dp->drv.p->dpy, dp->drv.p->window, title);
379    return 0;
380}
381
382static int x11_get_display_width(caca_display_t const *dp)
383{
384    return caca_get_canvas_width(dp->cv) * dp->drv.p->font_width;
385}
386
387static int x11_get_display_height(caca_display_t const *dp)
388{
389    return caca_get_canvas_height(dp->cv) * dp->drv.p->font_height;
390}
391
392static void x11_display(caca_display_t *dp)
393{
394    uint32_t const *cvchars = caca_get_canvas_chars(dp->cv);
395    uint32_t const *cvattrs = caca_get_canvas_attrs(dp->cv);
396    int width = caca_get_canvas_width(dp->cv);
397    int height = caca_get_canvas_height(dp->cv);
398    int x, y, i, len;
399
400    /* XXX: the magic value -1 is used to handle the cursor area */
401    for(i = -1; i < caca_get_dirty_rect_count(dp->cv); i++)
402    {
403        int dx, dy, dw, dh;
404
405        /* Get the dirty rectangle coordinates, either from the previous
406         * cursor position, or from the canvas's list. */
407        if(i == -1)
408        {
409            if(dp->drv.p->dirty_cursor_x < 0 || dp->drv.p->dirty_cursor_y < 0
410                || dp->drv.p->dirty_cursor_x >= width
411                || dp->drv.p->dirty_cursor_y >= height)
412                continue;
413
414            dx = dp->drv.p->dirty_cursor_x;
415            dy = dp->drv.p->dirty_cursor_y;
416            dw = dh = 1;
417
418            dp->drv.p->dirty_cursor_x = -1;
419            dp->drv.p->dirty_cursor_y = -1;
420        }
421        else
422        {
423            caca_get_dirty_rect(dp->cv, i, &dx, &dy, &dw, &dh);
424        }
425
426        /* First draw the background colours. Splitting the process in two
427         * loops like this is actually slightly faster. */
428        for(y = dy; y < dy + dh; y++)
429        {
430            for(x = dx; x < dx + dw; x += len)
431            {
432                uint32_t const *attrs = cvattrs + x + y * width;
433                uint16_t bg = caca_attr_to_rgb12_bg(*attrs);
434
435                len = 1;
436                while(x + len < dx + dw
437                       && caca_attr_to_rgb12_bg(attrs[len]) == bg)
438                    len++;
439
440                XSetForeground(dp->drv.p->dpy, dp->drv.p->gc,
441                               dp->drv.p->colors[bg]);
442                XFillRectangle(dp->drv.p->dpy, dp->drv.p->pixmap,
443                               dp->drv.p->gc,
444                               x * dp->drv.p->font_width,
445                               y * dp->drv.p->font_height,
446                               len * dp->drv.p->font_width,
447                               dp->drv.p->font_height);
448            }
449        }
450
451        /* Then print the foreground characters */
452        for(y = dy; y < dy + dh; y++)
453        {
454            int yoff = (y + 1) * dp->drv.p->font_height
455                                        - dp->drv.p->font_offset;
456            uint32_t const *chars = cvchars + dx + y * width;
457            uint32_t const *attrs = cvattrs + dx + y * width;
458
459            for(x = dx; x < dx + dw; x++, chars++, attrs++)
460            {
461                XSetForeground(dp->drv.p->dpy, dp->drv.p->gc,
462                           dp->drv.p->colors[caca_attr_to_rgb12_fg(*attrs)]);
463
464                x11_put_glyph(dp, x * dp->drv.p->font_width,
465                              y * dp->drv.p->font_height, yoff,
466                              dp->drv.p->font_width, dp->drv.p->font_height,
467                              *attrs, *chars);
468            }
469        }
470    }
471
472    /* Print the cursor if necessary. */
473    if(dp->drv.p->cursor_flags)
474    {
475        XSetForeground(dp->drv.p->dpy, dp->drv.p->gc,
476                       dp->drv.p->colors[0xfff]);
477        x = caca_wherex(dp->cv);
478        y = caca_wherey(dp->cv);
479        XFillRectangle(dp->drv.p->dpy, dp->drv.p->pixmap, dp->drv.p->gc,
480                       x * dp->drv.p->font_width, y * dp->drv.p->font_height,
481                       dp->drv.p->font_width, dp->drv.p->font_height);
482
483        /* Mark the area as dirty */
484        dp->drv.p->dirty_cursor_x = x;
485        dp->drv.p->dirty_cursor_y = y;
486    }
487
488    XCopyArea(dp->drv.p->dpy, dp->drv.p->pixmap, dp->drv.p->window,
489              dp->drv.p->gc, 0, 0,
490              width * dp->drv.p->font_width,
491              height * dp->drv.p->font_height,
492              0, 0);
493    XFlush(dp->drv.p->dpy);
494}
495
496static void x11_handle_resize(caca_display_t *dp)
497{
498    Pixmap new_pixmap;
499
500    new_pixmap = XCreatePixmap(dp->drv.p->dpy, dp->drv.p->window,
501                               dp->resize.w * dp->drv.p->font_width,
502                               dp->resize.h * dp->drv.p->font_height,
503                               DefaultDepth(dp->drv.p->dpy,
504                                            DefaultScreen(dp->drv.p->dpy)));
505    XCopyArea(dp->drv.p->dpy, dp->drv.p->pixmap, new_pixmap,
506              dp->drv.p->gc, 0, 0,
507              dp->resize.w * dp->drv.p->font_width,
508              dp->resize.h * dp->drv.p->font_height, 0, 0);
509    XFreePixmap(dp->drv.p->dpy, dp->drv.p->pixmap);
510    dp->drv.p->pixmap = new_pixmap;
511}
512
513static int x11_get_event(caca_display_t *dp, caca_privevent_t *ev)
514{
515    int width = caca_get_canvas_width(dp->cv);
516    int height = caca_get_canvas_height(dp->cv);
517    XEvent xevent;
518    char key;
519
520    while(XCheckWindowEvent(dp->drv.p->dpy, dp->drv.p->window,
521                            dp->drv.p->event_mask, &xevent) == True)
522    {
523        KeySym keysym;
524#if defined X_HAVE_UTF8_STRING
525        int len;
526#endif
527
528        /* Expose event */
529        if(xevent.type == Expose)
530        {
531            XCopyArea(dp->drv.p->dpy, dp->drv.p->pixmap,
532                      dp->drv.p->window, dp->drv.p->gc, 0, 0,
533                      width * dp->drv.p->font_width,
534                      height * dp->drv.p->font_height, 0, 0);
535            continue;
536        }
537
538        /* Resize event */
539        if(xevent.type == ConfigureNotify)
540        {
541            int w, h;
542
543            w = (xevent.xconfigure.width + dp->drv.p->font_width / 3)
544                  / dp->drv.p->font_width;
545            h = (xevent.xconfigure.height + dp->drv.p->font_height / 3)
546                  / dp->drv.p->font_height;
547
548            if(!w || !h || (w == width && h == height))
549                continue;
550
551            dp->resize.w = w;
552            dp->resize.h = h;
553            dp->resize.resized = 1;
554
555            continue;
556        }
557
558        /* Check for mouse motion events */
559        if(xevent.type == MotionNotify)
560        {
561            int newx = xevent.xmotion.x / dp->drv.p->font_width;
562            int newy = xevent.xmotion.y / dp->drv.p->font_height;
563
564            if(newx >= width)
565                newx = width - 1;
566            if(newy >= height)
567                newy = height - 1;
568
569            if(dp->mouse.x == newx && dp->mouse.y == newy)
570                continue;
571
572            dp->mouse.x = newx;
573            dp->mouse.y = newy;
574
575            ev->type = CACA_EVENT_MOUSE_MOTION;
576            ev->data.mouse.x = dp->mouse.x;
577            ev->data.mouse.y = dp->mouse.y;
578            return 1;
579        }
580
581        /* Check for mouse press and release events */
582        if(xevent.type == ButtonPress)
583        {
584            ev->type = CACA_EVENT_MOUSE_PRESS;
585            ev->data.mouse.button = ((XButtonEvent *)&xevent)->button;
586            return 1;
587        }
588
589        if(xevent.type == ButtonRelease)
590        {
591            ev->type = CACA_EVENT_MOUSE_RELEASE;
592            ev->data.mouse.button = ((XButtonEvent *)&xevent)->button;
593            return 1;
594        }
595
596        /* Check for key press and release events */
597        if(xevent.type == KeyPress)
598            ev->type = CACA_EVENT_KEY_PRESS;
599        else if(xevent.type == KeyRelease)
600            ev->type = CACA_EVENT_KEY_RELEASE;
601        else
602            continue;
603
604        if(XFilterEvent(&xevent, None) == True)
605            continue;
606
607#if defined X_HAVE_UTF8_STRING
608        len = Xutf8LookupString(dp->drv.p->ic, &xevent.xkey,
609                                ev->data.key.utf8, 8, NULL, NULL);
610        ev->data.key.utf8[len] = 0;
611        if (len)
612        {
613            ev->data.key.utf32 = caca_utf8_to_utf32(ev->data.key.utf8, NULL);
614            if(ev->data.key.utf32 <= 0xff)
615                ev->data.key.ch = ev->data.key.utf32;
616            else
617                ev->data.key.ch = 0;
618            return 1;
619        }
620#endif
621        if(XLookupString(&xevent.xkey, &key, 1, NULL, NULL))
622        {
623            ev->data.key.ch = key;
624            ev->data.key.utf32 = key;
625            ev->data.key.utf8[0] = key;
626            ev->data.key.utf8[1] = '\0';
627            return 1;
628        }
629
630        keysym = XKeycodeToKeysym(dp->drv.p->dpy, xevent.xkey.keycode, 0);
631        switch(keysym)
632        {
633            case XK_F1:    ev->data.key.ch = CACA_KEY_F1;    break;
634            case XK_F2:    ev->data.key.ch = CACA_KEY_F2;    break;
635            case XK_F3:    ev->data.key.ch = CACA_KEY_F3;    break;
636            case XK_F4:    ev->data.key.ch = CACA_KEY_F4;    break;
637            case XK_F5:    ev->data.key.ch = CACA_KEY_F5;    break;
638            case XK_F6:    ev->data.key.ch = CACA_KEY_F6;    break;
639            case XK_F7:    ev->data.key.ch = CACA_KEY_F7;    break;
640            case XK_F8:    ev->data.key.ch = CACA_KEY_F8;    break;
641            case XK_F9:    ev->data.key.ch = CACA_KEY_F9;    break;
642            case XK_F10:   ev->data.key.ch = CACA_KEY_F10;   break;
643            case XK_F11:   ev->data.key.ch = CACA_KEY_F11;   break;
644            case XK_F12:   ev->data.key.ch = CACA_KEY_F12;   break;
645            case XK_F13:   ev->data.key.ch = CACA_KEY_F13;   break;
646            case XK_F14:   ev->data.key.ch = CACA_KEY_F14;   break;
647            case XK_F15:   ev->data.key.ch = CACA_KEY_F15;   break;
648            case XK_Left:  ev->data.key.ch = CACA_KEY_LEFT;  break;
649            case XK_Right: ev->data.key.ch = CACA_KEY_RIGHT; break;
650            case XK_Up:    ev->data.key.ch = CACA_KEY_UP;    break;
651            case XK_Down:  ev->data.key.ch = CACA_KEY_DOWN;  break;
652            case XK_KP_Page_Up:
653            case XK_Page_Up:      ev->data.key.ch = CACA_KEY_PAGEUP;   break;
654            case XK_KP_Page_Down:
655            case XK_Page_Down:    ev->data.key.ch = CACA_KEY_PAGEDOWN; break;
656            case XK_KP_Home:
657            case XK_Home:         ev->data.key.ch = CACA_KEY_HOME;     break;
658            case XK_KP_End:
659            case XK_End:          ev->data.key.ch = CACA_KEY_END;      break;
660
661            default: ev->type = CACA_EVENT_NONE; return 0;
662        }
663
664        ev->data.key.utf32 = 0;
665        ev->data.key.utf8[0] = '\0';
666        return 1;
667    }
668
669    while(XCheckTypedEvent(dp->drv.p->dpy, ClientMessage, &xevent))
670    {
671        if(xevent.xclient.message_type != dp->drv.p->wm_protocols)
672            continue;
673
674        if((Atom)xevent.xclient.data.l[0] == dp->drv.p->wm_delete_window)
675        {
676            ev->type = CACA_EVENT_QUIT;
677            return 1;
678        }
679    }
680
681    ev->type = CACA_EVENT_NONE;
682    return 0;
683}
684
685static void x11_set_mouse(caca_display_t *dp, int flags)
686{
687    Cursor no_ptr;
688    Pixmap bm_no;
689    XColor black, dummy;
690    Colormap colormap;
691    static char const empty[] = { 0, 0, 0, 0, 0, 0, 0, 0 };
692
693    if(flags)
694    {
695        XDefineCursor(dp->drv.p->dpy,dp->drv.p->window, 0);
696        return;
697    }
698
699    colormap = DefaultColormap(dp->drv.p->dpy, DefaultScreen(dp->drv.p->dpy));
700    if(!XAllocNamedColor(dp->drv.p->dpy, colormap, "black", &black, &dummy))
701    {
702        return;
703    }
704    bm_no = XCreateBitmapFromData(dp->drv.p->dpy, dp->drv.p->window,
705                                  empty, 8, 8);
706    no_ptr = XCreatePixmapCursor(dp->drv.p->dpy, bm_no, bm_no,
707                                 &black, &black, 0, 0);
708    XDefineCursor(dp->drv.p->dpy, dp->drv.p->window, no_ptr);
709    XFreeCursor(dp->drv.p->dpy, no_ptr);
710    if(bm_no != None)
711        XFreePixmap(dp->drv.p->dpy, bm_no);
712    XFreeColors(dp->drv.p->dpy, colormap, &black.pixel, 1, 0);
713
714    XSync(dp->drv.p->dpy, False);
715}
716
717static void x11_set_cursor(caca_display_t *dp, int flags)
718{
719    dp->drv.p->cursor_flags = flags;
720}
721
722/*
723 * XXX: following functions are local
724 */
725
726static int x11_error_handler(Display *dpy, XErrorEvent *xevent)
727{
728    /* Ignore the error */
729    return 0;
730}
731
732static void x11_put_glyph(caca_display_t *dp, int x, int y, int yoff,
733                          int w, int h, uint32_t attr, uint32_t ch)
734{
735    static uint8_t const udlr[] =
736    {
737        /* 0x2500 - 0x250f: ─ . │ . . . . . . . . . ┌ . . . */
738        0x05, 0x00, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00,
739        0x00, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00,
740        /* 0x2510 - 0x251f: ┐ . . . └ . . . ┘ . . . ├ . . . */
741        0x14, 0x00, 0x00, 0x00, 0x41, 0x00, 0x00, 0x00,
742        0x44, 0x00, 0x00, 0x00, 0x51, 0x00, 0x00, 0x00,
743        /* 0x2520 - 0x252f: . . . . ┤ . . . . . . . ┬ . . . */
744        0x00, 0x00, 0x00, 0x00, 0x54, 0x00, 0x00, 0x00,
745        0x00, 0x00, 0x00, 0x00, 0x15, 0x00, 0x00, 0x00,
746        /* 0x2530 - 0x253f: . . . . ┴ . . . . . . . ┼ . . . */
747        0x00, 0x00, 0x00, 0x00, 0x45, 0x00, 0x00, 0x00,
748        0x00, 0x00, 0x00, 0x00, 0x55, 0x00, 0x00, 0x00,
749        /* 0x2540 - 0x254f: . . . . . . . . . . . . . . . . */
750        0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
751        0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
752        /* 0x2550 - 0x255f: ═ ║ ╒ ╓ ╔ ╕ ╖ ╗ ╘ ╙ ╚ ╛ ╜ ╝ ╞ ╟ */
753        0x0a, 0xa0, 0x12, 0x21, 0x22, 0x18, 0x24, 0x28,
754        0x42, 0x81, 0x82, 0x48, 0x84, 0x88, 0x52, 0xa1,
755        /* 0x2560 - 0x256c: ╠ ╡ ╢ ╣ ╤ ╥ ╦ ╧ ╨ ╩ ╪ ╫ ╬ */
756        0xa2, 0x58, 0xa4, 0xa8, 0x1a, 0x25, 0x2a, 0x4a,
757        0x85, 0x8a, 0x5a, 0xa5, 0xaa,
758    };
759
760    Display *dpy = dp->drv.p->dpy;
761    Pixmap px = dp->drv.p->pixmap;
762    GC gc = dp->drv.p->gc;
763    int fw;
764
765    /* Underline */
766    if(attr & CACA_UNDERLINE)
767        XFillRectangle(dpy, px, gc, x, y + h - 1, w, 1);
768
769    /* Skip spaces and magic stuff */
770    if(ch <= 0x00000020)
771        return;
772
773    if(ch == CACA_MAGIC_FULLWIDTH)
774        return;
775
776    fw = w;
777    if(caca_utf32_is_fullwidth(ch))
778        fw *= 2;
779
780    /* We want to be able to print a few special Unicode characters
781     * such as the CP437 gradients and half blocks. For unknown
782     * characters, print what caca_utf32_to_ascii() returns. */
783
784    if(ch >= 0x2500 && ch <= 0x256c && udlr[ch - 0x2500])
785    {
786        uint16_t D = udlr[ch - 0x2500];
787
788        if(D & 0x04)
789            XFillRectangle(dpy, px, gc, x, y + h / 2, fw / 2 + 1, 1);
790
791        if(D & 0x01)
792            XFillRectangle(dpy, px, gc,
793                           x + fw / 2, y + h / 2, (fw + 1) / 2, 1);
794
795        if(D & 0x40)
796            XFillRectangle(dpy, px, gc, x + fw / 2, y, 1, h / 2 + 1);
797
798        if(D & 0x10)
799            XFillRectangle(dpy, px, gc, x + fw / 2, y + h / 2, 1, (h + 1) / 2);
800
801#define STEPIF(a,b) (D&(a)?-1:(D&(b))?1:0)
802
803        if(D & 0x08)
804        {
805            XFillRectangle(dpy, px, gc, x, y - 1 + h / 2,
806                           fw / 2 + 1 + STEPIF(0xc0,0x20), 1);
807            XFillRectangle(dpy, px, gc, x, y + 1 + h / 2,
808                           fw / 2 + 1 + STEPIF(0x30,0x80), 1);
809        }
810
811        if(D & 0x02)
812        {
813            XFillRectangle(dpy, px, gc, x - STEPIF(0xc0,0x20) + fw / 2,
814                           y - 1 + h / 2, (fw + 1) / 2 + STEPIF(0xc0,0x20), 1);
815            XFillRectangle(dpy, px, gc, x - STEPIF(0x30,0x80) + fw / 2,
816                           y + 1 + h / 2, (fw + 1) / 2 + STEPIF(0x30,0x80), 1);
817        }
818
819        if(D & 0x80)
820        {
821            XFillRectangle(dpy, px, gc, x - 1 + fw / 2, y,
822                           1, h / 2 + 1 + STEPIF(0x0c,0x02));
823            XFillRectangle(dpy, px, gc, x + 1 + fw / 2, y,
824                           1, h / 2 + 1 + STEPIF(0x03,0x08));
825        }
826
827        if(D & 0x20)
828        {
829            XFillRectangle(dpy, px, gc, x - 1 + fw / 2,
830                           y - STEPIF(0x0c,0x02) + h / 2,
831                           1, (h + 1) / 2 + STEPIF(0x0c,0x02));
832            XFillRectangle(dpy, px, gc, x + 1 + fw / 2,
833                           y - STEPIF(0x03,0x08) + h / 2,
834                           1, (h + 1) / 2 + STEPIF(0x03,0x08));
835        }
836
837        return;
838    }
839
840    switch(ch)
841    {
842        case 0x000000b7: /* · */
843        case 0x00002219: /* ∙ */
844        case 0x000030fb: /* ・ */
845            XFillRectangle(dpy, px, gc, x + fw / 2 - 1, y + h / 2 - 1, 2, 2);
846            return;
847
848        case 0x00002261: /* ≡ */
849            XFillRectangle(dpy, px, gc, x + 1, y - 2 + h / 2, fw - 1, 1);
850            XFillRectangle(dpy, px, gc, x + 1, y + h / 2, fw - 1, 1);
851            XFillRectangle(dpy, px, gc, x + 1, y + 2 + h / 2, fw - 1, 1);
852            return;
853
854        case 0x00002580: /* ▀ */
855            XFillRectangle(dpy, px, gc, x, y, fw, h / 2);
856            return;
857
858        case 0x00002584: /* ▄ */
859            XFillRectangle(dpy, px, gc, x, y + h - h / 2, fw, h / 2);
860            return;
861
862        case 0x00002588: /* █ */
863        case 0x000025ae: /* ▮ */
864            XFillRectangle(dpy, px, gc, x, y, fw, h);
865            return;
866
867        case 0x0000258c: /* ▌ */
868            XFillRectangle(dpy, px, gc, x, y, fw / 2, h);
869            return;
870
871        case 0x00002590: /* ▐ */
872            XFillRectangle(dpy, px, gc, x + fw - fw / 2, y, fw / 2, h);
873            return;
874
875        case 0x000025a0: /* ■ */
876        case 0x000025ac: /* ▬ */
877            XFillRectangle(dpy, px, gc, x, y + h / 4, fw, h / 2);
878            return;
879
880        case 0x00002593: /* ▓ */
881        case 0x00002592: /* ▒ */
882        case 0x00002591: /* ░ */
883        {
884            /* FIXME: this sucks utterly */
885            int i, j, k = ch - 0x00002591;
886            for(j = h; j--; )
887                for(i = fw; i--; )
888            {
889                if(((i + 2 * (j & 1)) & 3) > k)
890                    continue;
891
892                XDrawPoint(dpy, px, gc, x + i, y + j);
893            }
894            return;
895        }
896
897        case 0x000025cb: /* ○ */
898        case 0x00002022: /* • */
899        case 0x000025cf: /* ● */
900        {
901            int d, xo, yo;
902
903            d = fw >> (~ch & 0x1); /* XXX: hack */
904            if(h < fw)
905                d = h;
906            if(d < 1)
907                d = 1;
908            xo = (fw - d) / 2;
909            yo = (h - d) / 2;
910            if(ch == 0x000025cb)
911                XDrawArc(dpy, px, gc, x + xo, y + yo, d, d, 0, 64 * 360);
912            else
913                XFillArc(dpy, px, gc, x + xo, y + yo, d, d, 0, 64 * 360);
914            return;
915        }
916    }
917
918#if defined X_HAVE_UTF8_STRING
919    if (dp->drv.p->font_set)
920    {
921        wchar_t wch = ch;
922        XwcDrawString(dpy, px, dp->drv.p->font_set, gc, x, yoff, &wch, 1);
923    }
924    else
925#endif
926    {
927        XChar2b ch16;
928
929#if !defined X_HAVE_UTF8_STRING
930        if(ch > dp->drv.p->max_char)
931        {
932            ch16.byte1 = 0;
933            ch16.byte2 = caca_utf32_to_ascii(ch);
934        }
935        else
936#endif
937        {
938            ch16.byte1 = (uint8_t)(ch >> 8);
939            ch16.byte2 = (uint8_t)ch;
940        }
941
942        XDrawString16(dpy, px, gc, x, yoff, &ch16, 1);
943    }
944}
945
946/*
947 * Driver initialisation
948 */
949
950int x11_install(caca_display_t *dp)
951{
952#if defined HAVE_GETENV
953    if(!getenv("DISPLAY") || !*(getenv("DISPLAY")))
954        return -1;
955#endif
956
957    dp->drv.id = CACA_DRIVER_X11;
958    dp->drv.driver = "x11";
959
960    dp->drv.init_graphics = x11_init_graphics;
961    dp->drv.end_graphics = x11_end_graphics;
962    dp->drv.set_display_title = x11_set_display_title;
963    dp->drv.get_display_width = x11_get_display_width;
964    dp->drv.get_display_height = x11_get_display_height;
965    dp->drv.display = x11_display;
966    dp->drv.handle_resize = x11_handle_resize;
967    dp->drv.get_event = x11_get_event;
968    dp->drv.set_mouse = x11_set_mouse;
969    dp->drv.set_cursor = x11_set_cursor;
970
971    return 0;
972}
973
974#endif /* USE_X11 */
975
Note: See TracBrowser for help on using the repository browser.