|
 |
483aca |
From db24f253409d5d085c2760c814c3e1d3fa2dac59 Mon Sep 17 00:00:00 2001
|
|
|
483aca |
From: Ray Johnston <ray.johnston@artifex.com>
|
|
|
483aca |
Date: Tue, 19 Mar 2019 09:25:48 -0700
|
|
|
483aca |
Subject: Fix lib/pdf2dsc.ps to use documented Ghostscript pdf procedures.
|
|
|
483aca |
|
|
|
483aca |
We eliminated GS_PDF_ProcSet and pdfdict, but runpdfbegin, dopdfpages,
|
|
|
483aca |
and runpdfend are still available.
|
|
|
483aca |
|
|
|
483aca |
diff --git a/lib/pdf2dsc.ps b/lib/pdf2dsc.ps
|
|
|
483aca |
index 4547849c2..d836bf320 100644
|
|
|
483aca |
--- a/lib/pdf2dsc.ps
|
|
|
483aca |
+++ b/lib/pdf2dsc.ps
|
|
|
483aca |
@@ -52,10 +52,7 @@ systemdict /.setsafe known { .setsafe } if
|
|
|
483aca |
/DSCstring 255 string def
|
|
|
483aca |
/MediaTypes 10 dict def
|
|
|
483aca |
|
|
|
483aca |
- GS_PDF_ProcSet begin
|
|
|
483aca |
- pdfdict begin
|
|
|
483aca |
- PDFfile
|
|
|
483aca |
- pdfopen begin
|
|
|
483aca |
+ PDFfile runpdfbegin
|
|
|
483aca |
/FirstPage where { pop } { /FirstPage 1 def } ifelse
|
|
|
483aca |
/LastPage where { pop } { /LastPage pdfpagecount def } ifelse
|
|
|
483aca |
|
|
|
483aca |
@@ -108,13 +105,12 @@ systemdict /.setsafe known { .setsafe } if
|
|
|
483aca |
(%%BeginProlog\n) puts
|
|
|
483aca |
(/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
|
|
|
483aca |
(/DSCPageCount 0 def\n) puts
|
|
|
483aca |
- (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts
|
|
|
483aca |
- (GS_PDF_ProcSet begin\npdfdict begin\n) puts
|
|
|
483aca |
+ (/DoPDFPage {dup /Page# exch store dup dopdfpages } def\n) puts
|
|
|
483aca |
(%%EndProlog\n) puts
|
|
|
483aca |
(%%BeginSetup\n) puts
|
|
|
483aca |
DSCfile PDFname write==only
|
|
|
483aca |
( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
|
|
|
483aca |
- ( pdfopen begin\n) puts
|
|
|
483aca |
+ ( runpdfbegin\n) puts
|
|
|
483aca |
( process_trailer_attrs\n) puts
|
|
|
483aca |
(%%EndSetup\n) puts
|
|
|
483aca |
|
|
|
483aca |
@@ -239,13 +235,10 @@ systemdict /.setsafe known { .setsafe } if
|
|
|
483aca |
DSCfile exch DSCstring cvs writestring
|
|
|
483aca |
( DoPDFPage\n) puts
|
|
|
483aca |
} for
|
|
|
483aca |
- currentdict pdfclose
|
|
|
483aca |
- end
|
|
|
483aca |
- end
|
|
|
483aca |
- end
|
|
|
483aca |
+ runpdfend
|
|
|
483aca |
% write trailer
|
|
|
483aca |
(%%Trailer\n) puts
|
|
|
483aca |
-(currentdict pdfclose\nend\nend\nend\n) puts
|
|
|
483aca |
+(runpdfend\n) puts
|
|
|
483aca |
(%%EOF\n) puts
|
|
|
483aca |
% close output file and exit
|
|
|
483aca |
DSCfile closefile
|