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

Last change on this file since 4141 was 4141, checked in by Sam Hocevar, 10 years ago

Use XwcDrawString? in the X11 driver if font sets are available.

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