source: libcaca/trunk/caca/driver/slang.c @ 4148

Last change on this file since 4148 was 4146, checked in by Sam Hocevar, 11 years ago

Fix an alignment issue in caca_get_canvas_chars() and caca_get_canvas_attrs().
Fixes #41.

  • Property svn:keywords set to Id
File size: 17.9 KB
RevLine 
[35]1/*
[672]2 *  libcaca       Colour ASCII-Art library
[3494]3 *  Copyright (c) 2002-2009 Sam Hocevar <sam@hocevar.net>
[268]4 *                All Rights Reserved
[35]5 *
[769]6 *  $Id: slang.c 4146 2009-12-18 21:50:37Z 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"
20
[539]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
[550]29#include <stdlib.h>
30#include <string.h>
31
[348]32#if defined(HAVE_SIGNAL_H)
33#   include <signal.h>
34#endif
35
[185]36#include "caca.h"
37#include "caca_internals.h"
[17]38
[247]39/*
40 * Global variables
41 */
42
[742]43/* Tables generated by tools/optipal.c */
[305]44static int const slang_palette[2*16*16] =
[293]45{
46     1,  0,   2,  0,   3,  0,   4,  0,   5,  0,   6,  0,   7,  0,   8,  0,
47     9,  0,  10,  0,  11,  0,  12,  0,  13,  0,  14,  0,  15,  0,   0,  8,
48     8,  7,   7,  8,  15,  7,   7, 15,  15,  9,   9, 15,   1,  9,   9,  1,
49     7,  9,   9,  7,   8,  1,   1,  8,   0,  1,  15, 10,  10, 15,   2, 10,
50    10,  2,   7, 10,  10,  7,   8,  2,   2,  8,   0,  2,  15, 11,  11, 15,
51     3, 11,  11,  3,   7, 11,  11,  7,   8,  3,   3,  8,   0,  3,  15, 12,
52    12, 15,   4, 12,  12,  4,   7, 12,  12,  7,   8,  4,   4,  8,   0,  4,
53    15, 13,  13, 15,   5, 13,  13,  5,   7, 13,  13,  7,   8,  5,   5,  8,
54     0,  5,  15, 14,  14, 15,   6, 14,  14,  6,   7, 14,  14,  7,   8,  6,
55     6,  8,   0,  6,   4,  6,   6,  4,  12, 14,  14, 12,   6,  2,   2,  6,
56    14, 10,  10, 14,   2,  3,   3,  2,  10, 11,  11, 10,   3,  1,   1,  3,
57    11,  9,   9, 11,   1,  5,   5,  1,   9, 13,  13,  9,   5,  4,   4,  5,
58    13, 12,  12, 13,   4, 14,   6, 12,  12,  6,  14,  4,   6, 10,   2, 14,
59    14,  2,  10,  6,   2, 11,   3, 10,  10,  3,  11,  2,   3,  9,   1, 11,
60    11,  1,   9,  3,   1, 13,   5,  9,   9,  5,  13,  1,   5, 12,   4, 13,
61    13,  4,  12,  5,   0,  7,   0, 15,  15,  8,   8, 15,  15,  1,   7,  1,
62     1,  6,   2,  5,   3,  4,   4,  3,   5,  2,   6,  1,   0,  0,   1,  1,
63     9,  6,  10,  5,  11,  4,  12,  3,  13,  2,  14,  1,   2,  2,   3,  3,
64     4,  4,   5,  5,   6,  6,   7,  7,  14,  9,   1, 15,   8,  9,   8,  8,
65     9,  9,   1,  7,   0,  9,   9,  8,   6,  9,  13, 10,   2, 15,   8, 10,
66     7,  2,  15,  2,   2,  7,   0, 10,  10,  8,   5, 10,  12, 11,   3, 15,
67     8, 11,   7,  3,  15,  3,   3,  7,   0, 11,  11,  8,   4, 11,  11, 12,
68     4, 15,   8, 12,   7,  4,  15,  4,   4,  7,   0, 12,  12,  8,   3, 12,
69    10, 13,   5, 15,   8, 13,   7,  5,  15,  5,   5,  7,   0, 13,  13,  8,
70     2, 13,   9, 14,   6, 15,   8, 14,   7,  6,  15,  6,   6,  7,   0, 14,
71    14,  8,   1, 14,   5,  6,   2,  4,  13, 14,  10, 12,   4,  2,   3,  6,
72    12, 10,  11, 14,   6,  3,   1,  2,  14, 11,   9, 10,   2,  1,   5,  3,
73    10,  9,  13, 11,   3,  5,   4,  1,  11, 13,  12,  9,   1,  4,   6,  5,
74     9, 12,  14, 13,   5, 14,   2, 12,  13,  6,  10,  4,   4, 10,   3, 14,
75    12,  2,  11,  6,   6, 11,   1, 10,  14,  3,   9,  2,   2,  9,   5, 11,
76    10,  1,  13,  3,   3, 13,   4,  9,  11,  5,  12,  1,   1, 12,   6, 13,
77     9,  4,  14,  5,  10, 10,  11, 11,  12, 12,  13, 13,  14, 14,  15, 15,
78};
79
[305]80static int const slang_assoc[16*16] =
[293]81{
82    134, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
83    28, 135, 214, 86, 219, 91, 133, 127, 26, 23, 240, 112, 245, 117, 141, 126,
84    37, 211, 142, 83, 206, 132, 78, 160, 35, 237, 32, 109, 232, 140, 104, 161,
85    46, 87, 82, 143, 131, 215, 210, 169, 44, 113, 108, 41, 139, 241, 236, 170,
86    55, 222, 203, 130, 144, 94, 75, 178, 53, 248, 229, 138, 50, 120, 101, 179,
87    64, 90, 129, 218, 95, 145, 223, 187, 62, 116, 137, 244, 121, 59, 249, 188,
88    73, 128, 79, 207, 74, 202, 146, 196, 71, 136, 105, 233, 100, 228, 68, 197,
89    122, 153, 162, 171, 180, 189, 198, 147, 16, 25, 34, 43, 52, 61, 70, 18,
90    15, 27, 36, 45, 54, 63, 72, 17, 151, 155, 164, 173, 182, 191, 200, 124,
91    154, 22, 238, 110, 243, 115, 156, 24, 150, 152, 216, 88, 221, 93, 148, 20,
92    163, 235, 31, 107, 230, 165, 102, 33, 159, 213, 250, 85, 208, 157, 80, 29,
93    172, 111, 106, 40, 174, 239, 234, 42, 168, 89, 84, 251, 166, 217, 212, 38,
94    181, 246, 227, 183, 49, 118, 99, 51, 177, 224, 205, 175, 252, 96, 77, 47,
95    190, 114, 192, 242, 119, 58, 247, 60, 186, 92, 184, 220, 97, 253, 225, 56,
96    199, 201, 103, 231, 98, 226, 67, 69, 195, 193, 81, 209, 76, 204, 254, 65,
97    123, 149, 158, 167, 176, 185, 194, 19, 125, 21, 30, 39, 48, 57, 66, 255,
98};
[281]99
100/*
101 * Local functions
102 */
103static void slang_init_palette(void);
[579]104static void slang_write_utf32(uint32_t);
[281]105
[539]106#if defined(HAVE_SIGNAL)
[348]107static RETSIGTYPE sigwinch_handler(int);
[811]108static caca_display_t *sigwinch_d; /* FIXME: we ought to get rid of this */
[348]109#endif
[550]110#if defined(HAVE_GETENV) && defined(HAVE_PUTENV)
[2142]111static void slang_install_terminal(caca_display_t *);
112static void slang_uninstall_terminal(caca_display_t *);
[550]113#endif
[348]114
[2142]115struct driver_private
116{
117    char *term;
[4082]118    unsigned int sigint_event;
[2142]119};
120
[3983]121static void default_sigint (int sig)
122{
[4082]123    /* Warn the caller that we got SIGINT. */
124    sigwinch_d->drv.p->sigint_event++;
[3983]125}
126
[811]127static int slang_init_graphics(caca_display_t *dp)
[227]128{
[2142]129    dp->drv.p = malloc(sizeof(struct driver_private));
[4082]130    dp->drv.p->sigint_event = 0;
[2142]131
[550]132#if defined(HAVE_GETENV) && defined(HAVE_PUTENV)
[2142]133    slang_install_terminal(dp);
[550]134#endif
135
[539]136#if defined(HAVE_SIGNAL)
[811]137    sigwinch_d = dp;
[348]138    signal(SIGWINCH, sigwinch_handler);
139#endif
140
[1392]141    _caca_set_term_title("caca for S-Lang");
[1391]142
[539]143    /* Initialise slang library */
144    SLsig_block_signals();
[3984]145    /* Disable SLang's own SIGINT on ctrl-c */
146    SLang_set_abort_signal(default_sigint);
[3985]147
[539]148    SLtt_get_terminfo();
[227]149
[539]150    if(SLkp_init() == -1)
[227]151    {
[539]152        SLsig_unblock_signals();
[540]153        return -1;
[265]154    }
[251]155
[539]156    SLang_init_tty(-1, 0, 1);
[261]157
[539]158    if(SLsmg_init_smg() == -1)
[286]159    {
[539]160        SLsig_unblock_signals();
[540]161        return -1;
[336]162    }
[491]163
[539]164    SLsmg_cls();
165    SLtt_set_cursor_visibility(0);
166    SLkp_define_keysym("\e[M", 1001);
167    SLtt_set_mouse_mode(1, 0);
168    SLsmg_refresh();
[3985]169
[539]170    /* Disable scrolling so that hashmap scrolling optimization code
171     * does not cause ugly refreshes due to slow terminals */
172    SLtt_Term_Cannot_Scroll = 1;
[483]173
[539]174    slang_init_palette();
[483]175
[1774]176#if defined(VMS) || defined(REAL_UNIX_SYSTEM)
[539]177    /* Disable alt charset support so that we get a chance to have all
178     * 256 colour pairs */
179    SLtt_Has_Alt_Charset = 0;
[1774]180#endif
[527]181
[610]182#ifdef HAVE_SLSMG_UTF8_ENABLE
[579]183    SLsmg_utf8_enable(1); /* 1 == force, 0 == disable, -1 == autodetect */
184    SLtt_utf8_enable(1);
[610]185#endif
[527]186
[3569]187    caca_add_dirty_rect(dp->cv, 0, 0, dp->cv->width, dp->cv->height);
[2055]188    dp->resize.allow = 1;
[2821]189    caca_set_canvas_size(dp->cv, SLtt_Screen_Cols, SLtt_Screen_Rows);
[2055]190    dp->resize.allow = 0;
[579]191
[4082]192    SLsig_unblock_signals();
193
[227]194    return 0;
195}
196
[811]197static int slang_end_graphics(caca_display_t *dp)
[251]198{
[1392]199    _caca_set_term_title("");
[539]200    SLtt_set_mouse_mode(0, 0);
201    SLtt_set_cursor_visibility(1);
202    SLang_reset_tty();
[4082]203    SLsig_block_signals();
[539]204    SLsmg_reset_smg();
[3984]205    SLsig_unblock_signals();
[300]206
[2142]207#if defined HAVE_GETENV && defined HAVE_PUTENV
208    slang_uninstall_terminal(dp);
209#endif
210
211    free(dp->drv.p);
212
[251]213    return 0;
214}
215
[819]216static int slang_set_display_title(caca_display_t *dp, char const *title)
[343]217{
[1392]218    _caca_set_term_title(title);
[1391]219
220    return 0;
[343]221}
222
[2305]223static int slang_get_display_width(caca_display_t const *dp)
[352]224{
225    /* Fallback to a 6x10 font */
[2821]226    return caca_get_canvas_width(dp->cv) * 6;
[352]227}
228
[2305]229static int slang_get_display_height(caca_display_t const *dp)
[352]230{
231    /* Fallback to a 6x10 font */
[2821]232    return caca_get_canvas_height(dp->cv) * 10;
[352]233}
234
[811]235static void slang_display(caca_display_t *dp)
[227]236{
[3470]237    int x, y, i;
[2056]238
[4082]239    SLsig_block_signals();
[3494]240    for(i = 0; i < caca_get_dirty_rect_count(dp->cv); i++)
[3470]241    {
[3480]242        uint32_t const *cvchars, *cvattrs;
[3494]243        int dx, dy, dw, dh;
[3469]244
[3494]245        caca_get_dirty_rect(dp->cv, i, &dx, &dy, &dw, &dh);
[3470]246
[4146]247        cvchars = caca_get_canvas_chars(dp->cv) + dx + dy * dp->cv->width;
248        cvattrs = caca_get_canvas_attrs(dp->cv) + dx + dy * dp->cv->width;
[3480]249
[3494]250        for(y = dy; y < dy + dh; y++)
[527]251        {
[3494]252            SLsmg_gotorc(y, dx);
253            for(x = dx; x < dx + dw; x++)
[3470]254            {
255                uint32_t ch = *cvchars++;
[557]256
[539]257#if defined(OPTIMISE_SLANG_PALETTE)
[3470]258                /* If foreground == background, just don't use this colour
259                 * pair, and print a space instead of the real character. */
260                /* XXX: disabled, because I can't remember what it was
261                 * here for, and in cases where SLang does not render
262                 * bright backgrounds, it's just fucked up. */
[982]263#if 0
[3470]264                uint8_t fgcolor = caca_attr_to_ansi_fg(*cvattrs);
265                uint8_t bgcolor = caca_attr_to_ansi_bg(*cvattrs);
[557]266
[3470]267                if(fgcolor >= 0x10)
268                    fgcolor = CACA_LIGHTGRAY;
[1332]269
[3470]270                if(bgcolor >= 0x10)
271                    bgcolor = CACA_BLACK; /* FIXME: handle transparency */
[1332]272
[3470]273                if(fgcolor == bgcolor)
274                {
275                    if(fgcolor == CACA_BLACK)
276                        fgcolor = CACA_WHITE;
277                    else if(fgcolor == CACA_WHITE
278                             || fgcolor <= CACA_LIGHTGRAY)
279                        fgcolor = CACA_BLACK;
280                    else
281                        fgcolor = CACA_WHITE;
282                    SLsmg_set_color(slang_assoc[fgcolor + 16 * bgcolor]);
283                    SLsmg_write_char(' ');
284                    cvattrs++;
285                }
[539]286                else
[982]287#endif
[3470]288                {
289                    SLsmg_set_color(slang_assoc[caca_attr_to_ansi(*cvattrs++)]);
290                    slang_write_utf32(ch);
291                }
292#else
293                SLsmg_set_color(caca_attr_to_ansi(*cvattrs++));
[982]294                slang_write_utf32(ch);
[3470]295#endif
[982]296            }
[3480]297
[3494]298            cvchars += dp->cv->width - dw;
299            cvattrs += dp->cv->width - dw;
[527]300        }
[265]301    }
[3587]302    SLsmg_gotorc(caca_wherey(dp->cv), caca_wherex(dp->cv));
[539]303    SLsmg_refresh();
[4082]304    SLsig_unblock_signals();
[227]305}
306
[811]307static void slang_handle_resize(caca_display_t *dp)
[347]308{
[539]309    SLtt_get_screen_size();
[811]310    dp->resize.w = SLtt_Screen_Cols;
311    dp->resize.h = SLtt_Screen_Rows;
[349]312
[4082]313    SLsig_block_signals();
[2821]314    if(dp->resize.w != caca_get_canvas_width(dp->cv)
315        || dp->resize.h != caca_get_canvas_height(dp->cv))
[539]316        SLsmg_reinit_smg();
[4082]317    SLsig_unblock_signals();
[347]318}
319
[2049]320static int slang_get_event(caca_display_t *dp, caca_privevent_t *ev)
[548]321{
322    int intkey;
323
[4082]324    /* If SIGINT was caught, we pass it to the application as Ctrl-C. */
325    if(dp->drv.p->sigint_event > 0)
326    {
327        ev->type = CACA_EVENT_KEY_PRESS;
328        ev->data.key.ch = CACA_KEY_CTRL_C;
329        ev->data.key.utf32 = 0x03;
330        ev->data.key.utf8[0] = 0x03;
331        ev->data.key.utf8[1] = 0;
332        dp->drv.p->sigint_event--;
333        return 1;
334    }
335
[548]336    if(!SLang_input_pending(0))
[681]337    {
338        ev->type = CACA_EVENT_NONE;
339        return 0;
340    }
[548]341
342    /* We first use SLang_getkey() to see whether Esc was pressed
343     * alone, then (if it wasn't) we unget the key and use SLkp_getkey()
344     * instead, so that escape sequences are interpreted. */
345    intkey = SLang_getkey();
346
347    if(intkey != 0x1b /* Esc */ || SLang_input_pending(0))
348    {
349        SLang_ungetkey(intkey);
350        intkey = SLkp_getkey();
351    }
352
353    /* If the key was ASCII, return it immediately */
[974]354    if(intkey < 0x7f)
[548]355    {
[681]356        ev->type = CACA_EVENT_KEY_PRESS;
[810]357        ev->data.key.ch = intkey;
[970]358        ev->data.key.utf32 = intkey;
359        ev->data.key.utf8[0] = intkey;
360        ev->data.key.utf8[1] = '\0';
[681]361        return 1;
[548]362    }
363
[982]364    /* If the key was UTF-8, parse the whole sequence */
365    if(intkey >= 0x80 && intkey < 0x100)
366    {
367        int keys[7]; /* Necessary for ungetkey(); */
368        char utf8[7];
369        uint32_t utf32;
[2305]370        size_t i, bytes = 0;
[982]371
372        keys[0] = intkey;
373        utf8[0] = intkey;
374
375        for(i = 1; i < 6; i++)
376        {
377            if(!SLang_input_pending(0))
378                break;
379            keys[i] = SLang_getkey();
380            utf8[i] = (unsigned char)keys[i];
381        }
382
383        utf8[i] = '\0';
[2821]384        utf32 = caca_utf8_to_utf32(utf8, &bytes);
[982]385
386        while(i > bytes)
387            SLang_ungetkey(keys[--i]);
388
389        if(bytes)
390        {
391            ev->type = CACA_EVENT_KEY_PRESS;
392            ev->data.key.ch = 0;
393            ev->data.key.utf32 = utf32;
394            strcpy(ev->data.key.utf8, utf8);
395            return 1;
396        }
397    }
398
[548]399    if(intkey == 0x3e9)
400    {
401        int button = (SLang_getkey() - ' ' + 1) & 0xf;
[2305]402        int x = SLang_getkey() - '!';
403        int y = SLang_getkey() - '!';
[548]404
[681]405        ev->data.mouse.button = button;
406        ev->type = CACA_EVENT_MOUSE_PRESS;
[811]407        _push_event(dp, ev);
[681]408        ev->type = CACA_EVENT_MOUSE_RELEASE;
[811]409        _push_event(dp, ev);
[681]410
[811]411        if(dp->mouse.x == x && dp->mouse.y == y)
412            return _pop_event(dp, ev);
[548]413
[811]414        dp->mouse.x = x;
415        dp->mouse.y = y;
[548]416
[681]417        ev->type = CACA_EVENT_MOUSE_MOTION;
[811]418        ev->data.mouse.x = dp->mouse.x;
419        ev->data.mouse.y = dp->mouse.y;
[681]420        return 1;
[548]421    }
422
423    switch(intkey)
424    {
[810]425        case SL_KEY_UP: ev->data.key.ch = CACA_KEY_UP; break;
426        case SL_KEY_DOWN: ev->data.key.ch = CACA_KEY_DOWN; break;
427        case SL_KEY_LEFT: ev->data.key.ch = CACA_KEY_LEFT; break;
428        case SL_KEY_RIGHT: ev->data.key.ch = CACA_KEY_RIGHT; break;
[548]429
[810]430        case SL_KEY_IC: ev->data.key.ch = CACA_KEY_INSERT; break;
431        case SL_KEY_DELETE: ev->data.key.ch = CACA_KEY_DELETE; break;
[974]432        case 0x7f:
[970]433        case SL_KEY_BACKSPACE: ev->data.key.ch = CACA_KEY_BACKSPACE; break;
[810]434        case SL_KEY_HOME: ev->data.key.ch = CACA_KEY_HOME; break;
435        case SL_KEY_END: ev->data.key.ch = CACA_KEY_END; break;
436        case SL_KEY_PPAGE: ev->data.key.ch = CACA_KEY_PAGEUP; break;
437        case SL_KEY_NPAGE: ev->data.key.ch = CACA_KEY_PAGEDOWN; break;
[548]438
[810]439        case SL_KEY_F(1): ev->data.key.ch = CACA_KEY_F1; break;
440        case SL_KEY_F(2): ev->data.key.ch = CACA_KEY_F2; break;
441        case SL_KEY_F(3): ev->data.key.ch = CACA_KEY_F3; break;
442        case SL_KEY_F(4): ev->data.key.ch = CACA_KEY_F4; break;
443        case SL_KEY_F(5): ev->data.key.ch = CACA_KEY_F5; break;
444        case SL_KEY_F(6): ev->data.key.ch = CACA_KEY_F6; break;
445        case SL_KEY_F(7): ev->data.key.ch = CACA_KEY_F7; break;
446        case SL_KEY_F(8): ev->data.key.ch = CACA_KEY_F8; break;
447        case SL_KEY_F(9): ev->data.key.ch = CACA_KEY_F9; break;
448        case SL_KEY_F(10): ev->data.key.ch = CACA_KEY_F10; break;
449        case SL_KEY_F(11): ev->data.key.ch = CACA_KEY_F11; break;
450        case SL_KEY_F(12): ev->data.key.ch = CACA_KEY_F12; break;
[681]451
[982]452        default:
453            /* Unknown key */
454            ev->type = CACA_EVENT_NONE; return 0;
[548]455    }
456
[681]457    ev->type = CACA_EVENT_KEY_PRESS;
[969]458    ev->data.key.utf32 = 0;
[681]459    ev->data.key.utf8[0] = '\0';
460    return 1;
[548]461}
462
[1837]463static void slang_set_cursor(caca_display_t *dp, int flags)
464{
465    SLtt_set_cursor_visibility(flags ? 1 : 0);
466}
467
[540]468/*
469 * XXX: following functions are local
470 */
471
[281]472static void slang_init_palette(void)
473{
474    /* See SLang ref., 5.4.4. */
475    static char *slang_colors[16] =
476    {
477        /* Standard colours */
478        "black",
479        "blue",
480        "green",
481        "cyan",
482        "red",
483        "magenta",
484        "brown",
485        "lightgray",
486        /* Bright colours */
487        "gray",
488        "brightblue",
489        "brightgreen",
490        "brightcyan",
491        "brightred",
492        "brightmagenta",
493        "yellow",
494        "white",
495    };
496
[300]497#if defined(OPTIMISE_SLANG_PALETTE)
498    int i;
499
500    for(i = 0; i < 16 * 16; i++)
501        SLtt_set_color(i, NULL, slang_colors[slang_palette[i * 2]],
502                                slang_colors[slang_palette[i * 2 + 1]]);
503#else
[281]504    int fg, bg;
505
506    for(bg = 0; bg < 16; bg++)
507        for(fg = 0; fg < 16; fg++)
508        {
509            int i = fg + 16 * bg;
510            SLtt_set_color(i, NULL, slang_colors[fg], slang_colors[bg]);
511        }
512#endif
513}
514
[811]515static void slang_write_utf32(uint32_t ch)
[579]516{
[630]517#ifdef HAVE_SLSMG_UTF8_ENABLE
[929]518    char buf[10];
[579]519    int bytes;
[1776]520#else
521    char ascii;
[1218]522#endif
[579]523
[2821]524    if(ch == CACA_MAGIC_FULLWIDTH)
[1218]525        return;
526
527#ifdef HAVE_SLSMG_UTF8_ENABLE
[2821]528    bytes = caca_utf32_to_utf8(buf, ch);
[579]529    buf[bytes] = '\0';
530    SLsmg_write_string(buf);
[610]531#else
[2821]532    ascii = caca_utf32_to_ascii(ch);
[1776]533    SLsmg_write_char(ascii);
[2821]534    if(caca_utf32_is_fullwidth(ch))
[1776]535        SLsmg_write_char(ascii);
[610]536#endif
[579]537}
538
[539]539#if defined(HAVE_SIGNAL)
[348]540static RETSIGTYPE sigwinch_handler(int sig)
541{
[811]542    sigwinch_d->resize.resized = 1;
[348]543
[610]544    signal(SIGWINCH, sigwinch_handler);
[348]545}
546#endif
547
[550]548#if defined(HAVE_GETENV) && defined(HAVE_PUTENV)
[2142]549static void slang_install_terminal(caca_display_t *dp)
[550]550{
[1033]551    char *term, *colorterm;
[550]552
[2142]553    dp->drv.p->term = NULL;
554
[550]555    term = getenv("TERM");
556    colorterm = getenv("COLORTERM");
557
[986]558    if(!term || strcmp(term, "xterm"))
559        return;
560
561    /* If we are using gnome-terminal, it's really a 16 colour terminal.
562     * Ditto if we are using xfce4-terminal, or Konsole. */
563    if((colorterm && (!strcmp(colorterm, "gnome-terminal")
564                       || !strcmp(colorterm, "Terminal")))
565         || getenv("KONSOLE_DCOP_SESSION"))
[550]566    {
[986]567        (void)putenv("TERM=xterm-16color");
[2142]568        dp->drv.p->term = strdup(term);
[986]569        return;
[550]570    }
571}
[2142]572
573static void slang_uninstall_terminal(caca_display_t *dp)
574{
575    /* Needs to be persistent because we use putenv() */
576    static char termenv[1024];
577
578    if(!dp->drv.p->term)
579        return;
580
581    snprintf(termenv, 1023, "TERM=%s", dp->drv.p->term);
582    free(dp->drv.p->term);
583    (void)putenv(termenv);
584}
[550]585#endif
586
[539]587/*
588 * Driver initialisation
589 */
[527]590
[811]591int slang_install(caca_display_t *dp)
[511]592{
[2138]593    dp->drv.id = CACA_DRIVER_SLANG;
594    dp->drv.driver = "slang";
[527]595
[811]596    dp->drv.init_graphics = slang_init_graphics;
597    dp->drv.end_graphics = slang_end_graphics;
[819]598    dp->drv.set_display_title = slang_set_display_title;
599    dp->drv.get_display_width = slang_get_display_width;
600    dp->drv.get_display_height = slang_get_display_height;
[811]601    dp->drv.display = slang_display;
602    dp->drv.handle_resize = slang_handle_resize;
603    dp->drv.get_event = slang_get_event;
604    dp->drv.set_mouse = NULL;
[1837]605    dp->drv.set_cursor = slang_set_cursor;
[684]606
607    return 0;
[511]608}
609
[539]610#endif /* USE_SLANG */
[527]611
Note: See TracBrowser for help on using the repository browser.