PDFSTREAM: fix convert template
This commit is contained in:
@@ -1,12 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "25-Jun-2023 16:41:34" {WMEDLEY}<library>PDFSTREAM.;36 12655
|
||||
(FILECREATED " 2-Jul-2023 17:00:18" {WMEDLEY}<library>PDFSTREAM.;37 12671
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS PDF-INIT)
|
||||
|
||||
:PREVIOUS-DATE "24-Jun-2023 15:27:04" {WMEDLEY}<library>PDFSTREAM.;35)
|
||||
:PREVIOUS-DATE "25-Jun-2023 16:41:34" {WMEDLEY}<library>PDFSTREAM.;36)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT PDFSTREAMCOMS)
|
||||
@@ -105,8 +103,9 @@
|
||||
|
||||
(RPAQ? PDFCONVERTER 'ps2pdf)
|
||||
|
||||
(ADDTOVAR PDF-CONVERTER-TEMPLATES (ps2pdf " " PSTMPFILENAME " " PDFTMPFILENAME " 2> " ERRORFILE)
|
||||
(pstopdf " " PSTMPFILENAME " -o " PDFTMPFILENAME " 2> " ERRORFILE))
|
||||
(ADDTOVAR PDF-CONVERTER-TEMPLATES (ps2pdf " " PSTMPFILENAME " " PDFTMPFILENAME " 2> " ERRORFILENAME)
|
||||
(pstopdf " " PSTMPFILENAME " -o " PDFTMPFILENAME " 2> "
|
||||
ERRORFILENAME))
|
||||
|
||||
(RPAQQ DEFAULTPRINTERTYPE PDF)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -226,7 +225,7 @@
|
||||
|
||||
(PDF-INIT)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2702 5036 (PDFFILEP 2712 . 3626) (PDF.HARDCOPYW 3628 . 4055) (PDF.TEXT 4057 . 4665) (
|
||||
PDF.TEDIT 4667 . 5034)) (5412 12616 (PDF-INIT 5422 . 6147) (OPEN-PDF-STREAM 6149 . 8252) (
|
||||
CLOSE-PDF-STREAM 8254 . 9169) (PDF-CONVERT 9171 . 12614)))))
|
||||
(FILEMAP (NIL (2668 5002 (PDFFILEP 2678 . 3592) (PDF.HARDCOPYW 3594 . 4021) (PDF.TEXT 4023 . 4631) (
|
||||
PDF.TEDIT 4633 . 5000)) (5428 12632 (PDF-INIT 5438 . 6163) (OPEN-PDF-STREAM 6165 . 8268) (
|
||||
CLOSE-PDF-STREAM 8270 . 9185) (PDF-CONVERT 9187 . 12630)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user