/contrib/tcsh/vms.termcap.c

  1/* $Header: /p/tcsh/cvsroot/tcsh/vms.termcap.c,v 1.12 2011/01/09 16:25:29 christos Exp $ */
  2/*
  3 *	termcap.c	1.1	20/7/87		agc	Joypace Ltd
  4 *
  5 *	Copyright Joypace Ltd, London, UK, 1987. All rights reserved.
  6 *	This file may be freely distributed provided that this notice
  7 *	remains attached.
  8 *
  9 *	A public domain implementation of the termcap(3) routines.
 10 */
 11#include "sh.h"
 12RCSID("$tcsh: vms.termcap.c,v 1.12 2011/01/09 16:25:29 christos Exp $")
 13#if defined(_VMS_POSIX) || defined(_OSD_POSIX) || defined(__ANDROID__)
 14/*    efth      1988-Apr-29
 15
 16    - Correct when TERM != name and TERMCAP is defined   [tgetent]
 17    - Correct the comparison for the terminal name       [tgetent]
 18    - Correct the value of ^x escapes                    [tgetstr]
 19    - Added %r to reverse row/column			 [tgoto]
 20
 21     Paul Gillingwater <paul@actrix.gen.nz> July 1992
 22	- Modified to allow terminal aliases in termcap file
 23	- Uses TERMCAP environment variable for file only
 24*/
 25
 26#include	<stdio.h>
 27#include	<string.h>
 28
 29#define CAPABLEN	2
 30
 31#define ISSPACE(c)  ((c) == ' ' || (c) == '\t' || (c) == '\r' || (c) == '\n')
 32#define ISDIGIT(x)  ((x) >= '0' && (x) <= '9')
 33
 34char		*capab;		/* the capability itself */
 35
 36extern char	*getenv();	/* new, improved getenv */
 37#ifndef fopen
 38extern FILE	*fopen();	/* old fopen */
 39#endif
 40
 41/*
 42 *	tgetent - get the termcap entry for terminal name, and put it
 43 *	in bp (which must be an array of 1024 chars). Returns 1 if
 44 *	termcap entry found, 0 if not found, and -1 if file not found.
 45 */
 46int
 47tgetent(char *bp, char *name)
 48{
 49#ifdef __ANDROID__
 50	/* Use static termcap entry since termcap file usually doesn't exist. */
 51	capab = bp;
 52	strcpy(bp,
 53	"linux|linux console:"
 54        ":am:eo:mi:ms:xn:xo:"
 55        ":it#8:"
 56        ":AL=\\E[%dL:DC=\\E[%dP:DL=\\E[%dM:IC=\\E[%d@:K2=\\E[G:al=\\E[L:"
 57        ":bl=^G:cd=\\E[J:ce=\\E[K:cl=\\E[H\\E[J:cm=\\E[%i%d;%dH:cr=^M:"
 58        ":cs=\\E[%i%d;%dr:ct=\\E[3g:dc=\\E[P:dl=\\E[M:do=^J:ec=\\E[%dX:"
 59        ":ei=\\E[4l:ho=\\E[H:ic=\\E[@:im=\\E[4h:k1=\\E[[A:k2=\\E[[B:"
 60        ":k3=\\E[[C:k4=\\E[[D:k5=\\E[[E:k6=\\E[17~:k7=\\E[18~:k8=\\E[19~:"
 61        ":k9=\\E[20~:kD=\\E[3~:kI=\\E[2~:kN=\\E[6~:kP=\\E[5~:kb=\\177:"
 62        ":kd=\\E[B:kh=\\E[1~:kl=\\E[D:kr=\\E[C:ku=\\E[A:le=^H:mb=\\E[5m:"
 63        ":md=\\E[1m:me=\\E[0m:mh=\\E[2m:mr=\\E[7m:nd=\\E[C:nw=^M^J:"
 64        ":rc=\\E8:sc=\\E7:se=\\E[27m:sf=^J:so=\\E[7m:sr=\\EM:st=\\EH:ta=^I:"
 65        ":ue=\\E[24m:up=\\E[A:us=\\E[4m:vb=200\\E[?5h\\E[?5l:"
 66        ":ve=\\E[?25h\\E[?0c:vi=\\E[?25l\\E[?1c:vs=\\E[?25h\\E[?0c:"
 67	);
 68	return(1);
 69#else
 70	FILE	*fp;
 71	char	*termfile;
 72	char	*cp,
 73		*ptr,		/* temporary pointer */
 74		tmp[1024];	/* buffer for terminal name *//*FIXBUF*/
 75	size_t	len = strlen(name);
 76
 77	capab = bp;
 78
 79	/* Use TERMCAP to override default. */
 80
 81	termfile = getenv("TERMCAP");
 82	if (termfile == NULL ) termfile = "/etc/termcap";
 83
 84	if ((fp = fopen(termfile, "r")) == (FILE *) NULL) {
 85		fprintf(stderr, CGETS(31, 1,
 86		        "Can't open TERMCAP: [%s]\n"), termfile);
 87		fprintf(stderr, CGETS(31, 2, "Can't open %s.\n"), termfile);
 88		sleep(1);
 89		return(-1);
 90	}
 91
 92	while (fgets(bp, 1024, fp) != NULL) {
 93		/* Any line starting with # or NL is skipped as a comment */
 94		if ((*bp == '#') || (*bp == '\n')) continue;
 95
 96		/* Look for lines which end with two backslashes,
 97		and then append the next line. */
 98		while (*(cp = &bp[strlen(bp) - 2]) == '\\')
 99			fgets(cp, 1024, fp);
100
101		/* Skip over any spaces or tabs */
102		for (++cp ; ISSPACE(*cp) ; cp++);
103
104		/*  Make sure "name" matches exactly  (efth)  */
105
106/* Here we might want to look at any aliases as well.  We'll use
107sscanf to look at aliases.  These are delimited by '|'. */
108
109		sscanf(bp,"%[^|]",tmp);
110		if (strncmp(name, tmp, len) == 0) {
111			fclose(fp);
112#ifdef DEBUG
113	fprintf(stderr, CGETS(31, 3, "Found %s in %s.\n"), name, termfile);
114	sleep(1);
115#endif /* DEBUG */
116			return(1);
117		}
118		ptr = bp;
119		while ((ptr = strchr(ptr,'|')) != NULL) {
120			ptr++;
121			if (strchr(ptr,'|') == NULL) break;
122			sscanf(ptr,"%[^|]",tmp);
123			if (strncmp(name, tmp, len) == 0) {
124				fclose(fp);
125#ifdef DEBUG
126	fprintf(stderr,CGETS(31, 3, "Found %s in %s.\n"), name, termfile);
127	sleep(1);
128#endif /* DEBUG */
129				return(1);
130			}
131		}
132	}
133	/* If we get here, then we haven't found a match. */
134	fclose(fp);
135#ifdef DEBUG
136	fprintf(stderr,CGETS(31, 4, "No match found for %s in file %s\n"),
137		name, termfile);
138	sleep(1);
139#endif /* DEBUG */
140	return(0);
141#endif /* ANDROID */
142}
143
144/*
145 *	tgetnum - get the numeric terminal capability corresponding
146 *	to id. Returns the value, -1 if invalid.
147 */
148int
149tgetnum(char *id)
150{
151	char	*cp;
152	int	ret;
153
154	if ((cp = capab) == NULL || id == NULL)
155		return(-1);
156	while (*++cp != ':')
157		;
158	for (++cp ; *cp ; cp++) {
159		while (ISSPACE(*cp))
160			cp++;
161		if (strncmp(cp, id, CAPABLEN) == 0) {
162			while (*cp && *cp != ':' && *cp != '#')
163				cp++;
164			if (*cp != '#')
165				return(-1);
166			for (ret = 0, cp++ ; *cp && ISDIGIT(*cp) ; cp++)
167				ret = ret * 10 + *cp - '0';
168			return(ret);
169		}
170		while (*cp && *cp != ':')
171			cp++;
172	}
173	return(-1);
174}
175
176/*
177 *	tgetflag - get the boolean flag corresponding to id. Returns -1
178 *	if invalid, 0 if the flag is not in termcap entry, or 1 if it is
179 *	present.
180 */
181int
182tgetflag(char *id)
183{
184	char	*cp;
185
186	if ((cp = capab) == NULL || id == NULL)
187		return(-1);
188	while (*++cp != ':')
189		;
190	for (++cp ; *cp ; cp++) {
191		while (ISSPACE(*cp))
192			cp++;
193		if (strncmp(cp, id, CAPABLEN) == 0)
194			return(1);
195		while (*cp && *cp != ':')
196			cp++;
197	}
198	return(0);
199}
200
201/*
202 *	tgetstr - get the string capability corresponding to id and place
203 *	it in area (advancing area at same time). Expand escape sequences
204 *	etc. Returns the string, or NULL if it can't do it.
205 */
206char *
207tgetstr(char *id, char **area)
208{
209	char	*cp;
210	char	*ret;
211	int	i;
212
213	if ((cp = capab) == NULL || id == NULL)
214		return(NULL);
215	while (*++cp != ':')
216		;
217	for (++cp ; *cp ; cp++) {
218		while (ISSPACE(*cp))
219			cp++;
220		if (strncmp(cp, id, CAPABLEN) == 0) {
221			while (*cp && *cp != ':' && *cp != '=')
222				cp++;
223			if (*cp != '=')
224				return(NULL);
225			for (ret = *area, cp++; *cp && *cp != ':' ; 
226				(*area)++, cp++)
227				switch(*cp) {
228				case '^' :
229					**area = *++cp - '@'; /* fix (efth)*/
230					break;
231				case '\\' :
232					switch(*++cp) {
233					case 'E' :
234						**area = CTL_ESC('\033');
235						break;
236					case 'n' :
237						**area = '\n';
238						break;
239					case 'r' :
240						**area = '\r';
241						break;
242					case 't' :
243						**area = '\t';
244						break;
245					case 'b' :
246						**area = '\b';
247						break;
248					case 'f' :
249						**area = '\f';
250						break;
251					case '0' :
252					case '1' :
253					case '2' :
254					case '3' :
255						for (i=0 ; *cp && ISDIGIT(*cp) ;
256							 cp++)
257							i = i * 8 + *cp - '0';
258						**area = i;
259						cp--;
260						break;
261					case '^' :
262					case '\\' :
263						**area = *cp;
264						break;
265					}
266					break;
267				default :
268					**area = *cp;
269				}
270			*(*area)++ = '\0';
271			return(ret);
272		}
273		while (*cp && *cp != ':')
274			cp++;
275	}
276	return(NULL);
277}
278
279/*
280 *	tgoto - given the cursor motion string cm, make up the string
281 *	for the cursor to go to (destcol, destline), and return the string.
282 *	Returns "OOPS" if something's gone wrong, or the string otherwise.
283 */
284char *
285tgoto(char *cm, int destcol, int destline)
286{
287	char	*rp;
288	static char	ret[24];
289	int		incr = 0;
290	int 		argno = 0, numval;
291
292	for (rp = ret ; *cm ; cm++) {
293		switch(*cm) {
294		case '%' :
295			switch(*++cm) {
296			case '+' :
297				numval = (argno == 0 ? destline : destcol);
298				argno = 1 - argno;
299				*rp++ = numval + incr + *++cm;
300				break;
301
302			case '%' :
303				*rp++ = '%';
304				break;
305
306			case 'i' :
307				incr = 1;
308				break;
309
310			case 'd' :
311				numval = (argno == 0 ? destline : destcol);
312				numval += incr;
313				argno = 1 - argno;
314				*rp++ = '0' + (numval/10);
315				*rp++ = '0' + (numval%10);
316				break;
317
318			case 'r' :
319				argno = 1;
320				break;
321			}
322
323			break;
324		default :
325			*rp++ = *cm;
326		}
327	}
328	*rp = '\0';
329	return(ret);
330}
331
332/*
333 *	tputs - put the string cp out onto the terminal, using the function
334 *	outc. This should do padding for the terminal, but I can't find a
335 *	terminal that needs padding at the moment...
336 */
337int
338tputs(char *cp, int affcnt, int (*outc)())
339{
340	unsigned long delay = 0;
341
342	if (cp == NULL)
343		return(1);
344	/* do any padding interpretation - left null for MINIX just now */
345	for (delay = 0; *cp && ISDIGIT(*cp) ; cp++)
346		delay = delay * 10 + *cp - '0';
347	while (*cp)
348		(*outc)(*cp++);
349#ifdef _OSD_POSIX
350	usleep(delay*100); /* strictly spoken, it should be *1000 */
351#endif
352	return(1);
353}
354#endif /* _VMS_POSIX || _OSD_POSIX */