1998-02-27 07:54:42 +03:00
|
|
|
/* Slang interface to the Midnight Commander
|
|
|
|
This emulates some features of ncurses on top of slang
|
|
|
|
|
|
|
|
Copyright (C) 1995, 1996 The Free Software Foundation.
|
|
|
|
|
|
|
|
Author Miguel de Icaza
|
|
|
|
Norbert Warmuth
|
2001-11-07 16:35:57 +03:00
|
|
|
|
1998-02-27 07:54:42 +03:00
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program; if not, write to the Free Software
|
2000-08-23 02:50:00 +04:00
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
1998-02-27 07:54:42 +03:00
|
|
|
#include <config.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <termios.h>
|
|
|
|
#include <signal.h>
|
|
|
|
#include <string.h>
|
2001-09-03 09:55:22 +04:00
|
|
|
|
Glibing..... (2)
Wed Jan 27 03:17:44 1999 Timur Bakeyev <mc@bat.ru>
* Converted memory managment to Glib. Now we use g_new()/g_malloc()/
g_strdup()/g_free() routings. Also, copy_strings() replaced by
g_strconcat(), strcasecmp() -> g_strcasecmp(),and sprintf() by
g_snprintf().
* Some sequences of malloc()/sprintf() changed to g_strdup_printf().
* mad.[ch]: Modified, to work with new GLib's memory managment. Fixed
a missing #undef for tempnam, which caused dead loop. Add several new
functions to emulate GLib memory managment.
*main.c, mad.[ch]: Add a new switch "-M", which allows to redirect MAD
messages to the file.
* util.[ch], utilunix.c: Modified, deleted our variants of strcasecmp()
and strdup() - we have g_ equivalences. Remove get_full_name() - it is
similar to concat_dir_and_file(). Some other tricks with g_* functions.
* global.h: Modified, extended. Now it is main memory mangment include -
i.e. all inclusions of <stdlib.h>, <malloc.h>, <glib.h>, "fs.h", "mem.h",
"util.h" and "mad.h" done there. This elimanates problem with proper or-
der of #include's.
* All around the source - changed order of #include's, most of them gone
to global.h (see above), minor changes, like "0" -> NULL in string func-
tions.
1999-01-27 04:08:30 +03:00
|
|
|
#include "global.h"
|
2001-09-03 09:55:22 +04:00
|
|
|
#include "tty.h"
|
1998-02-27 07:54:42 +03:00
|
|
|
#include "color.h"
|
|
|
|
#include "mouse.h" /* Gpm_Event is required in key.h */
|
|
|
|
#include "key.h" /* define_sequence */
|
|
|
|
#include "main.h" /* extern: force_colors */
|
|
|
|
#include "win.h" /* do_exit_ca_mode */
|
|
|
|
#include "setup.h"
|
|
|
|
|
|
|
|
#ifdef HAVE_SLANG
|
|
|
|
|
|
|
|
/* Taken from S-Lang's slutty.c */
|
|
|
|
#ifdef ultrix /* Ultrix gets _POSIX_VDISABLE wrong! */
|
|
|
|
# define NULL_VALUE -1
|
|
|
|
#else
|
|
|
|
# ifdef _POSIX_VDISABLE
|
|
|
|
# define NULL_VALUE _POSIX_VDISABLE
|
|
|
|
# else
|
|
|
|
# define NULL_VALUE 255
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Taken from S-Lang's sldisply.c file */
|
|
|
|
#ifndef USE_TERMCAP
|
|
|
|
# define tgetstr(a,b) SLtt_tgetstr (a)
|
|
|
|
#else
|
|
|
|
extern char *tgetstr(char *, char **);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef SA_RESTART
|
|
|
|
# define SA_RESTART 0
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Various saved termios settings that we control here */
|
|
|
|
static struct termios boot_mode;
|
|
|
|
static struct termios new_mode;
|
|
|
|
|
|
|
|
/* Set if we get an interrupt */
|
|
|
|
static int slinterrupt;
|
|
|
|
|
|
|
|
/* Controls whether we should wait for input in getch */
|
|
|
|
static int no_slang_delay;
|
|
|
|
|
|
|
|
/* {{{ Copied from ../slang/slgetkey.c, removed the DEC_8Bit_HACK, */
|
|
|
|
extern unsigned char SLang_Input_Buffer [];
|
1998-04-26 05:12:45 +04:00
|
|
|
#if SLANG_VERSION >= 10000
|
|
|
|
extern unsigned int _SLsys_getkey (void);
|
|
|
|
extern int _SLsys_input_pending (int);
|
|
|
|
#else
|
1998-02-27 07:54:42 +03:00
|
|
|
extern unsigned int SLsys_getkey (void);
|
|
|
|
extern int SLsys_input_pending (int);
|
1998-04-26 05:12:45 +04:00
|
|
|
#endif
|
1998-02-27 07:54:42 +03:00
|
|
|
|
2001-11-07 16:35:57 +03:00
|
|
|
/* Forward declarations */
|
2001-09-03 09:55:22 +04:00
|
|
|
static void load_terminfo_keys (void);
|
|
|
|
|
1998-02-27 07:54:42 +03:00
|
|
|
static unsigned int SLang_getkey2 (void)
|
|
|
|
{
|
|
|
|
unsigned int imax;
|
|
|
|
unsigned int ch;
|
|
|
|
|
|
|
|
if (SLang_Input_Buffer_Len)
|
|
|
|
{
|
|
|
|
ch = (unsigned int) *SLang_Input_Buffer;
|
|
|
|
SLang_Input_Buffer_Len--;
|
|
|
|
imax = SLang_Input_Buffer_Len;
|
|
|
|
|
|
|
|
memcpy ((char *) SLang_Input_Buffer,
|
|
|
|
(char *) (SLang_Input_Buffer + 1), imax);
|
|
|
|
return(ch);
|
|
|
|
}
|
1998-04-26 05:12:45 +04:00
|
|
|
#if SLANG_VERSION >= 10000
|
|
|
|
else return(_SLsys_getkey ());
|
|
|
|
#else
|
|
|
|
else return(SLsys_getkey());
|
|
|
|
#endif
|
1998-02-27 07:54:42 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
static int SLang_input_pending2 (int tsecs)
|
|
|
|
{
|
1999-04-13 23:21:03 +04:00
|
|
|
int n, i;
|
1998-02-27 07:54:42 +03:00
|
|
|
unsigned char c;
|
1999-04-13 23:21:03 +04:00
|
|
|
|
1998-02-27 07:54:42 +03:00
|
|
|
if (SLang_Input_Buffer_Len) return (int) SLang_Input_Buffer_Len;
|
1998-04-26 05:12:45 +04:00
|
|
|
#if SLANG_VERSION >= 10000
|
|
|
|
n = _SLsys_input_pending (tsecs);
|
|
|
|
#else
|
1998-02-27 07:54:42 +03:00
|
|
|
n = SLsys_input_pending (tsecs);
|
1998-04-26 05:12:45 +04:00
|
|
|
#endif
|
1998-02-27 07:54:42 +03:00
|
|
|
if (n <= 0) return 0;
|
|
|
|
|
1999-04-13 23:21:03 +04:00
|
|
|
i = SLang_getkey2 ();
|
|
|
|
if (i == SLANG_GETKEY_ERROR)
|
|
|
|
return 0; /* don't put crippled error codes into the input buffer */
|
|
|
|
c = (unsigned char)i;
|
1998-02-27 07:54:42 +03:00
|
|
|
SLang_ungetkey_string (&c, 1);
|
|
|
|
|
|
|
|
return n;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
static void
|
|
|
|
slang_intr (int signo)
|
|
|
|
{
|
|
|
|
slinterrupt = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
enable_interrupt_key(void)
|
|
|
|
{
|
|
|
|
struct sigaction act;
|
|
|
|
|
|
|
|
act.sa_handler = slang_intr;
|
|
|
|
sigemptyset (&act.sa_mask);
|
|
|
|
act.sa_flags = 0;
|
|
|
|
sigaction (SIGINT, &act, NULL);
|
|
|
|
slinterrupt = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
disable_interrupt_key(void)
|
|
|
|
{
|
|
|
|
struct sigaction act;
|
|
|
|
|
|
|
|
act.sa_handler = SIG_IGN;
|
|
|
|
act.sa_flags = 0;
|
|
|
|
sigemptyset (&act.sa_mask);
|
|
|
|
sigaction (SIGINT, &act, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
2001-09-03 09:55:22 +04:00
|
|
|
got_interrupt (void)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
|
|
|
int t;
|
|
|
|
|
|
|
|
t = slinterrupt;
|
|
|
|
slinterrupt = 0;
|
|
|
|
return t;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Only done the first time */
|
|
|
|
void
|
|
|
|
slang_init (void)
|
|
|
|
{
|
|
|
|
struct sigaction act, oact;
|
|
|
|
|
|
|
|
SLtt_get_terminfo ();
|
2001-06-13 10:53:08 +04:00
|
|
|
|
|
|
|
/*
|
|
|
|
* If the terminal in not in terminfo but begins with a well-known
|
|
|
|
* string such as "linux" or "xterm" S-Lang will go on, but the
|
|
|
|
* terminal size and several other variables won't be initialized
|
|
|
|
* (as of S-Lang 1.4.4). Detect it and abort. Also detect extremely
|
|
|
|
* small, large and negative screen dimensions.
|
|
|
|
*/
|
|
|
|
if ((COLS < 10) || (LINES < 5) || (COLS > 1024) || (LINES > 1024)) {
|
|
|
|
fprintf (stderr,
|
|
|
|
_("Screen size %dx%d is not supported.\n"
|
|
|
|
"Check the TERM environment variable.\n"),
|
|
|
|
COLS, LINES);
|
|
|
|
exit (1);
|
|
|
|
}
|
|
|
|
|
1998-02-27 07:54:42 +03:00
|
|
|
tcgetattr (fileno (stdin), &boot_mode);
|
|
|
|
/* 255 = ignore abort char; XCTRL('g') for abort char = ^g */
|
|
|
|
SLang_init_tty (XCTRL('c'), 1, 0);
|
|
|
|
|
|
|
|
/* If SLang uses fileno(stderr) for terminal input MC will hang
|
|
|
|
if we call SLang_getkey between calls to open_error_pipe and
|
|
|
|
close_error_pipe, e.g. when we do a growing view of an gzipped
|
|
|
|
file. */
|
|
|
|
if (SLang_TT_Read_FD == fileno (stderr))
|
|
|
|
SLang_TT_Read_FD = fileno (stdin);
|
|
|
|
|
|
|
|
if (force_ugly_line_drawing)
|
|
|
|
SLtt_Has_Alt_Charset = 0;
|
|
|
|
if (tcgetattr (SLang_TT_Read_FD, &new_mode) == 0) {
|
|
|
|
#ifdef VDSUSP
|
|
|
|
new_mode.c_cc[VDSUSP] = NULL_VALUE; /* to ignore ^Y */
|
|
|
|
#endif
|
|
|
|
#ifdef VLNEXT
|
|
|
|
new_mode.c_cc[VLNEXT] = NULL_VALUE; /* to ignore ^V */
|
|
|
|
#endif
|
|
|
|
tcsetattr (SLang_TT_Read_FD, TCSADRAIN, &new_mode);
|
|
|
|
}
|
|
|
|
slang_prog_mode ();
|
|
|
|
load_terminfo_keys ();
|
|
|
|
act.sa_handler = slang_intr;
|
|
|
|
sigemptyset (&act.sa_mask);
|
|
|
|
act.sa_flags = SA_RESTART;
|
|
|
|
sigaction (SIGINT, &act, &oact);
|
|
|
|
SLtt_Blink_Mode = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
slang_set_raw_mode (void)
|
|
|
|
{
|
|
|
|
tcsetattr (SLang_TT_Read_FD, TCSANOW, &new_mode);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Done each time we come back from done mode */
|
|
|
|
void
|
|
|
|
slang_prog_mode (void)
|
|
|
|
{
|
|
|
|
tcsetattr (SLang_TT_Read_FD, TCSANOW, &new_mode);
|
|
|
|
SLsmg_init_smg ();
|
|
|
|
SLsmg_touch_lines (0, LINES);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Called each time we want to shutdown slang screen manager */
|
|
|
|
void
|
|
|
|
slang_shell_mode (void)
|
|
|
|
{
|
|
|
|
tcsetattr (SLang_TT_Read_FD, TCSANOW, &boot_mode);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2001-09-03 09:55:22 +04:00
|
|
|
slang_shutdown (void)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
|
|
|
char *op_cap;
|
|
|
|
|
|
|
|
slang_shell_mode ();
|
|
|
|
do_exit_ca_mode ();
|
|
|
|
SLang_reset_tty ();
|
2001-11-07 16:35:57 +03:00
|
|
|
dealloc_color_pairs ();
|
1998-02-27 07:54:42 +03:00
|
|
|
|
|
|
|
/* Load the op capability to reset the colors to those that were
|
|
|
|
* active when the program was started up
|
|
|
|
*/
|
|
|
|
op_cap = SLtt_tgetstr ("op");
|
|
|
|
if (op_cap){
|
|
|
|
fprintf (stdout, "%s", op_cap);
|
|
|
|
fflush (stdout);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* HP Terminals have capabilities (pfkey, pfloc, pfx) to program function keys.
|
|
|
|
elm 2.4pl15 invoked with the -K option utilizes these softkeys and the
|
|
|
|
consequence is that function keys don't work in MC sometimes.
|
|
|
|
Unfortunately I don't now the one and only escape sequence to turn off
|
|
|
|
softkeys (elm uses three different capabilities to turn on softkeys and two
|
|
|
|
capabilities to turn them off).
|
|
|
|
Among other things elm uses the pair we already use in slang_keypad. That's
|
|
|
|
the reason why I call slang_reset_softkeys from slang_keypad. In lack of
|
|
|
|
something better the softkeys are programmed to their defaults from the
|
|
|
|
termcap/terminfo database.
|
|
|
|
The escape sequence to program the softkeys is taken from elm and it is
|
|
|
|
hardcoded because neither slang nor ncurses 4.1 know how to 'printf' this
|
|
|
|
sequence. -- Norbert
|
|
|
|
*/
|
|
|
|
|
1998-12-03 00:27:27 +03:00
|
|
|
static void
|
1998-02-27 07:54:42 +03:00
|
|
|
slang_reset_softkeys (void)
|
|
|
|
{
|
|
|
|
int key;
|
|
|
|
char *send;
|
2001-11-07 16:35:57 +03:00
|
|
|
static const char display [] = " ";
|
Glibing..... (2)
Wed Jan 27 03:17:44 1999 Timur Bakeyev <mc@bat.ru>
* Converted memory managment to Glib. Now we use g_new()/g_malloc()/
g_strdup()/g_free() routings. Also, copy_strings() replaced by
g_strconcat(), strcasecmp() -> g_strcasecmp(),and sprintf() by
g_snprintf().
* Some sequences of malloc()/sprintf() changed to g_strdup_printf().
* mad.[ch]: Modified, to work with new GLib's memory managment. Fixed
a missing #undef for tempnam, which caused dead loop. Add several new
functions to emulate GLib memory managment.
*main.c, mad.[ch]: Add a new switch "-M", which allows to redirect MAD
messages to the file.
* util.[ch], utilunix.c: Modified, deleted our variants of strcasecmp()
and strdup() - we have g_ equivalences. Remove get_full_name() - it is
similar to concat_dir_and_file(). Some other tricks with g_* functions.
* global.h: Modified, extended. Now it is main memory mangment include -
i.e. all inclusions of <stdlib.h>, <malloc.h>, <glib.h>, "fs.h", "mem.h",
"util.h" and "mad.h" done there. This elimanates problem with proper or-
der of #include's.
* All around the source - changed order of #include's, most of them gone
to global.h (see above), minor changes, like "0" -> NULL in string func-
tions.
1999-01-27 04:08:30 +03:00
|
|
|
char tmp[BUF_SMALL];
|
1998-02-27 07:54:42 +03:00
|
|
|
|
|
|
|
for ( key = 1; key < 9; key++ ) {
|
Glibing..... (2)
Wed Jan 27 03:17:44 1999 Timur Bakeyev <mc@bat.ru>
* Converted memory managment to Glib. Now we use g_new()/g_malloc()/
g_strdup()/g_free() routings. Also, copy_strings() replaced by
g_strconcat(), strcasecmp() -> g_strcasecmp(),and sprintf() by
g_snprintf().
* Some sequences of malloc()/sprintf() changed to g_strdup_printf().
* mad.[ch]: Modified, to work with new GLib's memory managment. Fixed
a missing #undef for tempnam, which caused dead loop. Add several new
functions to emulate GLib memory managment.
*main.c, mad.[ch]: Add a new switch "-M", which allows to redirect MAD
messages to the file.
* util.[ch], utilunix.c: Modified, deleted our variants of strcasecmp()
and strdup() - we have g_ equivalences. Remove get_full_name() - it is
similar to concat_dir_and_file(). Some other tricks with g_* functions.
* global.h: Modified, extended. Now it is main memory mangment include -
i.e. all inclusions of <stdlib.h>, <malloc.h>, <glib.h>, "fs.h", "mem.h",
"util.h" and "mad.h" done there. This elimanates problem with proper or-
der of #include's.
* All around the source - changed order of #include's, most of them gone
to global.h (see above), minor changes, like "0" -> NULL in string func-
tions.
1999-01-27 04:08:30 +03:00
|
|
|
g_snprintf (tmp, sizeof (tmp), "k%d", key);
|
1998-02-27 07:54:42 +03:00
|
|
|
send = (char *) SLtt_tgetstr (tmp);
|
|
|
|
if (send) {
|
Glibing..... (2)
Wed Jan 27 03:17:44 1999 Timur Bakeyev <mc@bat.ru>
* Converted memory managment to Glib. Now we use g_new()/g_malloc()/
g_strdup()/g_free() routings. Also, copy_strings() replaced by
g_strconcat(), strcasecmp() -> g_strcasecmp(),and sprintf() by
g_snprintf().
* Some sequences of malloc()/sprintf() changed to g_strdup_printf().
* mad.[ch]: Modified, to work with new GLib's memory managment. Fixed
a missing #undef for tempnam, which caused dead loop. Add several new
functions to emulate GLib memory managment.
*main.c, mad.[ch]: Add a new switch "-M", which allows to redirect MAD
messages to the file.
* util.[ch], utilunix.c: Modified, deleted our variants of strcasecmp()
and strdup() - we have g_ equivalences. Remove get_full_name() - it is
similar to concat_dir_and_file(). Some other tricks with g_* functions.
* global.h: Modified, extended. Now it is main memory mangment include -
i.e. all inclusions of <stdlib.h>, <malloc.h>, <glib.h>, "fs.h", "mem.h",
"util.h" and "mad.h" done there. This elimanates problem with proper or-
der of #include's.
* All around the source - changed order of #include's, most of them gone
to global.h (see above), minor changes, like "0" -> NULL in string func-
tions.
1999-01-27 04:08:30 +03:00
|
|
|
g_snprintf(tmp, sizeof (tmp), "\033&f%dk%dd%dL%s%s", key,
|
2001-11-07 16:35:57 +03:00
|
|
|
sizeof (display) - 1, strlen(send), display, send);
|
1998-02-27 07:54:42 +03:00
|
|
|
SLtt_write_string (tmp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* keypad routines */
|
|
|
|
void
|
|
|
|
slang_keypad (int set)
|
|
|
|
{
|
|
|
|
char *keypad_string;
|
|
|
|
extern int reset_hp_softkeys;
|
|
|
|
|
|
|
|
keypad_string = (char *) SLtt_tgetstr (set ? "ks" : "ke");
|
|
|
|
if (keypad_string)
|
|
|
|
SLtt_write_string (keypad_string);
|
|
|
|
if (set && reset_hp_softkeys)
|
|
|
|
slang_reset_softkeys ();
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
set_slang_delay (int v)
|
|
|
|
{
|
|
|
|
no_slang_delay = v;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
hline (int ch, int len)
|
|
|
|
{
|
|
|
|
int last_x, last_y;
|
|
|
|
|
|
|
|
last_x = SLsmg_get_column ();
|
|
|
|
last_y = SLsmg_get_row ();
|
|
|
|
|
|
|
|
if (ch == 0)
|
|
|
|
ch = ACS_HLINE;
|
|
|
|
|
|
|
|
if (ch == ACS_HLINE){
|
|
|
|
SLsmg_draw_hline (len);
|
|
|
|
} else {
|
|
|
|
while (len--)
|
|
|
|
addch (ch);
|
|
|
|
}
|
|
|
|
move (last_y, last_x);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
vline (int character, int len)
|
|
|
|
{
|
|
|
|
if (!slow_terminal){
|
|
|
|
SLsmg_draw_vline (len);
|
|
|
|
} else {
|
|
|
|
int last_x, last_y, pos = 0;
|
|
|
|
|
|
|
|
last_x = SLsmg_get_column ();
|
|
|
|
last_y = SLsmg_get_row ();
|
|
|
|
|
|
|
|
while (len--){
|
|
|
|
move (last_y + pos++, last_x);
|
|
|
|
addch (' ');
|
|
|
|
}
|
|
|
|
move (last_x, last_y);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2001-09-03 09:55:22 +04:00
|
|
|
int has_colors (void)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
|
|
|
char *terminal = getenv ("TERM");
|
|
|
|
char *cts = color_terminal_string, *s;
|
|
|
|
int i;
|
|
|
|
|
2002-06-13 16:40:50 +04:00
|
|
|
if (force_colors)
|
|
|
|
SLtt_Use_Ansi_Colors = 1;
|
1998-02-27 07:54:42 +03:00
|
|
|
if (NULL != getenv ("COLORTERM"))
|
|
|
|
SLtt_Use_Ansi_Colors = 1;
|
|
|
|
|
|
|
|
/* We want to allow overwriding */
|
|
|
|
if (!disable_colors){
|
|
|
|
/* check color_terminal_string */
|
2002-07-15 10:01:29 +04:00
|
|
|
if (*cts)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
|
|
|
while (*cts)
|
|
|
|
{
|
|
|
|
while (*cts == ' ' || *cts == '\t') cts++;
|
|
|
|
|
|
|
|
s = cts;
|
|
|
|
i = 0;
|
|
|
|
|
|
|
|
while (*cts && *cts != ',')
|
|
|
|
{
|
|
|
|
cts++;
|
|
|
|
i++;
|
|
|
|
}
|
|
|
|
if (i && i == strlen(terminal) && strncmp(s, terminal, i) == 0)
|
|
|
|
SLtt_Use_Ansi_Colors = 1;
|
|
|
|
|
|
|
|
if (*cts == ',') cts++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Setup emulated colors */
|
|
|
|
if (SLtt_Use_Ansi_Colors){
|
|
|
|
if (use_colors){
|
2002-07-15 01:41:12 +04:00
|
|
|
mc_init_pair (A_REVERSE, "black", "white");
|
|
|
|
mc_init_pair (A_BOLD, "white", "black");
|
1998-02-27 07:54:42 +03:00
|
|
|
} else {
|
2002-07-15 01:41:12 +04:00
|
|
|
mc_init_pair (A_REVERSE, "black", "lightgray");
|
|
|
|
mc_init_pair (A_BOLD, "white", "black");
|
|
|
|
mc_init_pair (A_BOLD_REVERSE, "white", "lightgray");
|
1998-02-27 07:54:42 +03:00
|
|
|
}
|
|
|
|
} else {
|
|
|
|
SLtt_set_mono (A_BOLD, NULL, SLTT_BOLD_MASK);
|
|
|
|
SLtt_set_mono (A_REVERSE, NULL, SLTT_REV_MASK);
|
|
|
|
SLtt_set_mono (A_BOLD|A_REVERSE, NULL, SLTT_BOLD_MASK | SLTT_REV_MASK);
|
|
|
|
}
|
|
|
|
return SLtt_Use_Ansi_Colors;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
attrset (int color)
|
|
|
|
{
|
|
|
|
if (!SLtt_Use_Ansi_Colors){
|
|
|
|
SLsmg_set_color (color);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (color & A_BOLD){
|
|
|
|
if (color == A_BOLD)
|
|
|
|
SLsmg_set_color (A_BOLD);
|
|
|
|
else
|
|
|
|
SLsmg_set_color ((color & (~A_BOLD)) + 8);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (color == A_REVERSE)
|
|
|
|
SLsmg_set_color (A_REVERSE);
|
|
|
|
else
|
|
|
|
SLsmg_set_color (color);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* This table describes which capabilities we want and which values we
|
|
|
|
* assign to them.
|
|
|
|
*/
|
2001-11-07 16:35:57 +03:00
|
|
|
static const struct {
|
1998-02-27 07:54:42 +03:00
|
|
|
int key_code;
|
|
|
|
char *key_name;
|
|
|
|
} key_table [] = {
|
|
|
|
{ KEY_F(0), "k0" },
|
|
|
|
{ KEY_F(1), "k1" },
|
|
|
|
{ KEY_F(2), "k2" },
|
|
|
|
{ KEY_F(3), "k3" },
|
|
|
|
{ KEY_F(4), "k4" },
|
|
|
|
{ KEY_F(5), "k5" },
|
|
|
|
{ KEY_F(6), "k6" },
|
|
|
|
{ KEY_F(7), "k7" },
|
|
|
|
{ KEY_F(8), "k8" },
|
|
|
|
{ KEY_F(9), "k9" },
|
|
|
|
{ KEY_F(10), "k;" },
|
|
|
|
{ KEY_F(11), "F1" },
|
|
|
|
{ KEY_F(12), "F2" },
|
|
|
|
{ KEY_F(13), "F3" },
|
|
|
|
{ KEY_F(14), "F4" },
|
|
|
|
{ KEY_F(15), "F5" },
|
|
|
|
{ KEY_F(16), "F6" },
|
|
|
|
{ KEY_F(17), "F7" },
|
|
|
|
{ KEY_F(18), "F8" },
|
|
|
|
{ KEY_F(19), "F9" },
|
|
|
|
{ KEY_F(20), "FA" },
|
|
|
|
{ KEY_IC, "kI" },
|
|
|
|
{ KEY_NPAGE, "kN" },
|
|
|
|
{ KEY_PPAGE, "kP" },
|
|
|
|
{ KEY_LEFT, "kl" },
|
|
|
|
{ KEY_RIGHT, "kr" },
|
|
|
|
{ KEY_UP, "ku" },
|
|
|
|
{ KEY_DOWN, "kd" },
|
|
|
|
{ KEY_DC, "kD" },
|
|
|
|
{ KEY_BACKSPACE, "kb" },
|
|
|
|
{ KEY_HOME, "kh" },
|
|
|
|
{ KEY_END, "@7" },
|
|
|
|
{ 0, 0}
|
|
|
|
};
|
|
|
|
|
2001-09-03 09:55:22 +04:00
|
|
|
static void
|
1998-02-27 07:54:42 +03:00
|
|
|
do_define_key (int code, char *strcap)
|
|
|
|
{
|
|
|
|
char *seq;
|
|
|
|
|
|
|
|
seq = (char *) SLtt_tgetstr (strcap);
|
|
|
|
if (seq)
|
|
|
|
define_sequence (code, seq, MCKEY_NOACTION);
|
|
|
|
}
|
|
|
|
|
2001-09-03 09:55:22 +04:00
|
|
|
static void
|
|
|
|
load_terminfo_keys (void)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
for (i = 0; key_table [i].key_code; i++)
|
|
|
|
do_define_key (key_table [i].key_code, key_table [i].key_name);
|
|
|
|
}
|
|
|
|
|
2001-09-03 09:55:22 +04:00
|
|
|
int getch (void)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
1999-04-13 23:21:03 +04:00
|
|
|
int c;
|
1998-02-27 07:54:42 +03:00
|
|
|
if (no_slang_delay)
|
|
|
|
if (SLang_input_pending2 (0) == 0)
|
|
|
|
return -1;
|
|
|
|
|
1999-04-13 23:21:03 +04:00
|
|
|
c = SLang_getkey2 ();
|
|
|
|
if (c == SLANG_GETKEY_ERROR) {
|
|
|
|
fprintf (stderr, "SLang_getkey returned SLANG_GETKEY_ERROR\n"
|
|
|
|
"Assuming EOF on stdin and exiting\n");
|
|
|
|
quiet_quit_cmd ();
|
|
|
|
}
|
|
|
|
return (c);
|
1998-02-27 07:54:42 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
/* Non slang builds do not understand got_interrupt */
|
2001-09-03 09:55:22 +04:00
|
|
|
int got_interrupt (void)
|
1998-02-27 07:54:42 +03:00
|
|
|
{
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
#endif /* HAVE_SLANG */
|
|
|
|
|
|
|
|
void
|
|
|
|
mc_refresh (void)
|
|
|
|
{
|
|
|
|
if (!we_are_background)
|
|
|
|
refresh ();
|
|
|
|
}
|