1166124Srafan/**************************************************************************** 2174993Srafan * Copyright (c) 2005-2006,2007 Free Software Foundation, Inc. * 3166124Srafan * * 4166124Srafan * Permission is hereby granted, free of charge, to any person obtaining a * 5166124Srafan * copy of this software and associated documentation files (the * 6166124Srafan * "Software"), to deal in the Software without restriction, including * 7166124Srafan * without limitation the rights to use, copy, modify, merge, publish, * 8166124Srafan * distribute, distribute with modifications, sublicense, and/or sell * 9166124Srafan * copies of the Software, and to permit persons to whom the Software is * 10166124Srafan * furnished to do so, subject to the following conditions: * 11166124Srafan * * 12166124Srafan * The above copyright notice and this permission notice shall be included * 13166124Srafan * in all copies or substantial portions of the Software. * 14166124Srafan * * 15166124Srafan * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS * 16166124Srafan * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * 17166124Srafan * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. * 18166124Srafan * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, * 19166124Srafan * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR * 20166124Srafan * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR * 21166124Srafan * THE USE OR OTHER DEALINGS IN THE SOFTWARE. * 22166124Srafan * * 23166124Srafan * Except as contained in this notice, the name(s) of the above copyright * 24166124Srafan * holders shall not be used in advertising or otherwise to promote the * 25166124Srafan * sale, use or other dealings in this Software without prior written * 26166124Srafan * authorization. * 27166124Srafan ****************************************************************************/ 28166124Srafan 29166124Srafan/**************************************************************************** 30166124Srafan * Author: Thomas Dickey * 31166124Srafan ****************************************************************************/ 32166124Srafan 33166124Srafan#include <curses.priv.h> 34166124Srafan 35166124Srafan#include <ctype.h> 36166124Srafan 37166124Srafan#include <tic.h> 38166124Srafan#include <term_entry.h> 39166124Srafan 40174993SrafanMODULE_ID("$Id: trim_sgr0.c,v 1.8 2007/04/07 17:14:11 tom Exp $") 41166124Srafan 42166124Srafan#undef CUR 43166124Srafan#define CUR tp-> 44166124Srafan 45166124Srafan#define CSI 233 46166124Srafan#define ESC 033 /* ^[ */ 47166124Srafan#define L_BRACK '[' 48166124Srafan 49166124Srafanstatic char * 50166124Srafanset_attribute_9(TERMTYPE *tp, int flag) 51166124Srafan{ 52166124Srafan const char *result; 53166124Srafan 54166124Srafan if ((result = tparm(set_attributes, 0, 0, 0, 0, 0, 0, 0, 0, flag)) == 0) 55166124Srafan result = ""; 56166124Srafan return strdup(result); 57166124Srafan} 58166124Srafan 59166124Srafanstatic int 60166124Srafanis_csi(const char *s) 61166124Srafan{ 62166124Srafan if (UChar(s[0]) == CSI) 63166124Srafan return 1; 64166124Srafan else if (s[0] == ESC && s[1] == L_BRACK) 65166124Srafan return 2; 66166124Srafan return 0; 67166124Srafan} 68166124Srafan 69166124Srafanstatic char * 70166124Srafanskip_zero(char *s) 71166124Srafan{ 72166124Srafan if (s[0] == '0') { 73166124Srafan if (s[1] == ';') 74166124Srafan s += 2; 75166124Srafan else if (isalpha(UChar(s[1]))) 76166124Srafan s += 1; 77166124Srafan } 78166124Srafan return s; 79166124Srafan} 80166124Srafan 81166124Srafanstatic const char * 82166124Srafanskip_delay(const char *s) 83166124Srafan{ 84166124Srafan if (s[0] == '$' && s[1] == '<') { 85166124Srafan s += 2; 86166124Srafan while (isdigit(UChar(*s)) || *s == '/') 87166124Srafan ++s; 88166124Srafan if (*s == '>') 89166124Srafan ++s; 90166124Srafan } 91166124Srafan return s; 92166124Srafan} 93166124Srafan 94166124Srafan/* 95166124Srafan * Improve similar_sgr a little by moving the attr-string from the beginning 96166124Srafan * to the end of the s-string. 97166124Srafan */ 98166124Srafanstatic bool 99166124Srafanrewrite_sgr(char *s, char *attr) 100166124Srafan{ 101166124Srafan if (PRESENT(s)) { 102166124Srafan if (PRESENT(attr)) { 103166124Srafan unsigned len_s = strlen(s); 104166124Srafan unsigned len_a = strlen(attr); 105166124Srafan 106166124Srafan if (len_s > len_a && !strncmp(attr, s, len_a)) { 107166124Srafan unsigned n; 108166124Srafan TR(TRACE_DATABASE, ("rewrite:\n\t%s", s)); 109166124Srafan for (n = 0; n < len_s - len_a; ++n) { 110166124Srafan s[n] = s[n + len_a]; 111166124Srafan } 112166124Srafan strcpy(s + n, attr); 113166124Srafan TR(TRACE_DATABASE, ("to:\n\t%s", s)); 114166124Srafan } 115166124Srafan } 116166124Srafan return TRUE; 117166124Srafan } 118166124Srafan return FALSE; /* oops */ 119166124Srafan} 120166124Srafan 121166124Srafanstatic bool 122166124Srafansimilar_sgr(char *a, char *b) 123166124Srafan{ 124166124Srafan bool result = FALSE; 125166124Srafan int csi_a = is_csi(a); 126166124Srafan int csi_b = is_csi(b); 127166124Srafan unsigned len_a; 128166124Srafan unsigned len_b; 129166124Srafan 130166124Srafan TR(TRACE_DATABASE, ("similar_sgr:\n\t%s\n\t%s", 131166124Srafan _nc_visbuf2(1, a), 132166124Srafan _nc_visbuf2(2, b))); 133166124Srafan if (csi_a != 0 && csi_b != 0 && csi_a == csi_b) { 134166124Srafan a += csi_a; 135166124Srafan b += csi_b; 136166124Srafan if (*a != *b) { 137166124Srafan a = skip_zero(a); 138166124Srafan b = skip_zero(b); 139166124Srafan } 140166124Srafan } 141166124Srafan len_a = strlen(a); 142166124Srafan len_b = strlen(b); 143166124Srafan if (len_a && len_b) { 144166124Srafan if (len_a > len_b) 145166124Srafan result = (strncmp(a, b, len_b) == 0); 146166124Srafan else 147166124Srafan result = (strncmp(a, b, len_a) == 0); 148166124Srafan } 149166124Srafan TR(TRACE_DATABASE, ("...similar_sgr: %d\n\t%s\n\t%s", result, 150166124Srafan _nc_visbuf2(1, a), 151166124Srafan _nc_visbuf2(2, b))); 152166124Srafan return result; 153166124Srafan} 154166124Srafan 155166124Srafanstatic unsigned 156166124Srafanchop_out(char *string, unsigned i, unsigned j) 157166124Srafan{ 158166124Srafan TR(TRACE_DATABASE, ("chop_out %d..%d from %s", i, j, _nc_visbuf(string))); 159166124Srafan while (string[j] != '\0') { 160166124Srafan string[i++] = string[j++]; 161166124Srafan } 162166124Srafan string[i] = '\0'; 163166124Srafan return i; 164166124Srafan} 165166124Srafan 166166124Srafan/* 167166124Srafan * Compare, ignoring delays. Some of the delay values are inconsistent, and 168166124Srafan * we do not want to be stopped by that. 169166124Srafan * 170166124Srafan * Returns the number of chars from 'full' that we matched. If any mismatch 171166124Srafan * occurs, return zero. 172166124Srafan */ 173166124Srafanstatic int 174166124Srafancompare_part(const char *part, const char *full) 175166124Srafan{ 176166124Srafan const char *next_part; 177166124Srafan const char *next_full; 178166124Srafan int used_full = 0; 179166124Srafan int used_delay = 0; 180166124Srafan 181166124Srafan while (*part != 0) { 182166124Srafan if (*part != *full) { 183166124Srafan used_full = 0; 184166124Srafan break; 185166124Srafan } 186166124Srafan 187166124Srafan /* 188166124Srafan * Adjust the return-value to allow the rare case of 189166124Srafan * string<delay>string 190166124Srafan * to remove the whole piece. The most common case is a delay at the 191166124Srafan * end of the string. The adjusted string will retain the delay, which 192166124Srafan * is conservative. 193166124Srafan */ 194166124Srafan if (used_delay != 0) { 195166124Srafan used_full += used_delay; 196166124Srafan used_delay = 0; 197166124Srafan } 198166124Srafan if (*part == '$' && *full == '$') { 199166124Srafan next_part = skip_delay(part); 200166124Srafan next_full = skip_delay(full); 201166124Srafan if (next_part != part && next_full != full) { 202166124Srafan used_delay += (next_full - full); 203166124Srafan full = next_full; 204166124Srafan part = next_part; 205166124Srafan continue; 206166124Srafan } 207166124Srafan } 208166124Srafan ++used_full; 209166124Srafan ++part; 210166124Srafan ++full; 211166124Srafan } 212166124Srafan return used_full; 213166124Srafan} 214166124Srafan 215166124Srafan/* 216166124Srafan * While 'sgr0' is the "same" as termcap 'me', there is a compatibility issue. 217166124Srafan * The sgr/sgr0 capabilities include setting/clearing alternate character set 218166124Srafan * mode. A termcap application cannot use sgr, so sgr0 strings that reset 219166124Srafan * alternate character set mode will be misinterpreted. Here, we remove those 220166124Srafan * from the more common ISO/ANSI/VT100 entries, which have sgr0 agreeing with 221166124Srafan * sgr. 222166124Srafan * 223166124Srafan * This function returns the modified sgr0 if it can be modified, a null if 224166124Srafan * an error occurs, or the original sgr0 if no change is needed. 225166124Srafan */ 226166124SrafanNCURSES_EXPORT(char *) 227166124Srafan_nc_trim_sgr0(TERMTYPE *tp) 228166124Srafan{ 229166124Srafan char *result = exit_attribute_mode; 230166124Srafan 231166124Srafan T((T_CALLED("_nc_trim_sgr0()"))); 232166124Srafan 233166124Srafan if (PRESENT(exit_attribute_mode) 234166124Srafan && PRESENT(set_attributes)) { 235166124Srafan bool found = FALSE; 236166124Srafan char *on = set_attribute_9(tp, 1); 237166124Srafan char *off = set_attribute_9(tp, 0); 238166124Srafan char *end = strdup(exit_attribute_mode); 239166124Srafan char *tmp; 240166124Srafan size_t i, j, k; 241166124Srafan 242166124Srafan TR(TRACE_DATABASE, ("checking if we can trim sgr0 based on sgr")); 243166124Srafan TR(TRACE_DATABASE, ("sgr0 %s", _nc_visbuf(end))); 244166124Srafan TR(TRACE_DATABASE, ("sgr(9:off) %s", _nc_visbuf(off))); 245166124Srafan TR(TRACE_DATABASE, ("sgr(9:on) %s", _nc_visbuf(on))); 246166124Srafan 247166124Srafan if (!rewrite_sgr(on, enter_alt_charset_mode) 248166124Srafan || !rewrite_sgr(off, exit_alt_charset_mode) 249166124Srafan || !rewrite_sgr(end, exit_alt_charset_mode)) { 250166124Srafan FreeIfNeeded(off); 251166124Srafan } else if (similar_sgr(off, end) 252166124Srafan && !similar_sgr(off, on)) { 253166124Srafan TR(TRACE_DATABASE, ("adjusting sgr(9:off) : %s", _nc_visbuf(off))); 254166124Srafan result = off; 255166124Srafan /* 256166124Srafan * If rmacs is a substring of sgr(0), remove that chunk. 257166124Srafan */ 258166124Srafan if (exit_alt_charset_mode != 0) { 259166124Srafan TR(TRACE_DATABASE, ("scan for rmacs %s", _nc_visbuf(exit_alt_charset_mode))); 260166124Srafan j = strlen(off); 261166124Srafan k = strlen(exit_alt_charset_mode); 262166124Srafan if (j > k) { 263166124Srafan for (i = 0; i <= (j - k); ++i) { 264166124Srafan int k2 = compare_part(exit_alt_charset_mode, off + i); 265166124Srafan if (k2 != 0) { 266166124Srafan found = TRUE; 267166124Srafan chop_out(off, i, i + k2); 268166124Srafan break; 269166124Srafan } 270166124Srafan } 271166124Srafan } 272166124Srafan } 273166124Srafan /* 274166124Srafan * SGR 10 would reset to normal font. 275166124Srafan */ 276166124Srafan if (!found) { 277166124Srafan if ((i = is_csi(off)) != 0 278166124Srafan && off[strlen(off) - 1] == 'm') { 279166124Srafan TR(TRACE_DATABASE, ("looking for SGR 10 in %s", 280166124Srafan _nc_visbuf(off))); 281166124Srafan tmp = skip_zero(off + i); 282166124Srafan if (tmp[0] == '1' 283166124Srafan && skip_zero(tmp + 1) != tmp + 1) { 284166124Srafan i = tmp - off; 285166124Srafan if (off[i - 1] == ';') 286166124Srafan i--; 287166124Srafan j = skip_zero(tmp + 1) - off; 288166124Srafan i = chop_out(off, i, j); 289166124Srafan found = TRUE; 290166124Srafan } 291166124Srafan } 292166124Srafan } 293166124Srafan if (!found 294166124Srafan && (tmp = strstr(end, off)) != 0 295166124Srafan && strcmp(end, off) != 0) { 296166124Srafan i = tmp - end; 297166124Srafan j = strlen(off); 298166124Srafan tmp = strdup(end); 299166124Srafan chop_out(tmp, i, j); 300166124Srafan free(off); 301166124Srafan result = tmp; 302166124Srafan } 303166124Srafan TR(TRACE_DATABASE, ("...adjusted sgr0 : %s", _nc_visbuf(result))); 304166124Srafan if (!strcmp(result, exit_attribute_mode)) { 305166124Srafan TR(TRACE_DATABASE, ("...same result, discard")); 306166124Srafan free(result); 307166124Srafan result = exit_attribute_mode; 308166124Srafan } 309166124Srafan } else { 310166124Srafan /* 311166124Srafan * Either the sgr does not reference alternate character set, 312166124Srafan * or it is incorrect. That's too hard to decide right now. 313166124Srafan */ 314166124Srafan free(off); 315166124Srafan } 316174993Srafan FreeIfNeeded(end); 317174993Srafan FreeIfNeeded(on); 318166124Srafan } else { 319166124Srafan /* 320166124Srafan * Possibly some applications are confused if sgr0 contains rmacs, 321166124Srafan * but that would be a different bug report -TD 322166124Srafan */ 323166124Srafan } 324166124Srafan 325166124Srafan returnPtr(result); 326166124Srafan} 327