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