github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-25 03:45:30 +00:00
Code Issues Projects Releases Wiki Activity

SEE-PDF searches for PDF file (#1939)

Browse Source
This commit is contained in:
rmkaplan
2025-01-27 11:52:31 -08:00
committed by GitHub
parent 4873590e22
commit 40d2ac394c
2 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
library/PDFSTREAM
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "10-Dec-2024 14:36:59" {WMEDLEY}<library>PDFSTREAM.;59 14133 (FILECREATED "25-Dec-2024 14:26:23" {WMEDLEY}<library>PDFSTREAM.;60 14292
:EDIT-BY rmk :EDIT-BY rmk
:CHANGES-TO (VARS PDFSTREAMCOMS) :CHANGES-TO (FNS SEE-PDF)
:PREVIOUS-DATE "11-Nov-2023 11:24:42" {WMEDLEY}<library>PDFSTREAM.;56) :PREVIOUS-DATE "10-Dec-2024 14:36:59" {WMEDLEY}<library>PDFSTREAM.;59)
(PRETTYCOMPRINT PDFSTREAMCOMS) (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -265,12 +265,14 @@
(DEFINEQ (DEFINEQ
(SEE-PDF (SEE-PDF
[LAMBDA (PDFFILE) (* ; "Edited 1-Oct-2023 20:47 by rmk") [LAMBDA (PDFFILE) (* ; "Edited 25-Dec-2024 14:25 by rmk")
(* ; "Edited 1-Oct-2023 20:47 by rmk")
(* ; "Edited 26-Sep-2023 16:52 by rmk") (* ; "Edited 26-Sep-2023 16:52 by rmk")
(* ;; "Use the ShellOpener for this machine to open the PDF file outside of Medley") (* ;; "Use the ShellOpener for this machine to open the PDF file outside of Medley")
(ShellOpen (PACKFILENAME 'BODY PDFFILE 'EXTENSION 'PDF]) (ShellOpen (OR (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF))
(ERROR "FILE NOT FOUND" PDFFILE])
) )
(ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF)) (ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF))
@@ -283,8 +285,8 @@
thereis (ShellWhich (CAR TEMPLATE]) thereis (ShellWhich (CAR TEMPLATE])
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (3262 5876 (PDFFILEP 3272 . 4186) (PDF.HARDCOPYW 4188 . 4786) (PDF.TEXT 4788 . 5505) ( (FILEMAP (NIL (3255 5869 (PDFFILEP 3265 . 4179) (PDF.HARDCOPYW 4181 . 4779) (PDF.TEXT 4781 . 5498) (
PDF.TEDIT 5507 . 5874)) (6316 13376 (OPEN-PDF-STREAM 6326 . 8462) (CLOSE-PDF-STREAM 8464 . 9751) ( PDF.TEDIT 5500 . 5867)) (6309 13369 (OPEN-PDF-STREAM 6319 . 8455) (CLOSE-PDF-STREAM 8457 . 9744) (
PS-TO-PDF 9753 . 13374)) (13377 13775 (SEE-PDF 13387 . 13773)) (13826 14110 (PDFCONVERTER 13836 . PS-TO-PDF 9746 . 13367)) (13370 13934 (SEE-PDF 13380 . 13932)) (13985 14269 (PDFCONVERTER 13995 .
14108))))) 14267)))))
STOP STOP

BIN
library/PDFSTREAM.LCOM
View File

Binary file not shown.