ref: 12f7fc7a0874c568e147627ca043eff33be6188e
dir: /sys/src/cmd/postscript/tr2post/devcntl.c/
#include <u.h> #include <libc.h> #include <bio.h> #include <stdio.h> #include "../common/common.h" #include "tr2post.h" char devname[20] = { 'u', 't', 'f', '\0' }; int resolution; int minx, miny; struct sjt { char *str; void (*func)(void *); }; /* I won't need this if getfields can replace sscanf extern void picture(Biobufhdr *); extern void notavail(char *); void PSInclude(Biobufhdr *inp) { char buf[256]; Bgetfield(inp, 's', buf, 256); if(pageon()) { endstring(); Bprint(Bstdout, "%s\n", buf); } } struct sjt specialjumptable[] = { {"PI", picture}, {"PictureInclusion", picture}, {"InlinePicture", NULL}, {"BeginPath", NULL}, {"DrawPath", NULL}, {"BeginObject", NULL}, {"EndObject", NULL}, {"NewBaseline", NULL}, {"DrawText", NULL}, {"SetText", NULL}, {"SetColor", NULL}, {"INFO", NULL}, {"PS", PSInclude}, {"Postscript", PSInclude}, {"ExportPS", notavail("ExportPS")}, {NULL, NULL} }; */ void devcntl(Biobufhdr *inp) { char cmd[50], buf[256], str[MAXTOKENSIZE], *line; int c, n, linelen; /* * * Interpret device control commands, ignoring any we don't recognize. The * "x X ..." commands are a device dependent collection generated by troff's * \X'...' request. * */ Bgetfield(inp, 's', cmd, 50); if (debug) Bprint(Bstderr, "devcntl(cmd=%s)\n", cmd); switch (cmd[0]) { case 'f': /* mount font in a position */ Bgetfield(inp, 'd', &n, 0); Bgetfield(inp, 's', str, 100); mountfont(n, str); break; case 'i': /* initialize */ initialize(); break; case 'p': /* pause */ break; case 'r': /* resolution assumed when prepared */ Bgetfield(inp, 'd', &resolution, 0); Bgetfield(inp, 'd', &minx, 0); Bgetfield(inp, 'd', &miny, 0); break; case 's': /* stop */ case 't': /* trailer */ /* flushtext(); */ break; case 'H': /* char height */ Bgetfield(inp, 'd', &n, 0); t_charht(n); break; case 'S': /* slant */ Bgetfield(inp, 'd', &n, 0); t_slant(n); break; case 'T': /* device name */ Bgetfield(inp, 's', &devname, 16); if (debug) Bprint(Bstderr, "devname=%s\n", devname); break; case 'E': /* input encoding - not in troff yet */ Bgetfield(inp, 's', &str, 100); /* if ( strcmp(str, "UTF") == 0 ) reading = UTFENCODING; else reading = ONEBYTE; */ break; case 'X': /* copy through - from troff */ if (Bgetfield(inp, 's', str, MAXTOKENSIZE-1) <= 0) error(FATAL, "incomplete devcntl line\n"); if ((line = Brdline(inp, '\n')) == 0) error(FATAL, "incomplete devcntl line\n"); strncpy(buf, line, Blinelen(inp)-1); buf[Blinelen(inp)-1] = '\0'; Bungetc(inp); if (strncmp(str, "PI", sizeof("PI")-1) == 0 || strncmp(str, "PictureInclusion", sizeof("PictureInclusion")-1) == 0) { picture(inp, str); } else if (strncmp(str, "InlinePicture", sizeof("InlinePicture")-1) == 0) { error(FATAL, "InlinePicture not implemented yet.\n"); /* inlinepic(inp, buf); */ } else if (strncmp(str, "BeginPath", sizeof("BeginPath")-1) == 0) { beginpath(buf, FALSE); } else if (strncmp(str, "DrawPath", sizeof("DrawPath")-1) == 0) { drawpath(buf, FALSE); } else if (strncmp(str, "BeginObject", sizeof("BeginObject")-1) == 0) { beginpath(buf, TRUE); } else if (strncmp(str, "EndObject", sizeof("EndObject")-1) == 0) { drawpath(buf, TRUE); } else if (strncmp(str, "NewBaseline", sizeof("NewBaseline")-1) == 0) { error(FATAL, "NewBaseline not implemented yet.\n"); /* newbaseline(buf); */ } else if (strncmp(str, "DrawText", sizeof("DrawText")-1) == 0) { error(FATAL, "DrawText not implemented yet.\n"); /* drawtext(buf); */ } else if (strncmp(str, "SetText", sizeof("SetText")-1) == 0) { error(FATAL, "SetText not implemented yet.\n"); /* settext(buf); */ } else if (strncmp(str, "SetColor", sizeof("SetColor")-1) == 0) { error(FATAL, "SetColor not implemented yet.\n"); /* newcolor(buf); */ /* setcolor(); */ } else if (strncmp(str, "INFO", sizeof("INFO")-1) == 0) { error(FATAL, "INFO not implemented yet.\n"); /* flushtext(); */ /* Bprint(outp, "%%INFO%s", buf); */ } else if (strncmp(str, "PS", sizeof("PS")-1) == 0 || strncmp(str, "PostScript", sizeof("PostScript")-1) == 0) { if(pageon()) { endstring(); Bprint(Bstdout, "%s\n", buf); } } else if (strncmp(str, "ExportPS", sizeof("ExportPS")-1) == 0) { /* dangerous!! */ error(FATAL, "ExportPS not implemented yet.\n"); /* if (Bfildes(outp) == 1) { */ /* restore(); */ /* Bprint(outp, "%s", buf); */ /* save(); */ /* } */ } /* else error(WARNING, "Unknown string <%s %s> after x X\n", str, buf); */ break; } while ((c = Bgetc(inp)) != '\n' && c != Beof); inputlineno++; }