PDFSTREAM: define PDF fonts as POSTSCRIPT fonts

library/PDFSTREAM

@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Jun-2023 15:27:04" {WMEDLEY}<library>PDFSTREAM.;35
 12465  
+
(FILECREATED "25-Jun-2023 16:41:34" {WMEDLEY}<library>PDFSTREAM.;36
 12655  
 
       :EDIT-BY rmk
 
-      :PREVIOUS-DATE "24-Jun-2023 15:01:28" {WMEDLEY}<library>PDFSTREAM.;34)
+      :CHANGES-TO (FNS PDF-INIT)
+
+      :PREVIOUS-DATE "24-Jun-2023 15:27:04" {WMEDLEY}<library>PDFSTREAM.;35)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -114,12 +116,14 @@
 (DEFINEQ
 
 (PDF-INIT

-  [LAMBDA NIL
                                                (* ; "Edited 23-Jun-2023 11:23 by rmk")

+  [LAMBDA NIL
                                                (* ; "Edited 25-Jun-2023 16:41 by rmk")


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

 
     (* ;; "Seems OK to make callers see this as PDF, even though the implementation is postscript.  The pdf stream is opened as a temporary postscript stream, and the closefn then uses an operating-system utility to convert it to the original target file-name.")

 
     (SETQ \PDFIMAGEOPS (create
 IMAGEOPS using
 \POSTSCRIPTIMAGEOPS IMAGETYPE _ 'PDF IMCLOSEFN _
-                                              (FUNCTION CLOSE-PDF-STREAM])
+                                              (FUNCTION CLOSE-PDF-STREAM)))
+    (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT])
 
 (OPEN-PDF-STREAM

   [LAMBDA (FILE OPTIONS)
                                     (* ; "Edited 24-Jun-2023 14:49 by rmk")

@@ -222,7 +226,7 @@
 
 (PDF-INIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2668 5002 (PDFFILEP 2678 . 3592) (PDF.HARDCOPYW 3594 . 4021) (PDF.TEXT 4023 . 4631) (
-PDF.TEDIT 4633 . 5000)) (5378 12426 (PDF-INIT 5388 . 5957) (OPEN-PDF-STREAM 5959 . 8062) (
-CLOSE-PDF-STREAM 8064 . 8979) (PDF-CONVERT 8981 . 12424)))))
+  (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)))))
 STOP