github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-25 08:39:51 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rmkaplan
2025-12-28 21:28:43 -08:00
parent dd070b177b
commit 01bb8fee9f
2 changed files with 27 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
library/PDFSTREAM
View File

@@ -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
(PDF (TEST PDFFILEP)
(EXTENSION (PDF))
(CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT TEDIT.TO.IMAGEFILE POSTSCRIPT PDF.POSTSCRIPT))
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
(BITMAPFILE (PDF.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
(ADDTOVAR PRINTFILETYPES (PDF (TEST PDFFILEP)
(EXTENSION (PDF))
(CONVERSION (TEXT POSTSCRIPT.TEXT POSTSCRIPT PDF.POSTSCRIPT))
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
(BITMAPFILE (PDF.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION ROTATION
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]
(if FOUND
(LET (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 "FILE NOT FOUND" PDFFILE])
else (ERROR FOUND "is not a PDF file"])
)
(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) (
PDF.TEDIT 4995 . 5571) (PDF.FONTSAVAILABLE 5573 . 5993)) (6435 15507 (OPEN-PDF-STREAM 6445 . 7595) (
CLOSE-PDF-STREAM 7597 . 9945) (PS-TO-PDF 9947 . 15505)) (15508 15764 (PDF.POSTSCRIPT 15518 . 15762)) (
15765 16523 (SEE-PDF 15775 . 16521)) (16574 16858 (PDFCONVERTER 16584 . 16856)) (16859 17171 (\PDFINIT
16869 . 17169)))))
(FILEMAP (NIL (2487 6067 (PDFFILEP 2497 . 3774) (PDF.HARDCOPYW 3776 . 4346) (PDF.TEXT 4348 . 5065) (
PDF.TEDIT 5067 . 5643) (PDF.FONTSAVAILABLE 5645 . 6065)) (6507 15579 (OPEN-PDF-STREAM 6517 . 7667) (
CLOSE-PDF-STREAM 7669 . 10017) (PS-TO-PDF 10019 . 15577)) (15580 15836 (PDF.POSTSCRIPT 15590 . 15834))
(15837 17170 (SEE-PDF 15847 . 17168)) (17221 17505 (PDFCONVERTER 17231 . 17503)) (17506 17818 (
\PDFINIT 17516 . 17816)))))
STOP

BIN
library/PDFSTREAM.LCOM
View File

Binary file not shown.