No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
 
 
 
 
 
 

584 líneas
17 KiB

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