void
getdraw(void)
{
/*
*
* Responsible for making sure the PostScript drawing procedures are downloaded
* from *drawfile. Stuff is done at most once per job, and only if the job needs
* them. For now I've decided not to quit if we can't read the drawing file. That
* pretty much assumes an old version of prologue is being used that includes all
* the drawing procedures.
*
*/
if ( gotdraw == FALSE && access(drawfile, 04) == 0 )
doglobal(drawfile);
if ( tf == stdout )
gotdraw = TRUE;
} /* End of getdraw */
void
plot( /* plot meta-file */
FILE *infp
)
{
PRIMITIVE nextp;
do {
readp(&nextp, infp);
while (isprim(nextp.com)) {
doprim(&nextp);
readp(&nextp, infp);
}
} while (doglobal(&nextp));
}
void
getbaseline(void)
{
/*
*
* Responsible for making sure the PostScript procedures needed for printing text
* along an arbitrary baseline are downloaded from *baselinefile. Done at most
* once per job, and only if the the stuff is really used.
*
*/
if ( gotbaseline == FALSE && access(baselinefile, 04) == 0 )
doglobal(baselinefile);
if ( tf == stdout )
gotbaseline = TRUE;
} /* End of getbaseline */
void
genheader(void)
{ ProcList *p; int i;
if (separate == 2)
{ putunames(th);
goto here;
}
fprintf(th, "#define SYNC %d\n", u_sync);
fprintf(th, "#define ASYNC %d\n\n", u_async);
putunames(th);
fprintf(tc, "short Air[] = { ");
for (p = rdy, i=0; p; p = p->nxt, i++)
fprintf(tc, "%s (short) Air%d", (p!=rdy)?",":"", i);
fprintf(tc, ", (short) Air%d", i); /* np_ */
fprintf(tc, " };\n");
fprintf(th, "char *procname[] = {\n");
reverse_names(rdy);
fprintf(th, " \":np_:\",\n");
fprintf(th, "};\n\n");
here:
for (p = rdy; p; p = p->nxt)
put_ptype(p->n->name, p->tn, mst, nrRdy+1);
/* +1 for np_ */
put_ptype("np_", nrRdy, mst, nrRdy+1);
ntimes(th, 0, 1, Head0);
if (separate != 2)
{ extern void c_add_stack(FILE *);
ntimes(th, 0, 1, Header);
c_add_stack(th);
ntimes(th, 0, 1, Header0);
}
ntimes(th, 0, 1, Head1);
LstSet = ZS;
(void) doglobal("", PUTV);
hastrack = c_add_sv(th);
fprintf(th, " uchar sv[VECTORSZ];\n");
fprintf(th, "} State");
#ifdef SOLARIS
fprintf(th,"\n#ifdef GCC\n");
fprintf(th, "\t__attribute__ ((aligned(8)))");
fprintf(th, "\n#endif\n\t");
#endif
fprintf(th, ";\n\n");
fprintf(th, "#define HAS_TRACK %d\n", hastrack);
if (separate != 2)
dohidden();
}
void
genother(void)
{ ProcList *p;
switch (separate) {
case 2:
if (claimnr >= 0)
ntimes(tc, claimnr, claimnr+1, R0); /* claim only */
break;
case 1:
ntimes(tc, 0, 1, Code0);
ntimes(tc, 0, claimnr, R0); /* all except claim */
ntimes(tc, claimnr+1, nrRdy, R0);
break;
case 0:
ntimes(tc, 0, 1, Code0);
ntimes(tc, 0, nrRdy+1, R0); /* +1 for np_ */
break;
}
for (p = rdy; p; p = p->nxt)
end_labs(p->n, p->tn);
switch (separate) {
case 2:
if (claimnr >= 0)
ntimes(tc, claimnr, claimnr+1, R0a); /* claim only */
return;
case 1:
ntimes(tc, 0, claimnr, R0a); /* all except claim */
ntimes(tc, claimnr+1, nrRdy, R0a);
fprintf(tc, " if (state_tables)\n");
fprintf(tc, " ini_claim(%d, 0);\n", claimnr);
break;
case 0:
ntimes(tc, 0, nrRdy, R0a); /* all */
break;
}
ntimes(tc, 0, 1, R0b);
if (separate == 1 && acceptors == 0)
acceptors = 1; /* assume at least 1 acceptstate */
ntimes(th, acceptors, acceptors+1, Code1);
ntimes(th, progressors, progressors+1, Code3);
ntimes(th, nrRdy+1, nrRdy+2, R2); /* +1 for np_ */
fprintf(tc, " iniglobals();\n");
ntimes(tc, 0, 1, Code2a);
ntimes(tc, 0, 1, Code2b); /* bfs option */
ntimes(tc, 0, 1, Code2c);
ntimes(tc, 0, nrRdy, R4);
fprintf(tc, "}\n\n");
fprintf(tc, "void\n");
fprintf(tc, "iniglobals(void)\n{\n");
if (doglobal("", INIV) > 0)
{ fprintf(tc, "#ifdef VAR_RANGES\n");
(void) doglobal("logval(\"", LOGV);
fprintf(tc, "#endif\n");
}
ntimes(tc, 1, nqs+1, R3);
fprintf(tc, "\tMaxbody = max(Maxbody, sizeof(State)-VECTORSZ);");
fprintf(tc, "\n}\n\n");
}
void
ps_include(
const char *name, /* file name */
FILE *fin, FILE *fout, /* input and output files */
int page_no, /* physical page number from *fin */
int whiteout, /* erase picture area */
int outline, /* draw a box around it and */
int scaleboth, /* scale both dimensions - if not zero */
double cx, double cy, /* center of the picture and */
double sx, double sy, /* its size - in current coordinates */
double ax, double ay, /* left-right, up-down adjustment */
double rot /* rotation - in clockwise degrees */
)
{
static int gotinclude;
int foundpage = 0; /* found the page when non zero */
int nglobal = 0; /* number of global defs so far */
int maxglobal = 0; /* and the number we've got room for */
Section prolog, page, trailer; /* prologue, page, and trailer offsets */
Section *global = 0; /* offsets for all global definitions */
double llx, lly; /* lower left and */
double urx, ury; /* upper right corners - default coords */
double w = whiteout != 0; /* mostly for the var() macro */
double o = outline != 0;
double s = scaleboth != 0;
int i; /* loop index */
int lineno = 0;
int epsf = 0;
int hires = 0;
int state = 0;
int indoc = 0;
char *bp, *cp;
enum {
NORMAL,
DOCUMENTFONTS,
DOCUMENTNEEDEDRESOURCES,
} cont = NORMAL;
/*
*
* Reads a PostScript file (*fin), and uses structuring comments to locate the
* prologue, trailer, global definitions, and the requested page. After the whole
* file is scanned, the special ps_include PostScript definitions are copied to
* *fout, followed by the prologue, global definitions, the requested page, and
* the trailer. Before returning the initial environment (saved in PS_head) is
* restored.
*
* By default we assume the picture is 8.5 by 11 inches, but the BoundingBox
* comment, if found, takes precedence.
*
*/
if (gotinclude == 0 && access(PSINCLUDEFILE, 04) == 0) {
doglobal(PSINCLUDEFILE);
gotinclude++;
}
llx = lly = 0; /* default BoundingBox - 8.5x11 inches */
urx = 72 * 8.5;
ury = 72 * 11.0;
/* section boundaries and bounding box */
prolog.start = prolog.end = 0;
page.start = page.end = 0;
trailer.start = 0;
fseek(fin, 0L, SEEK_SET);
while ( psgetline(&buf, &bufsize, NULL, fin) != NULL ) {
if (++lineno == 1 && strncmp(buf, "%!PS-", 5) == 0) {
for (bp = buf; !spacechar(*bp&0377); bp++);
while (*bp && *bp != '\n' && *bp != '\r' &&
spacechar(*bp&0377))
bp++;
if (strncmp(bp, "EPSF-", 5) == 0)
epsf++;
}
if (state == 0 && (*buf == '\n' || has("%%EndComments") ||
buf[0] != '%' || buf[1] == ' ' ||
buf[1] == '\t' || buf[1] == '\r' ||
buf[1] == '\n')) {
state = 1;
continue;
}
if (buf[0] != '%' || buf[1] != '%')
continue;
if (state != 1 && (bp = has("%%+")) != NULL) {
switch (cont) {
case DOCUMENTFONTS:
addfonts(bp);
break;
case DOCUMENTNEEDEDRESOURCES:
goto needres;
}
continue;
} else
cont = NORMAL;
if (has("%%Page: ")) {
if (!foundpage)
page.start = ftell(fin);
sscanf(buf, "%*s %*s %d", &i);
if (i == page_no)
foundpage = 1;
else if (foundpage && page.end <= page.start)
page.end = ftell(fin);
} else if (has("%%EndPage: ")) {
sscanf(buf, "%*s %*s %d", &i);
if (i == page_no) {
foundpage = 1;
page.end = ftell(fin);
}
if (!foundpage)
page.start = ftell(fin);
} else if (state != 1 && !indoc &&
has("%%BoundingBox:") && !hires) {
sscanf(buf, "%%%%BoundingBox: %lf %lf %lf %lf", &llx, &lly, &urx, &ury);
if (epsf)
epsf++;
} else if (state != 1 && !indoc && has("%%HiResBoundingBox:")) {
sscanf(buf, "%%%%HiResBoundingBox: %lf %lf %lf %lf", &llx, &lly, &urx, &ury);
hires++;
if (epsf)
epsf++;
} else if (has("%%LanguageLevel:")) {
int n;
sscanf(buf, "%%%%LanguageLevel: %d", &n);
LanguageLevel = MAX(LanguageLevel, n);
} else if ((bp = has("%%DocumentNeededFonts:")) != NULL ||
(bp = has("%%DocumentFonts:")) != NULL) {
cont = DOCUMENTFONTS;
addfonts(bp);
} else if ((bp = has("%%DocumentNeededResources:")) != NULL) {
needres:
if ((cp = _has(bp, "font")))
addfonts(cp);
else {
for (cp = bp; *cp && *cp != '\n' &&
*cp != '\r'; cp++);
*cp = '\0';
needresource("%s", bp);
}
cont = DOCUMENTNEEDEDRESOURCES;
} else if (indoc == 0 && (has("%%EndProlog") ||
has("%%EndSetup") || has("%%EndDocumentSetup")))
prolog.end = page.start = ftell(fin);
else if (indoc == 0 && has("%%EOF"))
break;
else if (state == 1 && indoc == 0 && has("%%Trailer")) {
trailer.start = ftell(fin);
state = 2;
} else if (state == 1 && has("%%BeginDocument:"))
indoc++;
else if (state == 1 && indoc > 0 && has("%%EndDocument"))
indoc--;
else if (state == 1 && (cp = has("%%BeginBinary:")) != NULL) {
if ((i = strtol(cp, &cp, 10)) > 0)
psskip(i, fin);
} else if (state == 1 && (cp = has("%%BeginData:")) != NULL) {
if ((i = strtol(cp, &cp, 10)) > 0) {
while (*cp == ' ' || *cp == '\t')
cp++;
while (*cp && *cp != ' ' && *cp != '\t')
cp++;
while (*cp == ' ' || *cp == '\t')
cp++;
if (strncmp(cp, "Bytes", 5) == 0)
psskip(i, fin);
else if (strncmp(cp, "Lines", 5) == 0) {
while (i-- && psgetline(&buf,
&bufsize, NULL, fin) != NULL);
}
}
} else if (has("%%BeginGlobal")) {
if (page.end <= page.start) {
if (nglobal >= maxglobal) {
maxglobal += 20;
global = grab(maxglobal);
}
global[nglobal].start = ftell(fin);
}
} else if (has("%%EndGlobal"))
if (page.end <= page.start)
global[nglobal++].end = ftell(fin);
}
fseek(fin, 0L, SEEK_END);
if (trailer.start == 0)
trailer.start = ftell(fin);
trailer.end = ftell(fin);
if (page.end <= page.start)
page.end = trailer.start;
/*
fprintf(stderr, "prolog=(%d,%d)\n", prolog.start, prolog.end);
fprintf(stderr, "page=(%d,%d)\n", page.start, page.end);
for(i = 0; i < nglobal; i++)
fprintf(stderr, "global[%d]=(%d,%d)\n", i, global[i].start, global[i].end);
fprintf(stderr, "trailer=(%d,%d)\n", trailer.start, trailer.end);
*/
/* all output here */
fprintf(fout, "_ps_include_head\n");
var(llx); var(lly); var(urx); var(ury); var(w); var(o); var(s);
var(cx); var(cy); var(sx); var(sy); var(ax); var(ay); var(rot);
fprintf(fout, "_ps_include_setup\n");
if (epsf >= 2) {
size_t len;
rewind(fin);
fprintf(fout, "%%%%BeginDocument: %s\n", name);
while (psgetline(&buf, &bufsize, &len, fin) != NULL) {
if (has("%%BeginPreview:")) {
while (psgetline(&buf, &bufsize, &len, fin)
!= NULL &&
!has("%%EndPreview"));
continue;
}
fwrite(buf, 1, len, fout);
}
fprintf(fout, "%%%%EndDocument\n");
} else {
copy(fin, fout, &prolog);
for(i = 0; i < nglobal; i++)
copy(fin, fout, &global[i]);
copy(fin, fout, &page);
copy(fin, fout, &trailer);
}
fprintf(fout, "_ps_include_tail\n");
if(nglobal)
free(global);
}