lib/tty/color-slang.c

   1 /*
   2    Color setup for S_Lang screen library
   3
   4    Copyright (C) 1994-2016
   5    Free Software Foundation, Inc.
   6
   7    Written by:
   8    Andrew Borodin <aborodin@vmail.ru>, 2009
   9    Egmont Koblinger <egmont@gmail.com>, 2010
  10
  11    This file is part of the Midnight Commander.
  12
  13    The Midnight Commander is free software: you can redistribute it
  14    and/or modify it under the terms of the GNU General Public License as
  15    published by the Free Software Foundation, either version 3 of the License,
  16    or (at your option) any later version.
  17
  18    The Midnight Commander is distributed in the hope that it will be useful,
  19    but WITHOUT ANY WARRANTY; without even the implied warranty of
  20    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21    GNU General Public License for more details.
  22
  23    You should have received a copy of the GNU General Public License
  24    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  25  */
  26
  27 /** \file color-slang.c
  28  *  \brief Source: S-Lang-specific color setup
  29  */
  30
  31 #include <config.h>
  32
  33 #include <stdio.h>
  34 #include <stdlib.h>
  35 #include <string.h>
  36 #include <sys/types.h>          /* size_t */
  37
  38 #include "lib/global.h"
  39
  40 #include "tty-slang.h"
  41 #include "color.h"              /* variables */
  42 #include "color-internal.h"
  43
  44 /*** global variables ****************************************************************************/
  45
  46 /*** file scope macro definitions ****************************************************************/
  47
  48 /*** file scope type declarations ****************************************************************/
  49
  50 /*** file scope variables ************************************************************************/
  51
  52 /*** file scope functions ************************************************************************/
  53 /* --------------------------------------------------------------------------------------------- */
  54
  55 static int
  56 has_colors (gboolean disable, gboolean force)
  57 {
  58     mc_tty_color_disable = disable;
  59
  60     if (force || (getenv ("COLORTERM") != NULL))
  61         SLtt_Use_Ansi_Colors = 1;
  62
  63     if (!mc_tty_color_disable)
  64     {
  65         const char *terminal = getenv ("TERM");
  66         const size_t len = strlen (terminal);
  67         char *cts = mc_global.tty.color_terminal_string;
  68
  69         /* check mc_global.tty.color_terminal_string */
  70         while (*cts != '\0')
  71         {
  72             char *s;
  73             size_t i = 0;
  74
  75             while (*cts == ' ' || *cts == '\t')
  76                 cts++;
  77             s = cts;
  78
  79             while (*cts != '\0' && *cts != ',')
  80             {
  81                 cts++;
  82                 i++;
  83             }
  84
  85             if ((i != 0) && (i == len) && (strncmp (s, terminal, i) == 0))
  86                 SLtt_Use_Ansi_Colors = 1;
  87
  88             if (*cts == ',')
  89                 cts++;
  90         }
  91     }
  92     return SLtt_Use_Ansi_Colors;
  93 }
  94
  95 /* --------------------------------------------------------------------------------------------- */
  96
  97 static void
  98 mc_tty_color_pair_init_special (tty_color_pair_t * mc_color_pair,
  99                                 const char *fg1, const char *bg1,
 100                                 const char *fg2, const char *bg2, SLtt_Char_Type mask)
 101 {
 102     if (SLtt_Use_Ansi_Colors != 0)
 103     {
 104         if (!mc_tty_color_disable)
 105         {
 106             SLtt_set_color (mc_color_pair->pair_index, (char *) "", (char *) fg1, (char *) bg1);
 107         }
 108         else
 109         {
 110             SLtt_set_color (mc_color_pair->pair_index, (char *) "", (char *) fg2, (char *) bg2);
 111         }
 112     }
 113     else
 114     {
 115         SLtt_set_mono (mc_color_pair->pair_index, NULL, mask);
 116     }
 117 }
 118
 119 /* --------------------------------------------------------------------------------------------- */
 120 /*** public functions ****************************************************************************/
 121 /* --------------------------------------------------------------------------------------------- */
 122
 123 void
 124 tty_color_init_lib (gboolean disable, gboolean force)
 125 {
 126     /* FIXME: if S-Lang is used, has_colors() must be called regardless
 127        of whether we are interested in its result */
 128     if (has_colors (disable, force) && !disable)
 129     {
 130         use_colors = TRUE;
 131     }
 132 }
 133
 134 /* --------------------------------------------------------------------------------------------- */
 135
 136 void
 137 tty_color_deinit_lib (void)
 138 {
 139 }
 140
 141 /* --------------------------------------------------------------------------------------------- */
 142
 143 void
 144 tty_color_try_alloc_pair_lib (tty_color_pair_t * mc_color_pair)
 145 {
 146     if (mc_color_pair->ifg <= (int) SPEC_A_REVERSE)
 147     {
 148         switch (mc_color_pair->ifg)
 149         {
 150         case SPEC_A_REVERSE:
 151             mc_tty_color_pair_init_special (mc_color_pair,
 152                                             "black", "white", "black", "lightgray", SLTT_REV_MASK);
 153             break;
 154         case SPEC_A_BOLD:
 155             mc_tty_color_pair_init_special (mc_color_pair,
 156                                             "white", "black", "white", "black", SLTT_BOLD_MASK);
 157             break;
 158         case SPEC_A_BOLD_REVERSE:
 159             mc_tty_color_pair_init_special (mc_color_pair,
 160                                             "white", "white",
 161                                             "white", "white", SLTT_BOLD_MASK | SLTT_REV_MASK);
 162             break;
 163         case SPEC_A_UNDERLINE:
 164             mc_tty_color_pair_init_special (mc_color_pair,
 165                                             "white", "black", "white", "black", SLTT_ULINE_MASK);
 166             break;
 167         default:
 168             break;
 169         }
 170     }
 171     else
 172     {
 173         const char *fg, *bg;
 174
 175         fg = tty_color_get_name_by_index (mc_color_pair->ifg);
 176         bg = tty_color_get_name_by_index (mc_color_pair->ibg);
 177         SLtt_set_color (mc_color_pair->pair_index, (char *) "", (char *) fg, (char *) bg);
 178         SLtt_add_color_attribute (mc_color_pair->pair_index, mc_color_pair->attr);
 179     }
 180 }
 181
 182 /* --------------------------------------------------------------------------------------------- */
 183
 184 void
 185 tty_setcolor (int color)
 186 {
 187     SLsmg_set_color (color);
 188 }
 189
 190 /* --------------------------------------------------------------------------------------------- */
 191 /**
 192  * Set colorpair by index, don't interpret S-Lang "emulated attributes"
 193  */
 194
 195 void
 196 tty_lowlevel_setcolor (int color)
 197 {
 198     SLsmg_set_color (color & 0x7F);
 199 }
 200
 201 /* --------------------------------------------------------------------------------------------- */
 202
 203 void
 204 tty_set_normal_attrs (void)
 205 {
 206     SLsmg_normal_video ();
 207 }
 208
 209 /* --------------------------------------------------------------------------------------------- */
 210
 211 gboolean
 212 tty_use_256colors (void)
 213 {
 214     return (SLtt_Use_Ansi_Colors && SLtt_tgetnum ((char *) "Co") == 256);
 215 }
 216
 217 /* --------------------------------------------------------------------------------------------- */
 218
 219 gboolean
 220 tty_use_truecolors (GError ** error)
 221 {
 222     char *colorterm;
 223
 224     /* True color is supported since slang-2.3.1 on 64-bit machines,
 225        and expected to be supported from slang-3 on 32-bit machines:
 226        http://lists.jedsoft.org/lists/slang-users/2016/0000014.html.
 227        Check for sizeof (long) being 8, exactly as slang does. */
 228     if (SLang_Version < 20301 || (sizeof (long) != 8 && SLang_Version < 30000))
 229     {
 230         g_set_error (error, MC_ERROR, -1, _("True color not supported in this slang version."));
 231         return FALSE;
 232     }
 233
 234     /* Sanity check that at least 256 colors are supported. */
 235     if (!tty_use_256colors ())
 236     {
 237         g_set_error (error, MC_ERROR, -1,
 238                      _("Your terminal doesn't even seem to support 256 colors."));
 239         return FALSE;
 240     }
 241
 242     /* Duplicate slang's check so that we can pop up an error message
 243        rather than silently use wrong colors. */
 244     colorterm = getenv ("COLORTERM");
 245     if (colorterm == NULL
 246         || (strcmp (colorterm, "truecolor") != 0 && strcmp (colorterm, "24bit") != 0))
 247     {
 248         g_set_error (error, MC_ERROR, -1,
 249                      _("Set COLORTERM=truecolor if your terminal really supports true colors."));
 250         return FALSE;
 251     }
 252
 253     return TRUE;
 254 }
 255
 256 /* --------------------------------------------------------------------------------------------- */