From c4554894b3a91fcd615d863080ebb1aaa917307b Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 25 Jun 2023 17:16:27 -0700
Subject: [PATCH] PDFSTREAM: define PDF fonts as POSTSCRIPT fonts

---
 library/PDFSTREAM      |  18 +++++++++++-------
 library/PDFSTREAM.LCOM | Bin 4918 -> 5006 bytes
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/library/PDFSTREAM b/library/PDFSTREAM
index 24fdd70a..0e786e58 100644
--- a/library/PDFSTREAM
+++ b/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
diff --git a/library/PDFSTREAM.LCOM b/library/PDFSTREAM.LCOM
index 2e961a9b83102bacf88ed999d18897340b244af5..8d53ee8000c9f69483c0df611aa1a0b6cde20b23 100644
GIT binary patch
delta 284
zcmdm{)~7xpLfBN-t29s7$iT>0!O+ag#L&vvWMZ}flbPnkkD?PdNeBnHxaoTOd4?!t
z<|!!oxVbABnNGYbVUDcL(8>UaER;04G~7IWT%Chl9Yb7Q6qJmR6+z6Ntiz~iZ>C^q
zWM*orVCCxK8KUbHsZf-gtzhNs;ppe?8mt@Qub{!@<`=90vsqKYDj>);%+o(KSl0z;
z@?>#F^UW(5+n5>6C+o9n`K2=e0hr(du>=@2OpO%W{QW`#g8V`5(Q|ZhaRKUgc2zJm
lQSgH}&j{#P6LW<C|KN~d=OE935Csz>kc|qPvslmY0stD$MZo|7

delta 194
zcmeBE-=;PpLfAytt29s7$iT>0!O+yo$lS`%aALLrqv^ysdct}6B^jA{=?a;73QBIF
zK0XRYCKK;UD4}XGFt#!>QqttoaP#zWbq;cM3~_at+{0*YsbFYiVrHsf<?7-YqU#i?
zP?VdkU=<ML8s_OA8m#LARHwkDWQ1mzp_P%vWL-uDMw88l8QYi{H70wpY6%K3Xc(F(
Q_(4oJ0@}6t5bGIU0NiLYQvd(}