lib/tty/color-slang.c

   1 /*
   2    Color setup for S_Lang screen library
   3
   4    Copyright (C) 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
   5    2007, 2008, 2009, 2010, 2011
   6    The Free Software Foundation, Inc.
   7
   8    Written by:
   9    Andrew Borodin <aborodin@vmail.ru>, 2009
  10    Egmont Koblinger <egmont@gmail.com>, 2010
  11
  12    This file is part of the Midnight Commander.
  13
  14    The Midnight Commander is free software: you can redistribute it
  15    and/or modify it under the terms of the GNU General Public License as
  16    published by the Free Software Foundation, either version 3 of the License,
  17    or (at your option) any later version.
  18
  19    The Midnight Commander is distributed in the hope that it will be useful,
  20    but WITHOUT ANY WARRANTY; without even the implied warranty of
  21    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22    GNU General Public License for more details.
  23
  24    You should have received a copy of the GNU General Public License
  25    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  26  */
  27
  28 /** \file color-slang.c
  29  *  \brief Source: S-Lang-specific color setup
  30  */
  31
  32 #include <config.h>
  33
  34 #include <stdio.h>
  35 #include <stdlib.h>
  36 #include <string.h>
  37 #include <sys/types.h>          /* size_t */
  38
  39 #include "lib/global.h"
  40
  41 #include "tty-slang.h"
  42 #include "color.h"              /* variables */
  43 #include "color-internal.h"
  44
  45 /*** global variables ****************************************************************************/
  46
  47 /*** file scope macro definitions ****************************************************************/
  48
  49 /*** file scope type declarations ****************************************************************/
  50
  51 /*** file scope variables ************************************************************************/
  52
  53 /*** file scope functions ************************************************************************/
  54 /* --------------------------------------------------------------------------------------------- */
  55
  56 static int
  57 has_colors (gboolean disable, gboolean force)
  58 {
  59     mc_tty_color_disable = disable;
  60
  61     if (force || (getenv ("COLORTERM") != NULL))
  62         SLtt_Use_Ansi_Colors = 1;
  63
  64     if (!mc_tty_color_disable)
  65     {
  66         const char *terminal = getenv ("TERM");
  67         const size_t len = strlen (terminal);
  68
  69         char *cts = mc_global.tty.color_terminal_string;
  70         char *s;
  71         size_t i;
  72
  73         /* check mc_global.tty.color_terminal_string */
  74         while (*cts != '\0')
  75         {
  76             while (*cts == ' ' || *cts == '\t')
  77                 cts++;
  78             s = cts;
  79             i = 0;
  80
  81             while (*cts != '\0' && *cts != ',')
  82             {
  83                 cts++;
  84                 i++;
  85             }
  86
  87             if ((i != 0) && (i == len) && (strncmp (s, terminal, i) == 0))
  88                 SLtt_Use_Ansi_Colors = 1;
  89
  90             if (*cts == ',')
  91                 cts++;
  92         }
  93     }
  94     return SLtt_Use_Ansi_Colors;
  95 }
  96
  97 /* --------------------------------------------------------------------------------------------- */
  98
  99 static void
 100 mc_tty_color_pair_init_special (tty_color_pair_t * mc_color_pair,
 101                                 const char *fg1, const char *bg1,
 102                                 const char *fg2, const char *bg2, SLtt_Char_Type mask)
 103 {
 104     if (SLtt_Use_Ansi_Colors != 0)
 105     {
 106         if (!mc_tty_color_disable)
 107         {
 108             SLtt_set_color (mc_color_pair->pair_index, (char *) "", (char *) fg1, (char *) bg1);
 109         }
 110         else
 111         {
 112             SLtt_set_color (mc_color_pair->pair_index, (char *) "", (char *) fg2, (char *) bg2);
 113         }
 114     }
 115     else
 116     {
 117         SLtt_set_mono (mc_color_pair->pair_index, NULL, mask);
 118     }
 119 }
 120
 121 /* --------------------------------------------------------------------------------------------- */
 122 /*** public functions ****************************************************************************/
 123 /* --------------------------------------------------------------------------------------------- */
 124
 125 void
 126 tty_color_init_lib (gboolean disable, gboolean force)
 127 {
 128     /* FIXME: if S-Lang is used, has_colors() must be called regardless
 129        of whether we are interested in its result */
 130     if (has_colors (disable, force) && !disable)
 131     {
 132         use_colors = TRUE;
 133     }
 134 }
 135
 136 /* --------------------------------------------------------------------------------------------- */
 137
 138 void
 139 tty_color_deinit_lib (void)
 140 {
 141 }
 142
 143 /* --------------------------------------------------------------------------------------------- */
 144
 145 void
 146 tty_color_try_alloc_pair_lib (tty_color_pair_t * mc_color_pair)
 147 {
 148     const char *fg, *bg;
 149     if (mc_color_pair->ifg <= (int) SPEC_A_REVERSE)
 150     {
 151         switch (mc_color_pair->ifg)
 152         {
 153         case SPEC_A_REVERSE:
 154             mc_tty_color_pair_init_special (mc_color_pair,
 155                                             "black", "white", "black", "lightgray", SLTT_REV_MASK);
 156             break;
 157         case SPEC_A_BOLD:
 158             mc_tty_color_pair_init_special (mc_color_pair,
 159                                             "white", "black", "white", "black", SLTT_BOLD_MASK);
 160             break;
 161         case SPEC_A_BOLD_REVERSE:
 162
 163             mc_tty_color_pair_init_special (mc_color_pair,
 164                                             "white", "white",
 165                                             "white", "white", SLTT_BOLD_MASK | SLTT_REV_MASK);
 166             break;
 167         case SPEC_A_UNDERLINE:
 168             mc_tty_color_pair_init_special (mc_color_pair,
 169                                             "white", "black", "white", "black", SLTT_ULINE_MASK);
 170             break;
 171         }
 172     }
 173     else
 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 /* --------------------------------------------------------------------------------------------- */