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

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