#include "paper.h"
static void ps_comment(FILE *fp, char const *leader, word *words);
+static void ps_string_len(FILE *fp, char const *str, int len);
+static void ps_string(FILE *fp, char const *str);
paragraph *ps_config_filename(char *filename)
{
FILE *fp;
char *filename;
paragraph *p;
+ outline_element *oe;
+ int noe;
+
IGNORE(keywords);
IGNORE(idx);
fprintf(fp, "%%!PS-Adobe-3.0\n");
fprintf(fp, "%%%%Creator: Halibut, %s\n", version);
- fprintf(fp, "%%%%DocumentData: Clean8Bit\n");
+ fprintf(fp, "%%%%DocumentData: Clean7Bit\n");
fprintf(fp, "%%%%LanguageLevel: 1\n");
for (pageno = 0, page = doc->pages; page; page = page->next)
pageno++;
/* XXX This may request the same font multiple times. */
if (!fe->font->info->fp)
fprintf(fp, "%%%%+ font %s\n", fe->font->info->name);
- fprintf(fp, "%%%%DocumentSuppliedResources: procset Halibut 0 1\n");
+ fprintf(fp, "%%%%DocumentSuppliedResources: procset Halibut 0 2\n");
for (fe = doc->fonts->head; fe; fe = fe->next)
/* XXX This may request the same font multiple times. */
if (fe->font->info->fp)
fprintf(fp, "%%%%EndComments\n");
fprintf(fp, "%%%%BeginProlog\n");
- fprintf(fp, "%%%%BeginResource: procset Halibut 0 1\n");
+ fprintf(fp, "%%%%BeginResource: procset Halibut 0 2\n");
/*
* Supply a prologue function which allows a reasonably
* compressed representation of the text on the pages.
"/t { tdict begin {dup type exec} forall end pop } bind def\n"
"/r { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
" neg 0 rlineto closepath fill } bind def\n");
+ /*
+ * pdfmark wrappers
+ *
+ * "p" generates a named destination referencing this page.
+ * "x" generates a link to a named destination.
+ * "u" generates a link to a URI.
+ *
+ * They all do nothing if pdfmark is undefined.
+ */
+ fprintf(fp,
+ "/pdfmark where { pop\n"
+ " /p { [ /Dest 3 -1 roll /View [ /XYZ null null null ]\n"
+ " /DEST pdfmark } bind def\n"
+ " /x { [ /Dest 3 -1 roll /Rect 5 -1 roll /Border [0 0 0]\n"
+ " /Subtype /Link /ANN pdfmark } bind def\n"
+ " /u { 2 dict dup /Subtype /URI put dup /URI 4 -1 roll put\n"
+ " [ /Action 3 -1 roll /Rect 5 -1 roll /Border [0 0 0]\n"
+ " /Subtype /Link /ANN pdfmark } bind def\n"
+ "} {\n"
+ " /p { pop } bind def\n"
+ " /x { pop pop } bind def\n"
+ " /u /x load def\n"
+ "} ifelse\n");
fprintf(fp, "%%%%EndResource\n");
fprintf(fp, "%%%%EndProlog\n");
fprintf(fp, "%%%%BeginSetup\n");
/*
+ * Assign a destination name to each page for pdfmark purposes.
+ */
+ pageno = 0;
+ for (page = doc->pages; page; page = page->next) {
+ char *buf;
+ pageno++;
+ buf = snewn(12, char);
+ sprintf(buf, "/p%d", pageno);
+ page->spare = buf;
+ }
+
+ /*
* This is as good a place as any to put version IDs.
*/
for (p = sourceform; p; p = p->next)
doc->paper_height / FUNITS_PER_PT);
fprintf(fp, "} if\n");
+ /* Outline etc, only if pdfmark is supported */
+ fprintf(fp, "/pdfmark where { pop %% if\n");
+ fprintf(fp, " [/PageMode/UseOutlines/DOCVIEW pdfmark\n");
+ noe = doc->n_outline_elements;
+ for (oe = doc->outline_elements; noe; oe++, noe--) {
+ char *title;
+ int titlelen, count, i;
+
+ title = pdf_outline_convert(oe->pdata->outline_title, &titlelen);
+
+ count = 0;
+ for (i = 1; i < noe && oe[i].level > oe->level; i++)
+ if (oe[i].level == oe->level + 1)
+ count++;
+ if (oe->level > 0) count = -count;
+
+ fprintf(fp, " [/Title");
+ ps_string_len(fp, title, titlelen);
+ sfree(title);
+ fprintf(fp, "/Dest%s/Count %d/OUT pdfmark\n",
+ (char *)oe->pdata->first->page->spare, count);
+ }
+ fprintf(fp, "} if\n");
+
for (fe = doc->fonts->head; fe; fe = fe->next) {
/* XXX This may request the same font multiple times. */
if (fe->font->info->fp) {
for (page = doc->pages; page; page = page->next) {
text_fragment *frag, *frag_end;
rect *r;
+ xref *xr;
font_encoding *fe;
int fs;
pageno++;
fprintf(fp, "%%%%Page: %d %d\n", pageno, pageno);
- fprintf(fp, "save\n");
-#if 0
- {
- xref *xr;
- /*
- * I used this diagnostic briefly to ensure that
- * cross-reference rectangles were being put where they
- * should be.
- */
- for (xr = page->first_xref; xr; xr = xr->next) {
- fprintf(fp, "gsave 0.7 setgray %g %g moveto",
- xr->lx/FUNITS_PER_PT, xr->ty/FUNITS_PER_PT);
- fprintf(fp, " %g %g lineto %g %g lineto",
- xr->lx/FUNITS_PER_PT, xr->by/FUNITS_PER_PT,
- xr->rx/FUNITS_PER_PT, xr->by/FUNITS_PER_PT);
- fprintf(fp, " %g %g lineto closepath fill grestore\n",
- xr->rx/FUNITS_PER_PT, xr->ty/FUNITS_PER_PT);
+ fprintf(fp, "save %s p\n", (char *)page->spare);
+
+ for (xr = page->first_xref; xr; xr = xr->next) {
+ fprintf(fp, "[%g %g %g %g]",
+ xr->lx/FUNITS_PER_PT, xr->by/FUNITS_PER_PT,
+ xr->rx/FUNITS_PER_PT, xr->ty/FUNITS_PER_PT);
+ if (xr->dest.type == PAGE) {
+ fprintf(fp, "%s x\n", (char *)xr->dest.page->spare);
+ } else {
+ ps_string(fp, xr->dest.url);
+ fprintf(fp, "u\n");
}
}
-#endif
for (r = page->first_rect; r; r = r->next) {
fprintf(fp, "%g %g %g %g r\n",
fe = NULL;
fs = -1;
while (frag) {
- char *c;
-
/*
* Collect all the adjacent text fragments with the
* same y-coordinate.
fe = frag->fe;
fs = frag->fontsize;
- fprintf(fp, "%g(", frag->x/FUNITS_PER_PT);
- for (c = frag->text; *c; c++) {
- if (*c == '(' || *c == ')' || *c == '\\')
- fputc('\\', fp);
- fputc(*c, fp);
- }
- fprintf(fp, ")");
+ fprintf(fp, "%g", frag->x/FUNITS_PER_PT);
+ ps_string(fp, frag->text);
frag = frag->next;
}
fprintf(fp, "\n");
}
+
+static void ps_string_len(FILE *fp, char const *str, int len) {
+ char const *c;
+ int score = 0;
+
+ for (c = str; c < str+len; c++) {
+ if (*c < ' ' || *c > '~')
+ score += 2;
+ else if (*c == '(' || *c == ')' || *c == '\\')
+ score += 0;
+ else
+ score -= 1;
+ }
+ if (score > 0) {
+ fprintf(fp, "<");
+ for (c = str; c < str+len; c++) {
+ fprintf(fp, "%02X", 0xFF & (int)*c);
+ }
+ fprintf(fp, ">");
+ } else {
+ fprintf(fp, "(");
+ for (c = str; c < str+len; c++) {
+ if (*c < ' ' || *c > '~') {
+ fprintf(fp, "\\%03o", 0xFF & (int)*c);
+ } else {
+ if (*c == '(' || *c == ')' || *c == '\\')
+ fputc('\\', fp);
+ fputc(*c, fp);
+ }
+ }
+ fprintf(fp, ")");
+ }
+}
+
+static void ps_string(FILE *fp, char const *str) {
+ ps_string_len(fp, str, strlen(str));
+}