11(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
22
3- (FILECREATED " 4-Nov-2023 23:55:27 " |{WMEDLEY}<library> FILEBROWSER.;27| 266102
3+ (FILECREATED "29-May-2024 15:30:07 " {LIB} FILEBROWSER.\;2 266071
44
5- :EDIT-BY |rmk|
5+ :EDIT-BY "mth"
66
7- :CHANGES-TO (VARS FILEBROWSERCOMS)
8- (FNS FB.EDITCOMMAND.ONEFILE)
7+ :CHANGES-TO (FNS FB.PROMPTW.FORMAT FB.FASTSEE.ONEFILE)
98
10- :PREVIOUS-DATE " 4-Nov-2023 23:50:29" |{WMEDLEY}<library> FILEBROWSER.;26| )
9+ :PREVIOUS-DATE " 4-Nov-2023 23:55:27" {LIB} FILEBROWSER.\;1 )
1110
1211
1312(PRETTYCOMPRINT FILEBROWSERCOMS)
@@ -729,14 +728,17 @@ Your deletions are thus ignored.")))
729728 (PRIN1 THING WINDOW))))))))
730729
731730(FB.PROMPTW.FORMAT
732- (CL:LAMBDA (BROWSER FORMAT-STRING &REST ARGS) (* \; "Edited 4-Feb-88 23:15 by bvm:")
731+ (CL:LAMBDA (BROWSER FORMAT-STRING &REST ARGS) (* \; "Edited 29-May-2024 15:16 by mth")
732+ (* \; "Edited 4-Feb-88 23:15 by bvm:")
733733
734734 (* |;;| "Outputs to FOLDER's prompt window using FORMAT.")
735735
736736 (LET ((*PRINT-CASE* :UPCASE)
737737 (*PRINT-BASE* 10)
738- (WINDOW (|ffetch| (FILEBROWSER PROMPTWINDOW) |of| (\\DTEST BROWSER
739- 'FILEBROWSER))))
738+ (WINDOW (OR (AND (|type?| FILEBROWSER BROWSER)
739+ (|ffetch| (FILEBROWSER PROMPTWINDOW) |of| (\\DTEST BROWSER
740+ 'FILEBROWSER)))
741+ PROMPTWINDOW)))
740742
741743 (* |;;| "*PRINT-CASE* is bound so symbols get printed in \"expected\" case. *PRINT-BASE* is 10 for benefit of printing numbers in the non-format case.")
742744
@@ -1896,10 +1898,9 @@ Your deletions are thus ignored.")))
18961898 SEEWINDOW UNFORMATTED (CDR TAIL)))))))
18971899
18981900(FB.FASTSEE.ONEFILE
1899- (LAMBDA (BROWSER FILE WINDOW UNFORMATTED MORE) (* \;
1900- "Edited 21-Feb-2021 14:46 by rmk:")
1901- (* \;
1902- "Edited 20-Nov-2000 14:23 by rmk:")
1901+ (LAMBDA (BROWSER FILE WINDOW UNFORMATTED MORE) (* \; "Edited 29-May-2024 15:28 by mth")
1902+ (* \; "Edited 21-Feb-2021 14:46 by rmk:")
1903+ (* \; "Edited 20-Nov-2000 14:23 by rmk:")
19031904 (* \; "Edited 19-Aug-91 13:06 by jds")
19041905 (COND
19051906 ((DIRECTORYNAMEP FILE)
@@ -1921,32 +1922,30 @@ Your deletions are thus ignored.")))
19211922
19221923 (* |;;| "Failed on this file. If this was the only file, the message can be a little more terse (which is desirable, because the typical message is \"File not found xxx\")")
19231924
1924- (FB.PROMPTW.FORMAT BROWSER "~:[Failed~;~:*Couldn't see ~A~] because ~A"
1925+ (FB.PROMPTW.FORMAT BROWSER "~&~ :[Failed~;~:*Couldn't see ~A~] because ~A"
19251926 (AND MORE FILE)
19261927 CONDITION)
19271928 |else| (RESETLST
1928- (RESETSAVE NIL (LIST (FUNCTION (LAMBDA (STREAM WINDOW)
1929- (AND RESETSTATE (OPENWP WINDOW)
1930- (WINDOWPROP
1931- WINDOW
1932- 'TITLE
1933- (CONCAT (WINDOWPROP WINDOW
1934- 'TITLE)
1935- " -- " "Aborted")))
1936- (CLOSEF STREAM)))
1937- STREAM WINDOW))
1938- (WINDOWPROP WINDOW 'MORETYPE (COND
1939- (MORE 'YETMOREBUTTONS)
1940- (T 'LASTMOREBUTTONS)))
1941- (COND
1942- (UNFORMATTED (COPYCHARS STREAM WINDOW))
1943- (T (PFCOPYBYTES STREAM WINDOW)))
1944- (WINDOWPROP WINDOW 'TITLE (CONCAT (WINDOWPROP WINDOW 'TITLE)
1945- " -- " "Finished"))
1946- (COND
1947- (MORE (* \; "Wait for OK to proceed")
1948- (FB.SEEFULLFN (WINDOWPROP WINDOW 'DSP)
1949- 'FINISHEDMOREBUTTONS))))))))))
1929+ (RESETSAVE NIL (LIST (FUNCTION (LAMBDA (STREAM WINDOW)
1930+ (AND RESETSTATE (OPENWP WINDOW)
1931+ (WINDOWPROP WINDOW 'TITLE
1932+ (CONCAT (WINDOWPROP WINDOW
1933+ 'TITLE)
1934+ " -- " "Aborted")))
1935+ (CLOSEF STREAM)))
1936+ STREAM WINDOW))
1937+ (WINDOWPROP WINDOW 'MORETYPE (COND
1938+ (MORE 'YETMOREBUTTONS)
1939+ (T 'LASTMOREBUTTONS)))
1940+ (COND
1941+ (UNFORMATTED (COPYCHARS STREAM WINDOW))
1942+ (T (PFCOPYBYTES STREAM WINDOW)))
1943+ (WINDOWPROP WINDOW 'TITLE (CONCAT (WINDOWPROP WINDOW 'TITLE)
1944+ " -- " "Finished"))
1945+ (COND
1946+ (MORE (* \; "Wait for OK to proceed")
1947+ (FB.SEEFULLFN (WINDOWPROP WINDOW 'DSP)
1948+ 'FINISHEDMOREBUTTONS))))))))))
19501949
19511950(FB.SEEFULLFN
19521951 (LAMBDA (DSP PROP) (* |bvm:| "18-Sep-85 23:29")
@@ -4250,51 +4249,51 @@ then click Recompute"))))
42504249(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
42514250)
42524251(DECLARE\: DONTCOPY
4253- (FILEMAP (NIL (31928 54809 (FB 31938 . 33073 ) (FB.COPYBINARYCOMMAND 33075 . 33421 ) (FB.COPYTEXTCOMMAND
4254- 33423 . 33765 ) (FILEBROWSER 33767 . 46873 ) (FB.TABLEBROWSER 46875 . 47092 ) (FB.SELECTEDFILES 47094 .
4255- 47731 ) (FB.FETCHFILENAME 47733 . 48125 ) (FB.DIRECTORYP 48127 . 48521 ) (FB.PROMPTWPRINT 48523 . 49569 )
4256- (FB.PROMPTW.FORMAT 49571 . 50308 ) (FB.PROMPTFORINPUT 50310 . 52562 ) (FB.YES-OR-NO-P 52564 . 53598 ) (
4257- FB.ALLOW.ABORT 53600 . 54454 ) (\\FB.HARDCOPY.TOFILE.EXTENSION 54456 . 54807 )) (54833 55786 (FB.STARTUP
4258- 54843 . 55358 ) (FB.MAKERIGIDWINDOW 55360 . 55784 )) (55787 61270 (FB.PRINTFN 55797 . 60950 ) (FB.COPYFN
4259- 60952 . 61268 )) (61320 67660 (FB.MENU.WHENSELECTEDFN 61330 . 61688 ) (FB.COMMANDSELECTEDFN 61690 .
4260- 63229 ) (FB.SUBITEMP 63231 . 63832 ) (FB.MAKE.BROWSER.BUSY 63834 . 64638 ) (FB.FINISH.COMMAND 64640 .
4261- 66671 ) (FB.HANDLE.ABORT.BUTTON 66673 . 67658 )) (67661 73177 (FB.DELETECOMMAND 67671 . 67952 ) (
4262- FB.DELVERCOMMAND 67954 . 71147 ) (FB.IS.NOT.SUBDIRECTORY.ITEM 71149 . 71330 ) (FB.DELVER.FILES 71332 .
4263- 72421 ) (FB.DELETE.FILE 72423 . 73175 )) (73178 74503 (FB.UNDELETECOMMAND 73188 . 73473 ) (
4264- FB.UNDELETEALLCOMMAND 73475 . 73754 ) (FB.UNDELETE.FILE 73756 . 74501 )) (74504 98685 (FB.COPYCOMMAND
4265- 74514 . 74783 ) (FB.RENAMECOMMAND 74785 . 75060 ) (FB.COPY/RENAME.COMMAND 75062 . 75985 ) (
4266- FB.COPY/RENAME.ONE 75987 . 78309 ) (FB.COPY/RENAME.MANY 78311 . 84531 ) (FB.MERGE.DIRECTORIES 84533 .
4267- 84951 ) (FB.GREATEST.PREFIX 84953 . 86309 ) (FB.MAYBE.INSERT.FILE 86311 . 93751 ) (FB.GET.NEW.FILE.SPEC
4268- 93753 . 97584 ) (FB.CANONICAL.DIRECTORY 97586 . 98683 )) (98686 106470 (FB.HARDCOPYCOMMAND 98696 . 99826
4269- ) (FB.HARDCOPY.TOFILE 99828 . 106468 )) (106471 116680 (FB.EDITCOMMAND 106481 . 107348 ) (
4270- FB.EDITCOMMAND.ONEFILE 107350 . 110764 ) (FB.EDITLISPFILE 110766 . 111871 ) (FB.BROWSECOMMAND 111873 .
4271- 116678 )) (116681 128602 (FB.FASTSEECOMMAND 116691 . 120141 ) (FB.FASTSEE.ONEFILE 120143 . 123300 ) (
4272- FB.SEEFULLFN 123302 . 127433 ) (FB.SEEBUTTONFN 127435 . 128600 )) (128603 130349 (FB.LOADCOMMAND 128613
4273- . 129120 ) (FB.COMPILECOMMAND 129122 . 129660 ) (FB.OPERATE.ON.FILES 129662 . 130347 )) (130350 178535 (
4274- FB.UPDATECOMMAND 130360 . 130585 ) (FB.FIX-DIRECTORY-DATES 130587 . 131610 ) (FB.MAYBE.EXPUNGE 131612 .
4275- 132673 ) (FB.UPDATEBROWSERITEMS 132675 . 145890 ) (FB.DATE 145892 . 146533 ) (FB.ADJUST.DATE.WIDTH 146535
4276- . 149503 ) (FB.SET.BROWSER.TITLE 149505 . 150507 ) (FB.MAYBE.WIDEN.NAMES 150509 . 152628 ) (
4277- FB.SET.DEFAULT.NAME.WIDTH 152630 . 153994 ) (FB.CREATE.FILEBUCKET 153996 . 161216 ) (
4278- FB.CHECK.NAME.LENGTH 161218 . 163639 ) (FB.ADD.FILEGROUP 163641 . 165168 ) (FB.INSERT.DIRECTORY 165170
4279- . 165408 ) (FB.MAKE.SUBDIRECTORY.ITEM 165410 . 166819 ) (FB.ADD.FILE 166821 . 167434 ) (FB.INSERT.FILE
4280- 167436 . 170848 ) (FB.ANALYZE.PATTERN 170850 . 176114 ) (FB.CANONICALIZE.PATTERN 176116 . 177428 ) (
4281- FB.GETALLFILEINFO 177430 . 178533 )) (178536 186695 (FB.SORT.VERSIONS 178546 . 181317 ) (
4282- FB.DECREASING.VERSION 181319 . 181988 ) (FB.INCREASING.VERSION 181990 . 182611 ) (
4283- FB.NAMES.DECREASING.VERSION 182613 . 183648 ) (FB.NAMES.INCREASING.VERSION 183650 . 184647 ) (
4284- FB.DECREASING.NUMERIC.ATTR 184649 . 185329 ) (FB.INCREASING.NUMERIC.ATTR 185331 . 186005 ) (
4285- FB.ALPHABETIC.ATTR 186007 . 186693 )) (186696 196538 (FB.SORTCOMMAND 186706 . 193536 ) (
4286- FB.INSERT.SUBDIRECTORIES 193538 . 194335 ) (FB.GET.SORT.MENU 194337 . 196536 )) (196539 212760 (
4287- FB.EXPUNGECOMMAND 196549 . 199134 ) (FB.NEWPATTERNCOMMAND 199136 . 199534 ) (FB.NEWINFOCOMMAND 199536 .
4288- 202368 ) (FB.DEPTHCOMMAND 202370 . 204145 ) (FB.SHAPECOMMAND 204147 . 207489 ) (FB.REMOVE.FILE 207491 .
4289- 209312 ) (FB.COUNT.FILE.CHANGE 209314 . 210759 ) (FB.SETNEWPATTERN 210761 . 211931 ) (FB.GET.NEWPATTERN
4290- 211933 . 212517 ) (FB.OPTIONSCOMMAND 212519 . 212758 )) (212795 213848 (FB.GETWINDOW 212805 . 213846 )) (
4291- 213849 214861 (FB.INFOMENU.SHADEINITIALSELECTIONS 213859 . 214506 ) (FB.INFO.ITEM.NAMED 214508 . 214859
4292- )) (214862 224394 (FB.MAKECOUNTERWINDOW 214872 . 216400 ) (FB.COUNTERW.REDISPLAYFN 216402 . 216989 ) (
4293- FB.UPDATE.COUNTERS 216991 . 219063 ) (FB.DISPLAY.COUNTERS 219065 . 224125 ) (FB.COUNTER.STRING 224127 .
4294- 224392 )) (224395 229104 (FB.MAKEHEADINGWINDOW 224405 . 226019 ) (FB.HEADINGW.REDISPLAYFN 226021 .
4295- 226287 ) (FB.HEADINGW.RESHAPEFN 226289 . 226665 ) (FB.HEADINGW.DISPLAY 226667 . 229102 )) (229105 233288
4296- (FB.ICONFN 229115 . 229462 ) (FB.INFOMENU.WHENSELECTEDFN 229464 . 230194 ) (FB.CLOSEFN 230196 . 231399 )
4297- (FB.EXPUNGE?.MENU 231401 . 231813 ) (FB.AFTERCLOSEFN 231815 . 232176 ) (FB.CLOSE&EXPUNGE 232178 . 233286
4298- )) (233289 245347 (FB.HARDCOPY.DIRECTORY 233299 . 243656 ) (FB.HARDCOPY.PRINT.TITLE 243658 . 243984 ) (
4299- FB.HARDCOPY.MAXWIDTH 243986 . 245345 )))))
4252+ (FILEMAP (NIL (31871 54979 (FB 31881 . 33016 ) (FB.COPYBINARYCOMMAND 33018 . 33364 ) (FB.COPYTEXTCOMMAND
4253+ 33366 . 33708 ) (FILEBROWSER 33710 . 46816 ) (FB.TABLEBROWSER 46818 . 47035 ) (FB.SELECTEDFILES 47037 .
4254+ 47674 ) (FB.FETCHFILENAME 47676 . 48068 ) (FB.DIRECTORYP 48070 . 48464 ) (FB.PROMPTWPRINT 48466 . 49512 )
4255+ (FB.PROMPTW.FORMAT 49514 . 50478 ) (FB.PROMPTFORINPUT 50480 . 52732 ) (FB.YES-OR-NO-P 52734 . 53768 ) (
4256+ FB.ALLOW.ABORT 53770 . 54624 ) (\\FB.HARDCOPY.TOFILE.EXTENSION 54626 . 54977 )) (55003 55956 (FB.STARTUP
4257+ 55013 . 55528 ) (FB.MAKERIGIDWINDOW 55530 . 55954 )) (55957 61440 (FB.PRINTFN 55967 . 61120 ) (FB.COPYFN
4258+ 61122 . 61438 )) (61490 67830 (FB.MENU.WHENSELECTEDFN 61500 . 61858 ) (FB.COMMANDSELECTEDFN 61860 .
4259+ 63399 ) (FB.SUBITEMP 63401 . 64002 ) (FB.MAKE.BROWSER.BUSY 64004 . 64808 ) (FB.FINISH.COMMAND 64810 .
4260+ 66841 ) (FB.HANDLE.ABORT.BUTTON 66843 . 67828 )) (67831 73347 (FB.DELETECOMMAND 67841 . 68122 ) (
4261+ FB.DELVERCOMMAND 68124 . 71317 ) (FB.IS.NOT.SUBDIRECTORY.ITEM 71319 . 71500 ) (FB.DELVER.FILES 71502 .
4262+ 72591 ) (FB.DELETE.FILE 72593 . 73345 )) (73348 74673 (FB.UNDELETECOMMAND 73358 . 73643 ) (
4263+ FB.UNDELETEALLCOMMAND 73645 . 73924 ) (FB.UNDELETE.FILE 73926 . 74671 )) (74674 98855 (FB.COPYCOMMAND
4264+ 74684 . 74953 ) (FB.RENAMECOMMAND 74955 . 75230 ) (FB.COPY/RENAME.COMMAND 75232 . 76155 ) (
4265+ FB.COPY/RENAME.ONE 76157 . 78479 ) (FB.COPY/RENAME.MANY 78481 . 84701 ) (FB.MERGE.DIRECTORIES 84703 .
4266+ 85121 ) (FB.GREATEST.PREFIX 85123 . 86479 ) (FB.MAYBE.INSERT.FILE 86481 . 93921 ) (FB.GET.NEW.FILE.SPEC
4267+ 93923 . 97754 ) (FB.CANONICAL.DIRECTORY 97756 . 98853 )) (98856 106640 (FB.HARDCOPYCOMMAND 98866 . 99996
4268+ ) (FB.HARDCOPY.TOFILE 99998 . 106638 )) (106641 116850 (FB.EDITCOMMAND 106651 . 107518 ) (
4269+ FB.EDITCOMMAND.ONEFILE 107520 . 110934 ) (FB.EDITLISPFILE 110936 . 112041 ) (FB.BROWSECOMMAND 112043 .
4270+ 116848 )) (116851 128571 (FB.FASTSEECOMMAND 116861 . 120311 ) (FB.FASTSEE.ONEFILE 120313 . 123269 ) (
4271+ FB.SEEFULLFN 123271 . 127402 ) (FB.SEEBUTTONFN 127404 . 128569 )) (128572 130318 (FB.LOADCOMMAND 128582
4272+ . 129089 ) (FB.COMPILECOMMAND 129091 . 129629 ) (FB.OPERATE.ON.FILES 129631 . 130316 )) (130319 178504 (
4273+ FB.UPDATECOMMAND 130329 . 130554 ) (FB.FIX-DIRECTORY-DATES 130556 . 131579 ) (FB.MAYBE.EXPUNGE 131581 .
4274+ 132642 ) (FB.UPDATEBROWSERITEMS 132644 . 145859 ) (FB.DATE 145861 . 146502 ) (FB.ADJUST.DATE.WIDTH 146504
4275+ . 149472 ) (FB.SET.BROWSER.TITLE 149474 . 150476 ) (FB.MAYBE.WIDEN.NAMES 150478 . 152597 ) (
4276+ FB.SET.DEFAULT.NAME.WIDTH 152599 . 153963 ) (FB.CREATE.FILEBUCKET 153965 . 161185 ) (
4277+ FB.CHECK.NAME.LENGTH 161187 . 163608 ) (FB.ADD.FILEGROUP 163610 . 165137 ) (FB.INSERT.DIRECTORY 165139
4278+ . 165377 ) (FB.MAKE.SUBDIRECTORY.ITEM 165379 . 166788 ) (FB.ADD.FILE 166790 . 167403 ) (FB.INSERT.FILE
4279+ 167405 . 170817 ) (FB.ANALYZE.PATTERN 170819 . 176083 ) (FB.CANONICALIZE.PATTERN 176085 . 177397 ) (
4280+ FB.GETALLFILEINFO 177399 . 178502 )) (178505 186664 (FB.SORT.VERSIONS 178515 . 181286 ) (
4281+ FB.DECREASING.VERSION 181288 . 181957 ) (FB.INCREASING.VERSION 181959 . 182580 ) (
4282+ FB.NAMES.DECREASING.VERSION 182582 . 183617 ) (FB.NAMES.INCREASING.VERSION 183619 . 184616 ) (
4283+ FB.DECREASING.NUMERIC.ATTR 184618 . 185298 ) (FB.INCREASING.NUMERIC.ATTR 185300 . 185974 ) (
4284+ FB.ALPHABETIC.ATTR 185976 . 186662 )) (186665 196507 (FB.SORTCOMMAND 186675 . 193505 ) (
4285+ FB.INSERT.SUBDIRECTORIES 193507 . 194304 ) (FB.GET.SORT.MENU 194306 . 196505 )) (196508 212729 (
4286+ FB.EXPUNGECOMMAND 196518 . 199103 ) (FB.NEWPATTERNCOMMAND 199105 . 199503 ) (FB.NEWINFOCOMMAND 199505 .
4287+ 202337 ) (FB.DEPTHCOMMAND 202339 . 204114 ) (FB.SHAPECOMMAND 204116 . 207458 ) (FB.REMOVE.FILE 207460 .
4288+ 209281 ) (FB.COUNT.FILE.CHANGE 209283 . 210728 ) (FB.SETNEWPATTERN 210730 . 211900 ) (FB.GET.NEWPATTERN
4289+ 211902 . 212486 ) (FB.OPTIONSCOMMAND 212488 . 212727 )) (212764 213817 (FB.GETWINDOW 212774 . 213815 )) (
4290+ 213818 214830 (FB.INFOMENU.SHADEINITIALSELECTIONS 213828 . 214475 ) (FB.INFO.ITEM.NAMED 214477 . 214828
4291+ )) (214831 224363 (FB.MAKECOUNTERWINDOW 214841 . 216369 ) (FB.COUNTERW.REDISPLAYFN 216371 . 216958 ) (
4292+ FB.UPDATE.COUNTERS 216960 . 219032 ) (FB.DISPLAY.COUNTERS 219034 . 224094 ) (FB.COUNTER.STRING 224096 .
4293+ 224361 )) (224364 229073 (FB.MAKEHEADINGWINDOW 224374 . 225988 ) (FB.HEADINGW.REDISPLAYFN 225990 .
4294+ 226256 ) (FB.HEADINGW.RESHAPEFN 226258 . 226634 ) (FB.HEADINGW.DISPLAY 226636 . 229071 )) (229074 233257
4295+ (FB.ICONFN 229084 . 229431 ) (FB.INFOMENU.WHENSELECTEDFN 229433 . 230163 ) (FB.CLOSEFN 230165 . 231368 )
4296+ (FB.EXPUNGE?.MENU 231370 . 231782 ) (FB.AFTERCLOSEFN 231784 . 232145 ) (FB.CLOSE&EXPUNGE 232147 . 233255
4297+ )) (233258 245316 (FB.HARDCOPY.DIRECTORY 233268 . 243625 ) (FB.HARDCOPY.PRINT.TITLE 243627 . 243953 ) (
4298+ FB.HARDCOPY.MAXWIDTH 243955 . 245314 )))))
43004299STOP
0 commit comments