|
 |
79ccdd |
From: Ray Johnston <ray.johnston@artifex.com>
|
|
|
79ccdd |
Date: Tue, 19 Mar 2019 16:25:48 +0000 (-0700)
|
|
|
79ccdd |
Subject: Fix lib/pdf2dsc.ps to use documented Ghostscript pdf procedures.
|
|
|
79ccdd |
|
|
|
79ccdd |
Fix lib/pdf2dsc.ps to use documented Ghostscript pdf procedures.
|
|
|
79ccdd |
|
|
|
79ccdd |
We eliminated GS_PDF_ProcSet and pdfdict, but runpdfbegin, dopdfpages,
|
|
|
79ccdd |
and runpdfend are still available.
|
|
|
79ccdd |
|
|
|
79ccdd |
https://git.ghostscript.com/?p=ghostpdl.git;a=commit;h=db24f253409d5d085c2760c814c3e1d3fa2dac59
|
|
|
79ccdd |
---
|
|
|
79ccdd |
|
|
|
79ccdd |
diff -up ghostscript-9.07/lib/pdf2dsc.ps.pdf2dsc-fix ghostscript-9.07/lib/pdf2dsc.ps
|
|
|
79ccdd |
--- ghostscript-9.07/lib/pdf2dsc.ps.pdf2dsc-fix 2013-02-14 08:58:16.000000000 +0100
|
|
|
79ccdd |
+++ ghostscript-9.07/lib/pdf2dsc.ps 2019-03-21 15:57:27.006345954 +0100
|
|
|
79ccdd |
@@ -52,10 +52,7 @@ systemdict /.setsafe known { .setsafe }
|
|
|
79ccdd |
/DSCstring 255 string def
|
|
|
79ccdd |
/MediaTypes 10 dict def
|
|
|
79ccdd |
|
|
|
79ccdd |
- GS_PDF_ProcSet begin
|
|
|
79ccdd |
- pdfdict begin
|
|
|
79ccdd |
- PDFfile
|
|
|
79ccdd |
- pdfopen begin
|
|
|
79ccdd |
+ PDFfile runpdfbegin
|
|
|
79ccdd |
/FirstPage where { pop } { /FirstPage 1 def } ifelse
|
|
|
79ccdd |
/LastPage where { pop } { /LastPage pdfpagecount def } ifelse
|
|
|
79ccdd |
|
|
|
79ccdd |
@@ -108,13 +105,12 @@ systemdict /.setsafe known { .setsafe }
|
|
|
79ccdd |
(%%BeginProlog\n) puts
|
|
|
79ccdd |
(/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
|
|
|
79ccdd |
(/DSCPageCount 0 def\n) puts
|
|
|
79ccdd |
- (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts
|
|
|
79ccdd |
- (GS_PDF_ProcSet begin\npdfdict begin\n) puts
|
|
|
79ccdd |
+ (/DoPDFPage {dup /Page# exch store dup dopdfpages } def\n) puts
|
|
|
79ccdd |
(%%EndProlog\n) puts
|
|
|
79ccdd |
(%%BeginSetup\n) puts
|
|
|
79ccdd |
DSCfile PDFname write==only
|
|
|
79ccdd |
( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
|
|
|
79ccdd |
- ( pdfopen begin\n) puts
|
|
|
79ccdd |
+ ( runpdfbegin\n) puts
|
|
|
79ccdd |
( process_trailer_attrs\n) puts
|
|
|
79ccdd |
(%%EndSetup\n) puts
|
|
|
79ccdd |
|
|
|
79ccdd |
@@ -239,13 +235,10 @@ systemdict /.setsafe known { .setsafe }
|
|
|
79ccdd |
DSCfile exch DSCstring cvs writestring
|
|
|
79ccdd |
( DoPDFPage\n) puts
|
|
|
79ccdd |
} for
|
|
|
79ccdd |
- currentdict pdfclose
|
|
|
79ccdd |
- end
|
|
|
79ccdd |
- end
|
|
|
79ccdd |
- end
|
|
|
79ccdd |
+ runpdfend
|
|
|
79ccdd |
% write trailer
|
|
|
79ccdd |
(%%Trailer\n) puts
|
|
|
79ccdd |
-(currentdict pdfclose\nend\nend\nend\n) puts
|
|
|
79ccdd |
+(runpdfend\n) puts
|
|
|
79ccdd |
(%%EOF\n) puts
|
|
|
79ccdd |
% close output file and exit
|
|
|
79ccdd |
DSCfile closefile
|