1 /**************************************************************************** 2 * Copyright (c) 1998-2014,2015 Free Software Foundation, Inc. * 3 * * 4 * Permission is hereby granted, free of charge, to any person obtaining a * 5 * copy of this software and associated documentation files (the * 6 * "Software"), to deal in the Software without restriction, including * 7 * without limitation the rights to use, copy, modify, merge, publish, * 8 * distribute, distribute with modifications, sublicense, and/or sell * 9 * copies of the Software, and to permit persons to whom the Software is * 10 * furnished to do so, subject to the following conditions: * 11 * * 12 * The above copyright notice and this permission notice shall be included * 13 * in all copies or substantial portions of the Software. * 14 * * 15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS * 16 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * 17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. * 18 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, * 19 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR * 20 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR * 21 * THE USE OR OTHER DEALINGS IN THE SOFTWARE. * 22 * * 23 * Except as contained in this notice, the name(s) of the above copyright * 24 * holders shall not be used in advertising or otherwise to promote the * 25 * sale, use or other dealings in this Software without prior written * 26 * authorization. * 27 ****************************************************************************/ 28 29 /**************************************************************************** 30 * Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995 * 31 * and: Eric S. Raymond <esr@snark.thyrsus.com> * 32 * and: Thomas E. Dickey 1996-on * 33 * and: Juergen Pfeifer 2009 * 34 ****************************************************************************/ 35 36 /* lib_color.c 37 * 38 * Handles color emulation of SYS V curses 39 */ 40 41 #include <curses.priv.h> 42 #include <tic.h> 43 44 #ifndef CUR 45 #define CUR SP_TERMTYPE 46 #endif 47 48 MODULE_ID("$Id: lib_color.c,v 1.112 2015/10/17 20:39:18 Denis.Tikhomirov Exp $") 49 50 #ifdef USE_TERM_DRIVER 51 #define CanChange InfoOf(SP_PARM).canchange 52 #define DefaultPalette InfoOf(SP_PARM).defaultPalette 53 #define HasColor InfoOf(SP_PARM).hascolor 54 #define InitColor InfoOf(SP_PARM).initcolor 55 #define MaxColors InfoOf(SP_PARM).maxcolors 56 #define MaxPairs InfoOf(SP_PARM).maxpairs 57 #define UseHlsPalette (DefaultPalette == _nc_hls_palette) 58 #else 59 #define CanChange can_change 60 #define DefaultPalette (hue_lightness_saturation ? hls_palette : cga_palette) 61 #define HasColor has_color 62 #define InitColor initialize_color 63 #define MaxColors max_colors 64 #define MaxPairs max_pairs 65 #define UseHlsPalette (hue_lightness_saturation) 66 #endif 67 68 #ifndef USE_TERM_DRIVER 69 /* 70 * These should be screen structure members. They need to be globals for 71 * historical reasons. So we assign them in start_color() and also in 72 * set_term()'s screen-switching logic. 73 */ 74 #if USE_REENTRANT 75 NCURSES_EXPORT(int) 76 NCURSES_PUBLIC_VAR(COLOR_PAIRS) (void) 77 { 78 return SP ? SP->_pair_count : -1; 79 } 80 NCURSES_EXPORT(int) 81 NCURSES_PUBLIC_VAR(COLORS) (void) 82 { 83 return SP ? SP->_color_count : -1; 84 } 85 #else 86 NCURSES_EXPORT_VAR(int) COLOR_PAIRS = 0; 87 NCURSES_EXPORT_VAR(int) COLORS = 0; 88 #endif 89 #endif /* !USE_TERM_DRIVER */ 90 91 #define DATA(r,g,b) {r,g,b, 0,0,0, 0} 92 93 #define TYPE_CALLOC(type,elts) typeCalloc(type, (unsigned)(elts)) 94 95 #define MAX_PALETTE 8 96 97 #define OkColorHi(n) (((n) < COLORS) && ((n) < maxcolors)) 98 #define InPalette(n) ((n) >= 0 && (n) < MAX_PALETTE) 99 100 /* 101 * Given a RGB range of 0..1000, we'll normally set the individual values 102 * to about 2/3 of the maximum, leaving full-range for bold/bright colors. 103 */ 104 #define RGB_ON 680 105 #define RGB_OFF 0 106 /* *INDENT-OFF* */ 107 static const color_t cga_palette[] = 108 { 109 /* R G B */ 110 DATA(RGB_OFF, RGB_OFF, RGB_OFF), /* COLOR_BLACK */ 111 DATA(RGB_ON, RGB_OFF, RGB_OFF), /* COLOR_RED */ 112 DATA(RGB_OFF, RGB_ON, RGB_OFF), /* COLOR_GREEN */ 113 DATA(RGB_ON, RGB_ON, RGB_OFF), /* COLOR_YELLOW */ 114 DATA(RGB_OFF, RGB_OFF, RGB_ON), /* COLOR_BLUE */ 115 DATA(RGB_ON, RGB_OFF, RGB_ON), /* COLOR_MAGENTA */ 116 DATA(RGB_OFF, RGB_ON, RGB_ON), /* COLOR_CYAN */ 117 DATA(RGB_ON, RGB_ON, RGB_ON), /* COLOR_WHITE */ 118 }; 119 120 static const color_t hls_palette[] = 121 { 122 /* H L S */ 123 DATA( 0, 0, 0), /* COLOR_BLACK */ 124 DATA( 120, 50, 100), /* COLOR_RED */ 125 DATA( 240, 50, 100), /* COLOR_GREEN */ 126 DATA( 180, 50, 100), /* COLOR_YELLOW */ 127 DATA( 330, 50, 100), /* COLOR_BLUE */ 128 DATA( 60, 50, 100), /* COLOR_MAGENTA */ 129 DATA( 300, 50, 100), /* COLOR_CYAN */ 130 DATA( 0, 50, 100), /* COLOR_WHITE */ 131 }; 132 133 #ifdef USE_TERM_DRIVER 134 NCURSES_EXPORT_VAR(const color_t*) _nc_cga_palette = cga_palette; 135 NCURSES_EXPORT_VAR(const color_t*) _nc_hls_palette = hls_palette; 136 #endif 137 138 /* *INDENT-ON* */ 139 140 /* 141 * Ensure that we use color pairs only when colors have been started, and also 142 * that the index is within the limits of the table which we allocated. 143 */ 144 #define ValidPair(pair) \ 145 ((SP_PARM != 0) && (pair >= 0) && (pair < SP_PARM->_pair_limit) && SP_PARM->_coloron) 146 147 #if NCURSES_EXT_FUNCS 148 /* 149 * These are called from _nc_do_color(), which in turn is called from 150 * vidattr - so we have to assume that sp may be null. 151 */ 152 static int 153 default_fg(NCURSES_SP_DCL0) 154 { 155 return (SP_PARM != 0) ? SP_PARM->_default_fg : COLOR_WHITE; 156 } 157 158 static int 159 default_bg(NCURSES_SP_DCL0) 160 { 161 return SP_PARM != 0 ? SP_PARM->_default_bg : COLOR_BLACK; 162 } 163 #else 164 #define default_fg(sp) COLOR_WHITE 165 #define default_bg(sp) COLOR_BLACK 166 #endif 167 168 #ifndef USE_TERM_DRIVER 169 /* 170 * SVr4 curses is known to interchange color codes (1,4) and (3,6), possibly 171 * to maintain compatibility with a pre-ANSI scheme. The same scheme is 172 * also used in the FreeBSD syscons. 173 */ 174 static int 175 toggled_colors(int c) 176 { 177 if (c < 16) { 178 static const int table[] = 179 {0, 4, 2, 6, 1, 5, 3, 7, 180 8, 12, 10, 14, 9, 13, 11, 15}; 181 c = table[c]; 182 } 183 return c; 184 } 185 #endif 186 187 static void 188 set_background_color(NCURSES_SP_DCLx int bg, NCURSES_SP_OUTC outc) 189 { 190 #ifdef USE_TERM_DRIVER 191 CallDriver_3(SP_PARM, td_color, FALSE, bg, outc); 192 #else 193 if (set_a_background) { 194 TPUTS_TRACE("set_a_background"); 195 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx 196 TPARM_1(set_a_background, bg), 197 1, outc); 198 } else { 199 TPUTS_TRACE("set_background"); 200 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx 201 TPARM_1(set_background, toggled_colors(bg)), 202 1, outc); 203 } 204 #endif 205 } 206 207 static void 208 set_foreground_color(NCURSES_SP_DCLx int fg, NCURSES_SP_OUTC outc) 209 { 210 #ifdef USE_TERM_DRIVER 211 CallDriver_3(SP_PARM, td_color, TRUE, fg, outc); 212 #else 213 if (set_a_foreground) { 214 TPUTS_TRACE("set_a_foreground"); 215 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx 216 TPARM_1(set_a_foreground, fg), 217 1, outc); 218 } else { 219 TPUTS_TRACE("set_foreground"); 220 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx 221 TPARM_1(set_foreground, toggled_colors(fg)), 222 1, outc); 223 } 224 #endif 225 } 226 227 static void 228 init_color_table(NCURSES_SP_DCL0) 229 { 230 const color_t *tp = DefaultPalette; 231 int n; 232 233 assert(tp != 0); 234 235 for (n = 0; n < COLORS; n++) { 236 if (InPalette(n)) { 237 SP_PARM->_color_table[n] = tp[n]; 238 } else { 239 SP_PARM->_color_table[n] = tp[n % MAX_PALETTE]; 240 if (UseHlsPalette) { 241 SP_PARM->_color_table[n].green = 100; 242 } else { 243 if (SP_PARM->_color_table[n].red) 244 SP_PARM->_color_table[n].red = 1000; 245 if (SP_PARM->_color_table[n].green) 246 SP_PARM->_color_table[n].green = 1000; 247 if (SP_PARM->_color_table[n].blue) 248 SP_PARM->_color_table[n].blue = 1000; 249 } 250 } 251 } 252 } 253 254 /* 255 * Reset the color pair, e.g., to whatever color pair 0 is. 256 */ 257 static bool 258 reset_color_pair(NCURSES_SP_DCL0) 259 { 260 #ifdef USE_TERM_DRIVER 261 return CallDriver(SP_PARM, td_rescol); 262 #else 263 bool result = FALSE; 264 265 (void) SP_PARM; 266 if (orig_pair != 0) { 267 (void) NCURSES_PUTP2("orig_pair", orig_pair); 268 result = TRUE; 269 } 270 return result; 271 #endif 272 } 273 274 /* 275 * Reset color pairs and definitions. Actually we do both more to accommodate 276 * badly-written terminal descriptions than for the relatively rare case where 277 * someone has changed the color definitions. 278 */ 279 NCURSES_EXPORT(bool) 280 NCURSES_SP_NAME(_nc_reset_colors) (NCURSES_SP_DCL0) 281 { 282 int result = FALSE; 283 284 T((T_CALLED("_nc_reset_colors(%p)"), (void *) SP_PARM)); 285 if (SP_PARM->_color_defs > 0) 286 SP_PARM->_color_defs = -(SP_PARM->_color_defs); 287 if (reset_color_pair(NCURSES_SP_ARG)) 288 result = TRUE; 289 290 #ifdef USE_TERM_DRIVER 291 result = CallDriver(SP_PARM, td_rescolors); 292 #else 293 if (orig_colors != 0) { 294 NCURSES_PUTP2("orig_colors", orig_colors); 295 result = TRUE; 296 } 297 #endif 298 returnBool(result); 299 } 300 301 #if NCURSES_SP_FUNCS 302 NCURSES_EXPORT(bool) 303 _nc_reset_colors(void) 304 { 305 return NCURSES_SP_NAME(_nc_reset_colors) (CURRENT_SCREEN); 306 } 307 #endif 308 309 NCURSES_EXPORT(int) 310 NCURSES_SP_NAME(start_color) (NCURSES_SP_DCL0) 311 { 312 int result = ERR; 313 int maxpairs = 0, maxcolors = 0; 314 315 T((T_CALLED("start_color(%p)"), (void *) SP_PARM)); 316 317 if (SP_PARM == 0) { 318 result = ERR; 319 } else if (SP_PARM->_coloron) { 320 result = OK; 321 } else { 322 maxpairs = MaxPairs; 323 maxcolors = MaxColors; 324 if (reset_color_pair(NCURSES_SP_ARG) != TRUE) { 325 set_foreground_color(NCURSES_SP_ARGx 326 default_fg(NCURSES_SP_ARG), 327 NCURSES_SP_NAME(_nc_outch)); 328 set_background_color(NCURSES_SP_ARGx 329 default_bg(NCURSES_SP_ARG), 330 NCURSES_SP_NAME(_nc_outch)); 331 } 332 #if !NCURSES_EXT_COLORS 333 /* 334 * Without ext-colors, we cannot represent more than 256 color pairs. 335 */ 336 if (maxpairs > 256) 337 maxpairs = 256; 338 #endif 339 340 if (maxpairs > 0 && maxcolors > 0) { 341 SP_PARM->_pair_limit = maxpairs; 342 343 #if NCURSES_EXT_FUNCS 344 /* 345 * If using default colors, allocate extra space in table to 346 * allow for default-color as a component of a color-pair. 347 */ 348 SP_PARM->_pair_limit += (1 + (2 * maxcolors)); 349 #endif 350 SP_PARM->_pair_count = maxpairs; 351 SP_PARM->_color_count = maxcolors; 352 #if !USE_REENTRANT 353 COLOR_PAIRS = maxpairs; 354 COLORS = maxcolors; 355 #endif 356 357 SP_PARM->_color_pairs = TYPE_CALLOC(colorpair_t, SP_PARM->_pair_limit); 358 if (SP_PARM->_color_pairs != 0) { 359 SP_PARM->_color_table = TYPE_CALLOC(color_t, maxcolors); 360 if (SP_PARM->_color_table != 0) { 361 SP_PARM->_color_pairs[0] = PAIR_OF(default_fg(NCURSES_SP_ARG), 362 default_bg(NCURSES_SP_ARG)); 363 init_color_table(NCURSES_SP_ARG); 364 365 T(("started color: COLORS = %d, COLOR_PAIRS = %d", 366 COLORS, COLOR_PAIRS)); 367 368 SP_PARM->_coloron = 1; 369 result = OK; 370 } else if (SP_PARM->_color_pairs != 0) { 371 FreeAndNull(SP_PARM->_color_pairs); 372 } 373 } 374 } else { 375 result = OK; 376 } 377 } 378 returnCode(result); 379 } 380 381 #if NCURSES_SP_FUNCS 382 NCURSES_EXPORT(int) 383 start_color(void) 384 { 385 return NCURSES_SP_NAME(start_color) (CURRENT_SCREEN); 386 } 387 #endif 388 389 /* This function was originally written by Daniel Weaver <danw@znyx.com> */ 390 static void 391 rgb2hls(int r, int g, int b, NCURSES_COLOR_T *h, NCURSES_COLOR_T *l, NCURSES_COLOR_T *s) 392 /* convert RGB to HLS system */ 393 { 394 int min, max, t; 395 396 if ((min = g < r ? g : r) > b) 397 min = b; 398 if ((max = g > r ? g : r) < b) 399 max = b; 400 401 /* calculate lightness */ 402 *l = (NCURSES_COLOR_T) ((min + max) / 20); 403 404 if (min == max) { /* black, white and all shades of gray */ 405 *h = 0; 406 *s = 0; 407 return; 408 } 409 410 /* calculate saturation */ 411 if (*l < 50) 412 *s = (NCURSES_COLOR_T) (((max - min) * 100) / (max + min)); 413 else 414 *s = (NCURSES_COLOR_T) (((max - min) * 100) / (2000 - max - min)); 415 416 /* calculate hue */ 417 if (r == max) 418 t = (NCURSES_COLOR_T) (120 + ((g - b) * 60) / (max - min)); 419 else if (g == max) 420 t = (NCURSES_COLOR_T) (240 + ((b - r) * 60) / (max - min)); 421 else 422 t = (NCURSES_COLOR_T) (360 + ((r - g) * 60) / (max - min)); 423 424 *h = (NCURSES_COLOR_T) (t % 360); 425 } 426 427 /* 428 * Extension (1997/1/18) - Allow negative f/b values to set default color 429 * values. 430 */ 431 NCURSES_EXPORT(int) 432 NCURSES_SP_NAME(init_pair) (NCURSES_SP_DCLx 433 NCURSES_PAIRS_T pair, 434 NCURSES_COLOR_T f, 435 NCURSES_COLOR_T b) 436 { 437 colorpair_t result; 438 colorpair_t previous; 439 int maxcolors; 440 441 T((T_CALLED("init_pair(%p,%d,%d,%d)"), 442 (void *) SP_PARM, 443 (int) pair, 444 (int) f, 445 (int) b)); 446 447 if (!ValidPair(pair)) 448 returnCode(ERR); 449 450 maxcolors = MaxColors; 451 452 previous = SP_PARM->_color_pairs[pair]; 453 #if NCURSES_EXT_FUNCS 454 if (SP_PARM->_default_color || SP_PARM->_assumed_color) { 455 bool isDefault = FALSE; 456 bool wasDefault = FALSE; 457 int default_pairs = SP_PARM->_default_pairs; 458 459 /* 460 * Map caller's color number, e.g., -1, 0, 1, .., 7, etc., into 461 * internal unsigned values which we will store in the _color_pairs[] 462 * table. 463 */ 464 if (isDefaultColor(f)) { 465 f = COLOR_DEFAULT; 466 isDefault = TRUE; 467 } else if (!OkColorHi(f)) { 468 returnCode(ERR); 469 } 470 471 if (isDefaultColor(b)) { 472 b = COLOR_DEFAULT; 473 isDefault = TRUE; 474 } else if (!OkColorHi(b)) { 475 returnCode(ERR); 476 } 477 478 /* 479 * Check if the table entry that we are going to init/update used 480 * default colors. 481 */ 482 if ((FORE_OF(previous) == COLOR_DEFAULT) 483 || (BACK_OF(previous) == COLOR_DEFAULT)) 484 wasDefault = TRUE; 485 486 /* 487 * Keep track of the number of entries in the color pair table which 488 * used a default color. 489 */ 490 if (isDefault && !wasDefault) { 491 ++default_pairs; 492 } else if (wasDefault && !isDefault) { 493 --default_pairs; 494 } 495 496 /* 497 * As an extension, ncurses allows the pair number to exceed the 498 * terminal's color_pairs value for pairs using a default color. 499 * 500 * Note that updating a pair which used a default color with one 501 * that does not will decrement the count - and possibly interfere 502 * with sequentially adding new pairs. 503 */ 504 if (pair > (SP_PARM->_pair_count + default_pairs)) { 505 returnCode(ERR); 506 } 507 SP_PARM->_default_pairs = default_pairs; 508 } else 509 #endif 510 { 511 if ((f < 0) || !OkColorHi(f) 512 || (b < 0) || !OkColorHi(b) 513 || (pair < 1)) { 514 returnCode(ERR); 515 } 516 } 517 518 /* 519 * When a pair's content is changed, replace its colors (if pair was 520 * initialized before a screen update is performed replacing original 521 * pair colors with the new ones). 522 */ 523 result = PAIR_OF(f, b); 524 if (previous != 0 525 && previous != result) { 526 int y, x; 527 528 for (y = 0; y <= CurScreen(SP_PARM)->_maxy; y++) { 529 struct ldat *ptr = &(CurScreen(SP_PARM)->_line[y]); 530 bool changed = FALSE; 531 for (x = 0; x <= CurScreen(SP_PARM)->_maxx; x++) { 532 if (GetPair(ptr->text[x]) == pair) { 533 /* Set the old cell to zero to ensure it will be 534 updated on the next doupdate() */ 535 SetChar(ptr->text[x], 0, 0); 536 CHANGED_CELL(ptr, x); 537 changed = TRUE; 538 } 539 } 540 if (changed) 541 NCURSES_SP_NAME(_nc_make_oldhash) (NCURSES_SP_ARGx y); 542 } 543 } 544 545 SP_PARM->_color_pairs[pair] = result; 546 if (GET_SCREEN_PAIR(SP_PARM) == pair) 547 SET_SCREEN_PAIR(SP_PARM, (int) (~0)); /* force attribute update */ 548 549 #ifdef USE_TERM_DRIVER 550 CallDriver_3(SP_PARM, td_initpair, pair, f, b); 551 #else 552 if (initialize_pair && InPalette(f) && InPalette(b)) { 553 const color_t *tp = DefaultPalette; 554 555 TR(TRACE_ATTRS, 556 ("initializing pair: pair = %d, fg=(%d,%d,%d), bg=(%d,%d,%d)", 557 (int) pair, 558 (int) tp[f].red, (int) tp[f].green, (int) tp[f].blue, 559 (int) tp[b].red, (int) tp[b].green, (int) tp[b].blue)); 560 561 NCURSES_PUTP2("initialize_pair", 562 TPARM_7(initialize_pair, 563 pair, 564 (int) tp[f].red, 565 (int) tp[f].green, 566 (int) tp[f].blue, 567 (int) tp[b].red, 568 (int) tp[b].green, 569 (int) tp[b].blue)); 570 } 571 #endif 572 573 returnCode(OK); 574 } 575 576 #if NCURSES_SP_FUNCS 577 NCURSES_EXPORT(int) 578 init_pair(NCURSES_COLOR_T pair, NCURSES_COLOR_T f, NCURSES_COLOR_T b) 579 { 580 return NCURSES_SP_NAME(init_pair) (CURRENT_SCREEN, pair, f, b); 581 } 582 #endif 583 584 #define okRGB(n) ((n) >= 0 && (n) <= 1000) 585 586 NCURSES_EXPORT(int) 587 NCURSES_SP_NAME(init_color) (NCURSES_SP_DCLx 588 NCURSES_COLOR_T color, 589 NCURSES_COLOR_T r, 590 NCURSES_COLOR_T g, 591 NCURSES_COLOR_T b) 592 { 593 int result = ERR; 594 int maxcolors; 595 596 T((T_CALLED("init_color(%p,%d,%d,%d,%d)"), 597 (void *) SP_PARM, 598 color, 599 r, g, b)); 600 601 if (SP_PARM == 0) 602 returnCode(result); 603 604 maxcolors = MaxColors; 605 606 if (InitColor 607 && SP_PARM->_coloron 608 && (color >= 0 && OkColorHi(color)) 609 && (okRGB(r) && okRGB(g) && okRGB(b))) { 610 611 SP_PARM->_color_table[color].init = 1; 612 SP_PARM->_color_table[color].r = r; 613 SP_PARM->_color_table[color].g = g; 614 SP_PARM->_color_table[color].b = b; 615 616 if (UseHlsPalette) { 617 rgb2hls(r, g, b, 618 &SP_PARM->_color_table[color].red, 619 &SP_PARM->_color_table[color].green, 620 &SP_PARM->_color_table[color].blue); 621 } else { 622 SP_PARM->_color_table[color].red = r; 623 SP_PARM->_color_table[color].green = g; 624 SP_PARM->_color_table[color].blue = b; 625 } 626 627 #ifdef USE_TERM_DRIVER 628 CallDriver_4(SP_PARM, td_initcolor, color, r, g, b); 629 #else 630 NCURSES_PUTP2("initialize_color", 631 TPARM_4(initialize_color, color, r, g, b)); 632 #endif 633 SP_PARM->_color_defs = max(color + 1, SP_PARM->_color_defs); 634 635 result = OK; 636 } 637 returnCode(result); 638 } 639 640 #if NCURSES_SP_FUNCS 641 NCURSES_EXPORT(int) 642 init_color(NCURSES_COLOR_T color, 643 NCURSES_COLOR_T r, 644 NCURSES_COLOR_T g, 645 NCURSES_COLOR_T b) 646 { 647 return NCURSES_SP_NAME(init_color) (CURRENT_SCREEN, color, r, g, b); 648 } 649 #endif 650 651 NCURSES_EXPORT(bool) 652 NCURSES_SP_NAME(can_change_color) (NCURSES_SP_DCL) 653 { 654 int result = FALSE; 655 656 T((T_CALLED("can_change_color(%p)"), (void *) SP_PARM)); 657 658 if (HasTerminal(SP_PARM) && (CanChange != 0)) { 659 result = TRUE; 660 } 661 662 returnCode(result); 663 } 664 665 #if NCURSES_SP_FUNCS 666 NCURSES_EXPORT(bool) 667 can_change_color(void) 668 { 669 return NCURSES_SP_NAME(can_change_color) (CURRENT_SCREEN); 670 } 671 #endif 672 673 NCURSES_EXPORT(bool) 674 NCURSES_SP_NAME(has_colors) (NCURSES_SP_DCL0) 675 { 676 int code = FALSE; 677 678 (void) SP_PARM; 679 T((T_CALLED("has_colors()"))); 680 if (HasTerminal(SP_PARM)) { 681 #ifdef USE_TERM_DRIVER 682 code = HasColor; 683 #else 684 code = ((VALID_NUMERIC(max_colors) && VALID_NUMERIC(max_pairs) 685 && (((set_foreground != NULL) 686 && (set_background != NULL)) 687 || ((set_a_foreground != NULL) 688 && (set_a_background != NULL)) 689 || set_color_pair)) ? TRUE : FALSE); 690 #endif 691 } 692 returnCode(code); 693 } 694 695 #if NCURSES_SP_FUNCS 696 NCURSES_EXPORT(bool) 697 has_colors(void) 698 { 699 return NCURSES_SP_NAME(has_colors) (CURRENT_SCREEN); 700 } 701 #endif 702 703 NCURSES_EXPORT(int) 704 NCURSES_SP_NAME(color_content) (NCURSES_SP_DCLx 705 NCURSES_COLOR_T color, 706 NCURSES_COLOR_T *r, 707 NCURSES_COLOR_T *g, 708 NCURSES_COLOR_T *b) 709 { 710 int result = ERR; 711 int maxcolors; 712 713 T((T_CALLED("color_content(%p,%d,%p,%p,%p)"), 714 (void *) SP_PARM, 715 color, 716 (void *) r, 717 (void *) g, 718 (void *) b)); 719 720 if (SP_PARM == 0) 721 returnCode(result); 722 723 maxcolors = MaxColors; 724 725 if (color < 0 || !OkColorHi(color) || !SP_PARM->_coloron) { 726 result = ERR; 727 } else { 728 NCURSES_COLOR_T c_r = SP_PARM->_color_table[color].red; 729 NCURSES_COLOR_T c_g = SP_PARM->_color_table[color].green; 730 NCURSES_COLOR_T c_b = SP_PARM->_color_table[color].blue; 731 732 if (r) 733 *r = c_r; 734 if (g) 735 *g = c_g; 736 if (b) 737 *b = c_b; 738 739 TR(TRACE_ATTRS, ("...color_content(%d,%d,%d,%d)", 740 color, c_r, c_g, c_b)); 741 result = OK; 742 } 743 returnCode(result); 744 } 745 746 #if NCURSES_SP_FUNCS 747 NCURSES_EXPORT(int) 748 color_content(NCURSES_COLOR_T color, 749 NCURSES_COLOR_T *r, 750 NCURSES_COLOR_T *g, 751 NCURSES_COLOR_T *b) 752 { 753 return NCURSES_SP_NAME(color_content) (CURRENT_SCREEN, color, r, g, b); 754 } 755 #endif 756 757 NCURSES_EXPORT(int) 758 NCURSES_SP_NAME(pair_content) (NCURSES_SP_DCLx 759 NCURSES_PAIRS_T pair, 760 NCURSES_COLOR_T *f, 761 NCURSES_COLOR_T *b) 762 { 763 int result; 764 765 T((T_CALLED("pair_content(%p,%d,%p,%p)"), 766 (void *) SP_PARM, 767 (int) pair, 768 (void *) f, 769 (void *) b)); 770 771 if (!ValidPair(pair)) { 772 result = ERR; 773 } else { 774 NCURSES_COLOR_T fg = (NCURSES_COLOR_T) FORE_OF(SP_PARM->_color_pairs[pair]); 775 NCURSES_COLOR_T bg = (NCURSES_COLOR_T) BACK_OF(SP_PARM->_color_pairs[pair]); 776 777 #if NCURSES_EXT_FUNCS 778 if (fg == COLOR_DEFAULT) 779 fg = -1; 780 if (bg == COLOR_DEFAULT) 781 bg = -1; 782 #endif 783 784 if (f) 785 *f = fg; 786 if (b) 787 *b = bg; 788 789 TR(TRACE_ATTRS, ("...pair_content(%p,%d,%d,%d)", 790 (void *) SP_PARM, 791 (int) pair, 792 (int) fg, (int) bg)); 793 result = OK; 794 } 795 returnCode(result); 796 } 797 798 #if NCURSES_SP_FUNCS 799 NCURSES_EXPORT(int) 800 pair_content(NCURSES_COLOR_T pair, NCURSES_COLOR_T *f, NCURSES_COLOR_T *b) 801 { 802 return NCURSES_SP_NAME(pair_content) (CURRENT_SCREEN, pair, f, b); 803 } 804 #endif 805 806 NCURSES_EXPORT(void) 807 NCURSES_SP_NAME(_nc_do_color) (NCURSES_SP_DCLx 808 int old_pair, 809 int pair, 810 int reverse, 811 NCURSES_SP_OUTC outc) 812 { 813 #ifdef USE_TERM_DRIVER 814 CallDriver_4(SP_PARM, td_docolor, old_pair, pair, reverse, outc); 815 #else 816 NCURSES_COLOR_T fg = COLOR_DEFAULT; 817 NCURSES_COLOR_T bg = COLOR_DEFAULT; 818 NCURSES_COLOR_T old_fg = -1; 819 NCURSES_COLOR_T old_bg = -1; 820 821 if (!ValidPair(pair)) { 822 return; 823 } else if (pair != 0) { 824 if (set_color_pair) { 825 TPUTS_TRACE("set_color_pair"); 826 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx 827 TPARM_1(set_color_pair, pair), 828 1, outc); 829 return; 830 } else if (SP_PARM != 0) { 831 if (pair_content((NCURSES_COLOR_T) pair, &fg, &bg) == ERR) 832 return; 833 } 834 } 835 836 if (old_pair >= 0 837 && SP_PARM != 0 838 && pair_content((NCURSES_COLOR_T) old_pair, &old_fg, &old_bg) != ERR) { 839 if ((isDefaultColor(fg) && !isDefaultColor(old_fg)) 840 || (isDefaultColor(bg) && !isDefaultColor(old_bg))) { 841 #if NCURSES_EXT_FUNCS 842 /* 843 * A minor optimization - but extension. If "AX" is specified in 844 * the terminal description, treat it as screen's indicator of ECMA 845 * SGR 39 and SGR 49, and assume the two sequences are independent. 846 */ 847 if (SP_PARM->_has_sgr_39_49 848 && isDefaultColor(old_bg) 849 && !isDefaultColor(old_fg)) { 850 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx "\033[39m", 1, outc); 851 } else if (SP_PARM->_has_sgr_39_49 852 && isDefaultColor(old_fg) 853 && !isDefaultColor(old_bg)) { 854 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx "\033[49m", 1, outc); 855 } else 856 #endif 857 reset_color_pair(NCURSES_SP_ARG); 858 } 859 } else { 860 reset_color_pair(NCURSES_SP_ARG); 861 } 862 863 #if NCURSES_EXT_FUNCS 864 if (isDefaultColor(fg)) 865 fg = (NCURSES_COLOR_T) default_fg(NCURSES_SP_ARG); 866 if (isDefaultColor(bg)) 867 bg = (NCURSES_COLOR_T) default_bg(NCURSES_SP_ARG); 868 #endif 869 870 if (reverse) { 871 NCURSES_COLOR_T xx = fg; 872 fg = bg; 873 bg = xx; 874 } 875 876 TR(TRACE_ATTRS, ("setting colors: pair = %d, fg = %d, bg = %d", pair, 877 fg, bg)); 878 879 if (!isDefaultColor(fg)) { 880 set_foreground_color(NCURSES_SP_ARGx fg, outc); 881 } 882 if (!isDefaultColor(bg)) { 883 set_background_color(NCURSES_SP_ARGx bg, outc); 884 } 885 #endif 886 } 887 888 #if NCURSES_SP_FUNCS 889 NCURSES_EXPORT(void) 890 _nc_do_color(int old_pair, int pair, int reverse, NCURSES_OUTC outc) 891 { 892 SetSafeOutcWrapper(outc); 893 NCURSES_SP_NAME(_nc_do_color) (CURRENT_SCREEN, 894 old_pair, 895 pair, 896 reverse, 897 _nc_outc_wrapper); 898 } 899 #endif 900