source: libcaca/trunk/caca/driver_slang.c @ 810

Last change on this file since 810 was 810, checked in by Sam Hocevar, 15 years ago
  • Renamed cucul_t into cucul_canvas_t. Eh ouais mon con.
  • Property svn:keywords set to Id
File size: 14.2 KB
Line 
1/*
2 *  libcaca       Colour ASCII-Art library
3 *  Copyright (c) 2002-2006 Sam Hocevar <sam@zoy.org>
4 *                All Rights Reserved
5 *
6 *  $Id: driver_slang.c 810 2006-04-18 12:59:07Z sam $
7 *
8 *  This library is free software; you can redistribute it and/or
9 *  modify it under the terms of the Do What The Fuck You Want To
10 *  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 SLang input and output driver
16 */
17
18#include "config.h"
19
20#if defined(USE_SLANG)
21
22#if defined(HAVE_SLANG_SLANG_H)
23#   include <slang/slang.h>
24#else
25#   include <slang.h>
26#endif
27
28#include <stdlib.h>
29#include <string.h>
30
31#if defined(HAVE_SIGNAL_H)
32#   include <signal.h>
33#endif
34
35#include "caca.h"
36#include "caca_internals.h"
37#include "cucul.h"
38#include "cucul_internals.h"
39
40/*
41 * Global variables
42 */
43
44/* Tables generated by tools/optipal.c */
45static int const slang_palette[2*16*16] =
46{
47     1,  0,   2,  0,   3,  0,   4,  0,   5,  0,   6,  0,   7,  0,   8,  0,
48     9,  0,  10,  0,  11,  0,  12,  0,  13,  0,  14,  0,  15,  0,   0,  8,
49     8,  7,   7,  8,  15,  7,   7, 15,  15,  9,   9, 15,   1,  9,   9,  1,
50     7,  9,   9,  7,   8,  1,   1,  8,   0,  1,  15, 10,  10, 15,   2, 10,
51    10,  2,   7, 10,  10,  7,   8,  2,   2,  8,   0,  2,  15, 11,  11, 15,
52     3, 11,  11,  3,   7, 11,  11,  7,   8,  3,   3,  8,   0,  3,  15, 12,
53    12, 15,   4, 12,  12,  4,   7, 12,  12,  7,   8,  4,   4,  8,   0,  4,
54    15, 13,  13, 15,   5, 13,  13,  5,   7, 13,  13,  7,   8,  5,   5,  8,
55     0,  5,  15, 14,  14, 15,   6, 14,  14,  6,   7, 14,  14,  7,   8,  6,
56     6,  8,   0,  6,   4,  6,   6,  4,  12, 14,  14, 12,   6,  2,   2,  6,
57    14, 10,  10, 14,   2,  3,   3,  2,  10, 11,  11, 10,   3,  1,   1,  3,
58    11,  9,   9, 11,   1,  5,   5,  1,   9, 13,  13,  9,   5,  4,   4,  5,
59    13, 12,  12, 13,   4, 14,   6, 12,  12,  6,  14,  4,   6, 10,   2, 14,
60    14,  2,  10,  6,   2, 11,   3, 10,  10,  3,  11,  2,   3,  9,   1, 11,
61    11,  1,   9,  3,   1, 13,   5,  9,   9,  5,  13,  1,   5, 12,   4, 13,
62    13,  4,  12,  5,   0,  7,   0, 15,  15,  8,   8, 15,  15,  1,   7,  1,
63     1,  6,   2,  5,   3,  4,   4,  3,   5,  2,   6,  1,   0,  0,   1,  1,
64     9,  6,  10,  5,  11,  4,  12,  3,  13,  2,  14,  1,   2,  2,   3,  3,
65     4,  4,   5,  5,   6,  6,   7,  7,  14,  9,   1, 15,   8,  9,   8,  8,
66     9,  9,   1,  7,   0,  9,   9,  8,   6,  9,  13, 10,   2, 15,   8, 10,
67     7,  2,  15,  2,   2,  7,   0, 10,  10,  8,   5, 10,  12, 11,   3, 15,
68     8, 11,   7,  3,  15,  3,   3,  7,   0, 11,  11,  8,   4, 11,  11, 12,
69     4, 15,   8, 12,   7,  4,  15,  4,   4,  7,   0, 12,  12,  8,   3, 12,
70    10, 13,   5, 15,   8, 13,   7,  5,  15,  5,   5,  7,   0, 13,  13,  8,
71     2, 13,   9, 14,   6, 15,   8, 14,   7,  6,  15,  6,   6,  7,   0, 14,
72    14,  8,   1, 14,   5,  6,   2,  4,  13, 14,  10, 12,   4,  2,   3,  6,
73    12, 10,  11, 14,   6,  3,   1,  2,  14, 11,   9, 10,   2,  1,   5,  3,
74    10,  9,  13, 11,   3,  5,   4,  1,  11, 13,  12,  9,   1,  4,   6,  5,
75     9, 12,  14, 13,   5, 14,   2, 12,  13,  6,  10,  4,   4, 10,   3, 14,
76    12,  2,  11,  6,   6, 11,   1, 10,  14,  3,   9,  2,   2,  9,   5, 11,
77    10,  1,  13,  3,   3, 13,   4,  9,  11,  5,  12,  1,   1, 12,   6, 13,
78     9,  4,  14,  5,  10, 10,  11, 11,  12, 12,  13, 13,  14, 14,  15, 15,
79};
80
81static int const slang_assoc[16*16] =
82{
83    134, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
84    28, 135, 214, 86, 219, 91, 133, 127, 26, 23, 240, 112, 245, 117, 141, 126,
85    37, 211, 142, 83, 206, 132, 78, 160, 35, 237, 32, 109, 232, 140, 104, 161,
86    46, 87, 82, 143, 131, 215, 210, 169, 44, 113, 108, 41, 139, 241, 236, 170,
87    55, 222, 203, 130, 144, 94, 75, 178, 53, 248, 229, 138, 50, 120, 101, 179,
88    64, 90, 129, 218, 95, 145, 223, 187, 62, 116, 137, 244, 121, 59, 249, 188,
89    73, 128, 79, 207, 74, 202, 146, 196, 71, 136, 105, 233, 100, 228, 68, 197,
90    122, 153, 162, 171, 180, 189, 198, 147, 16, 25, 34, 43, 52, 61, 70, 18,
91    15, 27, 36, 45, 54, 63, 72, 17, 151, 155, 164, 173, 182, 191, 200, 124,
92    154, 22, 238, 110, 243, 115, 156, 24, 150, 152, 216, 88, 221, 93, 148, 20,
93    163, 235, 31, 107, 230, 165, 102, 33, 159, 213, 250, 85, 208, 157, 80, 29,
94    172, 111, 106, 40, 174, 239, 234, 42, 168, 89, 84, 251, 166, 217, 212, 38,
95    181, 246, 227, 183, 49, 118, 99, 51, 177, 224, 205, 175, 252, 96, 77, 47,
96    190, 114, 192, 242, 119, 58, 247, 60, 186, 92, 184, 220, 97, 253, 225, 56,
97    199, 201, 103, 231, 98, 226, 67, 69, 195, 193, 81, 209, 76, 204, 254, 65,
98    123, 149, 158, 167, 176, 185, 194, 19, 125, 21, 30, 39, 48, 57, 66, 255,
99};
100
101/*
102 * Local functions
103 */
104static void slang_init_palette(void);
105static void slang_write_utf32(uint32_t);
106
107#if defined(HAVE_SIGNAL)
108static RETSIGTYPE sigwinch_handler(int);
109static caca_t *sigwinch_kk; /* FIXME: we ought to get rid of this */
110#endif
111#if defined(HAVE_GETENV) && defined(HAVE_PUTENV)
112static void slang_check_terminal(void);
113#endif
114
115static int slang_init_graphics(caca_t *kk)
116{
117#if defined(HAVE_GETENV) && defined(HAVE_PUTENV)
118    slang_check_terminal();
119#endif
120
121#if defined(HAVE_SIGNAL)
122    sigwinch_kk = kk;
123    signal(SIGWINCH, sigwinch_handler);
124#endif
125
126    /* Initialise slang library */
127    SLsig_block_signals();
128    SLtt_get_terminfo();
129
130    if(SLkp_init() == -1)
131    {
132        SLsig_unblock_signals();
133        return -1;
134    }
135
136    SLang_init_tty(-1, 0, 1);
137
138    if(SLsmg_init_smg() == -1)
139    {
140        SLsig_unblock_signals();
141        return -1;
142    }
143
144    SLsig_unblock_signals();
145
146    SLsmg_cls();
147    SLtt_set_cursor_visibility(0);
148    SLkp_define_keysym("\e[M", 1001);
149    SLtt_set_mouse_mode(1, 0);
150    SLsmg_refresh();
151
152    /* Disable scrolling so that hashmap scrolling optimization code
153     * does not cause ugly refreshes due to slow terminals */
154    SLtt_Term_Cannot_Scroll = 1;
155
156    slang_init_palette();
157
158    /* Disable alt charset support so that we get a chance to have all
159     * 256 colour pairs */
160    SLtt_Has_Alt_Charset = 0;
161
162#ifdef HAVE_SLSMG_UTF8_ENABLE
163    SLsmg_utf8_enable(1); /* 1 == force, 0 == disable, -1 == autodetect */
164    SLtt_utf8_enable(1);
165#endif
166
167    _cucul_set_size(kk->c, SLtt_Screen_Cols, SLtt_Screen_Rows);
168
169    return 0;
170}
171
172static int slang_end_graphics(caca_t *kk)
173{
174    SLtt_set_mouse_mode(0, 0);
175    SLtt_set_cursor_visibility(1);
176    SLang_reset_tty();
177    SLsmg_reset_smg();
178
179    return 0;
180}
181
182static int slang_set_window_title(caca_t *kk, char const *title)
183{
184    /* FIXME */
185    return 0;
186}
187
188static unsigned int slang_get_window_width(caca_t *kk)
189{
190    /* Fallback to a 6x10 font */
191    return kk->c->width * 6;
192}
193
194static unsigned int slang_get_window_height(caca_t *kk)
195{
196    /* Fallback to a 6x10 font */
197    return kk->c->height * 10;
198}
199
200static void slang_display(caca_t *kk)
201{
202    int x, y;
203    uint32_t *attr = kk->c->attr;
204    uint32_t *chars = kk->c->chars;
205    for(y = 0; y < (int)kk->c->height; y++)
206    {
207        SLsmg_gotorc(y, 0);
208        for(x = kk->c->width; x--; )
209        {
210            uint32_t c = *chars++;
211
212#if defined(OPTIMISE_SLANG_PALETTE)
213            uint8_t fgcolor = _cucul_argb32_to_ansi4fg(*attr);
214            uint8_t bgcolor = _cucul_argb32_to_ansi4bg(*attr);
215
216            /* If foreground == background, just don't use this colour
217             * pair, and print a space instead of the real character. */
218            if(fgcolor != bgcolor)
219            {
220                SLsmg_set_color(slang_assoc[_cucul_argb32_to_ansi8(*attr++)]);
221                slang_write_utf32(c);
222            }
223            else
224            {
225                if(fgcolor == CUCUL_COLOR_BLACK)
226                    fgcolor = CUCUL_COLOR_WHITE;
227                else if(fgcolor == CUCUL_COLOR_WHITE
228                         || fgcolor <= CUCUL_COLOR_LIGHTGRAY)
229                    fgcolor = CUCUL_COLOR_BLACK;
230                else
231                    fgcolor = CUCUL_COLOR_WHITE;
232                SLsmg_set_color(slang_assoc[fgcolor + 16 * bgcolor]);
233                SLsmg_write_char(' ');
234                attr++;
235            }
236#else
237            SLsmg_set_color(_cucul_argb32_to_ansi8(*attr++));
238            slang_write_utf32(c);
239#endif
240        }
241    }
242    SLsmg_refresh();
243}
244
245static void slang_handle_resize(caca_t *kk)
246{
247    SLtt_get_screen_size();
248    kk->resize.w = SLtt_Screen_Cols;
249    kk->resize.h = SLtt_Screen_Rows;
250
251    if(kk->resize.w != kk->c->width || kk->resize.h != kk->c->height)
252        SLsmg_reinit_smg();
253}
254
255static int slang_get_event(caca_t *kk, caca_event_t *ev)
256{
257    int intkey;
258
259    if(!SLang_input_pending(0))
260    {
261        ev->type = CACA_EVENT_NONE;
262        return 0;
263    }
264
265    /* We first use SLang_getkey() to see whether Esc was pressed
266     * alone, then (if it wasn't) we unget the key and use SLkp_getkey()
267     * instead, so that escape sequences are interpreted. */
268    intkey = SLang_getkey();
269
270    if(intkey != 0x1b /* Esc */ || SLang_input_pending(0))
271    {
272        SLang_ungetkey(intkey);
273        intkey = SLkp_getkey();
274    }
275
276    /* If the key was ASCII, return it immediately */
277    if(intkey < 0x100)
278    {
279        ev->type = CACA_EVENT_KEY_PRESS;
280        ev->data.key.ch = intkey;
281        return 1;
282    }
283
284    if(intkey == 0x3e9)
285    {
286        int button = (SLang_getkey() - ' ' + 1) & 0xf;
287        unsigned int x = SLang_getkey() - '!';
288        unsigned int y = SLang_getkey() - '!';
289
290        ev->data.mouse.button = button;
291        ev->type = CACA_EVENT_MOUSE_PRESS;
292        _push_event(kk, ev);
293        ev->type = CACA_EVENT_MOUSE_RELEASE;
294        _push_event(kk, ev);
295
296        if(kk->mouse.x == x && kk->mouse.y == y)
297            return _pop_event(kk, ev);
298
299        kk->mouse.x = x;
300        kk->mouse.y = y;
301
302        ev->type = CACA_EVENT_MOUSE_MOTION;
303        ev->data.mouse.x = kk->mouse.x;
304        ev->data.mouse.y = kk->mouse.y;
305        return 1;
306    }
307
308    switch(intkey)
309    {
310        case SL_KEY_UP: ev->data.key.ch = CACA_KEY_UP; break;
311        case SL_KEY_DOWN: ev->data.key.ch = CACA_KEY_DOWN; break;
312        case SL_KEY_LEFT: ev->data.key.ch = CACA_KEY_LEFT; break;
313        case SL_KEY_RIGHT: ev->data.key.ch = CACA_KEY_RIGHT; break;
314
315        case SL_KEY_IC: ev->data.key.ch = CACA_KEY_INSERT; break;
316        case SL_KEY_DELETE: ev->data.key.ch = CACA_KEY_DELETE; break;
317        case SL_KEY_HOME: ev->data.key.ch = CACA_KEY_HOME; break;
318        case SL_KEY_END: ev->data.key.ch = CACA_KEY_END; break;
319        case SL_KEY_PPAGE: ev->data.key.ch = CACA_KEY_PAGEUP; break;
320        case SL_KEY_NPAGE: ev->data.key.ch = CACA_KEY_PAGEDOWN; break;
321
322        case SL_KEY_F(1): ev->data.key.ch = CACA_KEY_F1; break;
323        case SL_KEY_F(2): ev->data.key.ch = CACA_KEY_F2; break;
324        case SL_KEY_F(3): ev->data.key.ch = CACA_KEY_F3; break;
325        case SL_KEY_F(4): ev->data.key.ch = CACA_KEY_F4; break;
326        case SL_KEY_F(5): ev->data.key.ch = CACA_KEY_F5; break;
327        case SL_KEY_F(6): ev->data.key.ch = CACA_KEY_F6; break;
328        case SL_KEY_F(7): ev->data.key.ch = CACA_KEY_F7; break;
329        case SL_KEY_F(8): ev->data.key.ch = CACA_KEY_F8; break;
330        case SL_KEY_F(9): ev->data.key.ch = CACA_KEY_F9; break;
331        case SL_KEY_F(10): ev->data.key.ch = CACA_KEY_F10; break;
332        case SL_KEY_F(11): ev->data.key.ch = CACA_KEY_F11; break;
333        case SL_KEY_F(12): ev->data.key.ch = CACA_KEY_F12; break;
334
335        default: ev->type = CACA_EVENT_NONE; return 0;
336    }
337
338    ev->type = CACA_EVENT_KEY_PRESS;
339    ev->data.key.ucs4 = 0;
340    ev->data.key.utf8[0] = '\0';
341    return 1;
342}
343
344/*
345 * XXX: following functions are local
346 */
347
348static void slang_init_palette(void)
349{
350    /* See SLang ref., 5.4.4. */
351    static char *slang_colors[16] =
352    {
353        /* Standard colours */
354        "black",
355        "blue",
356        "green",
357        "cyan",
358        "red",
359        "magenta",
360        "brown",
361        "lightgray",
362        /* Bright colours */
363        "gray",
364        "brightblue",
365        "brightgreen",
366        "brightcyan",
367        "brightred",
368        "brightmagenta",
369        "yellow",
370        "white",
371    };
372
373#if defined(OPTIMISE_SLANG_PALETTE)
374    int i;
375
376    for(i = 0; i < 16 * 16; i++)
377        SLtt_set_color(i, NULL, slang_colors[slang_palette[i * 2]],
378                                slang_colors[slang_palette[i * 2 + 1]]);
379#else
380    int fg, bg;
381
382    for(bg = 0; bg < 16; bg++)
383        for(fg = 0; fg < 16; fg++)
384        {
385            int i = fg + 16 * bg;
386            SLtt_set_color(i, NULL, slang_colors[fg], slang_colors[bg]);
387        }
388#endif
389}
390
391static void slang_write_utf32(uint32_t c)
392{
393#ifdef HAVE_SLSMG_UTF8_ENABLE
394    static const uint8_t mark[7] =
395    {
396        0x00, 0x00, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC
397    };
398
399    char buf[10], *parser;
400    int bytes;
401#endif
402
403    if(c < 0x80)
404    {
405        SLsmg_write_char(c);
406        return;
407    }
408
409#ifdef HAVE_SLSMG_UTF8_ENABLE
410    bytes = (c < 0x800) ? 2 : (c < 0x10000) ? 3 : 4;
411    buf[bytes] = '\0';
412    parser = buf + bytes;
413
414    switch(bytes)
415    {
416        case 4: *--parser = (c | 0x80) & 0xbf; c >>= 6;
417        case 3: *--parser = (c | 0x80) & 0xbf; c >>= 6;
418        case 2: *--parser = (c | 0x80) & 0xbf; c >>= 6;
419    }
420    *--parser = c | mark[bytes];
421
422    SLsmg_write_string(buf);
423#else
424    SLsmg_write_char(' ');
425#endif
426}
427
428#if defined(HAVE_SIGNAL)
429static RETSIGTYPE sigwinch_handler(int sig)
430{
431    sigwinch_kk->resize.resized = 1;
432
433    signal(SIGWINCH, sigwinch_handler);
434}
435#endif
436
437#if defined(HAVE_GETENV) && defined(HAVE_PUTENV)
438static void slang_check_terminal(void)
439{
440    char *term, *colorterm, *other;
441
442    term = getenv("TERM");
443    colorterm = getenv("COLORTERM");
444
445    if(term && !strcmp(term, "xterm"))
446    {
447        /* If we are using gnome-terminal, it's really a 16 colour terminal */
448        if(colorterm && !strcmp(colorterm, "gnome-terminal"))
449        {
450            (void)putenv("TERM=xterm-16color");
451            return;
452        }
453
454        /* Ditto if we are using Konsole */
455        other = getenv("KONSOLE_DCOP_SESSION");
456        if(other)
457        {
458            (void)putenv("TERM=xterm-16color");
459            return;
460        }
461    }
462}
463#endif
464
465/*
466 * Driver initialisation
467 */
468
469int slang_install(caca_t *kk)
470{
471    kk->drv.driver = CACA_DRIVER_SLANG;
472
473    kk->drv.init_graphics = slang_init_graphics;
474    kk->drv.end_graphics = slang_end_graphics;
475    kk->drv.set_window_title = slang_set_window_title;
476    kk->drv.get_window_width = slang_get_window_width;
477    kk->drv.get_window_height = slang_get_window_height;
478    kk->drv.display = slang_display;
479    kk->drv.handle_resize = slang_handle_resize;
480    kk->drv.get_event = slang_get_event;
481    kk->drv.set_mouse = NULL;
482
483    return 0;
484}
485
486#endif /* USE_SLANG */
487
Note: See TracBrowser for help on using the repository browser.