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

Last change on this file since 4862 was 4862, checked in by Alex Foulon, 8 years ago

Fixed typo in driver/x11.c.

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