cacalabs
/
libcaca
peilaus alkaen https://github.com/cacalabs/libcaca.git
1
0
Fork 0
Koodi Ongelmat 0 Julkaisut 7 Wiki Toiminta
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
334 Commitit
1 Haara
55 MiB
 
 
 
 
 
 
Puu: cf02908f38
Branchit Tagit
${ item.name }
Create branch ${ searchTerm }
from 'cf02908f38'
${ noResults }
libcaca/caca/driver_slang.c

398 rivejä
12 KiB
Raaka Blame Historia 

  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$

  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 */

  44. static 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. 

  80. static 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.  */

  103. static void slang_init_palette(void);

  104. 

  105. #if defined(HAVE_SIGNAL)

  106. static RETSIGTYPE sigwinch_handler(int);

  107. static caca_t *sigwinch_kk; /* FIXME: we ought to get rid of this */

  108. #endif

  109. 

  110. static 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. 

  158. static 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. 

  168. static int slang_set_window_title(caca_t *kk, char const *title)

  169. {

  170.     /* FIXME */

  171.     return 0;

  172. }

  173. 

  174. static unsigned int slang_get_window_width(caca_t *kk)

  175. {

  176.     /* Fallback to a 6x10 font */

  177.     return kk->qq->width * 6;

  178. }

  179. 

  180. static unsigned int slang_get_window_height(caca_t *kk)

  181. {

  182.     /* Fallback to a 6x10 font */

  183.     return kk->qq->height * 10;

  184. }

  185. 

  186. static 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. 

  229. static 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. 

  240. static 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. 

  326. static 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)

  370. static 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. 

  382. void 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 */