PDFSTREAM compatible with new imagefile architecture plus able to convert non-local Postscript streams

library/PDFSTREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Dec-2025 19:16:43" {WMEDLEY}<library>PDFSTREAM.;92
 17210  
+
(FILECREATED "24-Dec-2025 23:32:51" {WMEDLEY}<library>PDFSTREAM.;96
 17857  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS PDFSTREAMCOMS)
+      :CHANGES-TO (FNS SEE-PDF)
 
-      :PREVIOUS-DATE "26-Nov-2025 11:37:30" {WMEDLEY}<library>PDFSTREAM.;90)
+      :PREVIOUS-DATE "24-Dec-2025 11:11:50" {WMEDLEY}<library>PDFSTREAM.;93)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -52,12 +52,12 @@
 (* ; "Hook into hardcopy interface")

 
 
-(ADDTOVAR PRINTFILETYPES

+(ADDTOVAR PRINTFILETYPES
 (PDF (TEST PDFFILEP)
-          (PDF (TEST PDFFILEP)
+                              (EXTENSION (PDF))
-               (EXTENSION (PDF))
+                              (CONVERSION (TEXT POSTSCRIPT.TEXT POSTSCRIPT PDF.POSTSCRIPT))
-               (CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT TEDIT.TO.IMAGEFILE POSTSCRIPT PDF.POSTSCRIPT))
+                              (BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
-               (BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
+                              (BITMAPFILE (PDF.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION ROTATION
-               (BITMAPFILE (PDF.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
+                                                 TITLE))))
 
 (ADDTOVAR IMAGESTREAMTYPES
 (PDF (OPENSTREAM OPEN-PDF-STREAM)
                                 (FONTCREATE POSTSCRIPT.FONTCREATE)
@@ -311,18 +311,26 @@
 (DEFINEQ
 
 (SEE-PDF

-  [LAMBDA (PDFFILE)
                                          (* ; "Edited 30-Jul-2025 18:00 by rmk")


+  [LAMBDA (PDFFILE)
                                          (* ; "Edited 24-Dec-2025 23:32 by rmk")


+                                                             (* ; "Edited 30-Jul-2025 18:00 by rmk")


                                                              (* ; "Edited 25-Dec-2024 14:25 by rmk")


                                                              (* ; "Edited  1-Oct-2023 20:47 by rmk")


                                                              (* ; "Edited 26-Sep-2023 16:52 by rmk")

 
     (* ;; "Use the ShellOpener for this machine to open the PDF file outside of Medley")

 
-    (LET [(FOUND (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF]
+    (LET (FOUND)
-         (if
 FOUND
+         [SETQ FOUND (if
 (AND (STREAMP PDFFILE)
+                              (PDFFILEP
 PDFFILE))
+                         then
 (PACKFILENAME 'HOST 'UNIX 'BODY (UNIX-FILE-NAME PDFFILE 'INPUT
+                                                                     'pdf
+                                                                     'pdf))
+                       else
 (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF]
+         (if
 (NOT FOUND)
+             then
 (ERROR "FILE NOT FOUND" PDFFILE)
+           elseif
 (PDFFILEP
 FOUND)
              then
 (ShellOpen FOUND)
-                  FOUND
+           else
 (ERROR FOUND "is not a PDF file"])
-           else
 (ERROR "FILE NOT FOUND" PDFFILE])
 )
 
 (ADDTOVAR FB.SEE.METHODS
 (PDFFILEP SEE-PDF))
@@ -344,9 +352,9 @@
 
 (\PDFINIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2415 5995 (PDFFILEP 2425 . 3702) (PDF.HARDCOPYW 3704 . 4274) (PDF.TEXT 4276 . 4993) (
+  (FILEMAP (NIL (2487 6067 (PDFFILEP 2497 . 3774) (PDF.HARDCOPYW 3776 . 4346) (PDF.TEXT 4348 . 5065) (
-PDF.TEDIT 4995 . 5571) (PDF.FONTSAVAILABLE 5573 . 5993)) (6435 15507 (OPEN-PDF-STREAM 6445 . 7595) (
+PDF.TEDIT 5067 . 5643) (PDF.FONTSAVAILABLE 5645 . 6065)) (6507 15579 (OPEN-PDF-STREAM 6517 . 7667) (
-CLOSE-PDF-STREAM 7597 . 9945) (PS-TO-PDF 9947 . 15505)) (15508 15764 (PDF.POSTSCRIPT 15518 . 15762)) (
+CLOSE-PDF-STREAM 7669 . 10017) (PS-TO-PDF 10019 . 15577)) (15580 15836 (PDF.POSTSCRIPT 15590 . 15834))
-15765 16523 (SEE-PDF 15775 . 16521)) (16574 16858 (PDFCONVERTER 16584 . 16856)) (16859 17171 (\PDFINIT
+ (15837 17170 (SEE-PDF 15847 . 17168)) (17221 17505 (PDFCONVERTER 17231 . 17503)) (17506 17818 (
- 16869 . 17169)))))
+\PDFINIT 17516 . 17816)))))
 STOP