X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/blobdiff_plain/7d7f8de9b0c38fc510a09b62e3bdf7574f06592f..babfe3e260c345c06201516d990155ca8aba49e3:/bk_ps.c

diff --git a/bk_ps.c b/bk_ps.c
index 46652e9..a3d80a7 100644
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -68,12 +68,12 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
     fprintf(fp, "%%%%DocumentNeededResources:\n");
     for (fe = doc->fonts->head; fe; fe = fe->next)
 	/* XXX This may request the same font multiple times. */
-	if (!fe->font->info->fp)
+	if (!fe->font->info->fontfile)
 	    fprintf(fp, "%%%%+ font %s\n", fe->font->info->name);
     fprintf(fp, "%%%%DocumentSuppliedResources: procset Halibut 0 3\n");
     for (fe = doc->fonts->head; fe; fe = fe->next)
 	/* XXX This may request the same font multiple times. */
-	if (fe->font->info->fp)
+	if (fe->font->info->fontfile)
 	    fprintf(fp, "%%%%+ font %s\n", fe->font->info->name);
     fprintf(fp, "%%%%EndComments\n");
 
@@ -198,15 +198,12 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 
     for (fe = doc->fonts->head; fe; fe = fe->next) {
 	/* XXX This may request the same font multiple times. */
-	if (fe->font->info->fp) {
-	    char buf[512];
-	    size_t len;
+	if (fe->font->info->fontfile) {
 	    fprintf(fp, "%%%%BeginResource: font %s\n", fe->font->info->name);
-	    rewind(fe->font->info->fp);
-	    do {
-		len = fread(buf, 1, sizeof(buf), fe->font->info->fp);
-		fwrite(buf, 1, len, fp);
-	    } while (len == sizeof(buf));
+	    if (fe->font->info->filetype == TYPE1)
+		pf_writeps(fe->font->info, fp);
+	    else
+		sfnt_writeps(fe->font->info, fp);
 	    fprintf(fp, "%%%%EndResource\n");
 	} else {
 	    fprintf(fp, "%%%%IncludeResource: font %s\n",
@@ -230,8 +227,7 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	ps_token(fp, &cc, "{1 index /FID ne {def} {pop pop} ifelse} forall\n");
 	ps_token(fp, &cc, "/Encoding [\n");
 	for (i = 0; i < 256; i++)
-	    ps_token(fp, &cc, "/%s",
-		     fe->vector[i] ? fe->vector[i] : ".notdef");
+	    ps_token(fp, &cc, "/%s", glyph_extern(fe->vector[i]));
 	ps_token(fp, &cc, "] def\n");
 	ps_token(fp, &cc, "currentdict end\n");
 	ps_token(fp, &cc, "/fontname-%s exch definefont /%s exch def\n",