X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/blobdiff_plain/3f167769f83cf5673769ac9c1302cf583a5c4ca6..4105facaec17862f03a6217f93a1609606f2a7cd:/bk_ps.c

diff --git a/bk_ps.c b/bk_ps.c
index f66420a..4e47767 100644
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -7,6 +7,7 @@
 #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)
@@ -24,6 +25,9 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
     FILE *fp;
     char *filename;
     paragraph *p;
+    outline_element *oe;
+    int noe;
+
 
     IGNORE(keywords);
     IGNORE(idx);
@@ -46,7 +50,7 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 
     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++;
@@ -104,13 +108,15 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	    "/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 0]\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 0]\n"
+	    "       [ /Action 3 -1 roll /Rect 5 -1 roll /Border [0 0 0]\n"
 	    "       /Subtype /Link /ANN pdfmark } bind def\n"
 	    "} {\n"
-	    "  [/p /x /u] { null cvx def } forall\n"
+	    "  /p { pop } bind def\n"
+	    "  /x { pop pop } bind def\n"
+	    "  /u /x load def\n"
 	    "} ifelse\n");
 
     fprintf(fp, "%%%%EndResource\n");
@@ -119,6 +125,18 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
     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)
@@ -137,11 +155,34 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	    doc->paper_height / FUNITS_PER_PT);
     fprintf(fp, "} if\n");
 
-    /* Request outline view if the document is converted to PDF. */
-    fprintf(fp,
-	    "/pdfmark where {\n"
-	    "  pop [ /PageMode /UseOutlines /DOCVIEW pdfmark\n"
-	    "} 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);
+	if (oe->level == 0) {
+	    fprintf(fp, "  [/Title");
+	    ps_string_len(fp, title, titlelen);
+	    fprintf(fp, "/DOCINFO pdfmark\n");
+	}
+
+	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. */
@@ -187,18 +228,6 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
     fprintf(fp, "%%%%EndSetup\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;
-    }
-
-    /*
      * Output the text and graphics.
      */
     pageno = 0;
@@ -310,14 +339,39 @@ static void ps_comment(FILE *fp, char const *leader, word *words)
     fprintf(fp, "\n");
 }
 
-static void ps_string(FILE *fp, char const *str) {
+static void ps_string_len(FILE *fp, char const *str, int len) {
     char const *c;
-
-    fprintf(fp, "(");
-    for (c = str; *c; c++) {
-	if (*c == '(' || *c == ')' || *c == '\\')
-	    fputc('\\', fp);
-	fputc(*c, fp);
+    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, ")");
     }
-    fprintf(fp, ")");
+}
+
+static void ps_string(FILE *fp, char const *str) {
+    ps_string_len(fp, str, strlen(str));
 }