ncurses 5.9 - patch 20111022
[ncurses.git] / progs / dump_entry.c
index 3830742fcbd6c0ca106929e08d49cec8e2d3b74d..12bef2c279f2038b0750ef02091876681e2aaf27 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998-2000 Free Software Foundation, Inc.                   *
+ * Copyright (c) 1998-2010,2011 Free Software Foundation, Inc.              *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
@@ -29,6 +29,7 @@
 /****************************************************************************
  *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
  *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
+ *     and: Thomas E. Dickey                        1996 on                 *
  ****************************************************************************/
 
 #define __INTERNAL_CAPS_VISIBLE
 #include "termsort.c"          /* this C file is generated */
 #include <parametrized.h>      /* so is this */
 
-MODULE_ID("$Id: dump_entry.c,v 1.53 2000/04/15 21:23:30 tom Exp $")
+MODULE_ID("$Id: dump_entry.c,v 1.95 2011/08/07 22:10:17 tom Exp $")
 
 #define INDENT                 8
 #define DISCARD(string) string = ABSENT_STRING
 #define PRINTF (void) printf
 
+#define OkIndex(index,array) ((int)(index) >= 0 && (int)(index) < (int) SIZEOF(array))
+
 typedef struct {
     char *text;
     size_t used;
@@ -54,16 +57,18 @@ static int tversion;                /* terminfo version */
 static int outform;            /* output format to use */
 static int sortmode;           /* sort mode to use */
 static int width = 60;         /* max line width for listings */
+static int height = 65535;     /* max number of lines for listings */
 static int column;             /* current column, limited by 'width' */
 static int oldcol;             /* last value of column before wrap */
-static int tracelevel;         /* level of debug output */
 static bool pretty;            /* true if we format if-then-else strings */
 
+static char *save_sgr;
+
 static DYNBUF outbuf;
 static DYNBUF tmpbuf;
 
 /* indirection pointers for implementing sort and display modes */
-static const int *bool_indirect, *num_indirect, *str_indirect;
+static const PredIdx *bool_indirect, *num_indirect, *str_indirect;
 static NCURSES_CONST char *const *bool_names;
 static NCURSES_CONST char *const *num_names;
 static NCURSES_CONST char *const *str_names;
@@ -138,6 +143,11 @@ _nc_leaks_dump_entry(void)
 }
 #endif
 
+#define NameTrans(check,result) \
+           if (OkIndex(np->nte_index, check) \
+               && check[np->nte_index]) \
+               return (result[np->nte_index])
+
 NCURSES_CONST char *
 nametrans(const char *name)
 /* translate a capability name from termcap to terminfo */
@@ -147,18 +157,15 @@ nametrans(const char *name)
     if ((np = _nc_find_entry(name, _nc_get_hash_table(0))) != 0)
        switch (np->nte_type) {
        case BOOLEAN:
-           if (bool_from_termcap[np->nte_index])
-               return (boolcodes[np->nte_index]);
+           NameTrans(bool_from_termcap, boolcodes);
            break;
 
        case NUMBER:
-           if (num_from_termcap[np->nte_index])
-               return (numcodes[np->nte_index]);
+           NameTrans(num_from_termcap, numcodes);
            break;
 
        case STRING:
-           if (str_from_termcap[np->nte_index])
-               return (strcodes[np->nte_index]);
+           NameTrans(str_from_termcap, strcodes);
            break;
        }
 
@@ -166,19 +173,24 @@ nametrans(const char *name)
 }
 
 void
-dump_init(const char *version, int mode, int sort, int twidth, int traceval,
-    bool formatted)
+dump_init(const char *version,
+         int mode,
+         int sort,
+         int twidth,
+         int theight,
+         unsigned traceval,
+         bool formatted)
 /* set up for entry display */
 {
     width = twidth;
+    height = theight;
     pretty = formatted;
-    tracelevel = traceval;
 
     /* versions */
     if (version == 0)
        tversion = V_ALLCAPS;
     else if (!strcmp(version, "SVr1") || !strcmp(version, "SVR1")
-       || !strcmp(version, "Ultrix"))
+            || !strcmp(version, "Ultrix"))
        tversion = V_SVR1;
     else if (!strcmp(version, "HP"))
        tversion = V_HPUX;
