From 993ade7a1fcb7b4b77c1011348df290822e26a5e Mon Sep 17 00:00:00 2001
From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Wed, 10 May 2006 18:31:07 +0000
Subject: [PATCH] Add a /Info dictionary to PDF output, containing the title
 and producer of the document.  This means that (e.g.) gv displays the title
 correctly.

git-svn-id: svn://svn.tartarus.org/sgt/halibut@6672 cda61777-01e9-0310-a592-d414129be87e
---
 bk_pdf.c | 31 ++++++++++++++++++++++++++++---
 1 file changed, 28 insertions(+), 3 deletions(-)

diff --git a/bk_pdf.c b/bk_pdf.c
index bd705eb..8eda320 100644
--- a/bk_pdf.c
+++ b/bk_pdf.c
@@ -38,6 +38,7 @@ static void pdf_string(void (*add)(object *, char const *),
 static void pdf_string_len(void (*add)(object *, char const *),
 			   object *, char const *, int);
 static void objref(object *o, object *dest);
+static char *pdf_outline_convert(wchar_t *s, int *len);
 
 static void make_pages_node(object *node, object *parent, page_data *first,
 			    page_data *last, object *resources,
@@ -57,7 +58,7 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
     char *filename;
     paragraph *p;
     objlist olist;
-    object *o, *cat, *outlines, *pages, *resources, *mediabox;
+    object *o, *info, *cat, *outlines, *pages, *resources, *mediabox;
     int fileoff;
 
     IGNORE(keywords);
@@ -76,6 +77,29 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
     olist.head = olist.tail = NULL;
     olist.number = 1;
 
+    {
+	char buf[256];
+
+	info = new_object(&olist);
+	objtext(info, "<<\n");
+	if (doc->n_outline_elements > 0) {
+	    char *title;
+	    int titlelen;
+
+	    title =
+	       pdf_outline_convert(doc->outline_elements->pdata->outline_title,
+					&titlelen);
+	    objtext(info, "/Title ");
+	    pdf_string_len(objtext, info, title, titlelen);
+	    sfree(title);
+	    objtext(info, "\n");
+	}
+	objtext(info, "/Producer ");
+	sprintf(buf, "Halibut, %s", version);
+	pdf_string(objtext, info, buf);
+	objtext(info, "\n>>\n");
+    }
+
     cat = new_object(&olist);
     if (doc->n_outline_elements > 0)
 	outlines = new_object(&olist);
@@ -463,8 +487,8 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
     /*
      * Trailer
      */
-    fprintf(fp, "trailer\n<<\n/Size %d\n/Root %d 0 R\n>>\n",
-	    olist.tail->number + 1, cat->number);
+    fprintf(fp, "trailer\n<<\n/Size %d\n/Root %d 0 R\n/Info %d 0 R\n>>\n",
+	    olist.tail->number + 1, cat->number, info->number);
     fprintf(fp, "startxref\n%d\n%%%%EOF\n", fileoff);
 
     fclose(fp);
@@ -665,6 +689,7 @@ static int make_outline(object *parent, outline_element *items, int n,
 	last = curr;
 	objtext(curr, "<<\n/Title ");
 	pdf_string_len(objtext, curr, title, titlelen);
+	sfree(title);
 	objtext(curr, "\n/Parent ");
 	objref(curr, parent);
 	objtext(curr, "\n/Dest [");
-- 
2.11.0