1 61f5c35c 2004-05-15 devnull #include <u.h>
2 61f5c35c 2004-05-15 devnull #include <libc.h>
3 61f5c35c 2004-05-15 devnull #include <bio.h>
4 61f5c35c 2004-05-15 devnull #include <stdio.h>
5 61f5c35c 2004-05-15 devnull #include "../common/common.h"
6 61f5c35c 2004-05-15 devnull #include "tr2post.h"
8 61f5c35c 2004-05-15 devnull char devname[20] = { 'u', 't', 'f', '\0' };
9 61f5c35c 2004-05-15 devnull int resolution;
10 61f5c35c 2004-05-15 devnull int minx, miny;
12 61f5c35c 2004-05-15 devnull struct sjt {
13 61f5c35c 2004-05-15 devnull char *str;
14 61f5c35c 2004-05-15 devnull void (*func)(void *);
17 61f5c35c 2004-05-15 devnull /* I won't need this if getfields can replace sscanf
19 b855148c 2004-05-16 devnull extern void picture(Biobufhdr *);
20 61f5c35c 2004-05-15 devnull extern void notavail(char *);
23 b855148c 2004-05-16 devnull PSInclude(Biobufhdr *inp) {
24 61f5c35c 2004-05-15 devnull char buf[256];
26 61f5c35c 2004-05-15 devnull Bgetfield(inp, 's', buf, 256);
27 61f5c35c 2004-05-15 devnull if(pageon()) {
28 61f5c35c 2004-05-15 devnull endstring();
29 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%s\n", buf);
33 61f5c35c 2004-05-15 devnull struct sjt specialjumptable[] = {
34 61f5c35c 2004-05-15 devnull {"PI", picture},
35 61f5c35c 2004-05-15 devnull {"PictureInclusion", picture},
36 61f5c35c 2004-05-15 devnull {"InlinePicture", NULL},
37 61f5c35c 2004-05-15 devnull {"BeginPath", NULL},
38 61f5c35c 2004-05-15 devnull {"DrawPath", NULL},
39 61f5c35c 2004-05-15 devnull {"BeginObject", NULL},
40 61f5c35c 2004-05-15 devnull {"EndObject", NULL},
41 61f5c35c 2004-05-15 devnull {"NewBaseline", NULL},
42 61f5c35c 2004-05-15 devnull {"DrawText", NULL},
43 61f5c35c 2004-05-15 devnull {"SetText", NULL},
44 61f5c35c 2004-05-15 devnull {"SetColor", NULL},
45 61f5c35c 2004-05-15 devnull {"INFO", NULL},
46 61f5c35c 2004-05-15 devnull {"PS", PSInclude},
47 61f5c35c 2004-05-15 devnull {"Postscript", PSInclude},
48 61f5c35c 2004-05-15 devnull {"ExportPS", notavail("ExportPS")},
49 61f5c35c 2004-05-15 devnull {NULL, NULL}
54 e8fb1d3e 2004-05-17 devnull devcntl(Biobuf *inp) {
56 61f5c35c 2004-05-15 devnull char cmd[50], buf[256], str[MAXTOKENSIZE], *line;
57 e8fb1d3e 2004-05-17 devnull int c, n;
61 61f5c35c 2004-05-15 devnull * Interpret device control commands, ignoring any we don't recognize. The
62 61f5c35c 2004-05-15 devnull * "x X ..." commands are a device dependent collection generated by troff's
63 61f5c35c 2004-05-15 devnull * \X'...' request.
67 61f5c35c 2004-05-15 devnull Bgetfield(inp, 's', cmd, 50);
68 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "devcntl(cmd=%s)\n", cmd);
69 61f5c35c 2004-05-15 devnull switch (cmd[0]) {
70 61f5c35c 2004-05-15 devnull case 'f': /* mount font in a position */
71 61f5c35c 2004-05-15 devnull Bgetfield(inp, 'd', &n, 0);
72 61f5c35c 2004-05-15 devnull Bgetfield(inp, 's', str, 100);
73 61f5c35c 2004-05-15 devnull mountfont(n, str);
76 61f5c35c 2004-05-15 devnull case 'i': /* initialize */
77 61f5c35c 2004-05-15 devnull initialize();
80 61f5c35c 2004-05-15 devnull case 'p': /* pause */
83 61f5c35c 2004-05-15 devnull case 'r': /* resolution assumed when prepared */
84 61f5c35c 2004-05-15 devnull Bgetfield(inp, 'd', &resolution, 0);
85 61f5c35c 2004-05-15 devnull Bgetfield(inp, 'd', &minx, 0);
86 61f5c35c 2004-05-15 devnull Bgetfield(inp, 'd', &miny, 0);
89 61f5c35c 2004-05-15 devnull case 's': /* stop */
90 61f5c35c 2004-05-15 devnull case 't': /* trailer */
91 61f5c35c 2004-05-15 devnull /* flushtext(); */
94 61f5c35c 2004-05-15 devnull case 'H': /* char height */
95 61f5c35c 2004-05-15 devnull Bgetfield(inp, 'd', &n, 0);
96 61f5c35c 2004-05-15 devnull t_charht(n);
99 61f5c35c 2004-05-15 devnull case 'S': /* slant */
100 61f5c35c 2004-05-15 devnull Bgetfield(inp, 'd', &n, 0);
101 61f5c35c 2004-05-15 devnull t_slant(n);
104 61f5c35c 2004-05-15 devnull case 'T': /* device name */
105 61f5c35c 2004-05-15 devnull Bgetfield(inp, 's', &devname, 16);
106 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "devname=%s\n", devname);
109 61f5c35c 2004-05-15 devnull case 'E': /* input encoding - not in troff yet */
110 61f5c35c 2004-05-15 devnull Bgetfield(inp, 's', &str, 100);
111 61f5c35c 2004-05-15 devnull /* if ( strcmp(str, "UTF") == 0 )
112 61f5c35c 2004-05-15 devnull reading = UTFENCODING;
113 61f5c35c 2004-05-15 devnull else reading = ONEBYTE;
117 61f5c35c 2004-05-15 devnull case 'X': /* copy through - from troff */
118 61f5c35c 2004-05-15 devnull if (Bgetfield(inp, 's', str, MAXTOKENSIZE-1) <= 0)
119 61f5c35c 2004-05-15 devnull error(FATAL, "incomplete devcntl line\n");
120 61f5c35c 2004-05-15 devnull if ((line = Brdline(inp, '\n')) == 0)
121 61f5c35c 2004-05-15 devnull error(FATAL, "incomplete devcntl line\n");
122 61f5c35c 2004-05-15 devnull strncpy(buf, line, Blinelen(inp)-1);
123 61f5c35c 2004-05-15 devnull buf[Blinelen(inp)-1] = '\0';
124 61f5c35c 2004-05-15 devnull Bungetc(inp);
126 61f5c35c 2004-05-15 devnull if (strncmp(str, "PI", sizeof("PI")-1) == 0 || strncmp(str, "PictureInclusion", sizeof("PictureInclusion")-1) == 0) {
127 61f5c35c 2004-05-15 devnull picture(inp, str);
128 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "InlinePicture", sizeof("InlinePicture")-1) == 0) {
129 61f5c35c 2004-05-15 devnull error(FATAL, "InlinePicture not implemented yet.\n");
130 61f5c35c 2004-05-15 devnull /* inlinepic(inp, buf); */
131 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "BeginPath", sizeof("BeginPath")-1) == 0) {
132 61f5c35c 2004-05-15 devnull beginpath(buf, FALSE);
133 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "DrawPath", sizeof("DrawPath")-1) == 0) {
134 61f5c35c 2004-05-15 devnull drawpath(buf, FALSE);
135 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "BeginObject", sizeof("BeginObject")-1) == 0) {
136 61f5c35c 2004-05-15 devnull beginpath(buf, TRUE);
137 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "EndObject", sizeof("EndObject")-1) == 0) {
138 61f5c35c 2004-05-15 devnull drawpath(buf, TRUE);
139 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "NewBaseline", sizeof("NewBaseline")-1) == 0) {
140 61f5c35c 2004-05-15 devnull error(FATAL, "NewBaseline not implemented yet.\n");
141 61f5c35c 2004-05-15 devnull /* newbaseline(buf); */
142 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "DrawText", sizeof("DrawText")-1) == 0) {
143 61f5c35c 2004-05-15 devnull error(FATAL, "DrawText not implemented yet.\n");
144 61f5c35c 2004-05-15 devnull /* drawtext(buf); */
145 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "SetText", sizeof("SetText")-1) == 0) {
146 61f5c35c 2004-05-15 devnull error(FATAL, "SetText not implemented yet.\n");
147 61f5c35c 2004-05-15 devnull /* settext(buf); */
148 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "SetColor", sizeof("SetColor")-1) == 0) {
149 61f5c35c 2004-05-15 devnull error(FATAL, "SetColor not implemented yet.\n");
150 61f5c35c 2004-05-15 devnull /* newcolor(buf); */
151 61f5c35c 2004-05-15 devnull /* setcolor(); */
152 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "INFO", sizeof("INFO")-1) == 0) {
153 61f5c35c 2004-05-15 devnull error(FATAL, "INFO not implemented yet.\n");
154 61f5c35c 2004-05-15 devnull /* flushtext(); */
155 61f5c35c 2004-05-15 devnull /* Bprint(outp, "%%INFO%s", buf); */
156 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "PS", sizeof("PS")-1) == 0 || strncmp(str, "PostScript", sizeof("PostScript")-1) == 0) {
157 61f5c35c 2004-05-15 devnull if(pageon()) {
158 61f5c35c 2004-05-15 devnull endstring();
159 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%s\n", buf);
161 61f5c35c 2004-05-15 devnull } else if (strncmp(str, "ExportPS", sizeof("ExportPS")-1) == 0) { /* dangerous!! */
162 61f5c35c 2004-05-15 devnull error(FATAL, "ExportPS not implemented yet.\n");
163 61f5c35c 2004-05-15 devnull /* if (Bfildes(outp) == 1) { */
164 61f5c35c 2004-05-15 devnull /* restore(); */
165 61f5c35c 2004-05-15 devnull /* Bprint(outp, "%s", buf); */
166 61f5c35c 2004-05-15 devnull /* save(); */
170 61f5c35c 2004-05-15 devnull error(WARNING, "Unknown string <%s %s> after x X\n", str, buf);
175 61f5c35c 2004-05-15 devnull while ((c = Bgetc(inp)) != '\n' && c != Beof);
176 61f5c35c 2004-05-15 devnull inputlineno++;
