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

minor compatibility changes for new architecture

Browse Source
This commit is contained in:
rmkaplan
2025-12-28 21:35:05 -08:00
parent 1d2b8bf264
commit a60fed0cc1
8 changed files with 254 additions and 285 deletions
Download Patch File Download Diff File Expand all files Collapse all files

265
library/FILEBROWSER
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (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) (PRETTYCOMPRINT FILEBROWSERCOMS)
@@ -91,22 +91,10 @@ You specify how many versions to keep.")))
(|See| (FB.EDITCOMMAND READONLY) (|See| (FB.EDITCOMMAND READONLY)
"Displays selected files one at a time in a separate window" "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" (|Browse| FB.BROWSECOMMAND
)
("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" "Recursively call FileBrowser on the selected subdirectory"
))) )
(|Edit| FB.EDITCOMMAND (|Edit| FB.EDITCOMMAND
"Calls an editor on the selected files (use submenu to specify editor)" "Calls an editor on the selected files (use submenu to specify editor)"
(SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT) (SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT)
@@ -337,15 +325,8 @@ You specify how many versions to keep.")))
("To a printer" (FB.HARDCOPYCOMMAND PRINTER) ("To a printer" (FB.HARDCOPYCOMMAND PRINTER)
"Sends hardcopy of selected files to a printer of your choosing"))) "Sends hardcopy of selected files to a printer of your choosing")))
(|See| (FB.EDITCOMMAND READONLY) (|See| (FB.EDITCOMMAND READONLY)
"Displays selected files one at a time in a separate window" "Displays selected files one at a time in a separate window")
(SUBITEMS ("Fast SEE Pretty" FB.FASTSEECOMMAND (|Browse| FB.BROWSECOMMAND "Recursively call FileBrowser on the selected subdirectory")
"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")))
(|Edit| FB.EDITCOMMAND (|Edit| FB.EDITCOMMAND
"Calls an editor on the selected files (use submenu to specify editor)" "Calls an editor on the selected files (use submenu to specify editor)"
(SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT) (SUBITEMS ("TEdit" (FB.EDITCOMMAND TEDIT)
@@ -827,13 +808,10 @@ Your deletions are thus ignored.")))
(REDISPLAYW (CAR W)))))) (REDISPLAYW (CAR W))))))
(\\FB.HARDCOPY.TOFILE.EXTENSION (\\FB.HARDCOPY.TOFILE.EXTENSION
(LAMBDA NIL (* \; (LAMBDA NIL (* \; "Edited 20-Sep-2025 11:41 by rmk")
 "Edited 25-Feb-91 15:15 by gadener") (* \; "Edited 14-Sep-2025 20:48 by rmk")
(LET ((TYPE (PRINTERTYPE))) (OR (CAR (EXTENSIONS.FOR.IMAGEFILETYPE (PRINTERTYPE)))
(CASE TYPE DEFAULTPRINTERTYPE)))
(INTERPRESS 'IP)
(POSTSCRIPT 'PS)
(DEFAULT TYPE)))))
) )
@@ -1586,22 +1564,25 @@ Your deletions are thus ignored.")))
PRINTOPTIONS))))))) PRINTOPTIONS)))))))
(FB.HARDCOPY.TOFILE (FB.HARDCOPY.TOFILE
(LAMBDA (BROWSER FILES) (* \; (LAMBDA (BROWSER FILES) (* \; "Edited 21-Dec-2025 09:05 by rmk")
 "Edited 15-Feb-91 17:13 by gadener") (* \; "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. ") (* |;;| "Handle the \"Hardcopy>To File\" command. ")
(PROG ((HCOPYFILE (FB.PROMPTFORINPUT (COND (PROG ((HCOPYFILE (FB.PROMPTFORINPUT (COND
((CDR FILES) ((CDR FILES)
"Hardcopy file name pattern: ") "Hardcopy file name pattern: ")
(T "Hardcopy file name: ")) (T "Hardcopy file name: "))
(COND (COND
((CDR FILES) ((CDR FILES)
(PACKFILENAME.STRING 'NAME '* 'EXTENSION ( (PACKFILENAME.STRING 'NAME '* 'EXTENSION (
 \\FB.HARDCOPY.TOFILE.EXTENSION  \\FB.HARDCOPY.TOFILE.EXTENSION
))) )))
(T (PACKFILENAME.STRING 'VERSION NIL 'EXTENSION ( (T (PACKFILENAME.STRING 'VERSION NIL 'EXTENSION (
 \\FB.HARDCOPY.TOFILE.EXTENSION  \\FB.HARDCOPY.TOFILE.EXTENSION
) )
'BODY 'BODY
(FB.FETCHFILENAME (CAR FILES))))) (FB.FETCHFILENAME (CAR FILES)))))
@@ -1619,72 +1600,56 @@ Your deletions are thus ignored.")))
((|for| TAIL |on| (SETQ HCOPYFIELDS (UNPACKFILENAME.STRING HCOPYFILE)) ((|for| TAIL |on| (SETQ HCOPYFIELDS (UNPACKFILENAME.STRING HCOPYFILE))
|by| (CDDR TAIL) |bind| HOST HAVEDIRECTORY I |by| (CDDR TAIL) |bind| HOST HAVEDIRECTORY I
|do| (COND |do| (COND
((SETQ I (STRPOS '* (CADR TAIL))) ((SETQ I (STRPOS '* (CADR TAIL)))
(|if| (NEQ (CAR TAIL) (|if| (NEQ (CAR TAIL)
'NAME) 'NAME)
|then| (RETURN (SETQ MSG "Only name portion can contain *") |then| (RETURN (SETQ MSG "Only name portion can contain *")))
)) (* \; "Take apart name into FORE*AFT") (* \; "Take apart name into FORE*AFT")
(SETQ HCOPYTAIL (CDR TAIL)) (SETQ HCOPYTAIL (CDR TAIL))
(SETQ FORE (OR (SUBSTRING (CADR TAIL) (SETQ FORE (OR (SUBSTRING (CADR TAIL)
1 1
(SUB1 I)) (SUB1 I))
"")) ""))
(SETQ AFT (OR (SUBSTRING (CADR TAIL) (SETQ AFT (OR (SUBSTRING (CADR TAIL)
(ADD1 I)) (ADD1 I))
""))) "")))
(T (SELECTQ (CAR TAIL) (T (SELECTQ (CAR TAIL)
(NAME (RETURN (SETQ MSG (NAME (RETURN (SETQ MSG
"Name must have * for multiple hardcopy files" "Name must have * for multiple hardcopy files")))
))) (EXTENSION (SETQ EXT (MKATOM (U-CASE (CADR TAIL)))))
(EXTENSION (SETQ EXT (MKATOM (U-CASE (CADR TAIL))))) (DIRECTORY (SETQ HAVEDIRECTORY T))
(DIRECTORY (SETQ HAVEDIRECTORY T)) (HOST (SETQ HOST (CADR TAIL)))
(HOST (SETQ HOST (CADR TAIL))) NIL))) |finally| (|if| (AND HOST (NOT HAVEDIRECTORY))
NIL))) |finally| (|if| (AND HOST (NOT HAVEDIRECTORY)) |then|
|then|
(* \; (* \;
 "E.g., {DSK}*.IP. This pattern explicitly has no directory")  "E.g., {DSK}*.IP. This pattern explicitly has no directory")
(|push| HCOPYFIELDS (|push| HCOPYFIELDS 'DIRECTORY NIL)))
'DIRECTORY NIL)))
(FB.PROMPTWPRINT BROWSER "Bad pattern -- " MSG) (FB.PROMPTWPRINT BROWSER "Bad pattern -- " MSG)
(RETURN)))) (RETURN))))
(T (SETQ EXT (U-CASE (FILENAMEFIELD HCOPYFILE 'EXTENSION))))) (T (SETQ EXT (U-CASE (FILENAMEFIELD HCOPYFILE 'EXTENSION)))))
(COND (CL:UNLESS (SETQ PRINTFILETYPE (OR (IMAGEFILETYPE.FROM.EXTENSION NIL EXT)
((AND (NULL (SETQ PRINTFILETYPE (|for| TYPE |in| PRINTFILETYPES (MENU (|MakeMenuOfImageTypes| "File type?"))))
|when| (FMEMB EXT (CADR (ASSOC 'EXTENSION (RETURN))
(CDR TYPE)))) (|for| ITEM NAME FIELDS |in| FILES
|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
|do| (SETQ ITEM (FB.FETCHFILENAME ITEM)) |do| (SETQ ITEM (FB.FETCHFILENAME ITEM))
(SETQ FILETYPE (OR (PRINTFILETYPE ITEM) (SETQ NAME (COND
'TEXT)) ((CDR FILES)
(COND (SETQ FIELDS (UNPACKFILENAME.STRING ITEM NIL NIL 'TENEX))
((SETQ FN (LISTGET CONVERTERS FILETYPE)) (RPLACA HCOPYTAIL (CONCAT FORE (LISTGET FIELDS 'NAME)
(FB.PROMPTW.FORMAT BROWSER "~%Writing ~A..." AFT))
(SETQ NAME (COND (CL:APPLY (FUNCTION PACKFILENAME.STRING)
((CDR FILES) 'VERSION NIL (APPEND HCOPYFIELDS FIELDS)))
(SETQ FIELDS (UNPACKFILENAME.STRING ITEM NIL NIL (T (OUTFILEP HCOPYFILE))))
'TENEX)) (FB.PROMPTW.FORMAT BROWSER "~%Writing ~A..." NAME)
(RPLACA HCOPYTAIL (CONCAT FORE (LISTGET FIELDS (|if| (SETQ NAME (CONVERT.TO.IMAGEFILE ITEM NAME PRINTFILETYPE
'NAME) '(NOERROR T QUIET T)))
AFT)) |then| (FB.PROMPTWPRINT BROWSER "done.")
(CL:APPLY (FUNCTION PACKFILENAME.STRING) (FB.MAYBE.INSERT.FILE BROWSER NAME)
'VERSION NIL (APPEND HCOPYFIELDS FIELDS))) |else| (FB.PROMPTW.FORMAT BROWSER
(T HCOPYFILE)))) "~%Failed to hardcopy ~A -- Can't convert a ~A file to format ~A"
(SETQ NAME (CL:FUNCALL FN ITEM NAME)) ITEM (OR (IMAGESOURCETYPE ITEM)
(COND 'TEXT)
((LISTP NAME) (* \; "Result is (SOURCE DESTINATION)") PRINTFILETYPE))))))
(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)))))))
) )
(DEFINEQ (DEFINEQ
@@ -4249,51 +4214,51 @@ then click Recompute"))))
(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT) (ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
) )
(DECLARE\: DONTCOPY (DECLARE\: DONTCOPY
(FILEMAP (NIL (31871 54979 (FB 31881 . 33016) (FB.COPYBINARYCOMMAND 33018 . 33364) (FB.COPYTEXTCOMMAND (FILEMAP (NIL (30255 53354 (FB 30265 . 31400) (FB.COPYBINARYCOMMAND 31402 . 31748) (FB.COPYTEXTCOMMAND
33366 . 33708) (FILEBROWSER 33710 . 46816) (FB.TABLEBROWSER 46818 . 47035) (FB.SELECTEDFILES 47037 . 31750 . 32092) (FILEBROWSER 32094 . 45200) (FB.TABLEBROWSER 45202 . 45419) (FB.SELECTEDFILES 45421 .
47674) (FB.FETCHFILENAME 47676 . 48068) (FB.DIRECTORYP 48070 . 48464) (FB.PROMPTWPRINT 48466 . 49512) 46058) (FB.FETCHFILENAME 46060 . 46452) (FB.DIRECTORYP 46454 . 46848) (FB.PROMPTWPRINT 46850 . 47896)
(FB.PROMPTW.FORMAT 49514 . 50478) (FB.PROMPTFORINPUT 50480 . 52732) (FB.YES-OR-NO-P 52734 . 53768) ( (FB.PROMPTW.FORMAT 47898 . 48862) (FB.PROMPTFORINPUT 48864 . 51116) (FB.YES-OR-NO-P 51118 . 52152) (
FB.ALLOW.ABORT 53770 . 54624) (\\FB.HARDCOPY.TOFILE.EXTENSION 54626 . 54977)) (55003 55956 (FB.STARTUP FB.ALLOW.ABORT 52154 . 53008) (\\FB.HARDCOPY.TOFILE.EXTENSION 53010 . 53352)) (53378 54331 (FB.STARTUP
55013 . 55528) (FB.MAKERIGIDWINDOW 55530 . 55954)) (55957 61440 (FB.PRINTFN 55967 . 61120) (FB.COPYFN 53388 . 53903) (FB.MAKERIGIDWINDOW 53905 . 54329)) (54332 59815 (FB.PRINTFN 54342 . 59495) (FB.COPYFN
61122 . 61438)) (61490 67830 (FB.MENU.WHENSELECTEDFN 61500 . 61858) (FB.COMMANDSELECTEDFN 61860 . 59497 . 59813)) (59865 66205 (FB.MENU.WHENSELECTEDFN 59875 . 60233) (FB.COMMANDSELECTEDFN 60235 .
63399) (FB.SUBITEMP 63401 . 64002) (FB.MAKE.BROWSER.BUSY 64004 . 64808) (FB.FINISH.COMMAND 64810 . 61774) (FB.SUBITEMP 61776 . 62377) (FB.MAKE.BROWSER.BUSY 62379 . 63183) (FB.FINISH.COMMAND 63185 .
66841) (FB.HANDLE.ABORT.BUTTON 66843 . 67828)) (67831 73347 (FB.DELETECOMMAND 67841 . 68122) ( 65216) (FB.HANDLE.ABORT.BUTTON 65218 . 66203)) (66206 71722 (FB.DELETECOMMAND 66216 . 66497) (
FB.DELVERCOMMAND 68124 . 71317) (FB.IS.NOT.SUBDIRECTORY.ITEM 71319 . 71500) (FB.DELVER.FILES 71502 . FB.DELVERCOMMAND 66499 . 69692) (FB.IS.NOT.SUBDIRECTORY.ITEM 69694 . 69875) (FB.DELVER.FILES 69877 .
72591) (FB.DELETE.FILE 72593 . 73345)) (73348 74673 (FB.UNDELETECOMMAND 73358 . 73643) ( 70966) (FB.DELETE.FILE 70968 . 71720)) (71723 73048 (FB.UNDELETECOMMAND 71733 . 72018) (
FB.UNDELETEALLCOMMAND 73645 . 73924) (FB.UNDELETE.FILE 73926 . 74671)) (74674 98855 (FB.COPYCOMMAND FB.UNDELETEALLCOMMAND 72020 . 72299) (FB.UNDELETE.FILE 72301 . 73046)) (73049 97230 (FB.COPYCOMMAND
74684 . 74953) (FB.RENAMECOMMAND 74955 . 75230) (FB.COPY/RENAME.COMMAND 75232 . 76155) ( 73059 . 73328) (FB.RENAMECOMMAND 73330 . 73605) (FB.COPY/RENAME.COMMAND 73607 . 74530) (
FB.COPY/RENAME.ONE 76157 . 78479) (FB.COPY/RENAME.MANY 78481 . 84701) (FB.MERGE.DIRECTORIES 84703 . FB.COPY/RENAME.ONE 74532 . 76854) (FB.COPY/RENAME.MANY 76856 . 83076) (FB.MERGE.DIRECTORIES 83078 .
85121) (FB.GREATEST.PREFIX 85123 . 86479) (FB.MAYBE.INSERT.FILE 86481 . 93921) (FB.GET.NEW.FILE.SPEC 83496) (FB.GREATEST.PREFIX 83498 . 84854) (FB.MAYBE.INSERT.FILE 84856 . 92296) (FB.GET.NEW.FILE.SPEC
93923 . 97754) (FB.CANONICAL.DIRECTORY 97756 . 98853)) (98856 106640 (FB.HARDCOPYCOMMAND 98866 . 99996 92298 . 96129) (FB.CANONICAL.DIRECTORY 96131 . 97228)) (97231 104094 (FB.HARDCOPYCOMMAND 97241 . 98371
) (FB.HARDCOPY.TOFILE 99998 . 106638)) (106641 116850 (FB.EDITCOMMAND 106651 . 107518) ( ) (FB.HARDCOPY.TOFILE 98373 . 104092)) (104095 114304 (FB.EDITCOMMAND 104105 . 104972) (
FB.EDITCOMMAND.ONEFILE 107520 . 110934) (FB.EDITLISPFILE 110936 . 112041) (FB.BROWSECOMMAND 112043 . FB.EDITCOMMAND.ONEFILE 104974 . 108388) (FB.EDITLISPFILE 108390 . 109495) (FB.BROWSECOMMAND 109497 .
116848)) (116851 128571 (FB.FASTSEECOMMAND 116861 . 120311) (FB.FASTSEE.ONEFILE 120313 . 123269) ( 114302)) (114305 126025 (FB.FASTSEECOMMAND 114315 . 117765) (FB.FASTSEE.ONEFILE 117767 . 120723) (
FB.SEEFULLFN 123271 . 127402) (FB.SEEBUTTONFN 127404 . 128569)) (128572 130318 (FB.LOADCOMMAND 128582 FB.SEEFULLFN 120725 . 124856) (FB.SEEBUTTONFN 124858 . 126023)) (126026 127772 (FB.LOADCOMMAND 126036
. 129089) (FB.COMPILECOMMAND 129091 . 129629) (FB.OPERATE.ON.FILES 129631 . 130316)) (130319 178504 ( . 126543) (FB.COMPILECOMMAND 126545 . 127083) (FB.OPERATE.ON.FILES 127085 . 127770)) (127773 175958 (
FB.UPDATECOMMAND 130329 . 130554) (FB.FIX-DIRECTORY-DATES 130556 . 131579) (FB.MAYBE.EXPUNGE 131581 . FB.UPDATECOMMAND 127783 . 128008) (FB.FIX-DIRECTORY-DATES 128010 . 129033) (FB.MAYBE.EXPUNGE 129035 .
132642) (FB.UPDATEBROWSERITEMS 132644 . 145859) (FB.DATE 145861 . 146502) (FB.ADJUST.DATE.WIDTH 146504 130096) (FB.UPDATEBROWSERITEMS 130098 . 143313) (FB.DATE 143315 . 143956) (FB.ADJUST.DATE.WIDTH 143958
. 149472) (FB.SET.BROWSER.TITLE 149474 . 150476) (FB.MAYBE.WIDEN.NAMES 150478 . 152597) ( . 146926) (FB.SET.BROWSER.TITLE 146928 . 147930) (FB.MAYBE.WIDEN.NAMES 147932 . 150051) (
FB.SET.DEFAULT.NAME.WIDTH 152599 . 153963) (FB.CREATE.FILEBUCKET 153965 . 161185) ( FB.SET.DEFAULT.NAME.WIDTH 150053 . 151417) (FB.CREATE.FILEBUCKET 151419 . 158639) (
FB.CHECK.NAME.LENGTH 161187 . 163608) (FB.ADD.FILEGROUP 163610 . 165137) (FB.INSERT.DIRECTORY 165139 FB.CHECK.NAME.LENGTH 158641 . 161062) (FB.ADD.FILEGROUP 161064 . 162591) (FB.INSERT.DIRECTORY 162593
. 165377) (FB.MAKE.SUBDIRECTORY.ITEM 165379 . 166788) (FB.ADD.FILE 166790 . 167403) (FB.INSERT.FILE . 162831) (FB.MAKE.SUBDIRECTORY.ITEM 162833 . 164242) (FB.ADD.FILE 164244 . 164857) (FB.INSERT.FILE
167405 . 170817) (FB.ANALYZE.PATTERN 170819 . 176083) (FB.CANONICALIZE.PATTERN 176085 . 177397) ( 164859 . 168271) (FB.ANALYZE.PATTERN 168273 . 173537) (FB.CANONICALIZE.PATTERN 173539 . 174851) (
FB.GETALLFILEINFO 177399 . 178502)) (178505 186664 (FB.SORT.VERSIONS 178515 . 181286) ( FB.GETALLFILEINFO 174853 . 175956)) (175959 184118 (FB.SORT.VERSIONS 175969 . 178740) (
FB.DECREASING.VERSION 181288 . 181957) (FB.INCREASING.VERSION 181959 . 182580) ( FB.DECREASING.VERSION 178742 . 179411) (FB.INCREASING.VERSION 179413 . 180034) (
FB.NAMES.DECREASING.VERSION 182582 . 183617) (FB.NAMES.INCREASING.VERSION 183619 . 184616) ( FB.NAMES.DECREASING.VERSION 180036 . 181071) (FB.NAMES.INCREASING.VERSION 181073 . 182070) (
FB.DECREASING.NUMERIC.ATTR 184618 . 185298) (FB.INCREASING.NUMERIC.ATTR 185300 . 185974) ( FB.DECREASING.NUMERIC.ATTR 182072 . 182752) (FB.INCREASING.NUMERIC.ATTR 182754 . 183428) (
FB.ALPHABETIC.ATTR 185976 . 186662)) (186665 196507 (FB.SORTCOMMAND 186675 . 193505) ( FB.ALPHABETIC.ATTR 183430 . 184116)) (184119 193961 (FB.SORTCOMMAND 184129 . 190959) (
FB.INSERT.SUBDIRECTORIES 193507 . 194304) (FB.GET.SORT.MENU 194306 . 196505)) (196508 212729 ( FB.INSERT.SUBDIRECTORIES 190961 . 191758) (FB.GET.SORT.MENU 191760 . 193959)) (193962 210183 (
FB.EXPUNGECOMMAND 196518 . 199103) (FB.NEWPATTERNCOMMAND 199105 . 199503) (FB.NEWINFOCOMMAND 199505 . FB.EXPUNGECOMMAND 193972 . 196557) (FB.NEWPATTERNCOMMAND 196559 . 196957) (FB.NEWINFOCOMMAND 196959 .
202337) (FB.DEPTHCOMMAND 202339 . 204114) (FB.SHAPECOMMAND 204116 . 207458) (FB.REMOVE.FILE 207460 . 199791) (FB.DEPTHCOMMAND 199793 . 201568) (FB.SHAPECOMMAND 201570 . 204912) (FB.REMOVE.FILE 204914 .
209281) (FB.COUNT.FILE.CHANGE 209283 . 210728) (FB.SETNEWPATTERN 210730 . 211900) (FB.GET.NEWPATTERN 206735) (FB.COUNT.FILE.CHANGE 206737 . 208182) (FB.SETNEWPATTERN 208184 . 209354) (FB.GET.NEWPATTERN
211902 . 212486) (FB.OPTIONSCOMMAND 212488 . 212727)) (212764 213817 (FB.GETWINDOW 212774 . 213815)) ( 209356 . 209940) (FB.OPTIONSCOMMAND 209942 . 210181)) (210218 211271 (FB.GETWINDOW 210228 . 211269)) (
213818 214830 (FB.INFOMENU.SHADEINITIALSELECTIONS 213828 . 214475) (FB.INFO.ITEM.NAMED 214477 . 214828 211272 212284 (FB.INFOMENU.SHADEINITIALSELECTIONS 211282 . 211929) (FB.INFO.ITEM.NAMED 211931 . 212282
)) (214831 224363 (FB.MAKECOUNTERWINDOW 214841 . 216369) (FB.COUNTERW.REDISPLAYFN 216371 . 216958) ( )) (212285 221817 (FB.MAKECOUNTERWINDOW 212295 . 213823) (FB.COUNTERW.REDISPLAYFN 213825 . 214412) (
FB.UPDATE.COUNTERS 216960 . 219032) (FB.DISPLAY.COUNTERS 219034 . 224094) (FB.COUNTER.STRING 224096 . FB.UPDATE.COUNTERS 214414 . 216486) (FB.DISPLAY.COUNTERS 216488 . 221548) (FB.COUNTER.STRING 221550 .
224361)) (224364 229073 (FB.MAKEHEADINGWINDOW 224374 . 225988) (FB.HEADINGW.REDISPLAYFN 225990 . 221815)) (221818 226527 (FB.MAKEHEADINGWINDOW 221828 . 223442) (FB.HEADINGW.REDISPLAYFN 223444 .
226256) (FB.HEADINGW.RESHAPEFN 226258 . 226634) (FB.HEADINGW.DISPLAY 226636 . 229071)) (229074 233257 223710) (FB.HEADINGW.RESHAPEFN 223712 . 224088) (FB.HEADINGW.DISPLAY 224090 . 226525)) (226528 230711
(FB.ICONFN 229084 . 229431) (FB.INFOMENU.WHENSELECTEDFN 229433 . 230163) (FB.CLOSEFN 230165 . 231368) (FB.ICONFN 226538 . 226885) (FB.INFOMENU.WHENSELECTEDFN 226887 . 227617) (FB.CLOSEFN 227619 . 228822)
(FB.EXPUNGE?.MENU 231370 . 231782) (FB.AFTERCLOSEFN 231784 . 232145) (FB.CLOSE&EXPUNGE 232147 . 233255 (FB.EXPUNGE?.MENU 228824 . 229236) (FB.AFTERCLOSEFN 229238 . 229599) (FB.CLOSE&EXPUNGE 229601 . 230709
)) (233258 245316 (FB.HARDCOPY.DIRECTORY 233268 . 243625) (FB.HARDCOPY.PRINT.TITLE 243627 . 243953) ( )) (230712 242770 (FB.HARDCOPY.DIRECTORY 230722 . 241079) (FB.HARDCOPY.PRINT.TITLE 241081 . 241407) (
FB.HARDCOPY.MAXWIDTH 243955 . 245314))))) FB.HARDCOPY.MAXWIDTH 241409 . 242768)))))
STOP STOP

BIN
library/FILEBROWSER.LCOM
View File

Binary file not shown.

90
library/POSTSCRIPTSTREAM
View File

@@ -1,9 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (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 :EDIT-BY rmk
:CHANGES-TO (ALISTS (PRINTFILETYPES POSTSCRIPT))
(FNS POSTSCRIPT.FONTSAVAILABLE)
:PREVIOUS-DATE "12-Dec-2025 19:16:22" {WMEDLEY}<library>POSTSCRIPTSTREAM.;59) :PREVIOUS-DATE "12-Dec-2025 19:16:22" {WMEDLEY}<library>POSTSCRIPTSTREAM.;59)
@@ -1111,13 +1114,14 @@
NEWWIDTHS)]) NEWWIDTHS)])
(POSTSCRIPT.FONTSAVAILABLE (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") (* ; "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. ") (* ;; "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)) (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.") (* ;; "Switch from postscript family names back to the corresponding Medley names.")
@@ -4338,12 +4342,12 @@
(OPTIMA . PALATINO) (OPTIMA . PALATINO)
(TITAN . COURIER)) (TITAN . COURIER))
(ADDTOVAR PRINTFILETYPES (ADDTOVAR PRINTFILETYPES (POSTSCRIPT (TEST POSTSCRIPTFILEP)
(POSTSCRIPT (TEST POSTSCRIPTFILEP) (EXTENSION (PS PSC PSF POSTSCRIPT))
(EXTENSION (PS PSC PSF POSTSCRIPT)) (CONVERSION (TEXT POSTSCRIPT.TEXT))
(CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT TEDIT.TO.IMAGEFILE)) (BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE) (BITMAPFILE (POSTSCRIPT.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION
(BITMAPFILE (POSTSCRIPT.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) ROTATION TITLE))))
(ADDTOVAR IMAGESTREAMTYPES (POSTSCRIPT (OPENSTREAM OPENPOSTSCRIPTSTREAM) (ADDTOVAR IMAGESTREAMTYPES (POSTSCRIPT (OPENSTREAM OPENPOSTSCRIPTSTREAM)
(FONTCREATE POSTSCRIPT.FONTCREATE) (FONTCREATE POSTSCRIPT.FONTCREATE)
@@ -4393,38 +4397,38 @@
(ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND) (ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (22293 32501 (POSTSCRIPT.INIT 22303 . 29107) (POSTSCRIPT.PUTRGBCOLOR 29109 . 30131) ( (FILEMAP (NIL (22399 32607 (POSTSCRIPT.INIT 22409 . 29213) (POSTSCRIPT.PUTRGBCOLOR 29215 . 30237) (
\PSC.COLOR.TO.RGB 30133 . 32499)) (33487 68805 (PSCFONT.READFONT 33497 . 35405) (PSCFONT.SPELLFILE \PSC.COLOR.TO.RGB 30239 . 32605)) (33593 69015 (PSCFONT.READFONT 33603 . 35511) (PSCFONT.SPELLFILE
35407 . 36220) (PSCFONT.COERCEFILE 36222 . 37794) (PSCFONTFROMCACHE.SPELLFILE 37796 . 38781) ( 35513 . 36326) (PSCFONT.COERCEFILE 36328 . 37900) (PSCFONTFROMCACHE.SPELLFILE 37902 . 38887) (
PSCFONTFROMCACHE.COERCEFILE 38783 . 40435) (PSCFONT.WRITEFONT 40437 . 41452) (READ-AFM-FILE 41454 . PSCFONTFROMCACHE.COERCEFILE 38889 . 40541) (PSCFONT.WRITEFONT 40543 . 41558) (READ-AFM-FILE 41560 .
47325) (CONVERT-AFM-FILES 47327 . 48539) (POSTSCRIPT.GETFONTID 48541 . 49936) (POSTSCRIPT.FONTCREATE 47431) (CONVERT-AFM-FILES 47433 . 48645) (POSTSCRIPT.GETFONTID 48647 . 50042) (POSTSCRIPT.FONTCREATE
49938 . 62832) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62834 . 65231) (POSTSCRIPT.FONTSAVAILABLE 65233 50044 . 62938) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62940 . 65337) (POSTSCRIPT.FONTSAVAILABLE 65339
. 67416) (POSTSCRIPT.FONTEXISTS? 67418 . 68803)) (68806 78529 (OPENPOSTSCRIPTSTREAM 68816 . 78195) ( . 67626) (POSTSCRIPT.FONTEXISTS? 67628 . 69013)) (69016 78739 (OPENPOSTSCRIPTSTREAM 69026 . 78405) (
CLOSEPOSTSCRIPTSTREAM 78197 . 78527)) (78574 85489 (POSTSCRIPT.HARDCOPYW 78584 . 81691) ( CLOSEPOSTSCRIPTSTREAM 78407 . 78737)) (78784 85699 (POSTSCRIPT.HARDCOPYW 78794 . 81901) (
POSTSCRIPT.TEDIT 81693 . 82145) (POSTSCRIPT.TEXT 82147 . 82734) (POSTSCRIPTFILEP 82736 . 84224) ( POSTSCRIPT.TEDIT 81903 . 82355) (POSTSCRIPT.TEXT 82357 . 82944) (POSTSCRIPTFILEP 82946 . 84434) (
MAKEEPSFILE 84226 . 85487)) (85490 129064 (POSTSCRIPT.BITMAPSCALE 85500 . 87956) ( MAKEEPSFILE 84436 . 85697)) (85700 129274 (POSTSCRIPT.BITMAPSCALE 85710 . 88166) (
POSTSCRIPT.CLOSESTRING 87958 . 88511) (POSTSCRIPT.ENDPAGE 88513 . 89404) (POSTSCRIPT.OUTSTR 89406 . POSTSCRIPT.CLOSESTRING 88168 . 88721) (POSTSCRIPT.ENDPAGE 88723 . 89614) (POSTSCRIPT.OUTSTR 89616 .
90623) (POSTSCRIPT.PUTBITMAPBYTES 90625 . 99096) (POSTSCRIPT.PUTCOMMAND 99098 . 100087) ( 90833) (POSTSCRIPT.PUTBITMAPBYTES 90835 . 99306) (POSTSCRIPT.PUTCOMMAND 99308 . 100297) (
POSTSCRIPT.SET-FAKE-LANDSCAPE 100089 . 104609) (POSTSCRIPT.SHOWACCUM 104611 . 106766) ( POSTSCRIPT.SET-FAKE-LANDSCAPE 100299 . 104819) (POSTSCRIPT.SHOWACCUM 104821 . 106976) (
POSTSCRIPT.STARTPAGE 106768 . 109300) (\POSTSCRIPTTAB 109302 . 110099) (\PS.BOUTFIXP 110101 . 111381) POSTSCRIPT.STARTPAGE 106978 . 109510) (\POSTSCRIPTTAB 109512 . 110309) (\PS.BOUTFIXP 110311 . 111591)
(\PS.SCALEHACK 111383 . 114026) (\PS.SCALEREGION 114028 . 114588) (\SCALEDBITBLT.PSC 114590 . 118900) (\PS.SCALEHACK 111593 . 114236) (\PS.SCALEREGION 114238 . 114798) (\SCALEDBITBLT.PSC 114800 . 119110)
(\SETPOS.PSC 118902 . 119383) (\SETXFORM.PSC 119385 . 121969) (\STRINGWIDTH.PSC 121971 . 122444) ( (\SETPOS.PSC 119112 . 119593) (\SETXFORM.PSC 119595 . 122179) (\STRINGWIDTH.PSC 122181 . 122654) (
\SWITCHFONTS.PSC 122446 . 127938) (\TERPRI.PSC 127940 . 129062)) (129099 182955 (\BITBLT.PSC 129109 . \SWITCHFONTS.PSC 122656 . 128148) (\TERPRI.PSC 128150 . 129272)) (129309 183165 (\BITBLT.PSC 129319 .
129661) (\BLTSHADE.PSC 129663 . 134324) (\CHARWIDTH.PSC 134326 . 134833) (\CREATECHARSET.PSC 134835 . 129871) (\BLTSHADE.PSC 129873 . 134534) (\CHARWIDTH.PSC 134536 . 135043) (\CREATECHARSET.PSC 135045 .
136191) (\DRAWARC.PSC 136193 . 138571) (\DRAWCIRCLE.PSC 138573 . 140824) (\DRAWCURVE.PSC 140826 . 136401) (\DRAWARC.PSC 136403 . 138781) (\DRAWCIRCLE.PSC 138783 . 141034) (\DRAWCURVE.PSC 141036 .
144670) (\DRAWELLIPSE.PSC 144672 . 147036) (\DRAWLINE.PSC 147038 . 149778) (\DRAWPOINT.PSC 149780 . 144880) (\DRAWELLIPSE.PSC 144882 . 147246) (\DRAWLINE.PSC 147248 . 149988) (\DRAWPOINT.PSC 149990 .
150356) (\DRAWPOLYGON.PSC 150358 . 153487) (\DSPBOTTOMMARGIN.PSC 153489 . 154176) ( 150566) (\DRAWPOLYGON.PSC 150568 . 153697) (\DSPBOTTOMMARGIN.PSC 153699 . 154386) (
\DSPCLIPPINGREGION.PSC 154178 . 155553) (\DSPCOLOR.PSC 155555 . 156486) (\DSPFONT.PSC 156488 . 160125) \DSPCLIPPINGREGION.PSC 154388 . 155763) (\DSPCOLOR.PSC 155765 . 156696) (\DSPFONT.PSC 156698 . 160335)
(\DSPLEFTMARGIN.PSC 160127 . 160813) (\DSPLINEFEED.PSC 160815 . 161405) (\DSPPUSHSTATE.PSC 161407 . (\DSPLEFTMARGIN.PSC 160337 . 161023) (\DSPLINEFEED.PSC 161025 . 161615) (\DSPPUSHSTATE.PSC 161617 .
162867) (\DSPPOPSTATE.PSC 162869 . 166354) (\DSPRESET.PSC 166356 . 167021) (\DSPRIGHTMARGIN.PSC 167023 163077) (\DSPPOPSTATE.PSC 163079 . 166564) (\DSPRESET.PSC 166566 . 167231) (\DSPRIGHTMARGIN.PSC 167233
. 167712) (\DSPROTATE.PSC 167714 . 168713) (\DSPSCALE.PSC 168715 . 169667) (\DSPSCALE2.PSC 169669 . . 167922) (\DSPROTATE.PSC 167924 . 168923) (\DSPSCALE.PSC 168925 . 169877) (\DSPSCALE2.PSC 169879 .
170509) (\DSPSPACEFACTOR.PSC 170511 . 171432) (\DSPTOPMARGIN.PSC 171434 . 172005) (\DSPTRANSLATE.PSC 170719) (\DSPSPACEFACTOR.PSC 170721 . 171642) (\DSPTOPMARGIN.PSC 171644 . 172215) (\DSPTRANSLATE.PSC
172007 . 174038) (\DSPXPOSITION.PSC 174040 . 174604) (\DSPYPOSITION.PSC 174606 . 175197) ( 172217 . 174248) (\DSPXPOSITION.PSC 174250 . 174814) (\DSPYPOSITION.PSC 174816 . 175407) (
\FILLCIRCLE.PSC 175199 . 177424) (\FILLPOLYGON.PSC 177426 . 180663) (\FIXLINELENGTH.PSC 180665 . \FILLCIRCLE.PSC 175409 . 177634) (\FILLPOLYGON.PSC 177636 . 180873) (\FIXLINELENGTH.PSC 180875 .
181984) (\MOVETO.PSC 181986 . 182756) (\NEWPAGE.PSC 182758 . 182953)) (183011 205157 ( 182194) (\MOVETO.PSC 182196 . 182966) (\NEWPAGE.PSC 182968 . 183163)) (183221 205367 (
\POSTSCRIPT.CHANGECHARSET 183021 . 183739) (\POSTSCRIPT.OUTCHARFN 183741 . 196011) ( \POSTSCRIPT.CHANGECHARSET 183231 . 183949) (\POSTSCRIPT.OUTCHARFN 183951 . 196221) (
\POSTSCRIPT.PRINTSLUG 196013 . 197737) (\POSTSCRIPT.SPECIALOUTCHARFN 197739 . 200090) (\UPDATE.PSC \POSTSCRIPT.PRINTSLUG 196223 . 197947) (\POSTSCRIPT.SPECIALOUTCHARFN 197949 . 200300) (\UPDATE.PSC
200092 . 201338) (\POSTSCRIPT.ACCENTFN 201340 . 202282) (\POSTSCRIPT.ACCENTPAIR 202284 . 205155)) ( 200302 . 201548) (\POSTSCRIPT.ACCENTFN 201550 . 202492) (\POSTSCRIPT.ACCENTPAIR 202494 . 205365)) (
205255 206900 (\PSC.SPACEDISP 205265 . 205544) (\PSC.SPACEWID 205546 . 206165) (\PSC.SYMBOLS 206167 . 205465 207110 (\PSC.SPACEDISP 205475 . 205754) (\PSC.SPACEWID 205756 . 206375) (\PSC.SYMBOLS 206377 .
206898)) (207009 210000 (\POSTSCRIPT.NSHASH 207019 . 209998))))) 207108)) (207219 210210 (\POSTSCRIPT.NSHASH 207229 . 210208)))))
STOP STOP

BIN
library/POSTSCRIPTSTREAM.LCOM
View File

Binary file not shown.

86
lispusers/PRETTYFILEINDEX
View File

@@ -1,14 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "21-Sep-2025 09:50:47"  (FILECREATED "24-Dec-2025 11:15:32" {WMEDLEY}<lispusers>PRETTYFILEINDEX.;14 100927
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;13 100936
:EDIT-BY rmk :EDIT-BY rmk
:CHANGES-TO (VARS PRETTYFILEINDEXCOMS) :CHANGES-TO (FNS PFI.MAKE.LPT.STREAM)
:PREVIOUS-DATE "10-May-2023 09:12:17" :PREVIOUS-DATE "21-Sep-2025 09:50:47" {WMEDLEY}<lispusers>PRETTYFILEINDEX.;13)
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;12)
(PRETTYCOMPRINT PRETTYFILEINDEXCOMS) (PRETTYCOMPRINT PRETTYFILEINDEXCOMS)
@@ -381,12 +379,12 @@
PRINTOPTIONS))))])]) PRINTOPTIONS))))])])
(PFI.MAKE.LPT.STREAM (PFI.MAKE.LPT.STREAM
[LAMBDA (PRINTOPTIONS) (* ; "Edited 12-Nov-93 09:53 by rmk:") [LAMBDA (PRINTOPTIONS) (* ; "Edited 17-Dec-2025 01:05 by rmk")
(* ; "Edited 19-Aug-92 13:57 by jds") (* ; "Edited 12-Nov-93 09:53 by rmk:")
(LET* ((PRINTER (OR (LISTGET PRINTOPTIONS 'SERVER) (* ; "Edited 19-Aug-92 13:57 by jds")
(LET* ([PRINTER (OR (LISTGET PRINTOPTIONS 'SERVER)
(LISTGET PRINTOPTIONS 'HOST) (LISTGET PRINTOPTIONS 'HOST)
(CAR (LISTP DEFAULTPRINTINGHOST)) (CAR (DEFAULTPRINTERS]
DEFAULTPRINTINGHOST))
[IMAGETYPE (COND [IMAGETYPE (COND
[(AND PRINTER (CADDR (LISTP PRINTER] [(AND PRINTER (CADDR (LISTP PRINTER]
(T (CAR (MKLIST (PRINTERPROP (PRINTERTYPE PRINTER) (T (CAR (MKLIST (PRINTERPROP (PRINTERTYPE PRINTER)
@@ -394,13 +392,13 @@
(DEFAULTOPTIONS *PFI-PRINTOPTIONS*) (DEFAULTOPTIONS *PFI-PRINTOPTIONS*)
REG S TEMPS SCALE DEFREGION) REG S TEMPS SCALE DEFREGION)
(* ;; "Get a dummy stream of the right image type, so we can get scaling right, etc. The IMAGETYPE ... code is stolen from OPENIMAGESTREAM's decision for IMAGETYPE.") (* ;; "Get a dummy stream of the right image type, so we can get scaling right, etc. The IMAGETYPE ... code is stolen from OPENIMAGESTREAM's decision for IMAGETYPE.")
(SETQ TEMPS (OPENIMAGESTREAM "{NODIRCORE}" IMAGETYPE)) (SETQ TEMPS (OPENIMAGESTREAM "{NODIRCORE}" IMAGETYPE))
(SETQ SCALE (DSPSCALE NIL TEMPS)) (SETQ SCALE (DSPSCALE NIL TEMPS))
(CLOSEF TEMPS) (CLOSEF TEMPS)
(* ;; "Scale the region from points to the stream's real units right up front. Also, copy the options so can smash with LISTPUTs here and below.") (* ;; "Scale the region from points to the stream's real units right up front. Also, copy the options so can smash with LISTPUTs here and below.")
(CL:WHEN (SETQ REG (LISTGET PRINTOPTIONS 'REGION)) (CL:WHEN (SETQ REG (LISTGET PRINTOPTIONS 'REGION))
(LISTPUT (SETQ PRINTOPTIONS (APPEND PRINTOPTIONS)) (LISTPUT (SETQ PRINTOPTIONS (APPEND PRINTOPTIONS))
@@ -411,19 +409,19 @@
'REGION 'REGION
(SCALEREGION SCALE REG))) (SCALEREGION SCALE REG)))
(* ;; "Set up the margins (REGION) for the page correctly.") (* ;; "Set up the margins (REGION) for the page correctly.")
[COND [COND
((AND (LISTGET PRINTOPTIONS 'LANDSCAPE) ((AND (LISTGET PRINTOPTIONS 'LANDSCAPE)
(LISTGET DEFAULTOPTIONS 'REGION)) (* ; (LISTGET DEFAULTOPTIONS 'REGION)) (* ;
 "Don't use default region when caller specified landscape (tee hee)")  "Don't use default region when caller specified landscape (tee hee)")
(LISTPUT DEFAULTOPTIONS 'REGION NIL)) (LISTPUT DEFAULTOPTIONS 'REGION NIL))
([AND *PFI-TWO-SIDED* (SETQ REG (LISTGET DEFAULTOPTIONS 'REGION)) ([AND *PFI-TWO-SIDED* (SETQ REG (LISTGET DEFAULTOPTIONS 'REGION))
(NOT (LISTGET PRINTOPTIONS 'REGION] (* ; "Shift image to the left 1/4%" so that it is balanced. Default region is assumed to be 1%" on left and 1/2%" on right. No adjustment if user gave region explicitly") (NOT (LISTGET PRINTOPTIONS 'REGION] (* ; "Shift image to the left 1/4%" so that it is balanced. Default region is assumed to be 1%" on left and 1/2%" on right. No adjustment if user gave region explicitly")
(LISTPUT DEFAULTOPTIONS 'REGION (create REGION (LISTPUT DEFAULTOPTIONS 'REGION (create REGION using REG LEFT _
using REG LEFT _ (- (fetch (REGION LEFT) (- (fetch (REGION LEFT)
of REG) of REG)
(FIXR (FTIMES 18 SCALE] (FIXR (FTIMES 18 SCALE]
(SETQ PRINTOPTIONS (APPEND PRINTOPTIONS DEFAULTOPTIONS)) (SETQ PRINTOPTIONS (APPEND PRINTOPTIONS DEFAULTOPTIONS))
(SETQ S (OPENIMAGESTREAM (CONCAT "{LPT}" (OR (CADR (LISTP PRINTER)) (SETQ S (OPENIMAGESTREAM (CONCAT "{LPT}" (OR (CADR (LISTP PRINTER))
PRINTER "")) PRINTER ""))
@@ -1193,28 +1191,28 @@
'NON.PFI.PRINT.BITMAP NIL T) 'NON.PFI.PRINT.BITMAP NIL T)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (9955 12190 (PFI.NEW.LISTFILES1 9965 . 10459) (PFI.ENQUEUE 10461 . 11085) ( (FILEMAP (NIL (9872 12107 (PFI.NEW.LISTFILES1 9882 . 10376) (PFI.ENQUEUE 10378 . 11002) (
\PFI.DO.HARDCOPY 11087 . 11673) (MAYBE.PRETTYFILEINDEX 11675 . 12188)) (12191 34706 (PRETTYFILEINDEX \PFI.DO.HARDCOPY 11004 . 11590) (MAYBE.PRETTYFILEINDEX 11592 . 12105)) (12108 34697 (PRETTYFILEINDEX
12201 . 26234) (PFI.MAKE.LPT.STREAM 26236 . 29287) (PFI.SETUP.TRANSLATIONS 29289 . 30803) ( 12118 . 26151) (PFI.MAKE.LPT.STREAM 26153 . 29278) (PFI.SETUP.TRANSLATIONS 29280 . 30794) (
PFI.OUTCHARFN 30805 . 32779) (PFI.COLLECT.DEFINERS 32781 . 33593) (PFI.AFTER.NEW.PAGE 33595 . 34704)) PFI.OUTCHARFN 30796 . 32770) (PFI.COLLECT.DEFINERS 32772 . 33584) (PFI.AFTER.NEW.PAGE 33586 . 34695))
(34707 41221 (PFI.PRINT.FILECREATED 34717 . 39408) (PFI.PRINT.TO.TAB 39410 . 39855) ( (34698 41212 (PFI.PRINT.FILECREATED 34708 . 39399) (PFI.PRINT.TO.TAB 39401 . 39846) (
PFI.PRINT.ENVIRONMENT 39857 . 41219)) (41222 48737 (PFI.PROCESS.FILE 41232 . 42462) (PFI.PASS.COMMENT PFI.PRINT.ENVIRONMENT 39848 . 41210)) (41213 48728 (PFI.PROCESS.FILE 41223 . 42453) (PFI.PASS.COMMENT
42464 . 43434) (PFI.HANDLE.EXPR 43436 . 44103) (PFI.DEFAULT.HANDLER 44105 . 46158) (PFI.PRETTYPRINT 42455 . 43425) (PFI.HANDLE.EXPR 43427 . 44094) (PFI.DEFAULT.HANDLER 44096 . 46149) (PFI.PRETTYPRINT
46160 . 46495) (PFI.LINES.REMAINING 46497 . 46824) (PFI.MAYBE.NEW.PAGE 46826 . 47660) ( 46151 . 46486) (PFI.LINES.REMAINING 46488 . 46815) (PFI.MAYBE.NEW.PAGE 46817 . 47651) (
PFI.ESTIMATE.SIZE 47662 . 48193) (PFI.ESTIMATE.SIZE1 48195 . 48735)) (48774 58983 (PFI.HANDLE.RPAQQ PFI.ESTIMATE.SIZE 47653 . 48184) (PFI.ESTIMATE.SIZE1 48186 . 48726)) (48765 58974 (PFI.HANDLE.RPAQQ
48784 . 50192) (PFI.HANDLE.DECLARE 50194 . 51133) (PFI.HANDLE.EVAL-WHEN 51135 . 51618) ( 48775 . 50183) (PFI.HANDLE.DECLARE 50185 . 51124) (PFI.HANDLE.EVAL-WHEN 51126 . 51609) (
PFI.HANDLE.DEFDEFINER 51620 . 52910) (PFI.HANDLE.DEFINEQ 52912 . 53156) (PFI.PRINT.LAMBDA 53158 . PFI.HANDLE.DEFDEFINER 51611 . 52901) (PFI.HANDLE.DEFINEQ 52903 . 53147) (PFI.PRINT.LAMBDA 53149 .
53496) (PFI.PRINT.LAMBDA.BODY 53498 . 53833) (PFI.HANDLE.PUTDEF 53835 . 54332) (PFI.HANDLE.PUTPROPS 53487) (PFI.PRINT.LAMBDA.BODY 53489 . 53824) (PFI.HANDLE.PUTDEF 53826 . 54323) (PFI.HANDLE.PUTPROPS
54334 . 54949) (PFI.HANDLE./DECLAREDATATYPE 54951 . 55498) (PFI.HANDLE.* 55500 . 56762) ( 54325 . 54940) (PFI.HANDLE./DECLAREDATATYPE 54942 . 55489) (PFI.HANDLE.* 55491 . 56753) (
PFI.PRINT.COMMENTS 56764 . 58386) (PFI.HANDLE.FILEMAP 58388 . 58676) (PFI.HANDLE.PACKAGE 58678 . 58981 PFI.PRINT.COMMENTS 56755 . 58377) (PFI.HANDLE.FILEMAP 58379 . 58667) (PFI.HANDLE.PACKAGE 58669 . 58972
)) (59011 60003 (PFI.PREVIEW.DECLARE 59021 . 59683) (PFI.PREVIEW.DEFINEQ 59685 . 60001)) (60039 71027 )) (59002 59994 (PFI.PREVIEW.DECLARE 59012 . 59674) (PFI.PREVIEW.DEFINEQ 59676 . 59992)) (60030 71018
(PFI.PRINT.INDEX 60049 . 60900) (PFI.CONDENSE.INDEX 60902 . 62709) (PFI.SORT.INDICES 62711 . 63850) ( (PFI.PRINT.INDEX 60040 . 60891) (PFI.CONDENSE.INDEX 60893 . 62700) (PFI.SORT.INDICES 62702 . 63841) (
PFI.COMPUTE.INDEX.SHAPE 63852 . 65316) (PFI.PRINT.INDICES 65318 . 69860) (PFI.CENTER.PRINT 69862 . PFI.COMPUTE.INDEX.SHAPE 63843 . 65307) (PFI.PRINT.INDICES 65309 . 69851) (PFI.CENTER.PRINT 69853 .
70432) (PFI.INDEX.BREAK 70434 . 70892) (PFI.LOOKUP.NAME 70894 . 71025)) (71028 72259 (PFI.ADD.TO.INDEX 70423) (PFI.INDEX.BREAK 70425 . 70883) (PFI.LOOKUP.NAME 70885 . 71016)) (71019 72250 (PFI.ADD.TO.INDEX
71038 . 71548) (PFI.VARNAME 71550 . 71960) (PFI.CONSTANTNAMES 71962 . 72257)) (72294 80607 ( 71029 . 71539) (PFI.VARNAME 71541 . 71951) (PFI.CONSTANTNAMES 71953 . 72248)) (72285 80598 (
MULTIFILEINDEX 72304 . 73100) (MULTIFILEINDEX1 73102 . 74558) (PFI.PRINT.MULTI.INDEX 74560 . 79663) ( MULTIFILEINDEX 72295 . 73091) (MULTIFILEINDEX1 73093 . 74549) (PFI.PRINT.MULTI.INDEX 74551 . 79654) (
PFI.CHOOSE.BEST 79665 . 79892) (PFI.MERGE.INDICES 79894 . 80605)) (80664 83733 (PFI.MAYBE.SEE.PRETTY PFI.CHOOSE.BEST 79656 . 79883) (PFI.MERGE.INDICES 79885 . 80596)) (80655 83724 (PFI.MAYBE.SEE.PRETTY
80674 . 82457) (PFI.MAYBE.PP.DEFINITION 82459 . 83731)) (83803 91913 (PFI.PRINT.BITMAP 83813 . 91911)) 80665 . 82448) (PFI.MAYBE.PP.DEFINITION 82450 . 83722)) (83794 91904 (PFI.PRINT.BITMAP 83804 . 91902))
(94628 97742 (PUTPROPS.PRETTYPRINT 94638 . 96049) (RPAQX.PRETTYPRINT 96051 . 96776) ( (94619 97733 (PUTPROPS.PRETTYPRINT 94629 . 96040) (RPAQX.PRETTYPRINT 96042 . 96767) (
COURIERPROGRAM.PRETTYPRINT 96778 . 97478) (MAYBE.PRETTYPRINT.BOLD 97480 . 97740))))) COURIERPROGRAM.PRETTYPRINT 96769 . 97469) (MAYBE.PRETTYPRINT.BOLD 97471 . 97731)))))
STOP STOP

BIN
lispusers/PRETTYFILEINDEX.LCOM
View File

Binary file not shown.

98
sources/INTERPRESS
View File

@@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "12-Dec-2025 19:34:04" {WMEDLEY}<sources>INTERPRESS.;103 215348 (FILECREATED "24-Dec-2025 11:24:31" {WMEDLEY}<sources>INTERPRESS.;104 215489
:EDIT-BY rmk :EDIT-BY rmk
:PREVIOUS-DATE "12-Dec-2025 19:22:53" {WMEDLEY}<sources>INTERPRESS.;102) :CHANGES-TO (ALISTS (PRINTFILETYPES INTERPRESS))
:PREVIOUS-DATE "12-Dec-2025 19:34:04" {WMEDLEY}<sources>INTERPRESS.;103)
(PRETTYCOMPRINT INTERPRESSCOMS) (PRETTYCOMPRINT INTERPRESSCOMS)
@@ -3509,12 +3511,12 @@
(PROPERTIES NSPRINTER.PROPERTIES) (PROPERTIES NSPRINTER.PROPERTIES)
(SEND NSPRINT))) (SEND NSPRINT)))
(ADDTOVAR PRINTFILETYPES (ADDTOVAR PRINTFILETYPES (INTERPRESS (TEST INTERPRESSFILEP)
(INTERPRESS (TEST INTERPRESSFILEP) (EXTENSION (IP IPR INTERPRESS))
(EXTENSION (IP IPR INTERPRESS)) (CONVERSION (TEXT TEXTTOIMAGEFILE))
(CONVERSION (TEXT TEXTTOIMAGEFILE TEDIT TEDIT.IMAGEFILE)) (BITMAPSCALE INTERPRESS.BITMAPSCALE)
(BITMAPSCALE INTERPRESS.BITMAPSCALE) (BITMAPFILE (INTERPRESSBITMAP IMAGEFILE BITMAP SCALEFACTOR REGION
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) ROTATION TITLE))))
(ADDTOVAR IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE) (ADDTOVAR IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE)
(CREATECHARSET \CREATECHARSET.HCPYMODE))) (CREATECHARSET \CREATECHARSET.HCPYMODE)))
@@ -3828,44 +3830,44 @@
(LOADDEF 'BRUSH 'RECORDS 'IMAGEIO) (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (16593 22245 (APPENDBYTE.IP 16603 . 16739) (APPENDIDENTIFIER.IP 16741 . 17263) ( (FILEMAP (NIL (16649 22301 (APPENDBYTE.IP 16659 . 16795) (APPENDIDENTIFIER.IP 16797 . 17319) (
APPENDINT.IP 17265 . 17716) (APPENDINTEGER.IP 17718 . 18290) (APPENDLARGEVECTOR.IP 18292 . 19257) ( APPENDINT.IP 17321 . 17772) (APPENDINTEGER.IP 17774 . 18346) (APPENDLARGEVECTOR.IP 18348 . 19313) (
APPENDNUMBER.IP 19259 . 19728) (APPENDOP.IP 19730 . 20376) (APPENDRATIONAL.IP 20378 . 20871) ( APPENDNUMBER.IP 19315 . 19784) (APPENDOP.IP 19786 . 20432) (APPENDRATIONAL.IP 20434 . 20927) (
APPENDSEQUENCEDESCRIPTOR.IP 20873 . 22068) (BYTESININT.IP 22070 . 22243)) (22281 62088 (ARCTO.IP 22291 APPENDSEQUENCEDESCRIPTOR.IP 20929 . 22124) (BYTESININT.IP 22126 . 22299)) (22337 62144 (ARCTO.IP 22347
. 23572) (BEGINMASTER.IP 23574 . 23847) (BEGINPAGE.IP 23849 . 24205) (BEGINPREAMBLE.IP 24207 . 24578) . 23628) (BEGINMASTER.IP 23630 . 23903) (BEGINPAGE.IP 23905 . 24261) (BEGINPREAMBLE.IP 24263 . 24634)
(CLIPRECTANGLE.IP 24580 . 25070) (CONCAT.IP 25072 . 25337) (CONCATT.IP 25339 . 25606) (ENDMASTER.IP (CLIPRECTANGLE.IP 24636 . 25126) (CONCAT.IP 25128 . 25393) (CONCATT.IP 25395 . 25662) (ENDMASTER.IP
25608 . 26052) (ENDPAGE.IP 26054 . 26431) (ENDPREAMBLE.IP 26433 . 27232) (FGET.IP 27234 . 27537) ( 25664 . 26108) (ENDPAGE.IP 26110 . 26487) (ENDPREAMBLE.IP 26489 . 27288) (FGET.IP 27290 . 27593) (
FILLRECTANGLE.IP 27539 . 29867) (FILLTRAJECTORY.IP 29869 . 30504) (FILLNGON.IP 30506 . 32783) (FSET.IP FILLRECTANGLE.IP 27595 . 29923) (FILLTRAJECTORY.IP 29925 . 30560) (FILLNGON.IP 30562 . 32839) (FSET.IP
32785 . 33088) (GETFRAMEVAR.IP 33090 . 33408) (INITIALIZEMASTER.IP 33410 . 34011) (INITIALIZECOLOR.IP 32841 . 33144) (GETFRAMEVAR.IP 33146 . 33464) (INITIALIZEMASTER.IP 33466 . 34067) (INITIALIZECOLOR.IP
34013 . 35334) (ISET.IP 35336 . 35707) (GETCP.IP 35709 . 36018) (LINETO.IP 36020 . 36625) ( 34069 . 35390) (ISET.IP 35392 . 35763) (GETCP.IP 35765 . 36074) (LINETO.IP 36076 . 36681) (
MASKSTROKE.IP 36627 . 36900) (MOVETO.IP 36902 . 37239) (ROTATE.IP 37241 . 37543) (SCALE.IP 37545 . MASKSTROKE.IP 36683 . 36956) (MOVETO.IP 36958 . 37295) (ROTATE.IP 37297 . 37599) (SCALE.IP 37601 .
37848) (SCALE2.IP 37850 . 38187) (SETCOLOR.IP 38189 . 40418) (SETRGB.IP 40420 . 41476) (SETCOLORLV.IP 37904) (SCALE2.IP 37906 . 38243) (SETCOLOR.IP 38245 . 40474) (SETRGB.IP 40476 . 41532) (SETCOLORLV.IP
41478 . 46091) (SETCOLOR16.IP 46093 . 49199) (SETFONT.IP 49201 . 50022) (SETSPACE.IP 50024 . 50336) ( 41534 . 46147) (SETCOLOR16.IP 46149 . 49255) (SETFONT.IP 49257 . 50078) (SETSPACE.IP 50080 . 50392) (
SETXREL.IP 50338 . 51522) (SETX.IP 51524 . 53041) (SETXY.IP 53043 . 54215) (SETXYREL.IP 54217 . 55523) SETXREL.IP 50394 . 51578) (SETX.IP 51580 . 53097) (SETXY.IP 53099 . 54271) (SETXYREL.IP 54273 . 55579)
(SETY.IP 55525 . 56834) (SETYREL.IP 56836 . 57736) (SHOW.IP 57738 . 60998) (TRAJECTORY.IP 61000 . (SETY.IP 55581 . 56890) (SETYREL.IP 56892 . 57792) (SHOW.IP 57794 . 61054) (TRAJECTORY.IP 61056 .
61398) (TRANS.IP 61400 . 61739) (TRANSLATE.IP 61741 . 62086)) (62119 68209 (\CHANGE-VISIBLE-REGION.IP 61454) (TRANS.IP 61456 . 61795) (TRANSLATE.IP 61797 . 62142)) (62175 68265 (\CHANGE-VISIBLE-REGION.IP
62129 . 65790) (\PAPERSIZE.IP 65792 . 66613) (HEADINGOP.IP 66615 . 68207)) (68210 172730 ( 62185 . 65846) (\PAPERSIZE.IP 65848 . 66669) (HEADINGOP.IP 66671 . 68263)) (68266 172786 (
DEFINEFONT.IP 68220 . 69194) (FONTNAME.IP 69196 . 70126) (INTERPRESS.BITMAPSCALE 70128 . 70921) ( DEFINEFONT.IP 68276 . 69250) (FONTNAME.IP 69252 . 70182) (INTERPRESS.BITMAPSCALE 70184 . 70977) (
INTERPRESS.OUTCHARFN 70923 . 77430) (NEWLINE.IP 77432 . 78164) (NEWPAGE.IP 78166 . 83141) (NEWPAGE?.IP INTERPRESS.OUTCHARFN 70979 . 77486) (NEWLINE.IP 77488 . 78220) (NEWPAGE.IP 78222 . 83197) (NEWPAGE?.IP
83143 . 83622) (OPENIPSTREAM 83624 . 91975) (SETUPFONTS.IP 91977 . 92969) (SHOWBITMAP.IP 92971 . 83199 . 83678) (OPENIPSTREAM 83680 . 92031) (SETUPFONTS.IP 92033 . 93025) (SHOWBITMAP.IP 93027 .
97512) (\BITMAPSIZE.IP 97514 . 98291) (SHOWBITMAP1.IP 98293 . 102665) (SHOWSHADE.IP 102667 . 103620) ( 97568) (\BITMAPSIZE.IP 97570 . 98347) (SHOWBITMAP1.IP 98349 . 102721) (SHOWSHADE.IP 102723 . 103676) (
\BITBLT.IP 103622 . 107826) (\SCALEDBITBLT.IP 107828 . 111473) (\BLTSHADE.IP 111475 . 112933) ( \BITBLT.IP 103678 . 107882) (\SCALEDBITBLT.IP 107884 . 111529) (\BLTSHADE.IP 111531 . 112989) (
\CHARWIDTH.IP 112935 . 113385) (\CLOSEIPSTREAM 113387 . 113714) (\DRAWARC.IP 113716 . 114163) ( \CHARWIDTH.IP 112991 . 113441) (\CLOSEIPSTREAM 113443 . 113770) (\DRAWARC.IP 113772 . 114219) (
\DRAWCURVE.IP 114165 . 116602) (\DRAWPOINT.IP 116604 . 117641) (\DSPCOLOR.IP 117643 . 118594) ( \DRAWCURVE.IP 114221 . 116658) (\DRAWPOINT.IP 116660 . 117697) (\DSPCOLOR.IP 117699 . 118650) (
ENSURE.RGB 118596 . 119260) (\IPCURVE2 119262 . 132516) (\CLIPCURVELINE.IP 132518 . 137216) ( ENSURE.RGB 118652 . 119316) (\IPCURVE2 119318 . 132572) (\CLIPCURVELINE.IP 132574 . 137272) (
\DRAWLINE.IP 137218 . 140950) (\CLIPLINE 140952 . 145652) (\DSPBOTTOMMARGIN.IP 145654 . 146070) ( \DRAWLINE.IP 137274 . 141006) (\CLIPLINE 141008 . 145708) (\DSPBOTTOMMARGIN.IP 145710 . 146126) (
\DSPFONT.IP 146072 . 150832) (\DSPLEFTMARGIN.IP 150834 . 151294) (\DSPLINEFEED.IP 151296 . 151963) ( \DSPFONT.IP 146128 . 150888) (\DSPLEFTMARGIN.IP 150890 . 151350) (\DSPLINEFEED.IP 151352 . 152019) (
\DSPRIGHTMARGIN.IP 151965 . 152762) (\DSPSPACEFACTOR.IP 152764 . 153893) (\DSPTOPMARGIN.IP 153895 . \DSPRIGHTMARGIN.IP 152021 . 152818) (\DSPSPACEFACTOR.IP 152820 . 153949) (\DSPTOPMARGIN.IP 153951 .
154331) (\DSPXPOSITION.IP 154333 . 155320) (\DSPROTATE.IP 155322 . 155500) (\PUSHSTATE.IP 155502 . 154387) (\DSPXPOSITION.IP 154389 . 155376) (\DSPROTATE.IP 155378 . 155556) (\PUSHSTATE.IP 155558 .
156394) (\POPSTATE.IP 156396 . 157031) (\DEFAULTSTATE.IP 157033 . 157385) (\DSPTRANSLATE.IP 157387 . 156450) (\POPSTATE.IP 156452 . 157087) (\DEFAULTSTATE.IP 157089 . 157441) (\DSPTRANSLATE.IP 157443 .
157568) (\DSPSCALE2.IP 157570 . 157745) (\DSPYPOSITION.IP 157747 . 158048) (FILLCIRCLE.IP 158050 . 157624) (\DSPSCALE2.IP 157626 . 157801) (\DSPYPOSITION.IP 157803 . 158104) (FILLCIRCLE.IP 158106 .
159133) (\FILLPOLYGON.IP 159135 . 160466) (\DRAWPOLYGON.IP 160468 . 166598) (\FIXLINELENGTH.IP 166600 159189) (\FILLPOLYGON.IP 159191 . 160522) (\DRAWPOLYGON.IP 160524 . 166654) (\FIXLINELENGTH.IP 166656
. 167814) (\MOVETO.IP 167816 . 168180) (\SETBRUSH.IP 168182 . 170348) (\STRINGWIDTH.IP 170350 . . 167870) (\MOVETO.IP 167872 . 168236) (\SETBRUSH.IP 168238 . 170404) (\STRINGWIDTH.IP 170406 .
170753) (\DSPCLIPPINGREGION.IP 170755 . 171931) (\DSPOPERATION.IP 171933 . 172728)) (172731 174630 ( 170809) (\DSPCLIPPINGREGION.IP 170811 . 171987) (\DSPOPERATION.IP 171989 . 172784)) (172787 174686 (
INTERPRESSFILEP 172741 . 174174) (INTERPRESS.TEDIT 174176 . 174628)) (174821 175576 (IP-TOS 174831 . INTERPRESSFILEP 172797 . 174230) (INTERPRESS.TEDIT 174232 . 174684)) (174877 175632 (IP-TOS 174887 .
175091) (POP-IP-STACK 175093 . 175388) (PUSH-IP-STACK 175390 . 175574)) (175637 176561 ( 175147) (POP-IP-STACK 175149 . 175444) (PUSH-IP-STACK 175446 . 175630)) (175693 176617 (
\CHANGECHARSET.IP 175647 . 176559)) (176562 180178 (\INTERPRESSINIT 176572 . 180176)) (193262 195686 ( \CHANGECHARSET.IP 175703 . 176615)) (176618 180234 (\INTERPRESSINIT 176628 . 180232)) (193318 195742 (
INTERPRESSBITMAP 193272 . 195684)) (197966 200587 (\CREATEINTERPRESSFONT 197976 . 199704) ( INTERPRESSBITMAP 193328 . 195740)) (198107 200728 (\CREATEINTERPRESSFONT 198117 . 199845) (
\CREATECHARSET.IP 199706 . 200585)) (200588 212761 (IPFONT.FILEP 200598 . 200782) (IPFONT.GETCHARSET \CREATECHARSET.IP 199847 . 200726)) (200729 212902 (IPFONT.FILEP 200739 . 200923) (IPFONT.GETCHARSET
200784 . 210882) (\FACECODE 210884 . 211474) (\FAMILYCODE 211476 . 212759))))) 200925 . 211023) (\FACECODE 211025 . 211615) (\FAMILYCODE 211617 . 212900)))))
STOP STOP

BIN
sources/INTERPRESS.LCOM
View File

Binary file not shown.