1 /*
2 n10.c
3 
4 Device interfaces
5 */
6 
7 #include <u.h>
8 #include "tdef.h"
9 #include "ext.h"
10 #include "fns.h"
11 #include <ctype.h>
12 
13 Term	t;	/* terminal characteristics */
14 
15 int	dtab;
16 int	plotmode;
17 int	esct;
18 
19 enum	{ Notype = 0, Type = 1 };
20 
21 static char *parse(char *s, int typeit)	/* convert \0, etc to nroff driving table format */
22 {		/* typeit => add a type id to the front for later use */
23 	static char buf[100], *t, *obuf;
24 	int quote = 0;
25 	wchar_t wc;
26 
27 	obuf = typeit == Type ? buf : buf+1;
28 #ifdef UNICODE
29 	if (mbtowc(&wc, s, strlen(s)) > 1) {	/* it's multibyte, */
30 		buf[0] = MBchar;
31 		strcpy(buf+1, s);
32 		return obuf;
33 	}			/* so just hand it back */
34 #endif	/*UNICODE*/
35 	buf[0] = Troffchar;
36 	t = buf + 1;
37 	if (*s == '"') {
38 		s++;
39 		quote = 1;
40 	}
41 	for (;;) {
42 		if (quote && *s == '"') {
43 			s++;
44 			break;
45 		}
46 		if (!quote && (*s == ' ' || *s == '\t' || *s == '\n' || *s == '\0'))
47 			break;
48 		if (*s != '\\')
49 			*t++ = *s++;
50 		else {
51 			s++;	/* skip \\ */
52 			if (isdigit((uchar)s[0]) && isdigit((uchar)s[1]) && isdigit((uchar)s[2])) {
53 				*t++ = (s[0]-'0')<<6 | (s[1]-'0')<<3 | s[2]-'0';
54 				s += 2;
55 			} else if (isdigit((uchar)s[0])) {
56 				*t++ = *s - '0';
57 			} else if (*s == 'b') {
58 				*t++ = '\b';
59 			} else if (*s == 'n') {
60 				*t++ = '\n';
61 			} else if (*s == 'r') {
62 				*t++ = '\r';
63 			} else if (*s == 't') {
64 				*t++ = '\t';
65 			} else {
66 				*t++ = *s;
67 			}
68 			s++;
69 		}
70 	}
71 	*t = '\0';
72 	return obuf;
73 }
74 
75 
76 static int getnrfont(FILE *fp)	/* read the nroff description file */
77 {
78 	Chwid chtemp[NCHARS];
79 	static Chwid chinit;
80 	int i, nw, n, wid, code, type;
81 	char buf[100], ch[100], s1[100], s2[100];
82 	wchar_t wc;
83 
84 	code = 0;
85 	chinit.wid = 1;
86 	chinit.str = "";
87 	for (i = 0; i < ALPHABET; i++) {
88 		chtemp[i] = chinit;	/* zero out to begin with */
89 		chtemp[i].num = chtemp[i].code = i;	/* every alphabetic character is itself */
90 		chtemp[i].wid = 1;	/* default ascii widths */
91 	}
92 	skipline(fp);
93 	nw = ALPHABET;
94 	while (fgets(buf, sizeof buf, fp) != NULL) {
95 		sscanf(buf, "%s %s %[^\n]", ch, s1, s2);
96 		if (!eq(s1, "\"")) {	/* genuine new character */
97 			sscanf(s1, "%d", &wid);
98 		} /* else it's a synonym for prev character, */
99 			/* so leave previous values intact */
100 
101 		/* decide what kind of alphabet it might come from */
102 
103 		if (strlen(ch) == 1) {	/* it's ascii */
104 			n = ch[0];	/* origin includes non-graphics */
105 			chtemp[n].num = ch[0];
106 		} else if (ch[0] == '\\' && ch[1] == '0') {
107 			n = strtol(ch+1, 0, 0);	/* \0octal or \0xhex */
108 			chtemp[n].num = n;
109 #ifdef UNICODE
110 		} else if (mbtowc(&wc, ch, strlen(ch)) > 1) {
111 			chtemp[nw].num = chadd(ch, MBchar, Install);
112 			n = nw;
113 			nw++;
114 #endif	/*UNICODE*/
115 		} else {
116 			if (strcmp(ch, "---") == 0) { /* no name */
117 				sprintf(ch, "%d", code);
118 				type = Number;
119 			} else
120 				type = Troffchar;
121 /* BUG in here somewhere when same character occurs twice in table */
122 			chtemp[nw].num = chadd(ch, type, Install);
123 			n = nw;
124 			nw++;
125 		}
126 		chtemp[n].wid = wid;
127 		chtemp[n].str = strdupl(parse(s2, Type));
128 	}
129 	t.tfont.nchars = nw;
130 	t.tfont.wp = (Chwid *) malloc(nw * sizeof(Chwid));
131 	if (t.tfont.wp == NULL)
132 		return -1;
133 	for (i = 0; i < nw; i++)
134 		t.tfont.wp[i] = chtemp[i];
135 	return 1;
136 }
137 
138 
139 void n_ptinit(void)
140 {
141 	int i;
142 	char *p;
143 	char opt[50], cmd[100];
144 	FILE *fp;
145 
146 	hmot = n_hmot;
147 	makem = n_makem;
148 	setabs = n_setabs;
149 	setch = n_setch;
150 	sethl = n_sethl;
151 	setht = n_setht;
152 	setslant = n_setslant;
153 	vmot = n_vmot;
154 	xlss = n_xlss;
155 	findft = n_findft;
156 	width = n_width;
157 	mchbits = n_mchbits;
158 	ptlead = n_ptlead;
159 	ptout = n_ptout;
160 	ptpause = n_ptpause;
161 	setfont = n_setfont;
162 	setps = n_setps;
163 	setwd = n_setwd;
164 
165 	if ((p = getenv("NROFFTERM")) != 0)
166 		strcpy(devname, p);
167 	if (termtab[0] == 0)
168 		strcpy(termtab,DWBntermdir);
169 	if (fontdir[0] == 0)
170 		strcpy(fontdir, "");
171 	if (devname[0] == 0)
172 		strcpy(devname, NDEVNAME);
173 	pl = 11*INCH;
174 	po = PO;
175 	hyf = 0;
176 	ascii = 1;
177 	lg = 0;
178 	fontlab[1] = 'R';
179 	fontlab[2] = 'I';
180 	fontlab[3] = 'B';
181 	fontlab[4] = PAIR('B','I');
182 	fontlab[5] = 'D';
183 	bdtab[3] = 3;
184 	bdtab[4] = 3;
185 
186 	/* hyphalg = 0;	/* for testing */
187 
188 	strcat(termtab, devname);
189 	if ((fp = fopen(unsharp(termtab), "r")) == NULL) {
190 		ERROR "cannot open %s", termtab WARN;
191 		exit(-1);
192 	}
193 
194 
195 /* this loop isn't robust about input format errors. */
196 /* it assumes  name, name-value pairs..., charset */
197 /* god help us if we get out of sync. */
198 
199 	fscanf(fp, "%s", cmd);	/* should be device name... */
200 	if (!is(devname) && trace)
201 		ERROR "wrong terminal name: saw %s, wanted %s", cmd, devname WARN;
202 	for (;;) {
203 		fscanf(fp, "%s", cmd);
204 		if (is("charset"))
205 			break;
206 		fscanf(fp, " %[^\n]", opt);
207 		if (is("bset")) t.bset = atoi(opt);
208 		else if (is("breset")) t.breset = atoi(opt);
209 		else if (is("Hor")) t.Hor = atoi(opt);
210 		else if (is("Vert")) t.Vert = atoi(opt);
211 		else if (is("Newline")) t.Newline = atoi(opt);
212 		else if (is("Char")) t.Char = atoi(opt);
213 		else if (is("Em")) t.Em = atoi(opt);
214 		else if (is("Halfline")) t.Halfline = atoi(opt);
215 		else if (is("Adj")) t.Adj = atoi(opt);
216 		else if (is("twinit")) t.twinit = strdupl(parse(opt, Notype));
217 		else if (is("twrest")) t.twrest = strdupl(parse(opt, Notype));
218 		else if (is("twnl")) t.twnl = strdupl(parse(opt, Notype));
219 		else if (is("hlr")) t.hlr = strdupl(parse(opt, Notype));
220 		else if (is("hlf")) t.hlf = strdupl(parse(opt, Notype));
221 		else if (is("flr")) t.flr = strdupl(parse(opt, Notype));
222 		else if (is("bdon")) t.bdon = strdupl(parse(opt, Notype));
223 		else if (is("bdoff")) t.bdoff = strdupl(parse(opt, Notype));
224 		else if (is("iton")) t.iton = strdupl(parse(opt, Notype));
225 		else if (is("itoff")) t.itoff = strdupl(parse(opt, Notype));
226 		else if (is("ploton")) t.ploton = strdupl(parse(opt, Notype));
227 		else if (is("plotoff")) t.plotoff = strdupl(parse(opt, Notype));
228 		else if (is("up")) t.up = strdupl(parse(opt, Notype));
229 		else if (is("down")) t.down = strdupl(parse(opt, Notype));
230 		else if (is("right")) t.right = strdupl(parse(opt, Notype));
231 		else if (is("left")) t.left = strdupl(parse(opt, Notype));
232 		else
233 			ERROR "bad tab.%s file, %s %s", devname, cmd, opt WARN;
234 	}
235 
236 	getnrfont(fp);
237 	fclose(fp);
238 
239 	sps = EM;
240 	ics = EM * 2;
241 	dtab = 8 * t.Em;
242 	for (i = 0; i < 16; i++)
243 		tabtab[i] = dtab * (i + 1);
244 	pl = 11 * INCH;
245 	po = PO;
246 	spacesz = SS;
247 	lss = lss1 = VS;
248 	ll = ll1 = lt = lt1 = LL;
249 	smnt = nfonts = 5;	/* R I B BI S */
250 	n_specnames();	/* install names like "hyphen", etc. */
251 	if (eqflg)
252 		t.Adj = t.Hor;
253 }
254 
255 
256 void n_specnames(void)
257 {
258 
259 	int	i;
260 
261 	for (i = 0; spnames[i].n; i++)
262 		*spnames[i].n = chadd(spnames[i].v, Troffchar, Install);
263 	if (c_isalnum == 0)
264 		c_isalnum = NROFFCHARS;
265 }
266 
267 void twdone(void)
268 {
269 	if (!TROFF && t.twrest) {
270 		obufp = obuf;
271 		oputs(t.twrest);
272 		flusho();
273 		if (pipeflg) {
274 			pclose(ptid);
275 		}
276 		restore_tty();
277 	}
278 }
279 
280 
281 void n_ptout(Tchar i)
282 {
283 	*olinep++ = i;
284 	if (olinep >= &oline[LNSIZE])
285 		olinep--;
286 	if (cbits(i) != '\n')
287 		return;
288 	olinep--;
289 	lead += dip->blss + lss - t.Newline;
290 	dip->blss = 0;
291 	esct = esc = 0;
292 	if (olinep > oline) {
293 		move();
294 		ptout1();
295 		oputs(t.twnl);
296 	} else {
297 		lead += t.Newline;
298 		move();
299 	}
300 	lead += dip->alss;
301 	dip->alss = 0;
302 	olinep = oline;
303 }
304 
305 
306 void ptout1(void)
307 {
308 	int k;
309 	char *codep;
310 	int w, j, phyw;
311 	Tchar *q, i;
312 	static int oxfont = FT;	/* start off in roman */
313 
314 	for (q = oline; q < olinep; q++) {
315 		i = *q;
316 		if (ismot(i)) {
317 			j = absmot(i);
318 			if (isnmot(i))
319 				j = -j;
320 			if (isvmot(i))
321 				lead += j;
322 			else
323 				esc += j;
324 			continue;
325 		}
326 		if ((k = cbits(i)) <= ' ') {
327 			switch (k) {
328 			case ' ': /*space*/
329 				esc += t.Char;
330 				break;
331 			case '\033':
332 			case '\007':
333 			case '\016':
334 			case '\017':
335 				oput(k);
336 				break;
337 			}
338 			continue;
339 		}
340 		phyw = w = t.Char * t.tfont.wp[k].wid;
341 		if (iszbit(i))
342 			w = 0;
343 		if (esc || lead)
344 			move();
345 		esct += w;
346 		xfont = fbits(i);
347 		if (xfont != oxfont) {
348 			switch (oxfont) {
349 			case ULFONT:	oputs(t.itoff); break;
350 			case BDFONT:	oputs(t.bdoff); break;
351 			case BIFONT:	oputs(t.itoff); oputs(t.bdoff); break;
352 			}
353 			switch (xfont) {
354 			case ULFONT:
355 				if (*t.iton & 0377) oputs(t.iton); break;
356 			case BDFONT:
357 				if (*t.bdon & 0377) oputs(t.bdon); break;
358 			case BIFONT:
359 				if (*t.bdon & 0377) oputs(t.bdon);
360 				if (*t.iton & 0377) oputs(t.iton);
361 				break;
362 			}
363 			oxfont = xfont;
364 		}
365 		if ((xfont == ulfont || xfont == BIFONT) && !(*t.iton & 0377)) {
366 			for (j = w / t.Char; j > 0; j--)
367 				oput('_');
368 			for (j = w / t.Char; j > 0; j--)
369 				oput('\b');
370 		}
371 		if (!(*t.bdon & 0377) && ((j = bdtab[xfont]) || xfont == BDFONT || xfont == BIFONT))
372 			j++;
373 		else
374 			j = 1;	/* number of overstrikes for bold */
375 		if (k < ALPHABET) {	/* ordinary ascii */
376 			oput(k);
377 			while (--j > 0) {
378 				oput('\b');
379 				oput(k);
380 			}
381 		} else if (k >= t.tfont.nchars) {	/* BUG -- not really understood */
382 /* fprintf(stderr, "big char %d, name %s\n", k, chname(k)); /* */
383 			oputs(chname(k)+1);	/* BUG: should separate Troffchar and MBchar... */
384 		} else if (t.tfont.wp[k].str == 0) {
385 /* fprintf(stderr, "nostr char %d, name %s\n", k, chname(k)); /* */
386 			oputs(chname(k)+1);	/* BUG: should separate Troffchar and MBchar... */
387 		} else if (t.tfont.wp[k].str[0] == MBchar) {	/* parse() puts this on */
388 /* fprintf(stderr, "MBstr char %d, name %s\n", k, chname(k)); /* */
389 			oputs(t.tfont.wp[k].str+1);
390 		} else {
391 			int oj = j;
392 /* fprintf(stderr, "str char %d, name %s\n", k, chname(k)); /* */
393 			codep = t.tfont.wp[k].str+1;	/* Troffchar by default */
394 			while (*codep != 0) {
395 				if (*codep & 0200) {
396 					codep = plot(codep);
397 					oput(' ');
398 				} else {
399 					if (*codep == '%')	/* escape */
400 						codep++;
401 					oput(*codep);
402 					if (*codep == '\033')
403 						oput(*++codep);
404 					else if (*codep != '\b')
405 						for (j = oj; --j > 0; ) {
406 							oput('\b');
407 							oput(*codep);
408 						}
409 					codep++;
410 				}
411 			}
412 		}
413 		if (!w)
414 			for (j = phyw / t.Char; j > 0; j--)
415 				oput('\b');
416 	}
417 }
418 
419 
420 char *plot(char *x)
421 {
422 	int	i;
423 	char	*j, *k;
424 
425 	oputs(t.ploton);
426 	k = x;
427 	if ((*k & 0377) == 0200)
428 		k++;
429 	for (; *k; k++) {
430 		if (*k == '%') {	/* quote char within plot mode */
431 			oput(*++k);
432 		} else if (*k & 0200) {
433 			if (*k & 0100) {
434 				if (*k & 040)
435 					j = t.up;
436 				else
437 					j = t.down;
438 			} else {
439 				if (*k & 040)
440 					j = t.left;
441 				else
442 					j = t.right;
443 			}
444 			if ((i = *k & 037) == 0) {	/* 2nd 0200 turns it off */
445 				++k;
446 				break;
447 			}
448 			while (i--)
449 				oputs(j);
450 		} else
451 			oput(*k);
452 	}
453 	oputs(t.plotoff);
454 	return(k);
455 }
456 
457 
458 void move(void)
459 {
460 	int k;
461 	char *i, *j;
462 	char *p, *q;
463 	int iesct, dt;
464 
465 	iesct = esct;
466 	if (esct += esc)
467 		i = "\0";
468 	else
469 		i = "\n\0";
470 	j = t.hlf;
471 	p = t.right;
472 	q = t.down;
473 	if (lead) {
474 		if (lead < 0) {
475 			lead = -lead;
476 			i = t.flr;
477 			/*	if(!esct)i = t.flr; else i = "\0";*/
478 			j = t.hlr;
479 			q = t.up;
480 		}
481 		if (*i & 0377) {
482 			k = lead / t.Newline;
483 			lead = lead % t.Newline;
484 			while (k--)
485 				oputs(i);
486 		}
487 		if (*j & 0377) {
488 			k = lead / t.Halfline;
489 			lead = lead % t.Halfline;
490 			while (k--)
491 				oputs(j);
492 		} else { /* no half-line forward, not at line begining */
493 			k = lead / t.Newline;
494 			lead = lead % t.Newline;
495 			if (k > 0)
496 				esc = esct;
497 			i = "\n";
498 			while (k--)
499 				oputs(i);
500 		}
501 	}
502 	if (esc) {
503 		if (esc < 0) {
504 			esc = -esc;
505 			j = "\b";
506 			p = t.left;
507 		} else {
508 			j = " ";
509 			if (hflg)
510 				while ((dt = dtab - (iesct % dtab)) <= esc) {
511 					if (dt % t.Em)
512 						break;
513 					oput(TAB);
514 					esc -= dt;
515 					iesct += dt;
516 				}
517 		}
518 		k = esc / t.Em;
519 		esc = esc % t.Em;
520 		while (k--)
521 			oputs(j);
522 	}
523 	if ((*t.ploton & 0377) && (esc || lead)) {
524 		oputs(t.ploton);
525 		esc /= t.Hor;
526 		lead /= t.Vert;
527 		while (esc--)
528 			oputs(p);
529 		while (lead--)
530 			oputs(q);
531 		oputs(t.plotoff);
532 	}
533 	esc = lead = 0;
534 }
535 
536 
537 void n_ptlead(void)
538 {
539 	move();
540 }
541 
542 
543 void n_ptpause(void )
544 {
545 	char	junk;
546 
547 	flusho();
548 	read(2, &junk, 1);
549 }