From ab831a46babc2694e4e78fad0818df3565e425ea Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Wed, 29 Nov 2023 07:04:58 -0800 Subject: [PATCH] Add a hook to extend FILEBROWSER SEE, PDFSTREAM uses it (#1414) So SEE of a PDF file should open up a desktop window in a pdf viewer. (This uses PDFILEP, which looks inside the file, not at the extension. So it might try to open a file with a wrong extension, and the viewer might fail.) --- library/FILEBROWSER | 132 ++++++++++++++++++++------------------- library/FILEBROWSER.LCOM | Bin 87785 -> 87940 bytes library/PDFSTREAM | 21 ++++--- library/PDFSTREAM.LCOM | Bin 5449 -> 5449 bytes 4 files changed, 80 insertions(+), 73 deletions(-) diff --git a/library/FILEBROWSER b/library/FILEBROWSER index e7b22809..8b61e706 100644 --- a/library/FILEBROWSER +++ b/library/FILEBROWSER @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "19-Jul-2023 09:30:47" |{WMEDLEY}FILEBROWSER.;25| 265978 +(FILECREATED " 4-Nov-2023 23:55:27" |{WMEDLEY}FILEBROWSER.;27| 266102 :EDIT-BY |rmk| :CHANGES-TO (VARS FILEBROWSERCOMS) + (FNS FB.EDITCOMMAND.ONEFILE) - :PREVIOUS-DATE "18-Jul-2023 22:19:30" |{WMEDLEY}FILEBROWSER.;24|) + :PREVIOUS-DATE " 4-Nov-2023 23:50:29" |{WMEDLEY}FILEBROWSER.;26|) (PRETTYCOMPRINT FILEBROWSERCOMS) @@ -41,7 +42,8 @@ (FB.OVERFLOW.MAXABSOLUTE 30) (FB.OVERFLOW.MAXFRAC 0.06) (FB.DEFAULT.EDITOR 'TEDIT) - (FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR))) + (FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR)) + (FB.SEE.METHODS)) (APPENDVARS (FONTVARS (FB.ICONFONT LITTLEFONT) (FB.BROWSERFONT DEFAULTFONT) (FB.PROMPTFONT LITTLEFONT) @@ -295,6 +297,8 @@ DOCOPY (RPAQ? FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR)) +(RPAQ? FB.SEE.METHODS ) + (APPENDTOVAR FONTVARS (FB.ICONFONT LITTLEFONT) (FB.BROWSERFONT DEFAULTFONT) (FB.PROMPTFONT LITTLEFONT) @@ -1697,10 +1701,9 @@ Your deletions are thus ignored."))) ELSE (FB.FASTSEECOMMAND BROWSER KEY ITEM MENU))))) (FB.EDITCOMMAND.ONEFILE - (LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; - "Edited 19-Sep-2021 18:07 by rmk:") - (* \; - "Edited 27-Feb-2021 20:07 by rmk:") + (LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; "Edited 4-Nov-2023 23:55 by rmk") + (* \; "Edited 19-Sep-2021 18:07 by rmk:") + (* \; "Edited 27-Feb-2021 20:07 by rmk:") (* \; "Edited 1-Feb-88 19:00 by bvm:") (* |;;| "Called when we know that FILE is a file, not a directory, and that TEDIT exists. If OPTION is READONLY, we don't want to edit, just view. .") @@ -1717,25 +1720,26 @@ Your deletions are thus ignored."))) (* |;;| "The particular item may be a subitem of the EDIT or SEE menu item, in which case we want to unshade that too. Seems a little bruteforce") (CL:UNLESS (MEMBER ITEM (FETCH (MENU ITEMS) OF MENU)) - (FOR I IN (FETCH (MENU ITEMS) OF MENU) - WHEN (MEMBER ITEM (CDR (SASSOC 'SUBITEMS I))) DO (SHADEITEM I MENU - FB.ITEMUNSELECTEDSHADE) - (PUTMENUPROP MENU 'ITEMSHADE - (CONS I - FB.ITEMUNSELECTEDSHADE - )))) + (FOR I IN (FETCH (MENU ITEMS) OF MENU) WHEN (MEMBER ITEM (CDR (SASSOC 'SUBITEMS I))) + DO (SHADEITEM I MENU FB.ITEMUNSELECTEDSHADE) + (PUTMENUPROP MENU 'ITEMSHADE (CONS I FB.ITEMUNSELECTEDSHADE)))) (CL:MULTIPLE-VALUE-BIND (IGNORE CONDITION) (IGNORE-ERRORS (SELECTQ OPTION - (READONLY (TEDIT-SEE FILE)) + (READONLY (|for| SM |in| FB.SEE.METHODS + |when| (APPLY* (CAR SM) + FILE) + |do| (RETURN (APPLY* (CADR SM) + FILE)) + |finally| (RETURN (TEDIT-SEE FILE)))) (LISP (* \; -"Original code allowed OPTION=NIL in thie branch, but NIL should have been coerced to TEDIT above.") + "Original code allowed OPTION=NIL in thie branch, but NIL should have been coerced to TEDIT above.") (* |;;| "Asks to load prop and edits the coms, presumably with SEDIT. We really don't want to use a text editor on a source file.") (IF (LISPSOURCEFILEP FILE) THEN (FB.EDITLISPFILE FILE BROWSER) ELSE (FB.PROMPTW.FORMAT BROWSER - "Failed because not a Lisp source file"))) + "Failed because not a Lisp source file"))) (PROGN (* |;;| "Might just be a call to TEDIT (if OPTION = TEDIT)") @@ -4246,51 +4250,51 @@ then click Recompute")))) (ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (31814 54695 (FB 31824 . 32959) (FB.COPYBINARYCOMMAND 32961 . 33307) (FB.COPYTEXTCOMMAND - 33309 . 33651) (FILEBROWSER 33653 . 46759) (FB.TABLEBROWSER 46761 . 46978) (FB.SELECTEDFILES 46980 . -47617) (FB.FETCHFILENAME 47619 . 48011) (FB.DIRECTORYP 48013 . 48407) (FB.PROMPTWPRINT 48409 . 49455) -(FB.PROMPTW.FORMAT 49457 . 50194) (FB.PROMPTFORINPUT 50196 . 52448) (FB.YES-OR-NO-P 52450 . 53484) ( -FB.ALLOW.ABORT 53486 . 54340) (\\FB.HARDCOPY.TOFILE.EXTENSION 54342 . 54693)) (54719 55672 (FB.STARTUP - 54729 . 55244) (FB.MAKERIGIDWINDOW 55246 . 55670)) (55673 61156 (FB.PRINTFN 55683 . 60836) (FB.COPYFN - 60838 . 61154)) (61206 67546 (FB.MENU.WHENSELECTEDFN 61216 . 61574) (FB.COMMANDSELECTEDFN 61576 . -63115) (FB.SUBITEMP 63117 . 63718) (FB.MAKE.BROWSER.BUSY 63720 . 64524) (FB.FINISH.COMMAND 64526 . -66557) (FB.HANDLE.ABORT.BUTTON 66559 . 67544)) (67547 73063 (FB.DELETECOMMAND 67557 . 67838) ( -FB.DELVERCOMMAND 67840 . 71033) (FB.IS.NOT.SUBDIRECTORY.ITEM 71035 . 71216) (FB.DELVER.FILES 71218 . -72307) (FB.DELETE.FILE 72309 . 73061)) (73064 74389 (FB.UNDELETECOMMAND 73074 . 73359) ( -FB.UNDELETEALLCOMMAND 73361 . 73640) (FB.UNDELETE.FILE 73642 . 74387)) (74390 98571 (FB.COPYCOMMAND -74400 . 74669) (FB.RENAMECOMMAND 74671 . 74946) (FB.COPY/RENAME.COMMAND 74948 . 75871) ( -FB.COPY/RENAME.ONE 75873 . 78195) (FB.COPY/RENAME.MANY 78197 . 84417) (FB.MERGE.DIRECTORIES 84419 . -84837) (FB.GREATEST.PREFIX 84839 . 86195) (FB.MAYBE.INSERT.FILE 86197 . 93637) (FB.GET.NEW.FILE.SPEC -93639 . 97470) (FB.CANONICAL.DIRECTORY 97472 . 98569)) (98572 106356 (FB.HARDCOPYCOMMAND 98582 . 99712 -) (FB.HARDCOPY.TOFILE 99714 . 106354)) (106357 116556 (FB.EDITCOMMAND 106367 . 107234) ( -FB.EDITCOMMAND.ONEFILE 107236 . 110640) (FB.EDITLISPFILE 110642 . 111747) (FB.BROWSECOMMAND 111749 . -116554)) (116557 128478 (FB.FASTSEECOMMAND 116567 . 120017) (FB.FASTSEE.ONEFILE 120019 . 123176) ( -FB.SEEFULLFN 123178 . 127309) (FB.SEEBUTTONFN 127311 . 128476)) (128479 130225 (FB.LOADCOMMAND 128489 - . 128996) (FB.COMPILECOMMAND 128998 . 129536) (FB.OPERATE.ON.FILES 129538 . 130223)) (130226 178411 ( -FB.UPDATECOMMAND 130236 . 130461) (FB.FIX-DIRECTORY-DATES 130463 . 131486) (FB.MAYBE.EXPUNGE 131488 . -132549) (FB.UPDATEBROWSERITEMS 132551 . 145766) (FB.DATE 145768 . 146409) (FB.ADJUST.DATE.WIDTH 146411 - . 149379) (FB.SET.BROWSER.TITLE 149381 . 150383) (FB.MAYBE.WIDEN.NAMES 150385 . 152504) ( -FB.SET.DEFAULT.NAME.WIDTH 152506 . 153870) (FB.CREATE.FILEBUCKET 153872 . 161092) ( -FB.CHECK.NAME.LENGTH 161094 . 163515) (FB.ADD.FILEGROUP 163517 . 165044) (FB.INSERT.DIRECTORY 165046 - . 165284) (FB.MAKE.SUBDIRECTORY.ITEM 165286 . 166695) (FB.ADD.FILE 166697 . 167310) (FB.INSERT.FILE -167312 . 170724) (FB.ANALYZE.PATTERN 170726 . 175990) (FB.CANONICALIZE.PATTERN 175992 . 177304) ( -FB.GETALLFILEINFO 177306 . 178409)) (178412 186571 (FB.SORT.VERSIONS 178422 . 181193) ( -FB.DECREASING.VERSION 181195 . 181864) (FB.INCREASING.VERSION 181866 . 182487) ( -FB.NAMES.DECREASING.VERSION 182489 . 183524) (FB.NAMES.INCREASING.VERSION 183526 . 184523) ( -FB.DECREASING.NUMERIC.ATTR 184525 . 185205) (FB.INCREASING.NUMERIC.ATTR 185207 . 185881) ( -FB.ALPHABETIC.ATTR 185883 . 186569)) (186572 196414 (FB.SORTCOMMAND 186582 . 193412) ( -FB.INSERT.SUBDIRECTORIES 193414 . 194211) (FB.GET.SORT.MENU 194213 . 196412)) (196415 212636 ( -FB.EXPUNGECOMMAND 196425 . 199010) (FB.NEWPATTERNCOMMAND 199012 . 199410) (FB.NEWINFOCOMMAND 199412 . -202244) (FB.DEPTHCOMMAND 202246 . 204021) (FB.SHAPECOMMAND 204023 . 207365) (FB.REMOVE.FILE 207367 . -209188) (FB.COUNT.FILE.CHANGE 209190 . 210635) (FB.SETNEWPATTERN 210637 . 211807) (FB.GET.NEWPATTERN -211809 . 212393) (FB.OPTIONSCOMMAND 212395 . 212634)) (212671 213724 (FB.GETWINDOW 212681 . 213722)) ( -213725 214737 (FB.INFOMENU.SHADEINITIALSELECTIONS 213735 . 214382) (FB.INFO.ITEM.NAMED 214384 . 214735 -)) (214738 224270 (FB.MAKECOUNTERWINDOW 214748 . 216276) (FB.COUNTERW.REDISPLAYFN 216278 . 216865) ( -FB.UPDATE.COUNTERS 216867 . 218939) (FB.DISPLAY.COUNTERS 218941 . 224001) (FB.COUNTER.STRING 224003 . -224268)) (224271 228980 (FB.MAKEHEADINGWINDOW 224281 . 225895) (FB.HEADINGW.REDISPLAYFN 225897 . -226163) (FB.HEADINGW.RESHAPEFN 226165 . 226541) (FB.HEADINGW.DISPLAY 226543 . 228978)) (228981 233164 -(FB.ICONFN 228991 . 229338) (FB.INFOMENU.WHENSELECTEDFN 229340 . 230070) (FB.CLOSEFN 230072 . 231275) -(FB.EXPUNGE?.MENU 231277 . 231689) (FB.AFTERCLOSEFN 231691 . 232052) (FB.CLOSE&EXPUNGE 232054 . 233162 -)) (233165 245223 (FB.HARDCOPY.DIRECTORY 233175 . 243532) (FB.HARDCOPY.PRINT.TITLE 243534 . 243860) ( -FB.HARDCOPY.MAXWIDTH 243862 . 245221))))) + (FILEMAP (NIL (31928 54809 (FB 31938 . 33073) (FB.COPYBINARYCOMMAND 33075 . 33421) (FB.COPYTEXTCOMMAND + 33423 . 33765) (FILEBROWSER 33767 . 46873) (FB.TABLEBROWSER 46875 . 47092) (FB.SELECTEDFILES 47094 . +47731) (FB.FETCHFILENAME 47733 . 48125) (FB.DIRECTORYP 48127 . 48521) (FB.PROMPTWPRINT 48523 . 49569) +(FB.PROMPTW.FORMAT 49571 . 50308) (FB.PROMPTFORINPUT 50310 . 52562) (FB.YES-OR-NO-P 52564 . 53598) ( +FB.ALLOW.ABORT 53600 . 54454) (\\FB.HARDCOPY.TOFILE.EXTENSION 54456 . 54807)) (54833 55786 (FB.STARTUP + 54843 . 55358) (FB.MAKERIGIDWINDOW 55360 . 55784)) (55787 61270 (FB.PRINTFN 55797 . 60950) (FB.COPYFN + 60952 . 61268)) (61320 67660 (FB.MENU.WHENSELECTEDFN 61330 . 61688) (FB.COMMANDSELECTEDFN 61690 . +63229) (FB.SUBITEMP 63231 . 63832) (FB.MAKE.BROWSER.BUSY 63834 . 64638) (FB.FINISH.COMMAND 64640 . +66671) (FB.HANDLE.ABORT.BUTTON 66673 . 67658)) (67661 73177 (FB.DELETECOMMAND 67671 . 67952) ( +FB.DELVERCOMMAND 67954 . 71147) (FB.IS.NOT.SUBDIRECTORY.ITEM 71149 . 71330) (FB.DELVER.FILES 71332 . +72421) (FB.DELETE.FILE 72423 . 73175)) (73178 74503 (FB.UNDELETECOMMAND 73188 . 73473) ( +FB.UNDELETEALLCOMMAND 73475 . 73754) (FB.UNDELETE.FILE 73756 . 74501)) (74504 98685 (FB.COPYCOMMAND +74514 . 74783) (FB.RENAMECOMMAND 74785 . 75060) (FB.COPY/RENAME.COMMAND 75062 . 75985) ( +FB.COPY/RENAME.ONE 75987 . 78309) (FB.COPY/RENAME.MANY 78311 . 84531) (FB.MERGE.DIRECTORIES 84533 . +84951) (FB.GREATEST.PREFIX 84953 . 86309) (FB.MAYBE.INSERT.FILE 86311 . 93751) (FB.GET.NEW.FILE.SPEC +93753 . 97584) (FB.CANONICAL.DIRECTORY 97586 . 98683)) (98686 106470 (FB.HARDCOPYCOMMAND 98696 . 99826 +) (FB.HARDCOPY.TOFILE 99828 . 106468)) (106471 116680 (FB.EDITCOMMAND 106481 . 107348) ( +FB.EDITCOMMAND.ONEFILE 107350 . 110764) (FB.EDITLISPFILE 110766 . 111871) (FB.BROWSECOMMAND 111873 . +116678)) (116681 128602 (FB.FASTSEECOMMAND 116691 . 120141) (FB.FASTSEE.ONEFILE 120143 . 123300) ( +FB.SEEFULLFN 123302 . 127433) (FB.SEEBUTTONFN 127435 . 128600)) (128603 130349 (FB.LOADCOMMAND 128613 + . 129120) (FB.COMPILECOMMAND 129122 . 129660) (FB.OPERATE.ON.FILES 129662 . 130347)) (130350 178535 ( +FB.UPDATECOMMAND 130360 . 130585) (FB.FIX-DIRECTORY-DATES 130587 . 131610) (FB.MAYBE.EXPUNGE 131612 . +132673) (FB.UPDATEBROWSERITEMS 132675 . 145890) (FB.DATE 145892 . 146533) (FB.ADJUST.DATE.WIDTH 146535 + . 149503) (FB.SET.BROWSER.TITLE 149505 . 150507) (FB.MAYBE.WIDEN.NAMES 150509 . 152628) ( +FB.SET.DEFAULT.NAME.WIDTH 152630 . 153994) (FB.CREATE.FILEBUCKET 153996 . 161216) ( +FB.CHECK.NAME.LENGTH 161218 . 163639) (FB.ADD.FILEGROUP 163641 . 165168) (FB.INSERT.DIRECTORY 165170 + . 165408) (FB.MAKE.SUBDIRECTORY.ITEM 165410 . 166819) (FB.ADD.FILE 166821 . 167434) (FB.INSERT.FILE +167436 . 170848) (FB.ANALYZE.PATTERN 170850 . 176114) (FB.CANONICALIZE.PATTERN 176116 . 177428) ( +FB.GETALLFILEINFO 177430 . 178533)) (178536 186695 (FB.SORT.VERSIONS 178546 . 181317) ( +FB.DECREASING.VERSION 181319 . 181988) (FB.INCREASING.VERSION 181990 . 182611) ( +FB.NAMES.DECREASING.VERSION 182613 . 183648) (FB.NAMES.INCREASING.VERSION 183650 . 184647) ( +FB.DECREASING.NUMERIC.ATTR 184649 . 185329) (FB.INCREASING.NUMERIC.ATTR 185331 . 186005) ( +FB.ALPHABETIC.ATTR 186007 . 186693)) (186696 196538 (FB.SORTCOMMAND 186706 . 193536) ( +FB.INSERT.SUBDIRECTORIES 193538 . 194335) (FB.GET.SORT.MENU 194337 . 196536)) (196539 212760 ( +FB.EXPUNGECOMMAND 196549 . 199134) (FB.NEWPATTERNCOMMAND 199136 . 199534) (FB.NEWINFOCOMMAND 199536 . +202368) (FB.DEPTHCOMMAND 202370 . 204145) (FB.SHAPECOMMAND 204147 . 207489) (FB.REMOVE.FILE 207491 . +209312) (FB.COUNT.FILE.CHANGE 209314 . 210759) (FB.SETNEWPATTERN 210761 . 211931) (FB.GET.NEWPATTERN +211933 . 212517) (FB.OPTIONSCOMMAND 212519 . 212758)) (212795 213848 (FB.GETWINDOW 212805 . 213846)) ( +213849 214861 (FB.INFOMENU.SHADEINITIALSELECTIONS 213859 . 214506) (FB.INFO.ITEM.NAMED 214508 . 214859 +)) (214862 224394 (FB.MAKECOUNTERWINDOW 214872 . 216400) (FB.COUNTERW.REDISPLAYFN 216402 . 216989) ( +FB.UPDATE.COUNTERS 216991 . 219063) (FB.DISPLAY.COUNTERS 219065 . 224125) (FB.COUNTER.STRING 224127 . +224392)) (224395 229104 (FB.MAKEHEADINGWINDOW 224405 . 226019) (FB.HEADINGW.REDISPLAYFN 226021 . +226287) (FB.HEADINGW.RESHAPEFN 226289 . 226665) (FB.HEADINGW.DISPLAY 226667 . 229102)) (229105 233288 +(FB.ICONFN 229115 . 229462) (FB.INFOMENU.WHENSELECTEDFN 229464 . 230194) (FB.CLOSEFN 230196 . 231399) +(FB.EXPUNGE?.MENU 231401 . 231813) (FB.AFTERCLOSEFN 231815 . 232176) (FB.CLOSE&EXPUNGE 232178 . 233286 +)) (233289 245347 (FB.HARDCOPY.DIRECTORY 233299 . 243656) (FB.HARDCOPY.PRINT.TITLE 243658 . 243984) ( +FB.HARDCOPY.MAXWIDTH 243986 . 245345))))) STOP diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM index 7c83b3bad09286856254a9df6ae49751711d5962..43dddf8f8535a3de5355c7eef87a08fc363ef4a3 100644 GIT binary patch delta 736 zcmZ`$O=}ZT6wQm&rV-M#2~tY6x1(aR$dGw6$t2@KCz%K+a(7)iyMZq87Lg-KM%``%z_*VD6ckX%Tp7ZnF#N+o9&zDoc z<@CYB9L{4FFe?-a0)EluHhC`#aq8$JQxG^TV3q>!=Dl8LaOZCScCYJ!*SWR2vDUjU zc%W2hS*kfzL(@cEq77YEYN`xgf5QVxX{ah3C8TMZg1FaReGt%$|3x2uR-&@;Ou$jK zWYLkOanwjIPl3OOmZo?QaIwhbv3~<`Vn)&J{|L&0U|RA@&1l#;iO~Mbnip`{|Afw> z;?58B=sM#4gVt&P&7gFq1mQ{wl)*5anxTUNOdcwh;o7nlG>rePwdhyo7B_>A4K&!Y zOlz`p*^r1NU^o!-Oo7Wn{Ab3KWP}fkXixBA+5vQc<&aE}&qW{m<2-`bru zrrMnVgpzMr@VG-Rmt%1A%XWl4)m)W?44*EU7ER4N)bMB#geT_9_jYDD9DuB0JzogB zNPSPL4y~EC?`De(W7OlpWg0pQ=7Bi6e{Cqf>XnzO^vrLrCD{3Ybn9`EIFknP z#oIxAAjas<8(ZL!@2Xcjjr7se-Hn+n?!WT}s(fbrDF#cFKkYiWV1xECO3{ z(XLp_tN^rdtI>GDOag(falh7N)_h&iu>S~umsr1#kg#Ns{2bqkI A7XSbN diff --git a/library/PDFSTREAM b/library/PDFSTREAM index 9565197a..c1bfbcce 100644 --- a/library/PDFSTREAM +++ b/library/PDFSTREAM @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 9-Oct-2023 00:42:25" {DSK}frank>il>medley>gmedley>library>PDFSTREAM.;2 14029 +(FILECREATED "11-Nov-2023 11:24:42" {WMEDLEY}PDFSTREAM.;56 14033 - :CHANGES-TO (FNS SEE-PDF OPEN-PDF-STREAM PS-TO-PDF PDFCONVERTER) - (VARS PDFSTREAMCOMS) + :EDIT-BY rmk - :PREVIOUS-DATE " 1-Oct-2023 20:53:05" {DSK}frank>il>medley>gmedley>library>PDFSTREAM.;1 -) + :CHANGES-TO (VARS PDFSTREAMCOMS) + + :PREVIOUS-DATE " 9-Oct-2023 00:42:25" {WMEDLEY}PDFSTREAM.;55) (PRETTYCOMPRINT PDFSTREAMCOMS) @@ -45,6 +45,7 @@ (GLOBALVARS PDFCONVERTER PDF-CONVERTER-TEMPLATES) (FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF) (FNS SEE-PDF) + (ADDVARS (FB.SEE.METHODS (PDFFILEP SEE-PDF))) (FNS PDFCONVERTER))) (FILESLOAD (SYSLOAD) @@ -268,6 +269,8 @@ (ShellOpen (PACKFILENAME 'BODY PDFFILE 'EXTENSION 'PDF]) ) + +(ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF)) (DEFINEQ (PDFCONVERTER @@ -277,8 +280,8 @@ thereis (ShellWhich (CAR TEMPLATE]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3208 5822 (PDFFILEP 3218 . 4132) (PDF.HARDCOPYW 4134 . 4732) (PDF.TEXT 4734 . 5451) ( -PDF.TEDIT 5453 . 5820)) (6262 13322 (OPEN-PDF-STREAM 6272 . 8408) (CLOSE-PDF-STREAM 8410 . 9697) ( -PS-TO-PDF 9699 . 13320)) (13323 13721 (SEE-PDF 13333 . 13719)) (13722 14006 (PDFCONVERTER 13732 . -14004))))) + (FILEMAP (NIL (3162 5776 (PDFFILEP 3172 . 4086) (PDF.HARDCOPYW 4088 . 4686) (PDF.TEXT 4688 . 5405) ( +PDF.TEDIT 5407 . 5774)) (6216 13276 (OPEN-PDF-STREAM 6226 . 8362) (CLOSE-PDF-STREAM 8364 . 9651) ( +PS-TO-PDF 9653 . 13274)) (13277 13675 (SEE-PDF 13287 . 13673)) (13726 14010 (PDFCONVERTER 13736 . +14008))))) STOP diff --git a/library/PDFSTREAM.LCOM b/library/PDFSTREAM.LCOM index 4c281d83335b91cf3226a98677896952205a24f5..01411eee513d11581ba64b5a8eb7dbb8f9048e7e 100644 GIT binary patch delta 390 zcmX@9by90WxPhUeu3vtcu91O}v4WwYm63^+iII|mhEj5VZb4>FYKlUBo`RA>b-1sq zi;rt$tXgUpmn$49Il8RE{T9Y#p^U_m`Rjm~A@=G!@^U@VEfrhz- z`uG5?LRhP(r>CTll2`(?44bLOhDw@T8g8CGuFgTOjv=ltN($(9LtTyHN)=Nx1w#`9 zV`Bv?R~OF^U8hKeqTFl+D`yW!KX=z)-4K5T4X(*s8I>o?GD>hF`;W=gbhA3s2Yww# z7nd-{pkM_JHz&PdS64k>*ANeX7a%{t#SP@100p3^E|8FYKlUBo`RABSG7y9 zcdboEer~E=T2W$Nwq0h9U2bYhPHLrHI+V`IOe#t&sa{>v zU}S7%Y+_{sw4elJevW!dy+UT50+*6wKtQkpvPwNYJtc*d#1fzbu$W+Kq@>BE;pXY% z>I}3f#MK3;2+bcxRz{{u3Iv^#21b?&TvpB=j(+a0!MY*-3L0*H!3x2y zuDU=ED)