OpenSolaris_b135/cmd/captoinfo/captoinfo.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2004 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1988 AT&T */
/* All Rights Reserved */
#pragma ident "%Z%%M% %I% %E% SMI"
/*
* NAME
* captoinfo - convert a termcap description to a terminfo description
*
* SYNOPSIS
* captoinfo [-1vV] [-w width] [ filename ... ]
*
* AUTHOR
* Tony Hansen, January 22, 1984.
*/
#include "curses.h"
#include <ctype.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include "otermcap.h"
#include "print.h"
#define trace stderr /* send trace messages to stderr */
/* extra termcap variables no longer in terminfo */
char *oboolcodes[] =
{
"bs", /* Terminal can backspace with "^H" */
"nc", /* No correctly working carriage return (DM2500,H2000) */
"ns", /* Terminal is a CRT but does not scroll. */
"pt", /* Has hardware tabs (may need to be set with "is") */
"MT", /* Has meta key, alternate code. */
"xr", /* Return acts like ce \r \n (Delta Data) */
0
};
int cap_bs = 0, cap_nc = 1, cap_ns = 2, cap_pt = 3, cap_MT = 4, cap_xr = 5;
char *onumcodes[] =
{
"dB", /* Number of millisec of bs delay needed */
"dC", /* Number of millisec of cr delay needed */
"dF", /* Number of millisec of ff delay needed */
"dN", /* Number of millisec of nl delay needed */
"dT", /* Number of millisec of tab delay needed */
"ug", /* Number of blank chars left by us or ue */
/* Ignore the 'kn' number. It was ill-defined and never used. */
"kn", /* Number of "other" keys */
0
};
int cap_dB = 0, cap_dC = 1, cap_dF = 2, cap_dN = 3, cap_dT = 4, cap_ug = 5;
char *ostrcodes[] =
{
"bc", /* Backspace if not "^H" */
"ko", /* Termcap entries for other non-function keys */
"ma", /* Arrow key map, used by vi version 2 only */
"nl", /* Newline character (default "\n") */
"rs", /* undocumented reset string, like is (info is2) */
/* Ignore the 'ml' and 'mu' strings. */
"ml", /* Memory lock on above cursor. */
"mu", /* Memory unlock (turn off memory lock). */
0
};
int cap_bc = 0, cap_ko = 1, cap_ma = 2, cap_nl = 3, cap_rs = 4;
#define numelements(x) (sizeof (x)/sizeof (x[0]))
char oboolval[2][numelements(oboolcodes)];
short onumval[2][numelements(onumcodes)];
char *ostrval[2][numelements(ostrcodes)];
/* externs from libcurses.a */
extern char *boolnames[], *boolcodes[];
extern char *numnames[], *numcodes[];
extern char *strnames[], *strcodes[];
/* globals for this file */
char *progname; /* argv [0], the name of the program */
static char *term_name; /* the name of the terminal being worked on */
static int uselevel; /* whether we're dealing with use= info */
static int boolcount, /* the maximum numbers of each name array */
numcount,
strcount;
/* globals dealing with the environment */
extern char **environ;
static char TERM[100];
#if defined(SYSV) || defined(USG) /* handle both Sys Vr2 and Vr3 curses */
static char dirname[BUFSIZ];
#else
#include <sys/param.h>
static char dirname[MAXPATHLEN];
#endif /* SYSV || USG */
static char TERMCAP[BUFSIZ+15];
static char *newenviron[] = { &TERM[0], &TERMCAP[0], 0 };
/* dynamic arrays */
static char *boolval[2]; /* dynamic array of boolean values */
static short *numval[2]; /* dynamic array of numeric values */
static char **strval[2]; /* dynamic array of string pointers */
/* data buffers */
static char *capbuffer; /* string table, pointed at by strval */
static char *nextstring; /* pointer into string table */
static char *bp; /* termcap raw string table */
static char *buflongname; /* place to copy the long names */
/* flags */
static int verbose = 0; /* debugging printing level */
static int copycomments = 0; /* copy comments from tercap source */
#define ispadchar(c) (isdigit(c) || (c) == '.' || (c) == '*')
static void getlongname(void);
static void handleko(void);
static void handlema(void);
static void print_no_use_entry(void);
static void print_use_entry(char *);
static void captoinfo(void);
static void use_etc_termcap(void);
static void initdirname(void);
static void setfilename(char *);
static void setterm_name(void);
static void use_file(char *);
static void sorttable(char *[], char *[]);
static void inittables(void);
/*
* Verify that the names given in the termcap entry are all valid.
*/
int
capsearch(char *codes[], char *ocodes[], char *cap)
{
for (; *codes; codes++)
if (((*codes)[0] == cap[0]) && ((*codes)[1] == cap[1]))
return (1);
for (; *ocodes; ocodes++)
if (((*ocodes)[0] == cap[0]) && ((*ocodes)[1] == cap[1]))
return (1);
return (0);
}
void
checktermcap()
{
char *tbuf = bp;
enum { tbool, tnum, tstr, tcancel, tunknown } type;
for (;;) {
tbuf = tskip(tbuf);
while (*tbuf == '\t' || *tbuf == ' ' || *tbuf == ':')
tbuf++;
if (*tbuf == 0)
return;
/* commented out entry? */
if (*tbuf == '.') {
if (verbose)
(void) fprintf(trace, "termcap string '%c%c' "
"commented out.\n", tbuf[1], tbuf[2]);
if (!capsearch(boolcodes, oboolcodes, tbuf + 1) &&
!capsearch(numcodes, onumcodes, tbuf + 1) &&
!capsearch(strcodes, ostrcodes, tbuf + 1))
(void) fprintf(stderr,
"%s: TERM=%s: commented out code '%.2s' "
"is unknown.\n", progname, term_name,
tbuf+1);
continue;
}
if (verbose)
(void) fprintf(trace, "looking at termcap string "
"'%.2s'.\n", tbuf);
switch (tbuf[2]) {
case ':': case '\0': type = tbool; break;
case '#': type = tnum; break;
case '=': type = tstr; break;
case '@': type = tcancel; break;
default:
(void) fprintf(stderr,
"%s: TERM=%s: unknown type given for the "
"termcap code '%.2s'.\n", progname,
term_name, tbuf);
type = tunknown;
}
if (verbose > 1)
(void) fprintf(trace, "type of '%.2s' is %s.\n", tbuf,
(type == tbool) ? "boolean" :
(type == tnum) ? "numeric" :
(type = tstr) ? "string" :
(type = tcancel) ? "canceled" : "unknown");
/* look for the name in bools */
if (capsearch(boolcodes, oboolcodes, tbuf)) {
if (type != tbool && type != tcancel)
(void) fprintf(stderr,
"%s: TERM=%s: wrong type given for the "
"boolean termcap code '%.2s'.\n", progname,
term_name, tbuf);
continue;
}
/* look for the name in nums */
if (capsearch(numcodes, onumcodes, tbuf)) {
if (type != tnum && type != tcancel)
(void) fprintf(stderr,
"%s: TERM=%s: wrong type given for the "
"numeric termcap code '%.2s'.\n", progname,
term_name, tbuf);
continue;
}
/* look for the name in strs */
if (capsearch(strcodes, ostrcodes, tbuf)) {
if (type != tstr && type != tcancel)
(void) fprintf(stderr,
"%s: TERM=%s: wrong type given for the "
"string termcap code '%.2s'.\n", progname,
term_name, tbuf);
continue;
}
(void) fprintf(stderr,
"%s: TERM=%s: the %s termcap code '%.2s' is not a valid "
"name.\n", progname, term_name,
(type == tbool) ? "boolean" :
(type == tnum) ? "numeric" :
(type = tstr) ? "string" :
(type = tcancel) ? "canceled" : "(unknown type)", tbuf);
}
}
/*
* Fill up the termcap tables.
*/
int
filltables(void)
{
int i, tret;
/* Retrieve the termcap entry. */
if ((tret = otgetent(bp, term_name)) != 1) {
(void) fprintf(stderr,
"%s: TERM=%s: tgetent failed with return code %d (%s).\n",
progname, term_name, tret,
(tret == 0) ? "non-existent or invalid entry" :
(tret == -1) ? "cannot open $TERMCAP" : "unknown reason");
return (0);
}
if (verbose) {
(void) fprintf(trace, "bp=");
(void) cpr(trace, bp);
(void) fprintf(trace, ".\n");
}
if (uselevel == 0)
checktermcap();
/* Retrieve the values that are in terminfo. */
/* booleans */
for (i = 0; boolcodes[i]; i++) {
boolval[uselevel][i] = otgetflag(boolcodes[i]);
if (verbose > 1) {
(void) fprintf(trace, "boolcodes=%s, ", boolcodes[i]);
(void) fprintf(trace, "boolnames=%s, ", boolnames[i]);
(void) fprintf(trace,
"flag=%d.\n", boolval[uselevel][i]);
}
}
/* numbers */
for (i = 0; numcodes[i]; i++) {
numval[uselevel][i] = otgetnum(numcodes[i]);
if (verbose > 1) {
(void) fprintf(trace, "numcodes=%s, ", numcodes[i]);
(void) fprintf(trace, "numnames=%s, ", numnames[i]);
(void) fprintf(trace, "num=%d.\n", numval[uselevel][i]);
}
}
if (uselevel == 0)
nextstring = capbuffer;
/* strings */
for (i = 0; strcodes[i]; i++) {
strval[uselevel][i] = otgetstr(strcodes[i], &nextstring);
if (verbose > 1) {
(void) fprintf(trace, "strcodes=%s, ", strcodes [i]);
(void) fprintf(trace, "strnames=%s, ", strnames [i]);
if (strval[uselevel][i]) {
(void) fprintf(trace, "str=");
tpr(trace, strval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
else
(void) fprintf(trace, "str=NULL.\n");
}
/* remove zero length strings */
if (strval[uselevel][i] && (strval[uselevel][i][0] == '\0')) {
(void) fprintf(stderr,
"%s: TERM=%s: cap %s (info %s) is NULL: REMOVED\n",
progname, term_name, strcodes[i], strnames[i]);
strval[uselevel][i] = NULL;
}
}
/* Retrieve the values not found in terminfo anymore. */
/* booleans */
for (i = 0; oboolcodes[i]; i++) {
oboolval[uselevel][i] = otgetflag(oboolcodes[i]);
if (verbose > 1) {
(void) fprintf(trace, "oboolcodes=%s, ",
oboolcodes[i]);
(void) fprintf(trace, "flag=%d.\n",
oboolval[uselevel][i]);
}
}
/* numbers */
for (i = 0; onumcodes[i]; i++) {
onumval[uselevel][i] = otgetnum(onumcodes[i]);
if (verbose > 1) {
(void) fprintf(trace, "onumcodes=%s, ", onumcodes[i]);
(void) fprintf(trace, "num=%d.\n",
onumval[uselevel][i]);
}
}
/* strings */
for (i = 0; ostrcodes[i]; i++) {
ostrval[uselevel][i] = otgetstr(ostrcodes[i], &nextstring);
if (verbose > 1) {
(void) fprintf(trace, "ostrcodes=%s, ", ostrcodes[i]);
if (ostrval[uselevel][i]) {
(void) fprintf(trace, "ostr=");
tpr(trace, ostrval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
else
(void) fprintf(trace, "ostr=NULL.\n");
}
/* remove zero length strings */
if (ostrval[uselevel][i] && (ostrval[uselevel][i][0] == '\0')) {
(void) fprintf(stderr,
"%s: TERM=%s: cap %s (no terminfo name) is NULL: "
"REMOVED\n", progname, term_name, ostrcodes[i]);
ostrval[uselevel][i] = NULL;
}
}
return (1);
}
/*
* This routine copies the set of names from the termcap entry into
* a separate buffer, getting rid of the old obsolete two character
* names.
*/
static void
getlongname(void)
{
char *b = &bp[0], *l = buflongname;
/* Skip the two character name */
if (bp[2] == '|')
b = &bp[3];
/* Copy the rest of the names */
while (*b && *b != ':')
*l++ = *b++;
*l = '\0';
if (b != &bp[0]) {
(void) fprintf(stderr, "%s: obsolete 2 character name "
"'%2.2s' removed.\n", progname, bp);
(void) fprintf(stderr, "\tsynonyms are: '%s'\n", buflongname);
}
}
/*
* Return the value of the termcap string 'capname' as stored in our list.
*/
char *
getcapstr(char *capname)
{
int i;
if (verbose > 1)
(void) fprintf(trace, "looking for termcap value of %s.\n",
capname);
/* Check the old termcap list. */
for (i = 0; ostrcodes[i]; i++)
if (strcmp(ostrcodes[i], capname) == 0) {
if (verbose > 1) {
(void) fprintf(trace, "\tvalue is:");
tpr(trace, ostrval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
return (ostrval[uselevel][i]);
}
if (verbose > 1)
(void) fprintf(trace, "termcap name '%s' not found in "
"ostrcodes.\n", capname);
/* Check the terminfo list. */
for (i = 0; strcodes[i]; i++)
if (strcmp(strcodes[i], capname) == 0) {
if (verbose > 1) {
(void) fprintf(trace, "\tvalue is:");
tpr(trace, strval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
return (strval[uselevel][i]);
}
(void) fprintf(stderr, "%s: TERM=%s: termcap name '%s' not found.\n",
progname, term_name, capname);
return ((char *)NULL);
}
/*
* Search for a name in the given table and
* return the index.
* Someday I'll redo this to use bsearch().
*/
/* ARGSUSED */
int
search(char *names[], int max, char *infoname)
{
#ifndef BSEARCH
int i;
for (i = 0; names [i] != NULL; i++)
if (strcmp(names [i], infoname) == 0)
return (i);
return (-1);
#else /* this doesn't work for some reason */
char **bret;
bret = (char **)bsearch(infoname, (char *)names, max,
sizeof (char *), strcmp);
(void) fprintf(trace, "search looking for %s.\n", infoname);
(void) fprintf(trace, "base=%#x, bret=%#x, nel=%d.\n", names,
bret, max);
(void) fprintf(trace, "returning %d.\n", bret == NULL ? -1 :
bret - names);
if (bret == NULL)
return (-1);
else
return (bret - names);
#endif /* OLD */
}
/*
* return the value of the terminfo string 'infoname'
*/
char *
getinfostr(char *infoname)
{
int i;
if (verbose > 1)
(void) fprintf(trace, "looking for terminfo value of %s.\n",
infoname);
i = search(strnames, strcount, infoname);
if (i != -1) {
if (verbose > 1) {
(void) fprintf(trace, "\tvalue is:");
tpr(trace, strval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
return (strval[uselevel][i]);
}
if (verbose > 1)
(void) fprintf(trace, "terminfo name '%s' not found.\n",
infoname);
return ((char *)NULL);
}
/*
* Replace the value stored for the terminfo boolean
* capability 'infoname' with the newvalue.
*/
void
putbool(char *infoname, int newvalue)
{
int i;
if (verbose > 1)
(void) fprintf(trace, "changing value for %s to %d.\n",
infoname, newvalue);
i = search(boolnames, boolcount, infoname);
if (i != -1) {
if (verbose > 1)
(void) fprintf(trace, "value was: %d.\n",
boolval[uselevel][i]);
boolval[uselevel][i] = newvalue;
return;
}
(void) fprintf(stderr, "%s: TERM=%s: the boolean name '%s' was not "
"found!\n", progname, term_name, infoname);
}
/*
* Replace the value stored for the terminfo number
* capability 'infoname' with the newvalue.
*/
void
putnum(char *infoname, int newvalue)
{
int i;
if (verbose > 1)
(void) fprintf(trace, "changing value for %s to %d.\n",
infoname, newvalue);
i = search(numnames, numcount, infoname);
if (i != -1) {
if (verbose > 1)
(void) fprintf(trace, "value was: %d.\n",
numval[uselevel][i]);
numval[uselevel][i] = newvalue;
return;
}
(void) fprintf(stderr, "%s: TERM=%s: the numeric name '%s' was not "
"found!\n",
progname, term_name, infoname);
}
/*
* replace the value stored for the terminfo string capability 'infoname'
* with the newvalue.
*/
void
putstr(char *infoname, char *newvalue)
{
int i;
if (verbose > 1) {
(void) fprintf(trace, "changing value for %s to ", infoname);
tpr(trace, newvalue);
(void) fprintf(trace, ".\n");
}
i = search(strnames, strcount, infoname);
if (i != -1) {
if (verbose > 1) {
(void) fprintf(trace, "value was:");
tpr(trace, strval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
strval[uselevel][i] = nextstring;
while (*newvalue)
*nextstring++ = *newvalue++;
*nextstring++ = '\0';
return;
}
(void) fprintf(stderr, "%s: TERM=%s: the string name '%s' was not "
"found!\n",
progname, term_name, infoname);
}
/*
* Add in extra delays if they are not recorded already.
* This is done before the padding information has been modified by
* changecalculations() below, so the padding information, if there
* already, is still at the beginning of the string in termcap format.
*/
void
addpadding(int cappadding, char *infostr)
{
char *cap;
char tempbuffer [100];
/* Is there padding to add? */
if (cappadding > 0)
/* Is there a string to add it to? */
if (cap = getinfostr(infostr))
/* Is there any padding info already? */
if (ispadchar(*cap)) {
/* EMPTY */;
/* Assume that the padding info that is there is correct. */
} else {
/* Add the padding at the end of the present string. */
(void) snprintf(tempbuffer, sizeof (tempbuffer),
"%s$<%d>", cap, cappadding);
putstr(infostr, tempbuffer);
} else {
/* Create a new string that only has the padding. */
(void) sprintf(tempbuffer, "$<%d>", cappadding);
putstr(infostr, tempbuffer);
}
}
struct
{
char *capname;
char *keyedinfoname;
} ko_map[] = {
"al", "kil1",
"bs", "kbs", /* special addition */
"bt", "kcbt",
"cd", "ked",
"ce", "kel",
"cl", "kclr",
"ct", "ktbc",
"dc", "kdch1",
"dl", "kdl1",
"do", "kcud1",
"ei", "krmir",
"ho", "khome",
"ic", "kich1",
"im", "kich1", /* special addition */
"le", "kcub1",
"ll", "kll",
"nd", "kcuf1",
"sf", "kind",
"sr", "kri",
"st", "khts",
"up", "kcuu1",
/* "", "kctab", */
/* "", "knp", */
/* "", "kpp", */
0, 0
};
/*
* Work with the ko string. It is a comma separated list of keys for which
* the keyboard has a key by the same name that emits the same sequence.
* For example, ko = dc, im, ei means that there are keys called
* delete-character, enter-insert-mode and exit-insert-mode on the keyboard,
* and they emit the same sequences as specified in the dc, im and ei
* capabilities.
*/
static void
handleko(void)
{
char capname[3];
char *capstr;
int i, j, found;
char *infostr;
if (verbose > 1)
(void) fprintf(trace, "working on termcap ko string.\n");
if (ostrval[uselevel][cap_ko] == NULL)
return;
capname[2] = '\0';
for (i = 0; ostrval[uselevel][cap_ko][i] != '\0'; ) {
/* isolate the termcap name */
capname[0] = ostrval[uselevel][cap_ko][i++];
if (ostrval[uselevel][cap_ko][i] == '\0')
break;
capname[1] = ostrval[uselevel][cap_ko][i++];
if (ostrval[uselevel][cap_ko][i] == ',')
i++;
if (verbose > 1) {
(void) fprintf(trace, "key termcap name is '");
tpr(trace, capname);
(void) fprintf(trace, "'.\n");
}
/* match it up into our list */
found = 0;
for (j = 0; !found && ko_map[j].keyedinfoname != NULL; j++) {
if (verbose > 1)
(void) fprintf(trace, "looking at termcap name %s.\n",
ko_map[j].capname);
if (capname[0] == ko_map[j].capname[0] &&
capname[1] == ko_map[j].capname[1]) {
/* add the value to our database */
if ((capstr = getcapstr(capname)) != NULL) {
infostr = getinfostr
(ko_map[j].keyedinfoname);
if (infostr == NULL) {
/* skip any possible padding */
/* information */
while (ispadchar(*capstr))
capstr++;
putstr(ko_map[j].keyedinfoname, capstr);
} else
if (strcmp(capstr, infostr) != 0) {
(void) fprintf(stderr,
"%s: TERM=%s: a function "
"key for '%s' was "
"specified with the "
"value ", progname,
term_name, capname);
tpr(stderr, capstr);
(void) fprintf(stderr,
", but it already has the "
"value '");
tpr(stderr, infostr);
(void) fprintf(stderr, "'.\n");
}
}
found = 1;
}
}
if (!found) {
(void) fprintf(stderr, "%s: TERM=%s: the unknown "
"termcap name '%s' was\n", progname, term_name,
capname);
(void) fprintf(stderr, "specified in the 'ko' "
"termcap capability.\n");
}
}
}
#define CONTROL(x) ((x) & 037)
struct
{
char vichar;
char *keyedinfoname;
} ma_map[] = {
CONTROL('J'), "kcud1", /* down */
CONTROL('N'), "kcud1",
'j', "kcud1",
CONTROL('P'), "kcuu1", /* up */
'k', "kcuu1",
'h', "kcub1", /* left */
CONTROL('H'), "kcub1",
' ', "kcuf1", /* right */
'l', "kcuf1",
'H', "khome", /* home */
CONTROL('L'), "kclr", /* clear */
0, 0
};
/*
* Work with the ma string. This is a list of pairs of characters.
* The first character is the what a function key sends. The second
* character is the equivalent vi function that should be done when
* it receives that character. Note that only function keys that send
* a single character could be defined by this list.
*/
void
prchar(FILE *stream, int c)
{
char xbuf[2];
xbuf[0] = c;
xbuf[1] = '\0';
(void) fprintf(stream, "%s", iexpand(xbuf));
}
static void
handlema(void)
{
char vichar;
char cap[2];
int i, j, found;
char *infostr;
if (verbose > 1)
(void) fprintf(trace, "working on termcap ma string.\n");
if (ostrval[uselevel][cap_ma] == NULL)
return;
cap[1] = '\0';
for (i = 0; ostrval[uselevel][cap_ma][i] != '\0'; ) {
/* isolate the key's value */
cap[0] = ostrval[uselevel][cap_ma][i++];
if (verbose > 1) {
(void) fprintf(trace, "key value is '");
tpr(trace, cap);
(void) fprintf(trace, "'.\n");
}
if (ostrval[uselevel][cap_ma][i] == '\0')
break;
/* isolate the vi key name */
vichar = ostrval[uselevel][cap_ma][i++];
if (verbose > 1) {
(void) fprintf(trace, "the vi key is '");
prchar(trace, vichar);
(void) fprintf(trace, "'.\n");
}
/* match up the vi name in our list */
found = 0;
for (j = 0; !found && ma_map[j].keyedinfoname != NULL; j++) {
if (verbose > 1) {
(void) fprintf(trace, "looking at vi "
"character '");
prchar(trace, ma_map[j].vichar);
(void) fprintf(trace, "'\n");
}
if (vichar == ma_map[j].vichar) {
infostr = getinfostr(ma_map[j].keyedinfoname);
if (infostr == NULL)
putstr(ma_map[j].keyedinfoname, cap);
else if (strcmp(cap, infostr) != 0) {
(void) fprintf(stderr, "%s: TERM=%s: "
"the vi character '", progname,
term_name);
prchar(stderr, vichar);
(void) fprintf(stderr,
"' (info '%s') has the value '",
ma_map[j].keyedinfoname);
tpr(stderr, infostr);
(void) fprintf(stderr, "', but 'ma' "
"gives '");
prchar(stderr, cap[0]);
(void) fprintf(stderr, "'.\n");
}
found = 1;
}
}
if (!found) {
(void) fprintf(stderr, "%s: the unknown vi key '",
progname);
prchar(stderr, vichar);
(void) fprintf(stderr, "' was\n");
(void) fprintf(stderr, "specified in the 'ma' termcap "
"capability.\n");
}
}
}
/*
* Many capabilities were defaulted in termcap which must now be explicitly
* given. We'll assume that the defaults are in effect for this terminal.
*/
void
adddefaults(void)
{
char *cap;
int sg;
if (verbose > 1)
(void) fprintf(trace, "assigning defaults.\n");
/* cr was assumed to be ^M, unless nc was given, */
/* which meant it could not be done. */
/* Also, xr meant that ^M acted strangely. */
if ((getinfostr("cr") == NULL) && !oboolval[uselevel][cap_nc] &&
!oboolval[uselevel][cap_xr])
if ((cap = getcapstr("cr")) == NULL)
putstr("cr", "\r");
else
putstr("cr", cap);
/* cursor down was assumed to be ^J if not specified by nl */
if (getinfostr("cud1") == NULL)
if (ostrval[uselevel][cap_nl] != NULL)
putstr("cud1", ostrval[uselevel][cap_nl]);
else
putstr("cud1", "\n");
/* ind was assumed to be ^J, unless ns was given, */
/* which meant it could not be done. */
if ((getinfostr("ind") == NULL) && !oboolval[uselevel][cap_ns])
if (ostrval[uselevel][cap_nl] == NULL)
putstr("ind", "\n");
else
putstr("ind", ostrval[uselevel][cap_nl]);
/* bel was assumed to be ^G */
if (getinfostr("bel") == NULL)
putstr("bel", "\07");
/* if bs, then could do backspacing, */
/* with value of bc, default of ^H */
if ((getinfostr("cub1") == NULL) && oboolval[uselevel][cap_bs])
if (ostrval[uselevel][cap_bc] != NULL)
putstr("cub1", ostrval[uselevel][cap_bc]);
else
putstr("cub1", "\b");
/* default xon to true */
if (!otgetflag("xo"))
putbool("xon", 1);
/* if pt, then hardware tabs are allowed, */
/* with value of ta, default of ^I */
if ((getinfostr("ht") == NULL) && oboolval[uselevel][cap_pt])
if ((cap = getcapstr("ta")) == NULL)
putstr("ht", "\t");
else
putstr("ht", cap);
/* The dX numbers are now stored as padding */
/* in the appropriate terminfo string. */
addpadding(onumval[uselevel][cap_dB], "cub1");
addpadding(onumval[uselevel][cap_dC], "cr");
addpadding(onumval[uselevel][cap_dF], "ff");
addpadding(onumval[uselevel][cap_dN], "cud1");
addpadding(onumval[uselevel][cap_dT], "ht");
/* The ug and sg caps were essentially identical, */
/* so ug almost never got used. We set sg from ug */
/* if it hasn't already been set. */
if (onumval[uselevel][cap_ug] >= 0 && (sg = otgetnum("sg")) < 0)
putnum("xmc", onumval[uselevel][cap_ug]);
else if ((onumval[uselevel][cap_ug] >= 0) &&
(sg >= 0) && (onumval[uselevel][cap_ug] != sg))
(void) fprintf(stderr,
"%s: TERM=%s: Warning: termcap sg and ug had different "
"values (%d<->%d).\n", progname, term_name, sg,
onumval[uselevel][cap_ug]);
/* The MT boolean was never really part of termcap, */
/* but we can check for it anyways. */
if (oboolval[uselevel][cap_MT] && !otgetflag("km"))
putbool("km", 1);
/* the rs string was renamed r2 (info rs2) */
if ((ostrval[uselevel][cap_rs] != NULL) &&
(ostrval[uselevel][cap_rs][0] != NULL))
putstr("rs2", ostrval[uselevel][cap_rs]);
handleko();
handlema();
}
#define caddch(x) *to++ = (x)
/*
* add the string to the string table
*/
char *
caddstr(char *to, char *str)
{
while (*str)
*to++ = *str++;
return (to);
}
/* If there is no padding info or parmed strings, */
/* then we do not need to copy the string. */
int
needscopying(char *string)
{
/* any string at all? */
if (string == NULL)
return (0);
/* any padding info? */
if (ispadchar(*string))
return (1);
/* any parmed info? */
while (*string)
if (*string++ == '%')
return (1);
return (0);
}
/*
* Certain manipulations of the stack require strange manipulations of the
* values that are on the stack. To handle these, we save the values of the
* parameters in registers at the very beginning and make the changes in
* the registers. We don't want to do this in the general case because of the
* potential performance loss.
*/
int
fancycap(char *string)
{
int parmset = 0;
while (*string)
if (*string++ == '%') {
switch (*string) {
/* These manipulate just the top value on */
/* the stack, so we only have to do */
/* something strange if a %r follows. */
case '>': case 'B': case 'D':
parmset = 1;
break;
/* If the parm has already been been */
/* pushed onto the stack by %>, then we */
/* can not reverse the parms and must get */
/* them from the registers. */
case 'r':
if (parmset)
return (1);
break;
/* This manipulates both parameters, so we */
/* cannot just do one and leave the value */
/* on the stack like we can with %>, */
/* %B or %D. */
case 'n':
return (1);
}
string++;
}
return (0);
}
/*
* Change old style of doing calculations to the new stack style.
* Note that this will not necessarily produce the most efficient string,
* but it will work.
*/
void
changecalculations()
{
int i, currentparm;
char *from, *to = nextstring;
int ch;
int parmset, parmsaved;
char padding[100], *saveto;
for (i = 0; strnames[i]; i++)
if (needscopying(strval[uselevel][i])) {
if (verbose) {
(void) fprintf(trace, "%s needs copying, "
"was:", strnames [i]);
tpr(trace, strval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
from = strval[uselevel][i];
strval[uselevel][i] = to;
currentparm = 1;
parmset = 0;
/* Handle padding information. Save it so that it can be */
/* placed at the end of the string where it should */
/* have been in the first place. */
if (ispadchar(*from)) {
saveto = to;
to = padding;
to = caddstr(to, "$<");
while (isdigit(*from) || *from == '.')
caddch(*from++);
if (*from == '*')
caddch(*from++);
caddch('>');
caddch('\0');
to = saveto;
} else
padding[0] = '\0';
if (fancycap(from)) {
to = caddstr(to, "%p1%Pa%p2%Pb");
parmsaved = 1;
(void) fprintf(stderr,
"%s: TERM=%s: Warning: the string "
"produced for '%s' may be inefficient.\n",
progname, term_name, strnames[i]);
(void) fprintf(stderr, "It should be "
"looked at by hand.\n");
} else
parmsaved = 0;
while ((ch = *from++) != '\0')
if (ch != '%')
caddch(ch);
else
switch (ch = *from++) {
case '.': /* %. -> %p1%c */
case 'd': /* %d -> %p1%d */
case '2': /* %2 -> %p1%2.2d */
case '3': /* %3 -> %p1%3.3d */
case '+':
/* %+x -> %p1%'x'%+%c */
case '>':
/* %>xy -> %p1%Pc%?%'x'%> */
/* %t%gc%'y'%+ */
/* if current value > x, then add y. */
/* No output. */
case 'B':
/* %B: BCD */
/* (16*(x/10))+(x%10) */
/* No output. */
/* (Adds Regent 100) */
case 'D':
/* %D: Reverse coding */
/* (x-2*(x%16)) */
/* No output. */
/* (Delta Data) */
if (!parmset)
if (parmsaved) {
to = caddstr(to, "%g");
if (currentparm == 1)
caddch('a');
else
caddch('b');
} else {
to = caddstr(to, "%p");
if (currentparm == 1)
caddch('1');
else
caddch('2');
}
currentparm = 3 - currentparm;
parmset = 0;
switch (ch) {
case '.':
to = caddstr(to, "%c");
break;
case 'd':
to = caddstr(to, "%d");
break;
case '2': case '3':
#ifdef USG /* Vr2==USG, Vr3==SYSV. Use %02d for Vr2, %2.2d for Vr3 */
caddch('%');
caddch('0');
#else
caddch('%');
caddch(ch);
caddch('.');
#endif /* USG vs. SYSV */
caddch(ch);
caddch('d');
break;
case '+':
to = caddstr(to, "%'");
caddch(*from++);
to = caddstr(to,
"'%+%c");
break;
case '>':
to = caddstr(to,
"%Pc%?%'");
caddch(*from++);
to = caddstr(to,
"'%>%t%gc%'");
caddch(*from++);
to = caddstr(to,
"'%+");
parmset = 1;
break;
case 'B':
to = caddstr(to,
"%Pc%gc%{10}%/%{16}%*%gc%{10}%m%+");
parmset = 1;
break;
case 'D':
to = caddstr(to,
"%Pc%gc%gc%{16}%m%{2}%*%-");
parmset = 1;
break;
}
break;
/* %r reverses current parameter */
case 'r':
currentparm = 3 - currentparm;
break;
/* %n: exclusive-or row AND column */
/* with 0140, 96 decimal, no output */
/* (Datamedia 2500, Exidy Sorceror) */
case 'n':
to = caddstr(to,
"%ga%'`'%^%Pa");
to = caddstr(to,
"%gb%'`'%^%Pb");
break;
/* assume %x means %x */
/* this includes %i and %% */
default:
caddch('%');
caddch(ch);
}
to = caddstr(to, padding);
caddch('\0');
if (verbose) {
(void) fprintf(trace, "and has become:");
tpr(trace, strval[uselevel][i]);
(void) fprintf(trace, ".\n");
}
}
nextstring = to;
}
static void
print_no_use_entry(void)
{
int i;
pr_heading("", buflongname);
pr_bheading();
for (i = 0; boolcodes[i]; i++)
if (boolval[0][i])
pr_boolean(boolnames[i], (char *)0, (char *)0, 1);
pr_bfooting();
pr_sheading();
for (i = 0; numcodes[i]; i++)
if (numval[0][i] > -1)
pr_number(numnames[i], (char *)0, (char *)0,
numval[0][i]);
pr_nfooting();
pr_sheading();
for (i = 0; strcodes[i]; i++)
if (strval[0][i])
pr_string(strnames[i], (char *)0, (char *)0,
strval[0][i]);
pr_sfooting();
}
static void
print_use_entry(char *usename)
{
int i;
pr_heading("", buflongname);
pr_bheading();
for (i = 0; boolcodes[i]; i++)
if (boolval[0][i] && !boolval[1][i])
pr_boolean(boolnames[i], (char *)0, (char *)0, 1);
else if (!boolval[0][i] && boolval[1][i])
pr_boolean(boolnames[i], (char *)0, (char *)0, -1);
pr_bfooting();
pr_nheading();
for (i = 0; numcodes[i]; i++)
if ((numval[0][i] > -1) && (numval[0][i] != numval[1][i]))
pr_number(numnames[i], (char *)0, (char *)0,
numval[0][i]);
else if ((numval [0] [i] == -1) && (numval [1] [i] > -1))
pr_number(numnames[i], (char *)0, (char *)0, -1);
pr_nfooting();
pr_sheading();
for (i = 0; strcodes[i]; i++)
/* print out str[0] if: */
/* str[0] != NULL and str[1] == NULL, or str[0] != str[1] */
if (strval[0][i] && ((strval[1][i] == NULL) ||
(strcmp(strval[0][i], strval[1][i]) != 0)))
pr_string(strnames[i], (char *)0, (char *)0,
strval[0][i]);
/* print out @ if str[0] == NULL and str[1] != NULL */
else if (strval[0][i] == NULL && strval[1][i] != NULL)
pr_string(strnames[i], (char *)0, (char *)0,
(char *)0);
pr_sfooting();
(void) printf("\tuse=%s,\n", usename);
}
static void
captoinfo(void)
{
char usename[512];
char *sterm_name;
if (term_name == NULL) {
(void) fprintf(stderr, "%s: Null term_name given.\n",
progname);
return;
}
if (verbose)
(void) fprintf(trace, "changing cap to info, TERM=%s.\n",
term_name);
uselevel = 0;
if (filltables() == 0)
return;
getlongname();
adddefaults();
changecalculations();
if (TLHtcfound != 0) {
uselevel = 1;
if (verbose)
(void) fprintf(trace, "use= found, %s uses %s.\n",
term_name, TLHtcname);
(void) strcpy(usename, TLHtcname);
sterm_name = term_name;
term_name = usename;
if (filltables() == 0)
return;
adddefaults();
changecalculations();
term_name = sterm_name;
print_use_entry(usename);
} else
print_no_use_entry();
}
#include <signal.h> /* use this file to determine if this is SVR4.0 system */
static void
use_etc_termcap(void)
{
if (verbose)
#ifdef SIGSTOP
(void) fprintf(trace, "reading from /usr/share/lib/termcap\n");
#else /* SIGSTOP */
(void) fprintf(trace, "reading from /etc/termcap\n");
#endif /* SIGSTOP */
term_name = getenv("TERM");
captoinfo();
}
static void
initdirname(void)
{
#if defined(SYSV) || defined(USG) /* handle both Sys Vr2 and Vr3 curses */
(void) getcwd(dirname, BUFSIZ-2);
#else
(void) getwd(dirname);
#endif /* SYSV || USG */
if (verbose)
(void) fprintf(trace, "current directory name=%s.\n", dirname);
environ = newenviron;
}
static void
setfilename(char *capfile)
{
if (capfile [0] == '/')
(void) snprintf(TERMCAP, sizeof (TERMCAP),
"TERMCAP=%s", capfile);
else
(void) snprintf(TERMCAP, sizeof (TERMCAP),
"TERMCAP=%s/%s", dirname, capfile);
if (verbose)
(void) fprintf(trace, "setting the environment for %s.\n",
TERMCAP);
}
static void
setterm_name(void)
{
if (verbose)
(void) fprintf(trace, "setting the environment "
"for TERM=%s.\n", term_name);
(void) snprintf(TERM, sizeof (TERM), "TERM=%s", term_name);
}
/* Look at the current line to see if it is a list of names. */
/* If it is, return the first name in the list, else NULL. */
/* As a side-effect, comment lines and blank lines */
/* are copied to standard output. */
char *
getterm_name(char *line)
{
char *lineptr = line;
if (verbose)
(void) fprintf(trace, "extracting name from '%s'.\n", line);
/* Copy comment lines out. */
if (*line == '#') {
if (copycomments)
(void) printf("%s", line);
}
/* Blank lines get copied too. */
else if (isspace (*line)) {
if (copycomments) {
for (; *lineptr; lineptr++)
if (!isspace(*lineptr))
break;
if (*lineptr == '\0')
(void) printf("\n");
}
}
else
for (; *lineptr; lineptr++)
if (*lineptr == '|' || *lineptr == ':') {
*lineptr = '\0';
if (verbose)
(void) fprintf(trace,
"returning %s.\n", line);
return (line);
}
if (verbose)
(void) fprintf(trace, "returning NULL.\n");
return (NULL);
}
static void
use_file(char *filename)
{
FILE *termfile;
char buffer[BUFSIZ];
if (verbose)
(void) fprintf(trace, "reading from %s.\n", filename);
if ((termfile = fopen(filename, "r")) == NULL) {
(void) fprintf(stderr, "%s: cannot open %s for reading.\n",
progname, filename);
return;
}
copycomments++;
setfilename(filename);
while (fgets(buffer, BUFSIZ, termfile) != NULL) {
if ((term_name = getterm_name(buffer)) != NULL) {
setterm_name();
captoinfo();
}
}
}
/*
* Sort a name and code table pair according to the name table.
* Use a simple bubble sort for now. Too bad I can't call qsort(3).
* At least I only have to do it once for each table.
*/
static void
sorttable(char *nametable[], char *codetable[])
{
int i, j;
char *c;
for (i = 0; nametable[i]; i++)
for (j = 0; j < i; j++)
if (strcmp(nametable[i], nametable[j]) < 0) {
c = nametable[i];
nametable[i] = nametable[j];
nametable[j] = c;
c = codetable[i];
codetable[i] = codetable[j];
codetable[j] = c;
}
}
/*
* Initialize and sort the name and code tables. Allocate space for the
* value tables.
*/
static void
inittables(void)
{
unsigned int i;
for (i = 0; boolnames [i]; i++)
;
boolval[0] = (char *)malloc(i * sizeof (char));
boolval[1] = (char *)malloc(i * sizeof (char));
boolcount = i;
sorttable(boolnames, boolcodes);
for (i = 0; numcodes [i]; i++)
;
numval[0] = (short *)malloc(i * sizeof (short));
numval[1] = (short *)malloc(i * sizeof (short));
numcount = i;
sorttable(numnames, numcodes);
for (i = 0; strcodes [i]; i++)
;
strval[0] = (char **)malloc(i * sizeof (char *));
strval[1] = (char **)malloc(i * sizeof (char *));
strcount = i;
sorttable(strnames, strcodes);
}
int
main(int argc, char **argv)
{
int c;
char _capbuffer [8192];
char _bp [TBUFSIZE];
char _buflongname [128];
capbuffer = &_capbuffer[0];
bp = &_bp[0];
buflongname = &_buflongname[0];
progname = argv[0];
while ((c = getopt(argc, argv, "1vVw:")) != EOF)
switch (c) {
case '1':
pr_onecolumn(1);
break;
case 'w':
pr_width(atoi(optarg));
break;
case 'v':
verbose++;
break;
case 'V':
(void) printf("%s: version %s\n", progname,
"@(#)curses:screen/captoinfo.c 1.12");
(void) fflush(stdout);
exit(0);
/* FALLTHROUGH (not really) */
case '?':
(void) fprintf(stderr,
"usage: %s [-1Vv] [-w width] "
"[filename ...]\n", progname);
(void) fprintf(stderr, "\t-1\tsingle column "
"output\n");
(void) fprintf(stderr,
"\t-v\tverbose debugging output\n");
(void) fprintf(stderr,
"\t-V\tprint program version\n");
exit(-1);
}
/* initialize */
pr_init(pr_terminfo);
inittables();
if (optind >= argc)
use_etc_termcap();
else {
initdirname();
for (; optind < argc; optind++)
use_file(argv [optind]);
}
return (0);
}
/* fake out the modules in print.c so we don't have to load in */
/* cexpand.c and infotocap.c */
/* ARGSUSED */
int
cpr(FILE *stream, char *string)
{
return (0);
}