@@ -196,7 +208,7 @@ dump_init(const char *version, int mode, int sort, int twidth, int traceval,
        bool_names = boolnames;
        num_names = numnames;
        str_names = strnames;
-       separator = twidth ? ", " : ",";
+       separator = (twidth > 0 && theight > 1) ? ", " : ",";
        trailer = "\n\t";
        break;
 
@@ -204,7 +216,7 @@ dump_init(const char *version, int mode, int sort, int twidth, int traceval,
        bool_names = boolfnames;
        num_names = numfnames;
        str_names = strfnames;
-       separator = twidth ? ", " : ",";
+       separator = (twidth > 0 && theight > 1) ? ", " : ",";
        trailer = "\n\t";
        break;
 
@@ -223,13 +235,13 @@ dump_init(const char *version, int mode, int sort, int twidth, int traceval,
     case S_NOSORT:
        if (traceval)
            (void) fprintf(stderr,
-               "%s: sorting by term structure order\n", _nc_progname);
+                          "%s: sorting by term structure order\n", _nc_progname);
        break;
 
     case S_TERMINFO:
        if (traceval)
            (void) fprintf(stderr,
-               "%s: sorting by terminfo name order\n", _nc_progname);
+                          "%s: sorting by terminfo name order\n", _nc_progname);
        bool_indirect = bool_terminfo_sort;
        num_indirect = num_terminfo_sort;
        str_indirect = str_terminfo_sort;
@@ -238,7 +250,7 @@ dump_init(const char *version, int mode, int sort, int twidth, int traceval,
     case S_VARIABLE:
        if (traceval)
            (void) fprintf(stderr,
-               "%s: sorting by C variable order\n", _nc_progname);
+                          "%s: sorting by C variable order\n", _nc_progname);
        bool_indirect = bool_variable_sort;
        num_indirect = num_variable_sort;
        str_indirect = str_variable_sort;
@@ -247,7 +259,7 @@ dump_init(const char *version, int mode, int sort, int twidth, int traceval,
     case S_TERMCAP:
        if (traceval)
            (void) fprintf(stderr,
-               "%s: sorting by termcap name order\n", _nc_progname);
+                          "%s: sorting by termcap name order\n", _nc_progname);
        bool_indirect = bool_termcap_sort;
        num_indirect = num_termcap_sort;
        str_indirect = str_termcap_sort;
@@ -256,14 +268,14 @@ dump_init(const char *version, int mode, int sort, int twidth, int traceval,
 
     if (traceval)
        (void) fprintf(stderr,
-           "%s: width = %d, tversion = %d, outform = %d\n",
-           _nc_progname, width, tversion, outform);
+                      "%s: width = %d, tversion = %d, outform = %d\n",
+                      _nc_progname, width, tversion, outform);
 }
 
 static TERMTYPE *cur_type;
 
 static int
