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

Last change on this file since 549 was 549, checked in by Sam Hocevar, 15 years ago
  • Cleaned up useless header includes.
  • Property svn:keywords set to Id
File size: 12.1 KB
Line 
1/*
2 *  libcaca       ASCII-Art library
3 *  Copyright (c) 2002-2006 Sam Hocevar <sam@zoy.org>
4 *                All Rights Reserved
5 *
6 *  This library is free software; you can redistribute it and/or
7 *  modify it under the terms of the Do What The Fuck You Want To
8 *  Public License, Version 2, as published by Sam Hocevar. See
9 *  http://sam.zoy.org/wtfpl/COPYING for more details.
10 */
11
12/** \file driver_slang.c
13 *  \version \$Id: driver_slang.c 549 2006-03-08 09:51:53Z sam $
14 *  \author Sam Hocevar <sam@zoy.org>
15 *  \brief SLang driver
16 *
17 *  This file contains the libcaca SLang input and output driver
18 */
19
20#include "config.h"
21
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
30#if defined(HAVE_SIGNAL_H)
31#   include <signal.h>
32#endif
33
34#include "caca.h"
35#include "caca_internals.h"
36#include "cucul.h"
37#include "cucul_internals.h"
38
39/*
40 * Global variables
41 */
42
43/* Tables generated by test/optipal.c */
44static int const slang_palette[2*16*16] =
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
80static int const slang_assoc[16*16] =
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};
99
100/*
101 * Local functions
102 */
103static void slang_init_palette(void);
104
105#if defined(HAVE_SIGNAL)
106static RETSIGTYPE sigwinch_handler(int);
107static caca_t *sigwinch_kk; /* FIXME: we ought to get rid of this */
108#endif
109
110static int slang_init_graphics(caca_t *kk)
111{
112#if defined(HAVE_SIGNAL)
113    sigwinch_kk = kk;
114    signal(SIGWINCH, sigwinch_handler);
115#endif
116
117    /* Initialise slang library */
118    SLsig_block_signals();
119    SLtt_get_terminfo();
120
121    if(SLkp_init() == -1)
122    {
123        SLsig_unblock_signals();
124        return -1;
125    }
126
127    SLang_init_tty(-1, 0, 1);
128
129    if(SLsmg_init_smg() == -1)
130    {
131        SLsig_unblock_signals();
132        return -1;
133    }
134
135    SLsig_unblock_signals();
136
137    SLsmg_cls();
138    SLtt_set_cursor_visibility(0);
139    SLkp_define_keysym("\e[M", 1001);
140    SLtt_set_mouse_mode(1, 0);
141    SLsmg_refresh();
142
143    /* Disable scrolling so that hashmap scrolling optimization code
144     * does not cause ugly refreshes due to slow terminals */
145    SLtt_Term_Cannot_Scroll = 1;
146
147    slang_init_palette();
148
149    /* Disable alt charset support so that we get a chance to have all
150     * 256 colour pairs */
151    SLtt_Has_Alt_Charset = 0;
152
153    cucul_set_size(kk->qq, SLtt_Screen_Cols, SLtt_Screen_Rows);
154
155    return 0;
156}
157
158static int slang_end_graphics(caca_t *kk)
159{
160    SLtt_set_mouse_mode(0, 0);
161    SLtt_set_cursor_visibility(1);
162    SLang_reset_tty();
163    SLsmg_reset_smg();
164
165    return 0;
166}
167
168static int slang_set_window_title(caca_t *kk, char const *title)
169{
170    /* FIXME */
171    return 0;
172}
173
174static unsigned int slang_get_window_width(caca_t *kk)
175{
176    /* Fallback to a 6x10 font */
177    return kk->qq->width * 6;
178}
179
180static unsigned int slang_get_window_height(caca_t *kk)
181{
182    /* Fallback to a 6x10 font */
183    return kk->qq->height * 10;
184}
185
186static void slang_display(caca_t *kk)
187{
188    int x, y;
189    uint8_t *attr = kk->qq->attr;
190    uint32_t *chars = kk->qq->chars;
191    for(y = 0; y < (int)kk->qq->height; y++)
192    {
193        SLsmg_gotorc(y, 0);
194        for(x = kk->qq->width; x--; )
195        {
196#if defined(OPTIMISE_SLANG_PALETTE)
197            /* If foreground == background, just don't use this colour
198             * pair, and print a space instead of the real character. */
199            uint8_t fgcolor = *attr & 0xf;
200            uint8_t bgcolor = *attr >> 4;
201            if(fgcolor != bgcolor)
202            {
203                SLsmg_set_color(slang_assoc[*attr++]);
204                SLsmg_write_char(*chars++ & 0x7f);
205            }
206            else
207            {
208                if(fgcolor == CUCUL_COLOR_BLACK)
209                    fgcolor = CUCUL_COLOR_WHITE;
210                else if(fgcolor == CUCUL_COLOR_WHITE
211                         || fgcolor <= CUCUL_COLOR_LIGHTGRAY)
212                    fgcolor = CUCUL_COLOR_BLACK;
213                else
214                    fgcolor = CUCUL_COLOR_WHITE;
215                SLsmg_set_color(slang_assoc[fgcolor + 16 * bgcolor]);
216                SLsmg_write_char(' ');
217                chars++;
218                attr++;
219            }
220#else
221            SLsmg_set_color(*attr++);
222            SLsmg_write_char(*chars++ & 0x7f);
223#endif
224        }
225    }
226    SLsmg_refresh();
227}
228
229static void slang_handle_resize(caca_t *kk, unsigned int *new_width,
230                                            unsigned int *new_height)
231{
232    SLtt_get_screen_size();
233    *new_width = SLtt_Screen_Cols;
234    *new_height = SLtt_Screen_Rows;
235
236    if(*new_width != kk->qq->width || *new_height != kk->qq->height)
237        SLsmg_reinit_smg();
238}
239
240static unsigned int slang_get_event(caca_t *kk)
241{
242    unsigned int event;
243    int intkey;
244
245    if(kk->resize_event)
246    {
247        kk->resize_event = 0;
248        kk->resize = 1;
249        return CACA_EVENT_RESIZE;
250    }
251
252    if(!SLang_input_pending(0))
253        return CACA_EVENT_NONE;
254
255    /* We first use SLang_getkey() to see whether Esc was pressed
256     * alone, then (if it wasn't) we unget the key and use SLkp_getkey()
257     * instead, so that escape sequences are interpreted. */
258    intkey = SLang_getkey();
259
260    if(intkey != 0x1b /* Esc */ || SLang_input_pending(0))
261    {
262        SLang_ungetkey(intkey);
263        intkey = SLkp_getkey();
264    }
265
266    /* If the key was ASCII, return it immediately */
267    if(intkey < 0x100)
268    {
269        return CACA_EVENT_KEY_PRESS | intkey;
270    }
271
272    if(intkey == 0x3e9)
273    {
274        int button = (SLang_getkey() - ' ' + 1) & 0xf;
275        unsigned int x = SLang_getkey() - '!';
276        unsigned int y = SLang_getkey() - '!';
277        _push_event(kk, CACA_EVENT_MOUSE_PRESS | button);
278        _push_event(kk, CACA_EVENT_MOUSE_RELEASE | button);
279
280        if(kk->mouse_x == x && kk->mouse_y == y)
281            return _pop_event(kk);
282
283        kk->mouse_x = x;
284        kk->mouse_y = y;
285
286        return CACA_EVENT_MOUSE_MOTION | (kk->mouse_x << 12) | kk->mouse_y;
287    }
288
289    event = CACA_EVENT_KEY_PRESS;
290
291    switch(intkey)
292    {
293        case SL_KEY_UP: return event | CACA_KEY_UP;
294        case SL_KEY_DOWN: return event | CACA_KEY_DOWN;
295        case SL_KEY_LEFT: return event | CACA_KEY_LEFT;
296        case SL_KEY_RIGHT: return event | CACA_KEY_RIGHT;
297
298        case SL_KEY_IC: return event | CACA_KEY_INSERT;
299        case SL_KEY_DELETE: return event | CACA_KEY_DELETE;
300        case SL_KEY_HOME: return event | CACA_KEY_HOME;
301        case SL_KEY_END: return event | CACA_KEY_END;
302        case SL_KEY_PPAGE: return event | CACA_KEY_PAGEUP;
303        case SL_KEY_NPAGE: return event | CACA_KEY_PAGEDOWN;
304
305        case SL_KEY_F(1): return event | CACA_KEY_F1;
306        case SL_KEY_F(2): return event | CACA_KEY_F2;
307        case SL_KEY_F(3): return event | CACA_KEY_F3;
308        case SL_KEY_F(4): return event | CACA_KEY_F4;
309        case SL_KEY_F(5): return event | CACA_KEY_F5;
310        case SL_KEY_F(6): return event | CACA_KEY_F6;
311        case SL_KEY_F(7): return event | CACA_KEY_F7;
312        case SL_KEY_F(8): return event | CACA_KEY_F8;
313        case SL_KEY_F(9): return event | CACA_KEY_F9;
314        case SL_KEY_F(10): return event | CACA_KEY_F10;
315        case SL_KEY_F(11): return event | CACA_KEY_F11;
316        case SL_KEY_F(12): return event | CACA_KEY_F12;
317    }
318
319    return CACA_EVENT_NONE;
320}
321
322/*
323 * XXX: following functions are local
324 */
325
326static void slang_init_palette(void)
327{
328    /* See SLang ref., 5.4.4. */
329    static char *slang_colors[16] =
330    {
331        /* Standard colours */
332        "black",
333        "blue",
334        "green",
335        "cyan",
336        "red",
337        "magenta",
338        "brown",
339        "lightgray",
340        /* Bright colours */
341        "gray",
342        "brightblue",
343        "brightgreen",
344        "brightcyan",
345        "brightred",
346        "brightmagenta",
347        "yellow",
348        "white",
349    };
350
351#if defined(OPTIMISE_SLANG_PALETTE)
352    int i;
353
354    for(i = 0; i < 16 * 16; i++)
355        SLtt_set_color(i, NULL, slang_colors[slang_palette[i * 2]],
356                                slang_colors[slang_palette[i * 2 + 1]]);
357#else
358    int fg, bg;
359
360    for(bg = 0; bg < 16; bg++)
361        for(fg = 0; fg < 16; fg++)
362        {
363            int i = fg + 16 * bg;
364            SLtt_set_color(i, NULL, slang_colors[fg], slang_colors[bg]);
365        }
366#endif
367}
368
369#if defined(HAVE_SIGNAL)
370static RETSIGTYPE sigwinch_handler(int sig)
371{
372    sigwinch_kk->resize_event = 1;
373
374    signal(SIGWINCH, sigwinch_handler);;
375}
376#endif
377
378/*
379 * Driver initialisation
380 */
381
382void slang_init_driver(caca_t *kk)
383{
384    kk->driver.driver = CACA_DRIVER_SLANG;
385
386    kk->driver.init_graphics = slang_init_graphics;
387    kk->driver.end_graphics = slang_end_graphics;
388    kk->driver.set_window_title = slang_set_window_title;
389    kk->driver.get_window_width = slang_get_window_width;
390    kk->driver.get_window_height = slang_get_window_height;
391    kk->driver.display = slang_display;
392    kk->driver.handle_resize = slang_handle_resize;
393    kk->driver.get_event = slang_get_event;
394}
395
396#endif /* USE_SLANG */
397
Note: See TracBrowser for help on using the repository browser.