PDF to {NULL} only does postscript part (#2045)

* PDF to {NULL} only does postscript part

* added TRUEFILENAME in NULL case

Author: rmkaplan

library/PDFSTREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Dec-2024 14:26:23" {WMEDLEY}<library>PDFSTREAM.;60
 14292  
+
(FILECREATED "23-Feb-2025 12:18:57" {WMEDLEY}<library>PDFSTREAM.;62
 14729  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS SEE-PDF)
+      :CHANGES-TO (FNS OPEN-PDF-STREAM)
 
-      :PREVIOUS-DATE "10-Dec-2024 14:36:59" {WMEDLEY}<library>PDFSTREAM.;59)
+      :PREVIOUS-DATE "25-Dec-2024 14:26:23" {WMEDLEY}<library>PDFSTREAM.;60)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -153,7 +153,8 @@
 (DEFINEQ
 
 (OPEN-PDF-STREAM

-  [LAMBDA (FILE OPTIONS)
                                     (* ; "Edited 23-Sep-2023 15:38 by rmk")


+  [LAMBDA (FILE OPTIONS)
                                     (* ; "Edited 23-Feb-2025 12:18 by rmk")


+                                                             (* ; "Edited 23-Sep-2023 15:38 by rmk")


                                                              (* ; "Edited 22-Sep-2023 11:04 by rmk")


                                                              (* ; "Edited 24-Jun-2023 14:49 by rmk")

 
@@ -171,20 +172,26 @@
              (* ;; "If FILE is on the LPT device, we could just ssume that it can be printed directly, no point in converting.  But then we would alo have to lie and give it a PDF extension so it thinks that we are heading to a PDF printer.")

 
              (OPENPOSTSCRIPTSTREAM FILE OPTIONS)
-      else
 (CL:UNLESS (ASSOC (PDFCONVERTER
)
-                             PDF-CONVERTER-TEMPLATES)
-                  (ERROR "A specified POSTSCRIPT-to-PDF converter cannot be found"))
-           (SETQ FILE (OR (AND (NEQ FILE T)
-                               (OUTFILEP FILE))
-                          (ERROR "PDF target file not found" FILE)))
-           (LET ((PSSTREAM (OPENPOSTSCRIPTSTREAM (CONCAT "{UNIX}/tmp/medley-pdf-" (IDATE)
-                                                        "-"
-                                                        (RAND)
-                                                        ".ps")
-                                  OPTIONS)))
-                (STREAMPROP PSSTREAM 'AFTERCLOSE (CONS (FUNCTION CLOSE-PDF-STREAM)))
-                (STREAMPROP PSSTREAM 'PDFTARGETINFO FILE)
-                PSSTREAM])
+      elseif
 (EQ 'NULL (FILENAMEFIELD (TRUEFILENAME FILE)
+                              'HOST))
+        then
 
+             (* ;; "Device NULL used by TMAX, maybe others, to get page number for table of contents, index.  Nothing to convert")

+
+             (OPENPOSTSCRIPTSTREAM FILE OPTIONS)
+      elseif
 (SETQ FILE (OR (AND (NEQ FILE T)
+                                 (OUTFILEP FILE))
+                            (ERROR "PDF target file not found" FILE)))
+        then
 (CL:UNLESS (ASSOC (PDFCONVERTER
)
+                               PDF-CONVERTER-TEMPLATES)
+                    (ERROR "Can't find a POSTSCRIPT-to-PDF converter"))
+             (LET ((PSSTREAM (OPENPOSTSCRIPTSTREAM (CONCAT "{UNIX}/tmp/medley-pdf-" (IDATE)
+                                                          "-"
+                                                          (RAND)
+                                                          ".ps")
+                                    OPTIONS)))
+                  (STREAMPROP PSSTREAM 'AFTERCLOSE (CONS (FUNCTION CLOSE-PDF-STREAM)))
+                  (STREAMPROP PSSTREAM 'PDFTARGETINFO FILE)
+                  PSSTREAM])
 
 (CLOSE-PDF-STREAM

   [LAMBDA (PSSTREAM)
                                         (* ; "Edited 22-Sep-2023 11:18 by rmk")


@@ -285,8 +292,8 @@
                                    thereis
 (ShellWhich (CAR TEMPLATE])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3255 5869 (PDFFILEP 3265 . 4179) (PDF.HARDCOPYW 4181 . 4779) (PDF.TEXT 4781 . 5498) (
-PDF.TEDIT 5500 . 5867)) (6309 13369 (OPEN-PDF-STREAM 6319 . 8455) (CLOSE-PDF-STREAM 8457 . 9744) (
-PS-TO-PDF 9746 . 13367)) (13370 13934 (SEE-PDF 13380 . 13932)) (13985 14269 (PDFCONVERTER 13995 . 
-14267)))))
+  (FILEMAP (NIL (3263 5877 (PDFFILEP 3273 . 4187) (PDF.HARDCOPYW 4189 . 4787) (PDF.TEXT 4789 . 5506) (
+PDF.TEDIT 5508 . 5875)) (6317 13806 (OPEN-PDF-STREAM 6327 . 8892) (CLOSE-PDF-STREAM 8894 . 10181) (
+PS-TO-PDF 10183 . 13804)) (13807 14371 (SEE-PDF 13817 . 14369)) (14422 14706 (PDFCONVERTER 14432 . 
+14704)))))
 STOP