minor compatibility changes for new architecture
This commit is contained in:
rmkaplan
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "29-May-2024 15:30:07" {LIB}FILEBROWSER.\;2 266071
|
||||
(FILECREATED "24-Dec-2025 11:14:31" |{WMEDLEY}<library>FILEBROWSER.;34| 263525
|
||||
|
||||
:EDIT-BY "mth"
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS FB.PROMPTW.FORMAT FB.FASTSEE.ONEFILE)
|
||||
:CHANGES-TO (FNS FB.HARDCOPY.TOFILE)
|
||||
|
||||
:PREVIOUS-DATE " 4-Nov-2023 23:55:27" {LIB}FILEBROWSER.\;1)
|
||||
:PREVIOUS-DATE " 6-Nov-2025 14:33:28" |{WMEDLEY}<library>FILEBROWSER.;33|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT FILEBROWSERCOMS)
|
||||
@@ -91,22 +91,10 @@ You specify how many versions to keep.")))
|
||||
(|See| (FB.EDITCOMMAND READONLY)
|
||||
|
||||
"Displays selected files one at a time in a separate window"
|
||||
(SUBITEMS ("Fast SEE Pretty" FB.FASTSEECOMMAND
|
||||
"Views file quickly, uses font information, no scrolling backwards"
|
||||
)
|
||||
("Fast SEE Unformatted" (FB.FASTSEECOMMAND
|
||||
T)
|
||||
|
||||
"Views file quickly, shows raw characters, no scrolling backwards"
|
||||
)
|
||||
("Scrollable & Pretty" (FB.EDITCOMMAND
|
||||
READONLY)
|
||||
|
||||
"Views file with font information in a fully scrollable window"
|
||||
)
|
||||
("FileBrowse" FB.BROWSECOMMAND
|
||||
)
|
||||
(|Browse| FB.BROWSECOMMAND
|
||||
"Recursively call FileBrowser on the selected subdirectory"
|
||||
)))
|
||||
)
|
||||
(|Edit| FB.EDITCOMMAND
|
||||
"Calls an editor on the selected files (use submenu to specify editor)"
|
||||
(SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT)
|
||||
@@ -337,15 +325,8 @@ You specify how many versions to keep.")))
|
||||
("To a printer" (FB.HARDCOPYCOMMAND PRINTER)
|
||||
"Sends hardcopy of selected files to a printer of your choosing")))
|
||||
(|See| (FB.EDITCOMMAND READONLY)
|
||||
"Displays selected files one at a time in a separate window"
|
||||
(SUBITEMS ("Fast SEE Pretty" FB.FASTSEECOMMAND
|
||||
"Views file quickly, uses font information, no scrolling backwards")
|
||||
("Fast SEE Unformatted" (FB.FASTSEECOMMAND T)
|
||||
"Views file quickly, shows raw characters, no scrolling backwards")
|
||||
("Scrollable & Pretty" (FB.EDITCOMMAND READONLY)
|
||||
"Views file with font information in a fully scrollable window")
|
||||
("FileBrowse" FB.BROWSECOMMAND
|
||||
"Recursively call FileBrowser on the selected subdirectory")))
|
||||
"Displays selected files one at a time in a separate window")
|
||||
(|Browse| FB.BROWSECOMMAND "Recursively call FileBrowser on the selected subdirectory")
|
||||
(|Edit| FB.EDITCOMMAND
|
||||
"Calls an editor on the selected files (use submenu to specify editor)"
|
||||
(SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT)
|
||||
@@ -827,13 +808,10 @@ Your deletions are thus ignored.")))
|
||||
(REDISPLAYW (CAR W))))))
|
||||
|
||||
(\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
(LAMBDA NIL (* \;
|
||||
"Edited 25-Feb-91 15:15 by gadener")
|
||||
(LET ((TYPE (PRINTERTYPE)))
|
||||
(CASE TYPE
|
||||
(INTERPRESS 'IP)
|
||||
(POSTSCRIPT 'PS)
|
||||
(DEFAULT TYPE)))))
|
||||
(LAMBDA NIL (* \; "Edited 20-Sep-2025 11:41 by rmk")
|
||||
(* \; "Edited 14-Sep-2025 20:48 by rmk")
|
||||
(OR (CAR (EXTENSIONS.FOR.IMAGEFILETYPE (PRINTERTYPE)))
|
||||
DEFAULTPRINTERTYPE)))
|
||||
)
|
||||
|
||||
|
||||
@@ -1586,22 +1564,25 @@ Your deletions are thus ignored.")))
|
||||
PRINTOPTIONS)))))))
|
||||
|
||||
(FB.HARDCOPY.TOFILE
|
||||
(LAMBDA (BROWSER FILES) (* \;
|
||||
"Edited 15-Feb-91 17:13 by gadener")
|
||||
(LAMBDA (BROWSER FILES) (* \; "Edited 21-Dec-2025 09:05 by rmk")
|
||||
(* \; "Edited 20-Sep-2025 12:55 by rmk")
|
||||
(* \; "Edited 18-Sep-2025 10:29 by rmk")
|
||||
(* \; "Edited 14-Sep-2025 20:55 by rmk")
|
||||
(* \; "Edited 15-Feb-91 17:13 by gadener")
|
||||
|
||||
(* |;;| "Handle the \"Hardcopy>To File\" command. ")
|
||||
|
||||
(PROG ((HCOPYFILE (FB.PROMPTFORINPUT (COND
|
||||
((CDR FILES)
|
||||
"Hardcopy file name pattern: ")
|
||||
(T "Hardcopy file name: "))
|
||||
((CDR FILES)
|
||||
"Hardcopy file name pattern: ")
|
||||
(T "Hardcopy file name: "))
|
||||
(COND
|
||||
((CDR FILES)
|
||||
(PACKFILENAME.STRING 'NAME '* 'EXTENSION (
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
)))
|
||||
(T (PACKFILENAME.STRING 'VERSION NIL 'EXTENSION (
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
\\FB.HARDCOPY.TOFILE.EXTENSION
|
||||
)
|
||||
'BODY
|
||||
(FB.FETCHFILENAME (CAR FILES)))))
|
||||
@@ -1619,72 +1600,56 @@ Your deletions are thus ignored.")))
|
||||
((|for| TAIL |on| (SETQ HCOPYFIELDS (UNPACKFILENAME.STRING HCOPYFILE))
|
||||
|by| (CDDR TAIL) |bind| HOST HAVEDIRECTORY I
|
||||
|do| (COND
|
||||
((SETQ I (STRPOS '* (CADR TAIL)))
|
||||
(|if| (NEQ (CAR TAIL)
|
||||
'NAME)
|
||||
|then| (RETURN (SETQ MSG "Only name portion can contain *")
|
||||
)) (* \; "Take apart name into FORE*AFT")
|
||||
(SETQ HCOPYTAIL (CDR TAIL))
|
||||
(SETQ FORE (OR (SUBSTRING (CADR TAIL)
|
||||
1
|
||||
(SUB1 I))
|
||||
""))
|
||||
(SETQ AFT (OR (SUBSTRING (CADR TAIL)
|
||||
(ADD1 I))
|
||||
"")))
|
||||
(T (SELECTQ (CAR TAIL)
|
||||
(NAME (RETURN (SETQ MSG
|
||||
"Name must have * for multiple hardcopy files"
|
||||
)))
|
||||
(EXTENSION (SETQ EXT (MKATOM (U-CASE (CADR TAIL)))))
|
||||
(DIRECTORY (SETQ HAVEDIRECTORY T))
|
||||
(HOST (SETQ HOST (CADR TAIL)))
|
||||
NIL))) |finally| (|if| (AND HOST (NOT HAVEDIRECTORY))
|
||||
|then|
|
||||
((SETQ I (STRPOS '* (CADR TAIL)))
|
||||
(|if| (NEQ (CAR TAIL)
|
||||
'NAME)
|
||||
|then| (RETURN (SETQ MSG "Only name portion can contain *")))
|
||||
(* \; "Take apart name into FORE*AFT")
|
||||
(SETQ HCOPYTAIL (CDR TAIL))
|
||||
(SETQ FORE (OR (SUBSTRING (CADR TAIL)
|
||||
1
|
||||
(SUB1 I))
|
||||
""))
|
||||
(SETQ AFT (OR (SUBSTRING (CADR TAIL)
|
||||
(ADD1 I))
|
||||
"")))
|
||||
(T (SELECTQ (CAR TAIL)
|
||||
(NAME (RETURN (SETQ MSG
|
||||
"Name must have * for multiple hardcopy files")))
|
||||
(EXTENSION (SETQ EXT (MKATOM (U-CASE (CADR TAIL)))))
|
||||
(DIRECTORY (SETQ HAVEDIRECTORY T))
|
||||
(HOST (SETQ HOST (CADR TAIL)))
|
||||
NIL))) |finally| (|if| (AND HOST (NOT HAVEDIRECTORY))
|
||||
|then|
|
||||
(* \;
|
||||
"E.g., {DSK}*.IP. This pattern explicitly has no directory")
|
||||
(|push| HCOPYFIELDS
|
||||
'DIRECTORY NIL)))
|
||||
"E.g., {DSK}*.IP. This pattern explicitly has no directory")
|
||||
(|push| HCOPYFIELDS 'DIRECTORY NIL)))
|
||||
(FB.PROMPTWPRINT BROWSER "Bad pattern -- " MSG)
|
||||
(RETURN))))
|
||||
(T (SETQ EXT (U-CASE (FILENAMEFIELD HCOPYFILE 'EXTENSION)))))
|
||||
(COND
|
||||
((AND (NULL (SETQ PRINTFILETYPE (|for| TYPE |in| PRINTFILETYPES
|
||||
|when| (FMEMB EXT (CADR (ASSOC 'EXTENSION
|
||||
(CDR TYPE))))
|
||||
|do| (* \;
|
||||
"Opencoded PRINTFILETYPE.FROM.EXTENSION because that one's buggy")
|
||||
(RETURN (CAR TYPE)))))
|
||||
(NULL (SETQ PRINTFILETYPE (MENU (|MakeMenuOfImageTypes| "File type?")))))
|
||||
(RETURN)))
|
||||
(|for| ITEM |in| FILES |bind| (CONVERTERS _ (PRINTFILEPROP PRINTFILETYPE
|
||||
'CONVERSION))
|
||||
FILETYPE NAME FN FIELDS
|
||||
(CL:UNLESS (SETQ PRINTFILETYPE (OR (IMAGEFILETYPE.FROM.EXTENSION NIL EXT)
|
||||
(MENU (|MakeMenuOfImageTypes| "File type?"))))
|
||||
(RETURN))
|
||||
(|for| ITEM NAME FIELDS |in| FILES
|
||||
|do| (SETQ ITEM (FB.FETCHFILENAME ITEM))
|
||||
(SETQ FILETYPE (OR (PRINTFILETYPE ITEM)
|
||||
'TEXT))
|
||||
(COND
|
||||
((SETQ FN (LISTGET CONVERTERS FILETYPE))
|
||||
(FB.PROMPTW.FORMAT BROWSER "~%Writing ~A..."
|
||||
(SETQ NAME (COND
|
||||
((CDR FILES)
|
||||
(SETQ FIELDS (UNPACKFILENAME.STRING ITEM NIL NIL
|
||||
'TENEX))
|
||||
(RPLACA HCOPYTAIL (CONCAT FORE (LISTGET FIELDS
|
||||
'NAME)
|
||||
AFT))
|
||||
(CL:APPLY (FUNCTION PACKFILENAME.STRING)
|
||||
'VERSION NIL (APPEND HCOPYFIELDS FIELDS)))
|
||||
(T HCOPYFILE))))
|
||||
(SETQ NAME (CL:FUNCALL FN ITEM NAME))
|
||||
(COND
|
||||
((LISTP NAME) (* \; "Result is (SOURCE DESTINATION)")
|
||||
(SETQ NAME (CADR NAME))))
|
||||
(FB.PROMPTWPRINT BROWSER "done.")
|
||||
(FB.MAYBE.INSERT.FILE BROWSER NAME))
|
||||
(T (FB.PROMPTW.FORMAT BROWSER
|
||||
"~%Failed to hardcopy ~A -- Can't convert a ~A file to format ~A"
|
||||
ITEM FILETYPE PRINTFILETYPE)))))))
|
||||
(SETQ NAME (COND
|
||||
((CDR FILES)
|
||||
(SETQ FIELDS (UNPACKFILENAME.STRING ITEM NIL NIL 'TENEX))
|
||||
(RPLACA HCOPYTAIL (CONCAT FORE (LISTGET FIELDS 'NAME)
|
||||
AFT))
|
||||
(CL:APPLY (FUNCTION PACKFILENAME.STRING)
|
||||
'VERSION NIL (APPEND HCOPYFIELDS FIELDS)))
|
||||
(T (OUTFILEP HCOPYFILE))))
|
||||
(FB.PROMPTW.FORMAT BROWSER "~%Writing ~A..." NAME)
|
||||
(|if| (SETQ NAME (CONVERT.TO.IMAGEFILE ITEM NAME PRINTFILETYPE
|
||||
'(NOERROR T QUIET T)))
|
||||
|then| (FB.PROMPTWPRINT BROWSER "done.")
|
||||
(FB.MAYBE.INSERT.FILE BROWSER NAME)
|
||||
|else| (FB.PROMPTW.FORMAT BROWSER
|
||||
"~%Failed to hardcopy ~A -- Can't convert a ~A file to format ~A"
|
||||
ITEM (OR (IMAGESOURCETYPE ITEM)
|
||||
'TEXT)
|
||||
PRINTFILETYPE))))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -4249,51 +4214,51 @@ then click Recompute"))))
|
||||
(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (31871 54979 (FB 31881 . 33016) (FB.COPYBINARYCOMMAND 33018 . 33364) (FB.COPYTEXTCOMMAND
|
||||
33366 . 33708) (FILEBROWSER 33710 . 46816) (FB.TABLEBROWSER 46818 . 47035) (FB.SELECTEDFILES 47037 .
|
||||
47674) (FB.FETCHFILENAME 47676 . 48068) (FB.DIRECTORYP 48070 . 48464) (FB.PROMPTWPRINT 48466 . 49512)
|
||||
(FB.PROMPTW.FORMAT 49514 . 50478) (FB.PROMPTFORINPUT 50480 . 52732) (FB.YES-OR-NO-P 52734 . 53768) (
|
||||
FB.ALLOW.ABORT 53770 . 54624) (\\FB.HARDCOPY.TOFILE.EXTENSION 54626 . 54977)) (55003 55956 (FB.STARTUP
|
||||
55013 . 55528) (FB.MAKERIGIDWINDOW 55530 . 55954)) (55957 61440 (FB.PRINTFN 55967 . 61120) (FB.COPYFN
|
||||
61122 . 61438)) (61490 67830 (FB.MENU.WHENSELECTEDFN 61500 . 61858) (FB.COMMANDSELECTEDFN 61860 .
|
||||
63399) (FB.SUBITEMP 63401 . 64002) (FB.MAKE.BROWSER.BUSY 64004 . 64808) (FB.FINISH.COMMAND 64810 .
|
||||
66841) (FB.HANDLE.ABORT.BUTTON 66843 . 67828)) (67831 73347 (FB.DELETECOMMAND 67841 . 68122) (
|
||||
FB.DELVERCOMMAND 68124 . 71317) (FB.IS.NOT.SUBDIRECTORY.ITEM 71319 . 71500) (FB.DELVER.FILES 71502 .
|
||||
72591) (FB.DELETE.FILE 72593 . 73345)) (73348 74673 (FB.UNDELETECOMMAND 73358 . 73643) (
|
||||
FB.UNDELETEALLCOMMAND 73645 . 73924) (FB.UNDELETE.FILE 73926 . 74671)) (74674 98855 (FB.COPYCOMMAND
|
||||
74684 . 74953) (FB.RENAMECOMMAND 74955 . 75230) (FB.COPY/RENAME.COMMAND 75232 . 76155) (
|
||||
FB.COPY/RENAME.ONE 76157 . 78479) (FB.COPY/RENAME.MANY 78481 . 84701) (FB.MERGE.DIRECTORIES 84703 .
|
||||
85121) (FB.GREATEST.PREFIX 85123 . 86479) (FB.MAYBE.INSERT.FILE 86481 . 93921) (FB.GET.NEW.FILE.SPEC
|
||||
93923 . 97754) (FB.CANONICAL.DIRECTORY 97756 . 98853)) (98856 106640 (FB.HARDCOPYCOMMAND 98866 . 99996
|
||||
) (FB.HARDCOPY.TOFILE 99998 . 106638)) (106641 116850 (FB.EDITCOMMAND 106651 . 107518) (
|
||||
FB.EDITCOMMAND.ONEFILE 107520 . 110934) (FB.EDITLISPFILE 110936 . 112041) (FB.BROWSECOMMAND 112043 .
|
||||
116848)) (116851 128571 (FB.FASTSEECOMMAND 116861 . 120311) (FB.FASTSEE.ONEFILE 120313 . 123269) (
|
||||
FB.SEEFULLFN 123271 . 127402) (FB.SEEBUTTONFN 127404 . 128569)) (128572 130318 (FB.LOADCOMMAND 128582
|
||||
. 129089) (FB.COMPILECOMMAND 129091 . 129629) (FB.OPERATE.ON.FILES 129631 . 130316)) (130319 178504 (
|
||||
FB.UPDATECOMMAND 130329 . 130554) (FB.FIX-DIRECTORY-DATES 130556 . 131579) (FB.MAYBE.EXPUNGE 131581 .
|
||||
132642) (FB.UPDATEBROWSERITEMS 132644 . 145859) (FB.DATE 145861 . 146502) (FB.ADJUST.DATE.WIDTH 146504
|
||||
. 149472) (FB.SET.BROWSER.TITLE 149474 . 150476) (FB.MAYBE.WIDEN.NAMES 150478 . 152597) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 152599 . 153963) (FB.CREATE.FILEBUCKET 153965 . 161185) (
|
||||
FB.CHECK.NAME.LENGTH 161187 . 163608) (FB.ADD.FILEGROUP 163610 . 165137) (FB.INSERT.DIRECTORY 165139
|
||||
. 165377) (FB.MAKE.SUBDIRECTORY.ITEM 165379 . 166788) (FB.ADD.FILE 166790 . 167403) (FB.INSERT.FILE
|
||||
167405 . 170817) (FB.ANALYZE.PATTERN 170819 . 176083) (FB.CANONICALIZE.PATTERN 176085 . 177397) (
|
||||
FB.GETALLFILEINFO 177399 . 178502)) (178505 186664 (FB.SORT.VERSIONS 178515 . 181286) (
|
||||
FB.DECREASING.VERSION 181288 . 181957) (FB.INCREASING.VERSION 181959 . 182580) (
|
||||
FB.NAMES.DECREASING.VERSION 182582 . 183617) (FB.NAMES.INCREASING.VERSION 183619 . 184616) (
|
||||
FB.DECREASING.NUMERIC.ATTR 184618 . 185298) (FB.INCREASING.NUMERIC.ATTR 185300 . 185974) (
|
||||
FB.ALPHABETIC.ATTR 185976 . 186662)) (186665 196507 (FB.SORTCOMMAND 186675 . 193505) (
|
||||
FB.INSERT.SUBDIRECTORIES 193507 . 194304) (FB.GET.SORT.MENU 194306 . 196505)) (196508 212729 (
|
||||
FB.EXPUNGECOMMAND 196518 . 199103) (FB.NEWPATTERNCOMMAND 199105 . 199503) (FB.NEWINFOCOMMAND 199505 .
|
||||
202337) (FB.DEPTHCOMMAND 202339 . 204114) (FB.SHAPECOMMAND 204116 . 207458) (FB.REMOVE.FILE 207460 .
|
||||
209281) (FB.COUNT.FILE.CHANGE 209283 . 210728) (FB.SETNEWPATTERN 210730 . 211900) (FB.GET.NEWPATTERN
|
||||
211902 . 212486) (FB.OPTIONSCOMMAND 212488 . 212727)) (212764 213817 (FB.GETWINDOW 212774 . 213815)) (
|
||||
213818 214830 (FB.INFOMENU.SHADEINITIALSELECTIONS 213828 . 214475) (FB.INFO.ITEM.NAMED 214477 . 214828
|
||||
)) (214831 224363 (FB.MAKECOUNTERWINDOW 214841 . 216369) (FB.COUNTERW.REDISPLAYFN 216371 . 216958) (
|
||||
FB.UPDATE.COUNTERS 216960 . 219032) (FB.DISPLAY.COUNTERS 219034 . 224094) (FB.COUNTER.STRING 224096 .
|
||||
224361)) (224364 229073 (FB.MAKEHEADINGWINDOW 224374 . 225988) (FB.HEADINGW.REDISPLAYFN 225990 .
|
||||
226256) (FB.HEADINGW.RESHAPEFN 226258 . 226634) (FB.HEADINGW.DISPLAY 226636 . 229071)) (229074 233257
|
||||
(FB.ICONFN 229084 . 229431) (FB.INFOMENU.WHENSELECTEDFN 229433 . 230163) (FB.CLOSEFN 230165 . 231368)
|
||||
(FB.EXPUNGE?.MENU 231370 . 231782) (FB.AFTERCLOSEFN 231784 . 232145) (FB.CLOSE&EXPUNGE 232147 . 233255
|
||||
)) (233258 245316 (FB.HARDCOPY.DIRECTORY 233268 . 243625) (FB.HARDCOPY.PRINT.TITLE 243627 . 243953) (
|
||||
FB.HARDCOPY.MAXWIDTH 243955 . 245314)))))
|
||||
(FILEMAP (NIL (30255 53354 (FB 30265 . 31400) (FB.COPYBINARYCOMMAND 31402 . 31748) (FB.COPYTEXTCOMMAND
|
||||
31750 . 32092) (FILEBROWSER 32094 . 45200) (FB.TABLEBROWSER 45202 . 45419) (FB.SELECTEDFILES 45421 .
|
||||
46058) (FB.FETCHFILENAME 46060 . 46452) (FB.DIRECTORYP 46454 . 46848) (FB.PROMPTWPRINT 46850 . 47896)
|
||||
(FB.PROMPTW.FORMAT 47898 . 48862) (FB.PROMPTFORINPUT 48864 . 51116) (FB.YES-OR-NO-P 51118 . 52152) (
|
||||
FB.ALLOW.ABORT 52154 . 53008) (\\FB.HARDCOPY.TOFILE.EXTENSION 53010 . 53352)) (53378 54331 (FB.STARTUP
|
||||
53388 . 53903) (FB.MAKERIGIDWINDOW 53905 . 54329)) (54332 59815 (FB.PRINTFN 54342 . 59495) (FB.COPYFN
|
||||
59497 . 59813)) (59865 66205 (FB.MENU.WHENSELECTEDFN 59875 . 60233) (FB.COMMANDSELECTEDFN 60235 .
|
||||
61774) (FB.SUBITEMP 61776 . 62377) (FB.MAKE.BROWSER.BUSY 62379 . 63183) (FB.FINISH.COMMAND 63185 .
|
||||
65216) (FB.HANDLE.ABORT.BUTTON 65218 . 66203)) (66206 71722 (FB.DELETECOMMAND 66216 . 66497) (
|
||||
FB.DELVERCOMMAND 66499 . 69692) (FB.IS.NOT.SUBDIRECTORY.ITEM 69694 . 69875) (FB.DELVER.FILES 69877 .
|
||||
70966) (FB.DELETE.FILE 70968 . 71720)) (71723 73048 (FB.UNDELETECOMMAND 71733 . 72018) (
|
||||
FB.UNDELETEALLCOMMAND 72020 . 72299) (FB.UNDELETE.FILE 72301 . 73046)) (73049 97230 (FB.COPYCOMMAND
|
||||
73059 . 73328) (FB.RENAMECOMMAND 73330 . 73605) (FB.COPY/RENAME.COMMAND 73607 . 74530) (
|
||||
FB.COPY/RENAME.ONE 74532 . 76854) (FB.COPY/RENAME.MANY 76856 . 83076) (FB.MERGE.DIRECTORIES 83078 .
|
||||
83496) (FB.GREATEST.PREFIX 83498 . 84854) (FB.MAYBE.INSERT.FILE 84856 . 92296) (FB.GET.NEW.FILE.SPEC
|
||||
92298 . 96129) (FB.CANONICAL.DIRECTORY 96131 . 97228)) (97231 104094 (FB.HARDCOPYCOMMAND 97241 . 98371
|
||||
) (FB.HARDCOPY.TOFILE 98373 . 104092)) (104095 114304 (FB.EDITCOMMAND 104105 . 104972) (
|
||||
FB.EDITCOMMAND.ONEFILE 104974 . 108388) (FB.EDITLISPFILE 108390 . 109495) (FB.BROWSECOMMAND 109497 .
|
||||
114302)) (114305 126025 (FB.FASTSEECOMMAND 114315 . 117765) (FB.FASTSEE.ONEFILE 117767 . 120723) (
|
||||
FB.SEEFULLFN 120725 . 124856) (FB.SEEBUTTONFN 124858 . 126023)) (126026 127772 (FB.LOADCOMMAND 126036
|
||||
. 126543) (FB.COMPILECOMMAND 126545 . 127083) (FB.OPERATE.ON.FILES 127085 . 127770)) (127773 175958 (
|
||||
FB.UPDATECOMMAND 127783 . 128008) (FB.FIX-DIRECTORY-DATES 128010 . 129033) (FB.MAYBE.EXPUNGE 129035 .
|
||||
130096) (FB.UPDATEBROWSERITEMS 130098 . 143313) (FB.DATE 143315 . 143956) (FB.ADJUST.DATE.WIDTH 143958
|
||||
. 146926) (FB.SET.BROWSER.TITLE 146928 . 147930) (FB.MAYBE.WIDEN.NAMES 147932 . 150051) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 150053 . 151417) (FB.CREATE.FILEBUCKET 151419 . 158639) (
|
||||
FB.CHECK.NAME.LENGTH 158641 . 161062) (FB.ADD.FILEGROUP 161064 . 162591) (FB.INSERT.DIRECTORY 162593
|
||||
. 162831) (FB.MAKE.SUBDIRECTORY.ITEM 162833 . 164242) (FB.ADD.FILE 164244 . 164857) (FB.INSERT.FILE
|
||||
164859 . 168271) (FB.ANALYZE.PATTERN 168273 . 173537) (FB.CANONICALIZE.PATTERN 173539 . 174851) (
|
||||
FB.GETALLFILEINFO 174853 . 175956)) (175959 184118 (FB.SORT.VERSIONS 175969 . 178740) (
|
||||
FB.DECREASING.VERSION 178742 . 179411) (FB.INCREASING.VERSION 179413 . 180034) (
|
||||
FB.NAMES.DECREASING.VERSION 180036 . 181071) (FB.NAMES.INCREASING.VERSION 181073 . 182070) (
|
||||
FB.DECREASING.NUMERIC.ATTR 182072 . 182752) (FB.INCREASING.NUMERIC.ATTR 182754 . 183428) (
|
||||
FB.ALPHABETIC.ATTR 183430 . 184116)) (184119 193961 (FB.SORTCOMMAND 184129 . 190959) (
|
||||
FB.INSERT.SUBDIRECTORIES 190961 . 191758) (FB.GET.SORT.MENU 191760 . 193959)) (193962 210183 (
|
||||
FB.EXPUNGECOMMAND 193972 . 196557) (FB.NEWPATTERNCOMMAND 196559 . 196957) (FB.NEWINFOCOMMAND 196959 .
|
||||
199791) (FB.DEPTHCOMMAND 199793 . 201568) (FB.SHAPECOMMAND 201570 . 204912) (FB.REMOVE.FILE 204914 .
|
||||
206735) (FB.COUNT.FILE.CHANGE 206737 . 208182) (FB.SETNEWPATTERN 208184 . 209354) (FB.GET.NEWPATTERN
|
||||
209356 . 209940) (FB.OPTIONSCOMMAND 209942 . 210181)) (210218 211271 (FB.GETWINDOW 210228 . 211269)) (
|
||||
211272 212284 (FB.INFOMENU.SHADEINITIALSELECTIONS 211282 . 211929) (FB.INFO.ITEM.NAMED 211931 . 212282
|
||||
)) (212285 221817 (FB.MAKECOUNTERWINDOW 212295 . 213823) (FB.COUNTERW.REDISPLAYFN 213825 . 214412) (
|
||||
FB.UPDATE.COUNTERS 214414 . 216486) (FB.DISPLAY.COUNTERS 216488 . 221548) (FB.COUNTER.STRING 221550 .
|
||||
221815)) (221818 226527 (FB.MAKEHEADINGWINDOW 221828 . 223442) (FB.HEADINGW.REDISPLAYFN 223444 .
|
||||
223710) (FB.HEADINGW.RESHAPEFN 223712 . 224088) (FB.HEADINGW.DISPLAY 224090 . 226525)) (226528 230711
|
||||
(FB.ICONFN 226538 . 226885) (FB.INFOMENU.WHENSELECTEDFN 226887 . 227617) (FB.CLOSEFN 227619 . 228822)
|
||||
(FB.EXPUNGE?.MENU 228824 . 229236) (FB.AFTERCLOSEFN 229238 . 229599) (FB.CLOSE&EXPUNGE 229601 . 230709
|
||||
)) (230712 242770 (FB.HARDCOPY.DIRECTORY 230722 . 241079) (FB.HARDCOPY.PRINT.TITLE 241081 . 241407) (
|
||||
FB.HARDCOPY.MAXWIDTH 241409 . 242768)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,9 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Dec-2025 19:38:31" {WMEDLEY}<library>POSTSCRIPTSTREAM.;60 258351
|
||||
(FILECREATED "24-Dec-2025 11:36:54" {WMEDLEY}<library>POSTSCRIPTSTREAM.;61 258642
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (ALISTS (PRINTFILETYPES POSTSCRIPT))
|
||||
(FNS POSTSCRIPT.FONTSAVAILABLE)
|
||||
|
||||
:PREVIOUS-DATE "12-Dec-2025 19:16:22" {WMEDLEY}<library>POSTSCRIPTSTREAM.;59)
|
||||
|
||||
|
||||
@@ -1111,13 +1114,14 @@
|
||||
NEWWIDTHS)])
|
||||
|
||||
(POSTSCRIPT.FONTSAVAILABLE
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 25-Aug-2025 13:09 by rmk")
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 17-Dec-2025 20:55 by rmk")
|
||||
(* ; "Edited 25-Aug-2025 13:09 by rmk")
|
||||
(* ; "Edited 23-Aug-2025 08:19 by rmk")
|
||||
|
||||
(* ;; "Postscript only has font files of size 1, and only files for %"raw%" postscript families that Medley font families are mapped to by POSTSCRIPTFONTCOERCIONS. Therefore the search doesn't care about the given family, just looks at the corresponding raw files that exist in the directory. ")
|
||||
|
||||
(LET [(SIZE (fetch (FONTSPEC FSSIZE) of FONTSPEC))
|
||||
(FONTSAVAILABLE (\SEARCHFONTFILES (CAR (COERCEFONTSPEC FONTSPEC]
|
||||
(FONTSAVAILABLE (\SEARCHFONTFILES (COERCEFONTSPEC FONTSPEC]
|
||||
|
||||
(* ;; "Switch from postscript family names back to the corresponding Medley names.")
|
||||
|
||||
@@ -4338,12 +4342,12 @@
|
||||
(OPTIMA . PALATINO)
|
||||
(TITAN . COURIER))
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES
|
||||
(POSTSCRIPT (TEST POSTSCRIPTFILEP)
|
||||
(EXTENSION (PS PSC PSF POSTSCRIPT))
|
||||
(CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT TEDIT.TO.IMAGEFILE))
|
||||
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
|
||||
(BITMAPFILE (POSTSCRIPT.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
|
||||
(ADDTOVAR PRINTFILETYPES (POSTSCRIPT (TEST POSTSCRIPTFILEP)
|
||||
(EXTENSION (PS PSC PSF POSTSCRIPT))
|
||||
(CONVERSION (TEXT POSTSCRIPT.TEXT))
|
||||
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
|
||||
(BITMAPFILE (POSTSCRIPT.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION
|
||||
ROTATION TITLE))))
|
||||
|
||||
(ADDTOVAR IMAGESTREAMTYPES (POSTSCRIPT (OPENSTREAM OPENPOSTSCRIPTSTREAM)
|
||||
(FONTCREATE POSTSCRIPT.FONTCREATE)
|
||||
@@ -4393,38 +4397,38 @@
|
||||
(ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22293 32501 (POSTSCRIPT.INIT 22303 . 29107) (POSTSCRIPT.PUTRGBCOLOR 29109 . 30131) (
|
||||
\PSC.COLOR.TO.RGB 30133 . 32499)) (33487 68805 (PSCFONT.READFONT 33497 . 35405) (PSCFONT.SPELLFILE
|
||||
35407 . 36220) (PSCFONT.COERCEFILE 36222 . 37794) (PSCFONTFROMCACHE.SPELLFILE 37796 . 38781) (
|
||||
PSCFONTFROMCACHE.COERCEFILE 38783 . 40435) (PSCFONT.WRITEFONT 40437 . 41452) (READ-AFM-FILE 41454 .
|
||||
47325) (CONVERT-AFM-FILES 47327 . 48539) (POSTSCRIPT.GETFONTID 48541 . 49936) (POSTSCRIPT.FONTCREATE
|
||||
49938 . 62832) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62834 . 65231) (POSTSCRIPT.FONTSAVAILABLE 65233
|
||||
. 67416) (POSTSCRIPT.FONTEXISTS? 67418 . 68803)) (68806 78529 (OPENPOSTSCRIPTSTREAM 68816 . 78195) (
|
||||
CLOSEPOSTSCRIPTSTREAM 78197 . 78527)) (78574 85489 (POSTSCRIPT.HARDCOPYW 78584 . 81691) (
|
||||
POSTSCRIPT.TEDIT 81693 . 82145) (POSTSCRIPT.TEXT 82147 . 82734) (POSTSCRIPTFILEP 82736 . 84224) (
|
||||
MAKEEPSFILE 84226 . 85487)) (85490 129064 (POSTSCRIPT.BITMAPSCALE 85500 . 87956) (
|
||||
POSTSCRIPT.CLOSESTRING 87958 . 88511) (POSTSCRIPT.ENDPAGE 88513 . 89404) (POSTSCRIPT.OUTSTR 89406 .
|
||||
90623) (POSTSCRIPT.PUTBITMAPBYTES 90625 . 99096) (POSTSCRIPT.PUTCOMMAND 99098 . 100087) (
|
||||
POSTSCRIPT.SET-FAKE-LANDSCAPE 100089 . 104609) (POSTSCRIPT.SHOWACCUM 104611 . 106766) (
|
||||
POSTSCRIPT.STARTPAGE 106768 . 109300) (\POSTSCRIPTTAB 109302 . 110099) (\PS.BOUTFIXP 110101 . 111381)
|
||||
(\PS.SCALEHACK 111383 . 114026) (\PS.SCALEREGION 114028 . 114588) (\SCALEDBITBLT.PSC 114590 . 118900)
|
||||
(\SETPOS.PSC 118902 . 119383) (\SETXFORM.PSC 119385 . 121969) (\STRINGWIDTH.PSC 121971 . 122444) (
|
||||
\SWITCHFONTS.PSC 122446 . 127938) (\TERPRI.PSC 127940 . 129062)) (129099 182955 (\BITBLT.PSC 129109 .
|
||||
129661) (\BLTSHADE.PSC 129663 . 134324) (\CHARWIDTH.PSC 134326 . 134833) (\CREATECHARSET.PSC 134835 .
|
||||
136191) (\DRAWARC.PSC 136193 . 138571) (\DRAWCIRCLE.PSC 138573 . 140824) (\DRAWCURVE.PSC 140826 .
|
||||
144670) (\DRAWELLIPSE.PSC 144672 . 147036) (\DRAWLINE.PSC 147038 . 149778) (\DRAWPOINT.PSC 149780 .
|
||||
150356) (\DRAWPOLYGON.PSC 150358 . 153487) (\DSPBOTTOMMARGIN.PSC 153489 . 154176) (
|
||||
\DSPCLIPPINGREGION.PSC 154178 . 155553) (\DSPCOLOR.PSC 155555 . 156486) (\DSPFONT.PSC 156488 . 160125)
|
||||
(\DSPLEFTMARGIN.PSC 160127 . 160813) (\DSPLINEFEED.PSC 160815 . 161405) (\DSPPUSHSTATE.PSC 161407 .
|
||||
162867) (\DSPPOPSTATE.PSC 162869 . 166354) (\DSPRESET.PSC 166356 . 167021) (\DSPRIGHTMARGIN.PSC 167023
|
||||
. 167712) (\DSPROTATE.PSC 167714 . 168713) (\DSPSCALE.PSC 168715 . 169667) (\DSPSCALE2.PSC 169669 .
|
||||
170509) (\DSPSPACEFACTOR.PSC 170511 . 171432) (\DSPTOPMARGIN.PSC 171434 . 172005) (\DSPTRANSLATE.PSC
|
||||
172007 . 174038) (\DSPXPOSITION.PSC 174040 . 174604) (\DSPYPOSITION.PSC 174606 . 175197) (
|
||||
\FILLCIRCLE.PSC 175199 . 177424) (\FILLPOLYGON.PSC 177426 . 180663) (\FIXLINELENGTH.PSC 180665 .
|
||||
181984) (\MOVETO.PSC 181986 . 182756) (\NEWPAGE.PSC 182758 . 182953)) (183011 205157 (
|
||||
\POSTSCRIPT.CHANGECHARSET 183021 . 183739) (\POSTSCRIPT.OUTCHARFN 183741 . 196011) (
|
||||
\POSTSCRIPT.PRINTSLUG 196013 . 197737) (\POSTSCRIPT.SPECIALOUTCHARFN 197739 . 200090) (\UPDATE.PSC
|
||||
200092 . 201338) (\POSTSCRIPT.ACCENTFN 201340 . 202282) (\POSTSCRIPT.ACCENTPAIR 202284 . 205155)) (
|
||||
205255 206900 (\PSC.SPACEDISP 205265 . 205544) (\PSC.SPACEWID 205546 . 206165) (\PSC.SYMBOLS 206167 .
|
||||
206898)) (207009 210000 (\POSTSCRIPT.NSHASH 207019 . 209998)))))
|
||||
(FILEMAP (NIL (22399 32607 (POSTSCRIPT.INIT 22409 . 29213) (POSTSCRIPT.PUTRGBCOLOR 29215 . 30237) (
|
||||
\PSC.COLOR.TO.RGB 30239 . 32605)) (33593 69015 (PSCFONT.READFONT 33603 . 35511) (PSCFONT.SPELLFILE
|
||||
35513 . 36326) (PSCFONT.COERCEFILE 36328 . 37900) (PSCFONTFROMCACHE.SPELLFILE 37902 . 38887) (
|
||||
PSCFONTFROMCACHE.COERCEFILE 38889 . 40541) (PSCFONT.WRITEFONT 40543 . 41558) (READ-AFM-FILE 41560 .
|
||||
47431) (CONVERT-AFM-FILES 47433 . 48645) (POSTSCRIPT.GETFONTID 48647 . 50042) (POSTSCRIPT.FONTCREATE
|
||||
50044 . 62938) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62940 . 65337) (POSTSCRIPT.FONTSAVAILABLE 65339
|
||||
. 67626) (POSTSCRIPT.FONTEXISTS? 67628 . 69013)) (69016 78739 (OPENPOSTSCRIPTSTREAM 69026 . 78405) (
|
||||
CLOSEPOSTSCRIPTSTREAM 78407 . 78737)) (78784 85699 (POSTSCRIPT.HARDCOPYW 78794 . 81901) (
|
||||
POSTSCRIPT.TEDIT 81903 . 82355) (POSTSCRIPT.TEXT 82357 . 82944) (POSTSCRIPTFILEP 82946 . 84434) (
|
||||
MAKEEPSFILE 84436 . 85697)) (85700 129274 (POSTSCRIPT.BITMAPSCALE 85710 . 88166) (
|
||||
POSTSCRIPT.CLOSESTRING 88168 . 88721) (POSTSCRIPT.ENDPAGE 88723 . 89614) (POSTSCRIPT.OUTSTR 89616 .
|
||||
90833) (POSTSCRIPT.PUTBITMAPBYTES 90835 . 99306) (POSTSCRIPT.PUTCOMMAND 99308 . 100297) (
|
||||
POSTSCRIPT.SET-FAKE-LANDSCAPE 100299 . 104819) (POSTSCRIPT.SHOWACCUM 104821 . 106976) (
|
||||
POSTSCRIPT.STARTPAGE 106978 . 109510) (\POSTSCRIPTTAB 109512 . 110309) (\PS.BOUTFIXP 110311 . 111591)
|
||||
(\PS.SCALEHACK 111593 . 114236) (\PS.SCALEREGION 114238 . 114798) (\SCALEDBITBLT.PSC 114800 . 119110)
|
||||
(\SETPOS.PSC 119112 . 119593) (\SETXFORM.PSC 119595 . 122179) (\STRINGWIDTH.PSC 122181 . 122654) (
|
||||
\SWITCHFONTS.PSC 122656 . 128148) (\TERPRI.PSC 128150 . 129272)) (129309 183165 (\BITBLT.PSC 129319 .
|
||||
129871) (\BLTSHADE.PSC 129873 . 134534) (\CHARWIDTH.PSC 134536 . 135043) (\CREATECHARSET.PSC 135045 .
|
||||
136401) (\DRAWARC.PSC 136403 . 138781) (\DRAWCIRCLE.PSC 138783 . 141034) (\DRAWCURVE.PSC 141036 .
|
||||
144880) (\DRAWELLIPSE.PSC 144882 . 147246) (\DRAWLINE.PSC 147248 . 149988) (\DRAWPOINT.PSC 149990 .
|
||||
150566) (\DRAWPOLYGON.PSC 150568 . 153697) (\DSPBOTTOMMARGIN.PSC 153699 . 154386) (
|
||||
\DSPCLIPPINGREGION.PSC 154388 . 155763) (\DSPCOLOR.PSC 155765 . 156696) (\DSPFONT.PSC 156698 . 160335)
|
||||
(\DSPLEFTMARGIN.PSC 160337 . 161023) (\DSPLINEFEED.PSC 161025 . 161615) (\DSPPUSHSTATE.PSC 161617 .
|
||||
163077) (\DSPPOPSTATE.PSC 163079 . 166564) (\DSPRESET.PSC 166566 . 167231) (\DSPRIGHTMARGIN.PSC 167233
|
||||
. 167922) (\DSPROTATE.PSC 167924 . 168923) (\DSPSCALE.PSC 168925 . 169877) (\DSPSCALE2.PSC 169879 .
|
||||
170719) (\DSPSPACEFACTOR.PSC 170721 . 171642) (\DSPTOPMARGIN.PSC 171644 . 172215) (\DSPTRANSLATE.PSC
|
||||
172217 . 174248) (\DSPXPOSITION.PSC 174250 . 174814) (\DSPYPOSITION.PSC 174816 . 175407) (
|
||||
\FILLCIRCLE.PSC 175409 . 177634) (\FILLPOLYGON.PSC 177636 . 180873) (\FIXLINELENGTH.PSC 180875 .
|
||||
182194) (\MOVETO.PSC 182196 . 182966) (\NEWPAGE.PSC 182968 . 183163)) (183221 205367 (
|
||||
\POSTSCRIPT.CHANGECHARSET 183231 . 183949) (\POSTSCRIPT.OUTCHARFN 183951 . 196221) (
|
||||
\POSTSCRIPT.PRINTSLUG 196223 . 197947) (\POSTSCRIPT.SPECIALOUTCHARFN 197949 . 200300) (\UPDATE.PSC
|
||||
200302 . 201548) (\POSTSCRIPT.ACCENTFN 201550 . 202492) (\POSTSCRIPT.ACCENTPAIR 202494 . 205365)) (
|
||||
205465 207110 (\PSC.SPACEDISP 205475 . 205754) (\PSC.SPACEWID 205756 . 206375) (\PSC.SYMBOLS 206377 .
|
||||
207108)) (207219 210210 (\POSTSCRIPT.NSHASH 207229 . 210208)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user