1 /*
2 n10.c
3
4 Device interfaces
5 */
6
7 #include "tdef.h"
8 #include "ext.h"
9 #include "fns.h"
10 #include <ctype.h>
11
12 Term t; /* terminal characteristics */
13
14 int dtab;
15 int plotmode;
16 int esct;
17
18 enum { Notype = 0, Type = 1 };
19
parse(char * s,int typeit)20 static char *parse(char *s, int typeit) /* convert \0, etc to nroff driving table format */
21 { /* typeit => add a type id to the front for later use */
22 static char buf[100], *t, *obuf;
23 int quote = 0;
24 wchar_t wc;
25
26 obuf = typeit == Type ? buf : buf+1;
27 #ifdef UNICODE
28 if (mbtowc(&wc, s, strlen(s)) > 1) { /* it's multibyte, */
29 buf[0] = MBchar;
30 strcpy(buf+1, s);
31 return obuf;
32 } /* so just hand it back */
33 #endif /*UNICODE*/
34 buf[0] = Troffchar;
35 t = buf + 1;
36 if (*s == '"') {
37 s++;
38 quote = 1;
39 }
40 for (;;) {
41 if (quote && *s == '"') {
42 s++; /* pointless */
43 break;
44 }
45 if (!quote && (*s == ' ' || *s == '\t' || *s == '\n' || *s == '\0'))
46 break;
47 if (*s != '\\')
48 *t++ = *s++;
49 else {
50 s++; /* skip \\ */
51 if (isdigit(s[0]) && isdigit(s[1]) && isdigit(s[2])) {
52 *t++ = (s[0]-'0')<<6 | (s[1]-'0')<<3 | s[2]-'0';
53 s += 2;
54 } else if (isdigit(s[0])) {
55 *t++ = *s - '0';
56 } else if (*s == 'b') {
57 *t++ = '\b';
58 } else if (*s == 'n') {
59 *t++ = '\n';
60 } else if (*s == 'r') {
61 *t++ = '\r';
62 } else if (*s == 't') {
63 *t++ = '\t';
64 } else {
65 *t++ = *s;
66 }
67 s++;
68 }
69 }
70 *t = '\0';
71 return obuf;
72 }
73
74
getnrfont(FILE * fp)75 static int getnrfont(FILE *fp) /* read the nroff description file */
76 {
77 Chwid chtemp[NCHARS];
78 static Chwid chinit;
79 int i, nw, n, wid, code, type;
80 char buf[100], ch[100], s1[100], s2[100];
81 wchar_t wc;
82
83 code = 0; /* no idea what this should be */
84 chinit.wid = 1;
85 chinit.str = "";
86 for (i = 0; i < ALPHABET; i++) {
87 chtemp[i] = chinit; /* zero out to begin with */
88 chtemp[i].num = chtemp[i].code = i; /* every alphabetic character is itself */
89 chtemp[i].wid = 1; /* default ascii widths */
90 }
91 skipline(fp);
92 nw = ALPHABET;
93 while (fgets(buf, sizeof buf, fp) != NULL) {
94 sscanf(buf, "%s %s %[^\n]", ch, s1, s2);
95 if (!eq(s1, "\"")) { /* genuine new character */
96 sscanf(s1, "%d", &wid);
97 } /* else it's a synonym for prev character, */
98 /* so leave previous values intact */
99
100 /* decide what kind of alphabet it might come from */
101
102 if (strlen(ch) == 1) { /* it's ascii */
103 n = ch[0]; /* origin includes non-graphics */
104 chtemp[n].num = ch[0];
105 } else if (ch[0] == '\\' && ch[1] == '0') {
106 n = strtol(ch+1, 0, 0); /* \0octal or \0xhex */
107 chtemp[n].num = n;
108 #ifdef UNICODE
109 } else if (mbtowc(&wc, ch, strlen(ch)) > 1) {
110 chtemp[nw].num = chadd(ch, MBchar, Install);
111 n = nw;
112 nw++;
113 #endif /*UNICODE*/
114 } else {
115 if (strcmp(ch, "---") == 0) { /* no name */
116 /* code used to be uninitialised here */
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
n_ptinit(void)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(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
n_specnames(void)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
twdone(void)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
n_ptout(Tchar i)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
ptout1(void)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
plot(char * x)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
move(void)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
n_ptlead(void)537 void n_ptlead(void)
538 {
539 move();
540 }
541
542
n_ptpause(void)543 void n_ptpause(void )
544 {
545 char junk;
546
547 flusho();
548 read(2, &junk, 1);
549 }
550