From b0f1f943a034803834ea85f453a1a959af1dd139 Mon Sep 17 00:00:00 2001
From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Mon, 20 Sep 2004 13:22:17 +0000
Subject: [PATCH] Add lots of DSC comments, and change the DSC version to 3.0,
 which has been current since 1990.  The only obvious change from this is that
 gv now displays the document title.

There's a slight bug here at the moment in that the backend emits
%%DocumentNeededResource and %%IncludeResource for each subfont of a
PostScript font, even if that PostScript font has been requested already.
This is wasteful but, as far as I can see, not actually disallowed, and
is easier than de-duping the font list.


git-svn-id: svn://svn.tartarus.org/sgt/halibut@4551 cda61777-01e9-0310-a592-d414129be87e
---
 bk_ps.c | 29 ++++++++++++++++++++++-------
 1 file changed, 22 insertions(+), 7 deletions(-)

diff --git a/bk_ps.c b/bk_ps.c
index 4344817..7b2f439 100644
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -6,7 +6,7 @@
 #include "halibut.h"
 #include "paper.h"
 
-static void ps_versionid(FILE *fp, word *words);
+static void ps_comment(FILE *fp, char const *leader, word *words);
 
 paragraph *ps_config_filename(char *filename)
 {
@@ -43,13 +43,25 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	return;
     }
 
-    fprintf(fp, "%%!PS-Adobe-1.0\n");
+    fprintf(fp, "%%!PS-Adobe-3.0\n");
+    fprintf(fp, "%%%%Creator: Halibut, %s\n", version);
+    fprintf(fp, "%%%%DocumentData: Clean8Bit\n");
+    fprintf(fp, "%%%%LanguageLevel: 1\n");
     for (pageno = 0, page = doc->pages; page; page = page->next)
 	pageno++;
     fprintf(fp, "%%%%Pages: %d\n", pageno);
+    for (p = sourceform; p; p = p->next)
+	if (p->type == para_Title)
+	    ps_comment(fp, "%%Title: ", p->words);
+    fprintf(fp, "%%%%DocumentNeededResources:\n");
+    for (fe = doc->fonts->head; fe; fe = fe->next)
+	/* XXX This may request the same font multiple times. */
+	fprintf(fp, "%%%%+ font %s\n", fe->font->name);
+    fprintf(fp, "%%%%DocumentSuppliedResources: procset Halibut 0 0\n");
     fprintf(fp, "%%%%EndComments\n");
 
     fprintf(fp, "%%%%BeginProlog\n");
+    fprintf(fp, "%%%%BeginResource: procset Halibut 0 0\n");
     /*
      * Supply a prologue function which allows a reasonably
      * compressed representation of the text on the pages.
@@ -71,6 +83,7 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	    "  } forall\n"
 	    "} def\n");
 
+    fprintf(fp, "%%%%EndResource\n");
     fprintf(fp, "%%%%EndProlog\n");
 
     fprintf(fp, "%%%%BeginSetup\n");
@@ -80,7 +93,11 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
      */
     for (p = sourceform; p; p = p->next)
 	if (p->type == para_VersionID)
-	    ps_versionid(fp, p->words);
+	    ps_comment(fp, "% ", p->words);
+
+    for (fe = doc->fonts->head; fe; fe = fe->next)
+	/* XXX This may request the same font multiple times. */
+	fprintf(fp, "%%%%IncludeResource: font %s\n", fe->font->name);
 
     /*
      * Re-encode and re-metric the fonts.
@@ -122,8 +139,6 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 
 	pageno++;
 	fprintf(fp, "%%%%Page: %d %d\n", pageno, pageno);
-	fprintf(fp, "%%%%BeginPageSetup\n");
-	fprintf(fp, "%%%%EndPageSetup\n");
 
 #if 0
 	{
@@ -202,9 +217,9 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
     sfree(filename);
 }
 
-static void ps_versionid(FILE *fp, word *words)
+static void ps_comment(FILE *fp, char const *leader, word *words)
 {
-    fprintf(fp, "%% ");
+    fprintf(fp, "%s", leader);
 
     for (; words; words = words->next) {
 	char *text;
-- 
2.11.0