-dump_predicate(int type, int idx)
+dump_predicate(PredType type, PredIdx idx)
 /* predicate function to use for ordinary decompilation */
 {
     switch (type) {
@@ -283,13 +295,21 @@ dump_predicate(int type, int idx)
     return (FALSE);            /* pacify compiler */
 }
 
-static void set_obsolete_termcaps(TERMTYPE * tp);
+static void set_obsolete_termcaps(TERMTYPE *tp);
 
 /* is this the index of a function key string? */
 #define FNKEY(i)       (((i)<= 65 && (i)>= 75) || ((i)<= 216 && (i)>= 268))
 
+/*
+ * If we configure with a different Caps file, the offsets into the arrays
+ * will change.  So we use an address expression.
+ */
+#define BOOL_IDX(name) (PredType) (&(name) - &(CUR Booleans[0]))
+#define NUM_IDX(name)  (PredType) (&(name) - &(CUR Numbers[0]))
+#define STR_IDX(name)  (PredType) (&(name) - &(CUR Strings[0]))
+
 static bool
-version_filter(int type, int idx)
+version_filter(PredType type, PredIdx idx)
 /* filter out capabilities we may want to suppress */
 {
     switch (tversion) {
@@ -299,31 +319,28 @@ version_filter(int type, int idx)
     case V_SVR1:               /* System V Release 1, Ultrix */
        switch (type) {
        case BOOLEAN:
-           /* below and including xon_xoff */
-           return ((idx <= 20) ? TRUE : FALSE);
+           return ((idx <= BOOL_IDX(xon_xoff)) ? TRUE : FALSE);
        case NUMBER:
-           /* below and including width_status_line */
-           return ((idx <= 7) ? TRUE : FALSE);
+           return ((idx <= NUM_IDX(width_status_line)) ? TRUE : FALSE);
        case STRING:
-           /* below and including prtr_non */
-           return ((idx <= 144) ? TRUE : FALSE);
+           return ((idx <= STR_IDX(prtr_non)) ? TRUE : FALSE);
        }
        break;
 
     case V_HPUX:               /* Hewlett-Packard */
        switch (type) {
        case BOOLEAN:
-           /* below and including xon_xoff */
-           return ((idx <= 20) ? TRUE : FALSE);
+           return ((idx <= BOOL_IDX(xon_xoff)) ? TRUE : FALSE);
        case NUMBER:
-           /* below and including label_width */
-           return ((idx <= 10) ? TRUE : FALSE);
+           return ((idx <= NUM_IDX(label_width)) ? TRUE : FALSE);
        case STRING:
-           if (idx <= 144)     /* below and including prtr_non */
+           if (idx <= STR_IDX(prtr_non))
                return (TRUE);
            else if (FNKEY(idx))        /* function keys */
                return (TRUE);
-           else if (idx == 147 || idx == 156 || idx == 157)    /* plab_norm,label_on,label_off */
+           else if (idx == STR_IDX(plab_norm)
+                    || idx == STR_IDX(label_on)
+                    || idx == STR_IDX(label_off))
                return (TRUE);
            else
                return (FALSE);
@@ -333,13 +350,11 @@ version_filter(int type, int idx)
     case V_AIX:                /* AIX */
        switch (type) {
        case BOOLEAN:
-           /* below and including xon_xoff */
-           return ((idx <= 20) ? TRUE : FALSE);
+           return ((idx <= BOOL_IDX(xon_xoff)) ? TRUE : FALSE);
        case NUMBER:
-           /* below and including width_status_line */
-           return ((idx <= 7) ? TRUE : FALSE);
+           return ((idx <= NUM_IDX(width_status_line)) ? TRUE : FALSE);
        case STRING:
-           if (idx <= 144)     /* below and including prtr_non */
+           if (idx <= STR_IDX(prtr_non))
                return (TRUE);
            else if (FNKEY(idx))        /* function keys */
                return (TRUE);
@@ -348,14 +363,17 @@ version_filter(int type, int idx)
        }
        break;
 
+#define is_termcap(type) (OkIndex(idx, type##_from_termcap) && \
+                         type##_from_termcap[idx])
+
     case V_BSD:                /* BSD */
        switch (type) {
        case BOOLEAN:
-           return bool_from_termcap[idx];
+           return is_termcap(bool);
        case NUMBER:
-           return num_from_termcap[idx];
+           return is_termcap(num);
        case STRING:
-           return str_from_termcap[idx];
+           return is_termcap(str);
        }
        break;
     }
@@ -363,10 +381,18 @@ version_filter(int type, int idx)
     return (FALSE);            /* pacify the compiler */
 }
 
+static void
+trim_trailing(void)
+{
+    while (outbuf.used > 0 && outbuf.text[outbuf.used - 1] == ' ')
+       outbuf.text[--outbuf.used] = '\0';
+}
+
 static void
 force_wrap(void)
 {
     oldcol = column;
+    trim_trailing();
     strcpy_DYN(&outbuf, trailer);
     column = INDENT;
 }
@@ -374,22 +400,22 @@ force_wrap(void)
 static void
 wrap_concat(const char *src)
 {
-    int need = strlen(src);
-    int want = strlen(separator) + need;
+    size_t need = strlen(src);
+    size_t want = strlen(separator) + need;
 
     if (column > INDENT
-       && column + want > width) {
+       && column + (int) want > width) {
        force_wrap();
     }
     strcpy_DYN(&outbuf, src);
     strcpy_DYN(&outbuf, separator);
-    column += need;
+    column += (int) need;
 }
 
 #define IGNORE_SEP_TRAIL(first,last,sep_trail) \
        if ((size_t)(last - first) > sizeof(sep_trail)-1 \
         && !strncmp(first, sep_trail, sizeof(sep_trail)-1)) \
-               first += sizeof(sep_trail)-2
+               first += sizeof(sep_trail)-2
 
 /* Returns the nominal length of the buffer assuming it is termcap format,
  * i.e., the continuation sequence is treated as a single character ":".
@@ -420,43 +446,81 @@ termcap_length(const char *src)
 #define termcap_length(src) strlen(src)
 #endif
 
+static void
+indent_DYN(DYNBUF * buffer, int level)
+{
+    int n;
+
+    for (n = 0; n < level; n++)
+       strncpy_DYN(buffer, "\t", 1);
+}
+
+static bool
+has_params(const char *src)
+{
+    bool result = FALSE;
+    int len = (int) strlen(src);
+    int n;
+    bool ifthen = FALSE;
+    bool params = FALSE;
+
+    for (n = 0; n < len - 1; ++n) {
+       if (!strncmp(src + n, "%p", 2)) {
+           params = TRUE;
+       } else if (!strncmp(src + n, "%;", 2)) {
+           ifthen = TRUE;
+           result = params;
+           break;
+       }
+    }
+    if (!ifthen) {
+       result = ((len > 50) && params);
+    }
+    return result;
+}
+
 static char *
 fmt_complex(char *src, int level)
 {
-    int percent = 0;
-    int n;
-    bool if_then = strstr(src, "%?") != 0;
-    bool params = !if_then && (strlen(src) > 50) && (strstr(src, "%p") != 0);
+    bool percent = FALSE;
+    bool params = has_params(src);
 
     while (*src != '\0') {
        switch (*src) {
        case '\\':
-           percent = 0;
+           percent = FALSE;
            strncpy_DYN(&tmpbuf, src++, 1);
            break;
        case '%':
-           percent = 1;
+           percent = TRUE;
            break;
        case '?':               /* "if" */
        case 't':               /* "then" */
        case 'e':               /* "else" */
            if (percent) {
-               percent = 0;
+               percent = FALSE;
                tmpbuf.text[tmpbuf.used - 1] = '\n';
-               /* treat a "%e%?" as else-if, on the same level */
-               if (!strncmp(src, "e%?", 3)) {
-                   for (n = 0; n < level; n++)
-                       strncpy_DYN(&tmpbuf, "\t", 1);
+               /* treat a "%e" as else-if, on the same level */
+               if (*src == 'e') {
+                   indent_DYN(&tmpbuf, level);
                    strncpy_DYN(&tmpbuf, "%", 1);
-                   strncpy_DYN(&tmpbuf, src, 3);
-                   src += 3;
+                   strncpy_DYN(&tmpbuf, src, 1);
+                   src++;
+                   params = has_params(src);
+                   if (!params && *src != '\0' && *src != '%') {
+                       strncpy_DYN(&tmpbuf, "\n", 1);
+                       indent_DYN(&tmpbuf, level + 1);
+                   }
                } else {
-                   for (n = 0; n <= level; n++)
-                       strncpy_DYN(&tmpbuf, "\t", 1);
+                   indent_DYN(&tmpbuf, level + 1);
                    strncpy_DYN(&tmpbuf, "%", 1);
                    strncpy_DYN(&tmpbuf, src, 1);
                    if (*src++ == '?') {
                        src = fmt_complex(src, level + 1);
+                       if (*src != '\0' && *src != '%') {
+                           strncpy_DYN(&tmpbuf, "\n", 1);
+                           indent_DYN(&tmpbuf, level + 1);
+                       }
                    } else if (level == 1) {
                        _nc_warning("%%%c without %%?", *src);
                    }
@@ -466,11 +530,10 @@ fmt_complex(char *src, int level)
            break;
        case ';':               /* "endif" */
            if (percent) {
-               percent = 0;
+               percent = FALSE;
                if (level > 1) {
                    tmpbuf.text[tmpbuf.used - 1] = '\n';
-                   for (n = 0; n < level; n++)
-                       strncpy_DYN(&tmpbuf, "\t", 1);
+                   indent_DYN(&tmpbuf, level);
                    strncpy_DYN(&tmpbuf, "%", 1);
                    strncpy_DYN(&tmpbuf, src++, 1);
                    return src;
@@ -481,14 +544,18 @@ fmt_complex(char *src, int level)
        case 'p':
            if (percent && params) {
                tmpbuf.text[tmpbuf.used - 1] = '\n';
-               for (n = 0; n <= level; n++)
-                   strncpy_DYN(&tmpbuf, "\t", 1);
+               indent_DYN(&tmpbuf, level + 1);
                strncpy_DYN(&tmpbuf, "%", 1);
            }
-           percent = 0;
+           params = FALSE;
+           percent = FALSE;
            break;
+       case ' ':
+           strncpy_DYN(&tmpbuf, "\\s", 2);
+           ++src;
+           continue;
        default:
-           percent = 0;
+           percent = FALSE;
            break;
        }
        strncpy_DYN(&tmpbuf, src++, 1);
@@ -496,20 +563,25 @@ fmt_complex(char *src, int level)
     return src;
 }
 
+#define SAME_CAP(n,cap) (&tterm->Strings[n] == &cap)
+#define EXTRA_CAP 20
+
 int
-fmt_entry(TERMTYPE * tterm,
-    int (*pred) (int type, int idx),
-    bool suppress_untranslatable,
-    bool infodump,
-    int numbers)
+fmt_entry(TERMTYPE *tterm,
+         PredFunc pred,
+         bool content_only,
+         bool suppress_untranslatable,
+         bool infodump,
+         int numbers)
 {
-    int i, j;
-    char buffer[MAX_TERMINFO_LENGTH];
+    PredIdx i, j;
+    char buffer[MAX_TERMINFO_LENGTH + EXTRA_CAP];
+    char *capability;
     NCURSES_CONST char *name;
     int predval, len;
-    int num_bools = 0;
-    int num_values = 0;
-    int num_strings = 0;
+    PredIdx num_bools = 0;
+    PredIdx num_values = 0;
+    PredIdx num_strings = 0;
     bool outcount = 0;
 
 #define WRAP_CONCAT    \
@@ -524,14 +596,33 @@ fmt_entry(TERMTYPE * tterm,
     }
 
     strcpy_DYN(&outbuf, 0);
-    strcpy_DYN(&outbuf, tterm->term_names);
-    strcpy_DYN(&outbuf, separator);
-    column = outbuf.used;
-    force_wrap();
+    if (content_only) {
+       column = INDENT;        /* FIXME: workaround to prevent empty lines */
+    } else {
+       strcpy_DYN(&outbuf, tterm->term_names);
+
+       /*
+        * Colon is legal in terminfo descriptions, but not in termcap.
+        */
+       if (!infodump) {
+           char *p = outbuf.text;
+           while (*p) {
+               if (*p == ':') {
+                   *p = '=';
+               }
+               ++p;
+           }
+       }
+       strcpy_DYN(&outbuf, separator);
+       column = (int) outbuf.used;
+       if (height > 1)
+           force_wrap();
+    }
 
     for_each_boolean(j, tterm) {
        i = BoolIndirect(j);
-       name = ExtBoolname(tterm, i, bool_names);
+       name = ExtBoolname(tterm, (int) i, bool_names);
+       assert(strlen(name) < sizeof(buffer) - EXTRA_CAP);
 
        if (!version_filter(BOOLEAN, i))
            continue;
@@ -549,12 +640,13 @@ fmt_entry(TERMTYPE * tterm,
        }
     }
 
-    if (column != INDENT)
+    if (column != INDENT && height > 1)
        force_wrap();
 
     for_each_number(j, tterm) {
        i = NumIndirect(j);
-       name = ExtNumname(tterm, i, num_names);
+       name = ExtNumname(tterm, (int) i, num_names);
+       assert(strlen(name) < sizeof(buffer) - EXTRA_CAP);
 
        if (!version_filter(NUMBER, i))
            continue;
@@ -574,12 +666,12 @@ fmt_entry(TERMTYPE * tterm,
        }
     }
 
-    if (column != INDENT)
+    if (column != INDENT && height > 1)
        force_wrap();
 
-    len += num_bools
-       + num_values * 2
-       + strlen(tterm->term_names) + 1;
+    len += (int) (num_bools
+                 + num_values * 2
+                 + strlen(tterm->term_names) + 1);
     if (len & 1)
        len++;
 
@@ -599,55 +691,88 @@ fmt_entry(TERMTYPE * tterm,
 
     for_each_string(j, tterm) {
        i = StrIndirect(j);
-       name = ExtStrname(tterm, i, str_names);
+       name = ExtStrname(tterm, (int) i, str_names);
+       assert(strlen(name) < sizeof(buffer) - EXTRA_CAP);
+
+       capability = tterm->Strings[i];
 
        if (!version_filter(STRING, i))
            continue;
        else if (isObsolete(outform, name))
            continue;
 
+#if NCURSES_XNAMES
        /*
-        * Some older versions of vi want rmir/smir to be defined
-        * for ich/ich1 to work.  If they're not defined, force
-        * them to be output as defined and empty.
+        * Extended names can be longer than 2 characters, but termcap programs
+        * cannot read those (filter them out).
         */
+       if (outform == F_TERMCAP && (strlen(name) > 2))
+           continue;
+#endif
+
        if (outform == F_TERMCAP) {
-           if (insert_character || parm_ich) {
-               if (&tterm->Strings[i] == &enter_insert_mode
+           /*
+            * Some older versions of vi want rmir/smir to be defined
+            * for ich/ich1 to work.  If they're not defined, force
+            * them to be output as defined and empty.
+            */
+           if (PRESENT(insert_character) || PRESENT(parm_ich)) {
+               if (SAME_CAP(i, enter_insert_mode)
                    && enter_insert_mode == ABSENT_STRING) {
                    (void) strcpy(buffer, "im=");
                    WRAP_CONCAT;
                    continue;
                }
 
-               if (&tterm->Strings[i] == &exit_insert_mode
+               if (SAME_CAP(i, exit_insert_mode)
                    && exit_insert_mode == ABSENT_STRING) {
                    (void) strcpy(buffer, "ei=");
                    WRAP_CONCAT;
                    continue;
                }
            }
+           /*
+            * termcap applications such as screen will be confused if sgr0
+            * is translated to a string containing rmacs.  Filter that out.
+            */
+           if (PRESENT(exit_attribute_mode)) {
+               if (SAME_CAP(i, exit_attribute_mode)) {
+                   char *trimmed_sgr0;
+                   char *my_sgr = set_attributes;
+
+                   set_attributes = save_sgr;
+
+                   trimmed_sgr0 = _nc_trim_sgr0(tterm);
+                   if (strcmp(capability, trimmed_sgr0))
+                       capability = trimmed_sgr0;
+
+                   set_attributes = my_sgr;
+               }
+           }
        }
 
        predval = pred(STRING, i);
        buffer[0] = '\0';
 
        if (predval != FAIL) {
-           if (tterm->Strings[i] != ABSENT_STRING
+           if (capability != ABSENT_STRING
                && i + 1 > num_strings)
                num_strings = i + 1;
 
-           if (!VALID_STRING(tterm->Strings[i])) {
+           if (!VALID_STRING(capability)) {
                sprintf(buffer, "%s@", name);
                WRAP_CONCAT;
            } else if (outform == F_TERMCAP || outform == F_TCONVERR) {
-               char *srccap = _nc_tic_expand(tterm->Strings[i], TRUE, numbers);
-               char *cv = _nc_infotocap(name, srccap, parametrized[i]);
+               int params = ((i < (int) SIZEOF(parametrized))
+                             ? parametrized[i]
+                             : 0);
+               char *srccap = _nc_tic_expand(capability, TRUE, numbers);
+               char *cv = _nc_infotocap(name, srccap, params);
 
                if (cv == 0) {
                    if (outform == F_TCONVERR) {
                        sprintf(buffer, "%s=!!! %s WILL NOT CONVERT !!!",
-                           name, srccap);
+                               name, srccap);
                    } else if (suppress_untranslatable) {
                        continue;
                    } else {
@@ -667,11 +792,11 @@ fmt_entry(TERMTYPE * tterm,
                } else {
                    sprintf(buffer, "%s=%s", name, cv);
                }
-               len += strlen(tterm->Strings[i]) + 1;
+               len += (int) strlen(capability) + 1;
                WRAP_CONCAT;
            } else {
-               char *src = _nc_tic_expand(tterm->Strings[i],
-                   outform == F_TERMINFO, numbers);
+               char *src = _nc_tic_expand(capability,
+                                          outform == F_TERMINFO, numbers);
 
                strcpy_DYN(&tmpbuf, 0);
                strcpy_DYN(&tmpbuf, name);
@@ -683,25 +808,28 @@ fmt_entry(TERMTYPE * tterm,
                } else {
                    strcpy_DYN(&tmpbuf, src);
                }
-               len += strlen(tterm->Strings[i]) + 1;
+               len += (int) strlen(capability) + 1;
                wrap_concat(tmpbuf.text);
                outcount = TRUE;
            }
        }
+       /* e.g., trimmed_sgr0 */
+       if (capability != tterm->Strings[i])
+           free(capability);
     }
-    len += num_strings * 2;
+    len += (int) (num_strings * 2);
 
     /*
      * This piece of code should be an effective inverse of the functions
-     * postprocess_terminfo and postprocess_terminfo in parse_entry.c.
+     * postprocess_terminfo() and postprocess_terminfo() in parse_entry.c.
      * Much more work should be done on this to support dumping termcaps.
      */
     if (tversion == V_HPUX) {
-       if (memory_lock) {
+       if (VALID_STRING(memory_lock)) {
            (void) sprintf(buffer, "meml=%s", memory_lock);
            WRAP_CONCAT;
        }
-       if (memory_unlock) {
+       if (VALID_STRING(memory_unlock)) {
            (void) sprintf(buffer, "memu=%s", memory_unlock);
            WRAP_CONCAT;
        }
@@ -727,7 +855,7 @@ fmt_entry(TERMTYPE * tterm,
            if (box_ok) {
                (void) strcpy(buffer, "box1=");
                (void) strcat(buffer, _nc_tic_expand(boxchars,
-                       outform == F_TERMINFO, numbers));
+                                                    outform == F_TERMINFO, numbers));
                WRAP_CONCAT;
            }
        }
@@ -739,23 +867,24 @@ fmt_entry(TERMTYPE * tterm,
      */
     if (outcount) {
        bool trimmed = FALSE;
-       j = outbuf.used;
+       j = (PredIdx) outbuf.used;
        if (j >= 2
            && outbuf.text[j - 1] == '\t'
            && outbuf.text[j - 2] == '\n') {
            outbuf.used -= 2;
            trimmed = TRUE;
        } else if (j >= 4
-               && outbuf.text[j - 1] == ':'
-               && outbuf.text[j - 2] == '\t'
-               && outbuf.text[j - 3] == '\n'
-           && outbuf.text[j - 4] == '\\') {
+                  && outbuf.text[j - 1] == ':'
+                  && outbuf.text[j - 2] == '\t'
+                  && outbuf.text[j - 3] == '\n'
+                  && outbuf.text[j - 4] == '\\') {
            outbuf.used -= 4;
            trimmed = TRUE;
        }
        if (trimmed) {
            outbuf.text[outbuf.used] = '\0';
            column = oldcol;
+           strcpy_DYN(&outbuf, " ");
        }
     }
 #if 0
@@ -763,7 +892,7 @@ fmt_entry(TERMTYPE * tterm,
     fprintf(stderr, "num_values = %d\n", num_values);
     fprintf(stderr, "num_strings = %d\n", num_strings);
     fprintf(stderr, "term_names=%s, len=%d, strlen(outbuf)=%d, outbuf=%s\n",
-       tterm->term_names, len, outbuf.used, outbuf.text);
+           tterm->term_names, len, outbuf.used, outbuf.text);
 #endif
     /*
      * Here's where we use infodump to trigger a more stringent length check
@@ -772,14 +901,149 @@ fmt_entry(TERMTYPE * tterm,
      * It gives an idea of which entries are deadly to even *scan past*,
      * as opposed to *use*.
      */
-    return (infodump ? len : termcap_length(outbuf.text));
+    return (infodump ? len : (int) termcap_length(outbuf.text));
 }
 
-int
-dump_entry(TERMTYPE * tterm, bool limited, int numbers, int (*pred) (int
-       type, int idx))
-/* dump a single entry */
+static bool
+kill_string(TERMTYPE *tterm, char *cap)
+{
+    unsigned n;
+    for (n = 0; n < NUM_STRINGS(tterm); ++n) {
+       if (cap == tterm->Strings[n]) {
+           tterm->Strings[n] = ABSENT_STRING;
+           return TRUE;
+       }
+    }
+    return FALSE;
+}
+
+static char *
+find_string(TERMTYPE *tterm, char *name)
+{
+    PredIdx n;
+    for (n = 0; n < NUM_STRINGS(tterm); ++n) {
+       if (version_filter(STRING, n)
+           && !strcmp(name, strnames[n])) {
+           char *cap = tterm->Strings[n];
+           if (VALID_STRING(cap)) {
+               return cap;
+           }
+           break;
+       }
+    }
+    return ABSENT_STRING;
+}
+
+/*
+ * This is used to remove function-key labels from a termcap entry to
+ * make it smaller.
+ */
+static int
+kill_labels(TERMTYPE *tterm, int target)
 {
+    int n;
+    int result = 0;
+    char *cap;
+    char name[10];
+
+    for (n = 0; n <= 10; ++n) {
+       sprintf(name, "lf%d", n);
+       if ((cap = find_string(tterm, name)) != ABSENT_STRING
+           && kill_string(tterm, cap)) {
+           target -= (int) (strlen(cap) + 5);
+           ++result;
+           if (target < 0)
+               break;
+       }
+    }
+    return result;
+}
+
+/*
+ * This is used to remove function-key definitions from a termcap entry to
+ * make it smaller.
+ */
+static int
+kill_fkeys(TERMTYPE *tterm, int target)
+{
+    int n;
+    int result = 0;
+    char *cap;
+    char name[10];
+
+    for (n = 60; n >= 0; --n) {
+       sprintf(name, "kf%d", n);
+       if ((cap = find_string(tterm, name)) != ABSENT_STRING
+           && kill_string(tterm, cap)) {
+           target -= (int) (strlen(cap) + 5);
+           ++result;
+           if (target < 0)
+               break;
+       }
+    }
+    return result;
+}
+
+/*
+ * Check if the given acsc string is a 1-1 mapping, i.e., just-like-vt100.
+ * Also, since this is for termcap, we only care about the line-drawing map.
+ */
+#define isLine(c) (strchr("lmkjtuvwqxn", c) != 0)
+
+static bool
+one_one_mapping(const char *mapping)
+{
+    bool result = TRUE;
+
+    if (mapping != ABSENT_STRING) {
+       int n = 0;
+       while (mapping[n] != '\0') {
+           if (isLine(mapping[n]) &&
+               mapping[n] != mapping[n + 1]) {
+               result = FALSE;
+               break;
+           }
+           n += 2;
+       }
+    }
+    return result;
+}
+
+#define FMT_ENTRY() \
+               fmt_entry(tterm, pred, \
+                       0, \
+                       suppress_untranslatable, \
+                       infodump, numbers)
+
+#define SHOW_WHY PRINTF
+
+static bool
+purged_acs(TERMTYPE *tterm)
+{
+    bool result = FALSE;
+
+    if (VALID_STRING(acs_chars)) {
+       if (!one_one_mapping(acs_chars)) {
+           enter_alt_charset_mode = ABSENT_STRING;
+           exit_alt_charset_mode = ABSENT_STRING;
+           SHOW_WHY("# (rmacs/smacs removed for consistency)\n");
+       }
+       result = TRUE;
+    }
+    return result;
+}
+
+/*
+ * Dump a single entry.
+ */
+void
+dump_entry(TERMTYPE *tterm,
+          bool suppress_untranslatable,
+          bool limited,
+          int numbers,
+          PredFunc pred)
+{
+    TERMTYPE save_tterm;
     int len, critlen;
     const char *legend;
     bool infodump;
@@ -795,80 +1059,162 @@ dump_entry(TERMTYPE * tterm, bool limited, int numbers, int (*pred) (int
        infodump = TRUE;
     }
 
-    if (((len = fmt_entry(tterm, pred, FALSE, infodump, numbers)) > critlen)
+    save_sgr = set_attributes;
+
+    if ((FMT_ENTRY() > critlen)
        && limited) {
-       PRINTF("# (untranslatable capabilities removed to fit entry within %d bytes)\n",
-           critlen);
-       if ((len = fmt_entry(tterm, pred, TRUE, infodump, numbers)) > critlen) {
+
+       save_tterm = *tterm;
+       if (!suppress_untranslatable) {
+           SHOW_WHY("# (untranslatable capabilities removed to fit entry within %d bytes)\n",
+                    critlen);
+           suppress_untranslatable = TRUE;
+       }
+       if (FMT_ENTRY() > critlen) {
            /*
             * We pick on sgr because it's a nice long string capability that
             * is really just an optimization hack.  Another good candidate is
             * acsc since it is both long and unused by BSD termcap.
             */
-           char *oldsgr = set_attributes;
-           char *oldacsc = acs_chars;
-           set_attributes = ABSENT_STRING;
-           PRINTF("# (sgr removed to fit entry within %d bytes)\n",
-               critlen);
-           if ((len = fmt_entry(tterm, pred, TRUE, infodump, numbers)) > critlen) {
-               acs_chars = ABSENT_STRING;
-               PRINTF("# (acsc removed to fit entry within %d bytes)\n",
-                   critlen);
+           bool changed = FALSE;
+
+#if NCURSES_XNAMES
+           /*
+            * Extended names are most likely function-key definitions.  Drop
+            * those first.
+            */
+           unsigned n;
+           for (n = STRCOUNT; n < NUM_STRINGS(tterm); n++) {
+               const char *name = ExtStrname(tterm, (int) n, strnames);
+
+               if (VALID_STRING(tterm->Strings[n])) {
+                   set_attributes = ABSENT_STRING;
+                   /* we remove long names anyway - only report the short */
+                   if (strlen(name) <= 2) {
+                       SHOW_WHY("# (%s removed to fit entry within %d bytes)\n",
+                                name,
+                                critlen);
+                   }
+                   changed = TRUE;
+                   if (FMT_ENTRY() <= critlen)
+                       break;
+               }
            }
-           if ((len = fmt_entry(tterm, pred, TRUE, infodump, numbers)) > critlen) {
+#endif
+           if (VALID_STRING(set_attributes)) {
+               set_attributes = ABSENT_STRING;
+               SHOW_WHY("# (sgr removed to fit entry within %d bytes)\n",
+                        critlen);
+               changed = TRUE;
+           }
+           if (!changed || (FMT_ENTRY() > critlen)) {
+               if (purged_acs(tterm)) {
+                   acs_chars = ABSENT_STRING;
+                   SHOW_WHY("# (acsc removed to fit entry within %d bytes)\n",
+                            critlen);
+                   changed = TRUE;
+               }
+           }
+           if (!changed || (FMT_ENTRY() > critlen)) {
                int oldversion = tversion;
 
                tversion = V_BSD;
-               PRINTF("# (terminfo-only capabilities suppressed to fit entry within %d bytes)\n",
-                   critlen);
-
-               if ((len = fmt_entry(tterm, pred, TRUE, infodump, numbers))
-                   > critlen) {
+               SHOW_WHY("# (terminfo-only capabilities suppressed to fit entry within %d bytes)\n",
+                        critlen);
+
+               len = FMT_ENTRY();
+               if (len > critlen
+                   && kill_labels(tterm, len - critlen)) {
+                   SHOW_WHY("# (some labels capabilities suppressed to fit entry within %d bytes)\n",
+                            critlen);
+                   len = FMT_ENTRY();
+               }
+               if (len > critlen
+                   && kill_fkeys(tterm, len - critlen)) {
+                   SHOW_WHY("# (some function-key capabilities suppressed to fit entry within %d bytes)\n",
+                            critlen);
+                   len = FMT_ENTRY();
+               }
+               if (len > critlen) {
                    (void) fprintf(stderr,
-                       "warning: %s entry is %d bytes long\n",
-                       _nc_first_name(tterm->term_names),
-                       len);
-                   PRINTF(
-                       "# WARNING: this entry, %d bytes long, may core-dump %s libraries!\n",
-                       len, legend);
+                                  "warning: %s entry is %d bytes long\n",
+                                  _nc_first_name(tterm->term_names),
+                                  len);
+                   SHOW_WHY("# WARNING: this entry, %d bytes long, may core-dump %s libraries!\n",
+                            len, legend);
                }
                tversion = oldversion;
            }
-           set_attributes = oldsgr;
-           acs_chars = oldacsc;
+           set_attributes = save_sgr;
+           *tterm = save_tterm;
        }
+    } else if (!version_filter(STRING, STR_IDX(acs_chars))) {
+       save_tterm = *tterm;
+       if (purged_acs(tterm)) {
+           (void) FMT_ENTRY();
+       }
+       *tterm = save_tterm;
     }
-
-    (void) fputs(outbuf.text, stdout);
-    return len;
 }
 
-int
+void
 dump_uses(const char *name, bool infodump)
 /* dump "use=" clauses in the appropriate format */
 {
     char buffer[MAX_TERMINFO_LENGTH];
 
-    strcpy_DYN(&outbuf, 0);
+    if (outform == F_TERMCAP || outform == F_TCONVERR)
+       trim_trailing();
     (void) sprintf(buffer, "%s%s", infodump ? "use=" : "tc=", name);
     wrap_concat(buffer);
+}
+
+int
+show_entry(void)
+{
+    /*
+     * Trim any remaining whitespace.
+     */
+    if (outbuf.used != 0) {
+       bool infodump = (outform != F_TERMCAP && outform != F_TCONVERR);
+       char delim = infodump ? ',' : ':';
+       int j;
+
+       for (j = (int) outbuf.used - 1; j > 0; --j) {
+           char ch = outbuf.text[j];
+           if (ch == '\n') {
+               ;
+           } else if (isspace(UChar(ch))) {
+               outbuf.used = j;
+           } else if (!infodump && ch == '\\') {
+               outbuf.used = j;
+           } else if (ch == delim && (j == 0 || outbuf.text[j - 1] != '\\')) {
+               outbuf.used = (j + 1);
+           } else {
+               break;
+           }
+       }
+       outbuf.text[outbuf.used] = '\0';
+    }
     (void) fputs(outbuf.text, stdout);
-    return outbuf.used;
+    putchar('\n');
+    return (int) outbuf.used;
 }
 
 void
-compare_entry(void (*hook) (int t, int i, const char *name), TERMTYPE * tp
-    GCC_UNUSED, bool quiet)
+compare_entry(PredHook hook,
+             TERMTYPE *tp GCC_UNUSED,
+             bool quiet)
 /* compare two entries */
 {
-    int i, j;
+    PredIdx i, j;
     NCURSES_CONST char *name;
 
     if (!quiet)
        fputs("    comparing booleans.\n", stdout);
     for_each_boolean(j, tp) {
        i = BoolIndirect(j);
-       name = ExtBoolname(tp, i, bool_names);
+       name = ExtBoolname(tp, (int) i, bool_names);
 
        if (isObsolete(outform, name))
            continue;
@@ -880,7 +1226,7 @@ compare_entry(void (*hook) (int t, int i, const char *name), TERMTYPE * tp
        fputs("    comparing numbers.\n", stdout);
     for_each_number(j, tp) {
        i = NumIndirect(j);
-       name = ExtNumname(tp, i, num_names);
+       name = ExtNumname(tp, (int) i, num_names);
 
        if (isObsolete(outform, name))
            continue;
@@ -892,7 +1238,7 @@ compare_entry(void (*hook) (int t, int i, const char *name), TERMTYPE * tp
        fputs("    comparing strings.\n", stdout);
     for_each_string(j, tp) {
        i = StrIndirect(j);
-       name = ExtStrname(tp, i, str_names);
+       name = ExtStrname(tp, (int) i, str_names);
 
        if (isObsolete(outform, name))
            continue;
@@ -916,7 +1262,7 @@ compare_entry(void (*hook) (int t, int i, const char *name), TERMTYPE * tp
 #define CUR tp->
 
 static void
-set_obsolete_termcaps(TERMTYPE * tp)
+set_obsolete_termcaps(TERMTYPE *tp)
 {
 #include "capdefaults.c"
 }
@@ -926,7 +1272,7 @@ set_obsolete_termcaps(TERMTYPE * tp)
  * unique.
  */
 void
-repair_acsc(TERMTYPE * tp)
+repair_acsc(TERMTYPE *tp)
 {
     if (VALID_STRING(acs_chars)) {
        size_t n, m;
@@ -937,7 +1283,7 @@ repair_acsc(TERMTYPE * tp)
        bool fix_needed = FALSE;
 
        for (n = 0, source = 0; acs_chars[n] != 0; n++) {
-           target = acs_chars[n];
+           target = UChar(acs_chars[n]);
            if (source >= target) {
                fix_needed = TRUE;
                break;
@@ -949,17 +1295,17 @@ repair_acsc(TERMTYPE * tp)
        if (fix_needed) {
            memset(mapped, 0, sizeof(mapped));
            for (n = 0; acs_chars[n] != 0; n++) {
-               source = acs_chars[n];
+               source = UChar(acs_chars[n]);
                if ((target = (unsigned char) acs_chars[n + 1]) != 0) {
-                   mapped[source] = target;
+                   mapped[source] = (char) target;
                    n++;
                } else {
-                   extra = source;
+                   extra = (char) source;
                }
            }
            for (n = m = 0; n < sizeof(mapped); n++) {
                if (mapped[n]) {
-                   acs_chars[m++] = n;
+                   acs_chars[m++] = (char) n;
                    acs_chars[m++] = mapped[n];
                }
            }