github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

SEE-PDF returns the file name, not T (#2237)

Browse Source
This commit is contained in:
rmkaplan 2025-07-31 09:06:37 -07:00 committed by GitHub
parent 4019578944
commit 37aef55990
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 31 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
library/PDFSTREAM
View File

@ -1,12 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 5-Jun-2025 08:42:11" {WMEDLEY}<library>PDFSTREAM.;64 14885
(FILECREATED "30-Jul-2025 18:01:04" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>PDFSTREAM.;68 15635
:EDIT-BY rmk
:CHANGES-TO (FNS OPEN-PDF-STREAM)
:CHANGES-TO (FNS SEE-PDF)
:PREVIOUS-DATE "23-Feb-2025 12:18:57" {WMEDLEY}<library>PDFSTREAM.;62)
:PREVIOUS-DATE "16-Jun-2025 00:52:44"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>PDFSTREAM.;67)
(PRETTYCOMPRINT PDFSTREAMCOMS)
@ -28,11 +30,12 @@
(CONVERSION (TEXT PDF.TEXT TEDIT PDF.TEDIT]
(IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM)
(FONTCREATE POSTSCRIPT.FONTCREATE)
(FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
(CREATECHARSET \CREATECHARSET.PSC]
(FONTSAVAILABLE PDF.FONTSAVAILABLE)
(CREATECHARSET \CREATECHARSET.PSC)
(FONTEXISTS? POSTSCRIPT.FONTEXISTS?]
(ALISTS (DEFAULTFILETYPELIST PDF))
(VARS (DEFAULTPRINTERTYPE 'PDF))
(FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
(FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT PDF.FONTSAVAILABLE)
(P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT]
(* ;; "")
@ -71,8 +74,9 @@
(ADDTOVAR IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM)
(FONTCREATE POSTSCRIPT.FONTCREATE)
(FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
(CREATECHARSET \CREATECHARSET.PSC)))
(FONTSAVAILABLE PDF.FONTSAVAILABLE)
(CREATECHARSET \CREATECHARSET.PSC)
(FONTEXISTS? POSTSCRIPT.FONTEXISTS?)))
(ADDTOVAR DEFAULTFILETYPELIST (PDF . BINARY))
@ -123,6 +127,14 @@
(LET ((TSTREAM (OPENTEXTSTREAM FILE)))
(TEDIT.FORMAT.HARDCOPY FILE PDFFILE T NIL NIL NIL 'PDF)
(CLOSEF TSTREAM])
(PDF.FONTSAVAILABLE
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE) (* ; "Edited 16-Jun-2025 00:46 by rmk")
(* ; "Edited 12-Jan-88 13:04 by Matt Heffron")
(* ;; "")
(POSTSCRIPT.FONTSAVAILABLE FAMILY SIZE FACE ROTATION 'PDF])
)
(FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT)
@ -272,14 +284,18 @@
(DEFINEQ
(SEE-PDF
[LAMBDA (PDFFILE) (* ; "Edited 25-Dec-2024 14:25 by rmk")
[LAMBDA (PDFFILE) (* ; "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")
(ShellOpen (OR (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF))
(ERROR "FILE NOT FOUND" PDFFILE])
(LET [(FOUND (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF]
(if FOUND
then (ShellOpen FOUND)
FOUND
else (ERROR "FILE NOT FOUND" PDFFILE])
)
(ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF))
@ -292,8 +308,8 @@
thereis (ShellWhich (CAR TEMPLATE])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3263 5877 (PDFFILEP 3273 . 4187) (PDF.HARDCOPYW 4189 . 4787) (PDF.TEXT 4789 . 5506) (
PDF.TEDIT 5508 . 5875)) (6317 13962 (OPEN-PDF-STREAM 6327 . 9048) (CLOSE-PDF-STREAM 9050 . 10337) (
PS-TO-PDF 10339 . 13960)) (13963 14527 (SEE-PDF 13973 . 14525)) (14578 14862 (PDFCONVERTER 14588 .
14860)))))
(FILEMAP (NIL (3492 6433 (PDFFILEP 3502 . 4416) (PDF.HARDCOPYW 4418 . 5016) (PDF.TEXT 5018 . 5735) (
PDF.TEDIT 5737 . 6104) (PDF.FONTSAVAILABLE 6106 . 6431)) (6873 14518 (OPEN-PDF-STREAM 6883 . 9604) (
CLOSE-PDF-STREAM 9606 . 10893) (PS-TO-PDF 10895 . 14516)) (14519 15277 (SEE-PDF 14529 . 15275)) (15328
15612 (PDFCONVERTER 15338 . 15610)))))
STOP

BIN
library/PDFSTREAM.LCOM
View File

Binary file not shown.