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

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