PDF-STREAM: added SEE-PDF

A little stub that (on a mac) does a shell command to open Preview on the Unix-named file corresponding to a medley name

(Also added back some key functions that got lost in a bad edit)

library/PDFSTREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Sep-2023 22:54:26" {WMEDLEY}<library>PDFSTREAM.;49
 10763  
+
(FILECREATED " 1-Oct-2023 20:53:05" {WMEDLEY}<library>PDFSTREAM.;54
 13917  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS PS-TO-PDF OPEN-PDF-STREAM)
+      :CHANGES-TO (FNS SEE-PDF)
 
-      :PREVIOUS-DATE "23-Sep-2023 15:38:55" {WMEDLEY}<library>PDFSTREAM.;48)
+      :PREVIOUS-DATE " 1-Oct-2023 15:29:33" {WMEDLEY}<library>PDFSTREAM.;53)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -15,7 +15,7 @@
        ((FILES (SYSLOAD)
                POSTSCRIPTSTREAM)
         [COMS                                                (* ; "Hook into hardcopy interface")

-              (ADDVARS [PRINTERTYPES ((PDF)
+              [ADDVARS [PRINTERTYPES ((PDF)
                                       (CANPRINT (PDF))
                                       (STATUS TRUE)
                                       (PROPERTIES NILL)
@@ -29,10 +29,10 @@
                      (IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM)
                                             (FONTCREATE POSTSCRIPT.FONTCREATE)
                                             (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
-                                            (CREATECHARSET \CREATECHARSET.PSC)))
+                                            (CREATECHARSET \CREATECHARSET.PSC]
-                     (VARS (DEFAULTPRINTERTYPE 'PDF))
+              (VARS (DEFAULTPRINTERTYPE 'PDF))
-                     (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
+              (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
-                     (P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT]
+              (P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT]
         
         (* ;; "")

 
@@ -43,7 +43,8 @@
                                                              (* ; "Mac with ghostscript?")

         (ALISTS (PDF-CONVERTER-TEMPLATES ps2pdf pstopdf))
         (GLOBALVARS PDFCONVERTER PDF-CONVERTER-TEMPLATES)
-        (FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF)))
+        (FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF)
+        (FNS SEE-PDF)))
 
 (FILESLOAD (SYSLOAD)
        POSTSCRIPTSTREAM)
@@ -70,11 +71,56 @@
                                 (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
                                 (CREATECHARSET \CREATECHARSET.PSC)))
 
-(ADDTOVAR VARS
 (DEFAULTPRINTERTYPE 'PDF))
+(RPAQQ DEFAULTPRINTERTYPE
 PDF)
+(DEFINEQ
 
-(ADDTOVAR FNS
 PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
+(PDFFILEP

+  [LAMBDA (FILE)
                                             (* ; "Edited 23-Jun-2023 14:43 by rmk")


+                                                             (* ; "Edited  5-Mar-93 21:40 by rmk:")


+                                                             (* ; "Edited 14-Jan-93 10:56 by jds")

+    (OR (CL:MEMBER (UNPACKFILENAME.STRING FILE 'EXTENSION)
+               '("PDF")
+               :TEST
+               (FUNCTION STRING-EQUAL))
+        (CL:WHEN (STREAMP FILE)
+            (SETFILEPTR FILE 0)
+            (PROG1 (AND (EQ (BIN FILE)
+                            (CHARCODE %%))
+                        (EQ (BIN FILE)
+                            (CHARCODE P))
+                        (EQ (BIN FILE)
+                            (CHARCODE D))
+                        (EQ (BIN FILE)
+                            (CHARCODE F)))
+                   (SETFILEPTR FILE 0)))])
 
-(ADDTOVAR P
 (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT))
+(PDF.HARDCOPYW

+  [LAMBDA (PDFFILE BITMAP SCALEFACTOR REGION Landscape? TITLE)

+                                                             (* ; "Edited 24-Jul-2023 10:37 by rmk")


+                                                             (* ; "Edited 23-Jun-2023 13:28 by rmk")


+                                                             (* ; "Edited  6-Mar-2023 22:43 by rmk")

+    (LET ((PSTTMP (PACKFILENAME 'EXTENSION 'TMPPS 'BODY PDFFILE)))
+         (PS-TO-PDF
 (POSTSCRIPT.HARDCOPYW PSTTMP BITMAP SCALEFACTOR REGION Landscape? TITLE)
+                PDFFILE])
+
+(PDF.TEXT

+  [LAMBDA (FILE PDFFILE FONTS HEADING TABS)
                  (* ; "Edited  1-Oct-2023 15:24 by rmk")


+                                                             (* ; "Edited 23-Jun-2023 13:23 by rmk")


+                                                             (* ; "Edited  7-Mar-2023 08:39 by rmk")

+    (TEXTTOIMAGEFILE FILE PDFFILE 'PDF FONTS HEADING TABS `(REGION ,POSTSCRIPT.DEFAULT.PAGEREGION 
+                                                                  ROTATION ,(NOT (NOT 
+                                                                        POSTSCRIPT.TEXTFILE.LANDSCAPE
+                                                                                      ])
+
+(PDF.TEDIT

+  [LAMBDA (FILE PDFFILE)
                                     (* ; "Edited 23-Jun-2023 13:22 by rmk")


+                                                             (* ; "Edited  7-Mar-2023 08:39 by rmk")

+    (LET ((TSTREAM (OPENTEXTSTREAM FILE)))
+         (TEDIT.FORMAT.HARDCOPY FILE PDFFILE T NIL NIL NIL 'PDF)
+         (CLOSEF TSTREAM])
+)
+
+(FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT)
 
 
 
@@ -154,7 +200,8 @@
              PSSTREAM)])
 
 (PS-TO-PDF

-  [LAMBDA (PSFILE PDFFILE DONTDELETE)
                        (* ; "Edited 23-Sep-2023 22:54 by rmk")


+  [LAMBDA (PSFILE PDFFILE DONTDELETE)
                        (* ; "Edited  1-Oct-2023 15:18 by rmk")


+                                                             (* ; "Edited 23-Sep-2023 22:54 by rmk")


                                                              (* ; "Edited 23-Jul-2023 22:30 by rmk")


                                                              (* ; "Edited 24-Jun-2023 15:01 by rmk")


                                                              (* ; "Edited 16-Jul-2022 13:06 by rmk")


@@ -167,11 +214,11 @@
     (* ;; "DONTDELETE is just for debugging, keeps the /tmp/ files")

 
     (SETQ PSFILE (FULLNAME (TRUEFILENAME PSFILE)))
+    (CL:UNLESS (INFILEP PSFILE)
+           (ERROR "NO PS FILE TO CONVERT"))
     (SETQ PDFFILE (if
 PDFFILE
                       then
 (TRUEFILENAME PDFFILE)
                     else
 (PACKFILENAME 'EXTENSION 'pdf 'BODY PSFILE)))
-    (CL:UNLESS (INFILEP PSFILE)
-           (ERROR "NO PS FILE TO CONVERT"))
     (LET ((ERRORFILE (PACKFILENAME 'EXTENSION 'error 'BODY PSFILE))
           COMPLETIONCODE)
 
@@ -210,7 +257,20 @@
                 (ERROR "Cannot create PDF file for " PDFFILE))
          PDFFILE])
 )
+(DEFINEQ
+
+(SEE-PDF

+  [LAMBDA (PDFFILE)
                                          (* ; "Edited  1-Oct-2023 20:47 by rmk")


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

+
+    (* ;; "Good for Mac, not sure about Windows etc.")

+
+    (ShellCommand (CONCAT "open -a Preview " (UNIX-FILE-NAME (PACKFILENAME 'BODY PDFFILE 'EXTENSION
+                                                                    'PDF)
+                                                    'INPUT])
+)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3630 10740 (OPEN-PDF-STREAM 3640 . 5818) (CLOSE-PDF-STREAM 5820 . 7107) (PS-TO-PDF 7109
+  (FILEMAP (NIL (3078 5692 (PDFFILEP 3088 . 4002) (PDF.HARDCOPYW 4004 . 4602) (PDF.TEXT 4604 . 5321) (
- . 10738)))))
+PDF.TEDIT 5323 . 5690)) (6136 13355 (OPEN-PDF-STREAM 6146 . 8324) (CLOSE-PDF-STREAM 8326 . 9613) (
+PS-TO-PDF 9615 . 13353)) (13356 13894 (SEE-PDF 13366 . 13892)))))
 STOP