xref: /freebsd/contrib/tcsh/vms.termcap.c (revision d6b92ffa) 
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"
12 RCSID("$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 
34 char		*capab;		/* the capability itself */
35 
36 extern char	*getenv();	/* new, improved getenv */
37 #ifndef fopen
38 extern 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  */
46 int
47 tgetent(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
107 sscanf 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  */
148 int
149 tgetnum(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  */
181 int
182 tgetflag(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  */
206 char *
207 tgetstr(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  */
284 char *
285 tgoto(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  */
337 int
338 tputs(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 */
355