From a60fed0cc11f4b0d53e09ecdbbf71190d7b9fbef Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 28 Dec 2025 21:35:05 -0800 Subject: [PATCH] minor compatibility changes for new architecture --- library/FILEBROWSER | 265 ++++++++++++++------------------- library/FILEBROWSER.LCOM | Bin 87971 -> 87217 bytes library/POSTSCRIPTSTREAM | 90 +++++------ library/POSTSCRIPTSTREAM.LCOM | Bin 92318 -> 92397 bytes lispusers/PRETTYFILEINDEX | 86 ++++++----- lispusers/PRETTYFILEINDEX.LCOM | Bin 41896 -> 41778 bytes sources/INTERPRESS | 98 ++++++------ sources/INTERPRESS.LCOM | Bin 56727 -> 56760 bytes 8 files changed, 254 insertions(+), 285 deletions(-) diff --git a/library/FILEBROWSER b/library/FILEBROWSER index aee83ad1..ef852820 100644 --- a/library/FILEBROWSER +++ b/library/FILEBROWSER @@ -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}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}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 diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM index 7edc09c94f1b79c50e377db4aa6fa39265c732cb..cea20c863a82dbd1547568af9620d82e6faf74fe 100644 GIT binary patch delta 1397 zcma)6U2oe|7`9VN!RsImQQB>+yt9Us2*veh7Kbs-O->qjiH~udq-iTf?Gi0fw`OD$ zAHu8>5|>CIBgP$qT@?wjG%XX_AU9kf?TS0#4k08i`3K|pq#YIA1->|b{rJ4k^M0Lk z=bQ2V_V`E6mYU49E+=JC)YLG zE{pBD;NpM}yw0Wve7;gF!eK5!5C~0k?Pja#JyAxI`2-gaD6$SRT$BS|eqv%r5;2cv z0&+^xNI5bnXS&JxI(WTn8$>sgEg04UDkohG@w`>u&)^^d{|k0nPbIDHoBP!yrBpI< zng{NP>VHKQZ}2<&)2UWG4W|500xWOy4iF2X3<9@ZWy!FOJVR!8PKFb@S zFZ;|N1pU^HfS@;K6DDf;*Jup59Yede>!gJ91Fp4s^I zSb*(K&|lvNC;@+=-uvJWcQKBzO~T>NRcF|UU#PyAj14~=k$xJuG@?WD3iTg3IJz6g zv2FUVZJs>&T|2US*8jMA#%$x~Myyj*iiS>?<=shRN;-zaV|!1v!z{%bk)aXVxqu_> zK$l@AgQXE07E3thFV;?N#V8krKNyvP#Bh-^<0wsuM1-S@6d8F(cVP)R7v#b=BLjnX{wh;ZnhBkTSf_ilG34stO_wy|MR62FKO~9 z;)9_R@+2GK@mLPNT{_De97$CIm!O~$gM=H5ET~EfY$JQ=fL$oNWat-2FfvdzRn&-= zg_itF%bz^W#X*x({-4Xa*F+WgW_Pni?gf>E8MiQU9PEG#uUAauf}7w-2_)ceyc zZgw`Wz%7GbBZ{W`)=Kqx4rEaQo(Cx{lb1hOS!cOHZ1u;%Yy#rme6Rb~jTSleq(7r; iE{jVg!^*+!uXOhOy}xw!;l#bQ6YRs;|GWSG>3;yC30@=s delta 2259 zcmeHIPi!Jp7-y(;U0k}fsYno;Z%20*k}ZMxLkk+y0S1{0^CmMxyZw{kv`h;rg%zkx zBQ6^gk0u&c*P9zX?ZHUPHpWEd;$h=$^`d8Eq9?t0Uf;Ya+156mJ$PW=o9}(!`~7|& z^L}st-sopvjJ~gS;?sF!Z<>iP97Op98%gkS8iMqCefvhGYL=j00~+4SNy)b}Qcg^& zXi*c@@ajuU2x#V5afC@kVhN6?!PQ=Cn8W%uwAafx#h>v04*P*h3QMO9x?#E?74MIkL_ghEaSmIp-xW)>8Lo1Ri7MF%Dd zk^)feld$ zm575sk>sP`w>^Zs)REMW2PAQ&rym6lyaTI<0Fy^?Y|xt;HfB&M`UmgXjrqvREBdT- z=l&zFihTDy$bXM4mLOqquhfm-Vo1u>khv!HNCWySqf3-Mu(4HeW z9l?3<3i6e05f>~nMHuAr2uQ(InY7F|AaCSRmJkpql6)&$43Lxo@}WT0iKfPifssR> zy*tSp%%K38^!&IdfkE$Adl47-=R@vM3v+-boyE!hNAr$gEW({}aQT_;-9?`oiyvDf zUmfrqdn`6Q=se3oDwhxxCAS1T6NlARJQw9O1AJr_Qb%j3Wo?XY>qJ-wKgpIR+ z!=g+!V7d5XCKh3>JGy-PNp}$VINSYXIej_C0bQ!sOl)Etwi){7<;6y&RjF;lO~JA@ zH?XmpF03qE1SY})O+$2+!GpW|?#deF?*F#(UB3fCt&o&-F|R?;MQ4m=3$Sy7(lA@C zJ=$vfk(s7YJ}<~=?2`)>bGHc_*vsLKoyz)Fb?+MNG))|;*IH1iZPXjvMypb5RDy6WDrAI9zB$Zy*`cP+*0VI*xgF2d`ctM3kGcLRI7VO zQpxVSm0GF3YYWAVN;WW4leE*m?}kv6>(2KVsh6qHm!lr)&XxcFj{nNv@mGxc`uV>B DoK9POSTSCRIPTSTREAM.;60 258351 +(FILECREATED "24-Dec-2025 11:36:54" {WMEDLEY}POSTSCRIPTSTREAM.;61 258642 :EDIT-BY rmk + :CHANGES-TO (ALISTS (PRINTFILETYPES POSTSCRIPT)) + (FNS POSTSCRIPT.FONTSAVAILABLE) + :PREVIOUS-DATE "12-Dec-2025 19:16:22" {WMEDLEY}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 diff --git a/library/POSTSCRIPTSTREAM.LCOM b/library/POSTSCRIPTSTREAM.LCOM index 66a4319df1220c8baa4a3213bc0477b2c6f3d5a0..5e463a6104da292292278438bceeccef3b22951f 100644 GIT binary patch delta 269 zcmbPtk@f9G)(PPvMkcy0smZ!V21cd|hK5$gW>%&q6SK`34JR(voxVGbQF7vS5A2Gn z)s+ktj7%-eOpFw)TwOdvbe$p`kbi)Jq48uLYc)o*$#4G4vzr+xXek&QHdk72ue4^=*P4DXl~GgO x$uq>)F~H5!$5latE5JWEB-lB~Gay9I!!gLk**_pMT*1@V(cN`BPa5MSCIFt*N-zKb delta 249 zcmaERk#*ih)(PPvhDN$BsmZ!V21cd|hL%>w7FNdQ6SK`34JIzuWzWkm$;ix0pZL-P zn>xdZ)#_>n3Pz?D#-@e}R<16dA-YbH3Priu3S3qJL9St*{-MFTE{-9t3Y(uWUbNuf z#=*eA=)lD2z{vmvjFS&rt(P@d@OAZdat%^2Hdk=-_X}|WYIAlC2=Wh5Ff^ImZ>`2? zKGmO5p54q)K}*5dsQHfd_B+;$`dX3-As`DOq+W=>o~N&)yQ`b0kLz^qG)7HcE+@|r WU&jEDfP%(!$23OK?a^tBlb8VPl|zXD diff --git a/lispusers/PRETTYFILEINDEX b/lispusers/PRETTYFILEINDEX index eb21bf0b..2ce14aa0 100644 --- a/lispusers/PRETTYFILEINDEX +++ b/lispusers/PRETTYFILEINDEX @@ -1,14 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "21-Sep-2025 09:50:47"  -{DSK}kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;13 100936 +(FILECREATED "24-Dec-2025 11:15:32" {WMEDLEY}PRETTYFILEINDEX.;14 100927 :EDIT-BY rmk - :CHANGES-TO (VARS PRETTYFILEINDEXCOMS) + :CHANGES-TO (FNS PFI.MAKE.LPT.STREAM) - :PREVIOUS-DATE "10-May-2023 09:12:17" -{DSK}kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;12) + :PREVIOUS-DATE "21-Sep-2025 09:50:47" {WMEDLEY}PRETTYFILEINDEX.;13) (PRETTYCOMPRINT PRETTYFILEINDEXCOMS) @@ -381,12 +379,12 @@ PRINTOPTIONS))))])]) (PFI.MAKE.LPT.STREAM - [LAMBDA (PRINTOPTIONS) (* ; "Edited 12-Nov-93 09:53 by rmk:") - (* ; "Edited 19-Aug-92 13:57 by jds") - (LET* ((PRINTER (OR (LISTGET PRINTOPTIONS 'SERVER) + [LAMBDA (PRINTOPTIONS) (* ; "Edited 17-Dec-2025 01:05 by rmk") + (* ; "Edited 12-Nov-93 09:53 by rmk:") + (* ; "Edited 19-Aug-92 13:57 by jds") + (LET* ([PRINTER (OR (LISTGET PRINTOPTIONS 'SERVER) (LISTGET PRINTOPTIONS 'HOST) - (CAR (LISTP DEFAULTPRINTINGHOST)) - DEFAULTPRINTINGHOST)) + (CAR (DEFAULTPRINTERS] [IMAGETYPE (COND [(AND PRINTER (CADDR (LISTP PRINTER] (T (CAR (MKLIST (PRINTERPROP (PRINTERTYPE PRINTER) @@ -394,13 +392,13 @@ (DEFAULTOPTIONS *PFI-PRINTOPTIONS*) 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 SCALE (DSPSCALE NIL 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)) (LISTPUT (SETQ PRINTOPTIONS (APPEND PRINTOPTIONS)) @@ -411,19 +409,19 @@ 'REGION (SCALEREGION SCALE REG))) - (* ;; "Set up the margins (REGION) for the page correctly.") + (* ;; "Set up the margins (REGION) for the page correctly.") [COND ((AND (LISTGET PRINTOPTIONS 'LANDSCAPE) - (LISTGET DEFAULTOPTIONS 'REGION)) (* ; - "Don't use default region when caller specified landscape (tee hee)") + (LISTGET DEFAULTOPTIONS 'REGION)) (* ; + "Don't use default region when caller specified landscape (tee hee)") (LISTPUT DEFAULTOPTIONS 'REGION NIL)) ([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") - (LISTPUT DEFAULTOPTIONS 'REGION (create REGION - using REG LEFT _ (- (fetch (REGION LEFT) - of REG) - (FIXR (FTIMES 18 SCALE] + (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 using REG LEFT _ + (- (fetch (REGION LEFT) + of REG) + (FIXR (FTIMES 18 SCALE] (SETQ PRINTOPTIONS (APPEND PRINTOPTIONS DEFAULTOPTIONS)) (SETQ S (OPENIMAGESTREAM (CONCAT "{LPT}" (OR (CADR (LISTP PRINTER)) PRINTER "")) @@ -1193,28 +1191,28 @@ 'NON.PFI.PRINT.BITMAP NIL T) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (9955 12190 (PFI.NEW.LISTFILES1 9965 . 10459) (PFI.ENQUEUE 10461 . 11085) ( -\PFI.DO.HARDCOPY 11087 . 11673) (MAYBE.PRETTYFILEINDEX 11675 . 12188)) (12191 34706 (PRETTYFILEINDEX -12201 . 26234) (PFI.MAKE.LPT.STREAM 26236 . 29287) (PFI.SETUP.TRANSLATIONS 29289 . 30803) ( -PFI.OUTCHARFN 30805 . 32779) (PFI.COLLECT.DEFINERS 32781 . 33593) (PFI.AFTER.NEW.PAGE 33595 . 34704)) -(34707 41221 (PFI.PRINT.FILECREATED 34717 . 39408) (PFI.PRINT.TO.TAB 39410 . 39855) ( -PFI.PRINT.ENVIRONMENT 39857 . 41219)) (41222 48737 (PFI.PROCESS.FILE 41232 . 42462) (PFI.PASS.COMMENT -42464 . 43434) (PFI.HANDLE.EXPR 43436 . 44103) (PFI.DEFAULT.HANDLER 44105 . 46158) (PFI.PRETTYPRINT -46160 . 46495) (PFI.LINES.REMAINING 46497 . 46824) (PFI.MAYBE.NEW.PAGE 46826 . 47660) ( -PFI.ESTIMATE.SIZE 47662 . 48193) (PFI.ESTIMATE.SIZE1 48195 . 48735)) (48774 58983 (PFI.HANDLE.RPAQQ -48784 . 50192) (PFI.HANDLE.DECLARE 50194 . 51133) (PFI.HANDLE.EVAL-WHEN 51135 . 51618) ( -PFI.HANDLE.DEFDEFINER 51620 . 52910) (PFI.HANDLE.DEFINEQ 52912 . 53156) (PFI.PRINT.LAMBDA 53158 . -53496) (PFI.PRINT.LAMBDA.BODY 53498 . 53833) (PFI.HANDLE.PUTDEF 53835 . 54332) (PFI.HANDLE.PUTPROPS -54334 . 54949) (PFI.HANDLE./DECLAREDATATYPE 54951 . 55498) (PFI.HANDLE.* 55500 . 56762) ( -PFI.PRINT.COMMENTS 56764 . 58386) (PFI.HANDLE.FILEMAP 58388 . 58676) (PFI.HANDLE.PACKAGE 58678 . 58981 -)) (59011 60003 (PFI.PREVIEW.DECLARE 59021 . 59683) (PFI.PREVIEW.DEFINEQ 59685 . 60001)) (60039 71027 -(PFI.PRINT.INDEX 60049 . 60900) (PFI.CONDENSE.INDEX 60902 . 62709) (PFI.SORT.INDICES 62711 . 63850) ( -PFI.COMPUTE.INDEX.SHAPE 63852 . 65316) (PFI.PRINT.INDICES 65318 . 69860) (PFI.CENTER.PRINT 69862 . -70432) (PFI.INDEX.BREAK 70434 . 70892) (PFI.LOOKUP.NAME 70894 . 71025)) (71028 72259 (PFI.ADD.TO.INDEX - 71038 . 71548) (PFI.VARNAME 71550 . 71960) (PFI.CONSTANTNAMES 71962 . 72257)) (72294 80607 ( -MULTIFILEINDEX 72304 . 73100) (MULTIFILEINDEX1 73102 . 74558) (PFI.PRINT.MULTI.INDEX 74560 . 79663) ( -PFI.CHOOSE.BEST 79665 . 79892) (PFI.MERGE.INDICES 79894 . 80605)) (80664 83733 (PFI.MAYBE.SEE.PRETTY -80674 . 82457) (PFI.MAYBE.PP.DEFINITION 82459 . 83731)) (83803 91913 (PFI.PRINT.BITMAP 83813 . 91911)) - (94628 97742 (PUTPROPS.PRETTYPRINT 94638 . 96049) (RPAQX.PRETTYPRINT 96051 . 96776) ( -COURIERPROGRAM.PRETTYPRINT 96778 . 97478) (MAYBE.PRETTYPRINT.BOLD 97480 . 97740))))) + (FILEMAP (NIL (9872 12107 (PFI.NEW.LISTFILES1 9882 . 10376) (PFI.ENQUEUE 10378 . 11002) ( +\PFI.DO.HARDCOPY 11004 . 11590) (MAYBE.PRETTYFILEINDEX 11592 . 12105)) (12108 34697 (PRETTYFILEINDEX +12118 . 26151) (PFI.MAKE.LPT.STREAM 26153 . 29278) (PFI.SETUP.TRANSLATIONS 29280 . 30794) ( +PFI.OUTCHARFN 30796 . 32770) (PFI.COLLECT.DEFINERS 32772 . 33584) (PFI.AFTER.NEW.PAGE 33586 . 34695)) +(34698 41212 (PFI.PRINT.FILECREATED 34708 . 39399) (PFI.PRINT.TO.TAB 39401 . 39846) ( +PFI.PRINT.ENVIRONMENT 39848 . 41210)) (41213 48728 (PFI.PROCESS.FILE 41223 . 42453) (PFI.PASS.COMMENT +42455 . 43425) (PFI.HANDLE.EXPR 43427 . 44094) (PFI.DEFAULT.HANDLER 44096 . 46149) (PFI.PRETTYPRINT +46151 . 46486) (PFI.LINES.REMAINING 46488 . 46815) (PFI.MAYBE.NEW.PAGE 46817 . 47651) ( +PFI.ESTIMATE.SIZE 47653 . 48184) (PFI.ESTIMATE.SIZE1 48186 . 48726)) (48765 58974 (PFI.HANDLE.RPAQQ +48775 . 50183) (PFI.HANDLE.DECLARE 50185 . 51124) (PFI.HANDLE.EVAL-WHEN 51126 . 51609) ( +PFI.HANDLE.DEFDEFINER 51611 . 52901) (PFI.HANDLE.DEFINEQ 52903 . 53147) (PFI.PRINT.LAMBDA 53149 . +53487) (PFI.PRINT.LAMBDA.BODY 53489 . 53824) (PFI.HANDLE.PUTDEF 53826 . 54323) (PFI.HANDLE.PUTPROPS +54325 . 54940) (PFI.HANDLE./DECLAREDATATYPE 54942 . 55489) (PFI.HANDLE.* 55491 . 56753) ( +PFI.PRINT.COMMENTS 56755 . 58377) (PFI.HANDLE.FILEMAP 58379 . 58667) (PFI.HANDLE.PACKAGE 58669 . 58972 +)) (59002 59994 (PFI.PREVIEW.DECLARE 59012 . 59674) (PFI.PREVIEW.DEFINEQ 59676 . 59992)) (60030 71018 +(PFI.PRINT.INDEX 60040 . 60891) (PFI.CONDENSE.INDEX 60893 . 62700) (PFI.SORT.INDICES 62702 . 63841) ( +PFI.COMPUTE.INDEX.SHAPE 63843 . 65307) (PFI.PRINT.INDICES 65309 . 69851) (PFI.CENTER.PRINT 69853 . +70423) (PFI.INDEX.BREAK 70425 . 70883) (PFI.LOOKUP.NAME 70885 . 71016)) (71019 72250 (PFI.ADD.TO.INDEX + 71029 . 71539) (PFI.VARNAME 71541 . 71951) (PFI.CONSTANTNAMES 71953 . 72248)) (72285 80598 ( +MULTIFILEINDEX 72295 . 73091) (MULTIFILEINDEX1 73093 . 74549) (PFI.PRINT.MULTI.INDEX 74551 . 79654) ( +PFI.CHOOSE.BEST 79656 . 79883) (PFI.MERGE.INDICES 79885 . 80596)) (80655 83724 (PFI.MAYBE.SEE.PRETTY +80665 . 82448) (PFI.MAYBE.PP.DEFINITION 82450 . 83722)) (83794 91904 (PFI.PRINT.BITMAP 83804 . 91902)) + (94619 97733 (PUTPROPS.PRETTYPRINT 94629 . 96040) (RPAQX.PRETTYPRINT 96042 . 96767) ( +COURIERPROGRAM.PRETTYPRINT 96769 . 97469) (MAYBE.PRETTYPRINT.BOLD 97471 . 97731))))) STOP diff --git a/lispusers/PRETTYFILEINDEX.LCOM b/lispusers/PRETTYFILEINDEX.LCOM index 51479acfac32330a228370c8fe47b102feaacb9c..c7afb9a159bca3c9de33c65879ead11b48fad568 100644 GIT binary patch delta 924 zcmZuw-D=c8813$jWd*S)Rz>76__JHdIx|T&KX_qGCT%dA37M>I!JFDHQnWu*FN9Kx zm)?l77rudbDHdNr-@-Q$9Cy3fUD#ZmeDi(hobP1v?RWjhullErhn5lbw+&9Y4aR(C z`z9x7lI?@N!`;{Y9USa~;CQ_&qEu|2Jo^0o)~VG(gD^fd==o;HrzXLRqkc8ne|LEF z=B|%CPTJkzsc5Hp*;ZvCf-ZJ7YurmyOw+X6ZGxSxw_0@`KjWm;XvWEdRD_zO6cGrY zYk$V>z6D09#~t`0N=oC&CXV)Aq2Y&XLAENCQA#x9OwIGzf}a=SSt5JNh_s>>WQOV= zj`E_OZ&TlL2pZFhx6gL!-qm!78m~)YJ=~tl zt?O4#O@uNFgA%;sOq#jvAx%`7_w<3u5hoi3SjVi2%yyx|AQgpJ)%L+Gdos;*oa1T6 z`D`O~CygFEMVLw@^zIfSl@BT5bRf0qq#NijFuD>p!!RvT3^%i?*K#u#&>E45gI-#m zHz|D=OlFN{&J%`7o!J8CTK{|j&R7L09Yf|i6?D7_q)3A-(r&dl)857@m{tXuJ%(Pz zVRaA&+0dg-3~N#i{@l3OY&5}L7leR27Ra&w6;22os$nLhqzGjpPW1IYTe|t>!#~_i B>O24d delta 1034 zcmbVKUrXCi6gMht6qNlDW#Hg&VVf0F?!9S}CXBL>+-g{wTy9e9*amhQoLJkg3Y&;@ zd)&(yAl+%F$686Re(d)5 z_d2`k2&rauWqF_#p@1mPDTrxP-NppLyM8+1NI&)Zhfi$ibdTQ46|g5cYmFd)e@9ED z5`vx9k<@h4PJ&Ufuu}5_<_hK{%mYN%Z!~vHGj}y07+ac=eNdKXHyjaXe6aAk2sRgN z!;c!V>PcQe1grJd@nxjiWu%1KL`Hf`R)wDbQS5~+kJX$;kZ|FLi65@5M{xo*sK6?( z`RWjjc;ZK4yeeU91Sic%jeU=Kt3^08RcTOIiDRZK2`2z zKNi0z53gE&kQZ7RYW}7GV(1f)7#L#L2?k8CHR%UP+04fYwen6{9(GO|3C=jvphZyMDmKW;@pZxj8Vr`zMx_2IzZ(+Ux}q8FJ&rY z3l%Fb$)q$X1WxElX`BI(LdNZy0b=XQJu%0yHCa-wfa`=q*)kp&{tG(9Ol&YA70d83 mAOzGj0G$LpIYl73&`B71zHlSKPEm0#dwYNB{Or-^uYUo>auw77 diff --git a/sources/INTERPRESS b/sources/INTERPRESS index 44c7dc3f..d68917ea 100644 --- a/sources/INTERPRESS +++ b/sources/INTERPRESS @@ -1,10 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Dec-2025 19:34:04" {WMEDLEY}INTERPRESS.;103 215348 +(FILECREATED "24-Dec-2025 11:24:31" {WMEDLEY}INTERPRESS.;104 215489 :EDIT-BY rmk - :PREVIOUS-DATE "12-Dec-2025 19:22:53" {WMEDLEY}INTERPRESS.;102) + :CHANGES-TO (ALISTS (PRINTFILETYPES INTERPRESS)) + + :PREVIOUS-DATE "12-Dec-2025 19:34:04" {WMEDLEY}INTERPRESS.;103) (PRETTYCOMPRINT INTERPRESSCOMS) @@ -3509,12 +3511,12 @@ (PROPERTIES NSPRINTER.PROPERTIES) (SEND NSPRINT))) -(ADDTOVAR PRINTFILETYPES - (INTERPRESS (TEST INTERPRESSFILEP) - (EXTENSION (IP IPR INTERPRESS)) - (CONVERSION (TEXT TEXTTOIMAGEFILE TEDIT TEDIT.IMAGEFILE)) - (BITMAPSCALE INTERPRESS.BITMAPSCALE) - (BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) +(ADDTOVAR PRINTFILETYPES (INTERPRESS (TEST INTERPRESSFILEP) + (EXTENSION (IP IPR INTERPRESS)) + (CONVERSION (TEXT TEXTTOIMAGEFILE)) + (BITMAPSCALE INTERPRESS.BITMAPSCALE) + (BITMAPFILE (INTERPRESSBITMAP IMAGEFILE BITMAP SCALEFACTOR REGION + ROTATION TITLE)))) (ADDTOVAR IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE) (CREATECHARSET \CREATECHARSET.HCPYMODE))) @@ -3828,44 +3830,44 @@ (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (16593 22245 (APPENDBYTE.IP 16603 . 16739) (APPENDIDENTIFIER.IP 16741 . 17263) ( -APPENDINT.IP 17265 . 17716) (APPENDINTEGER.IP 17718 . 18290) (APPENDLARGEVECTOR.IP 18292 . 19257) ( -APPENDNUMBER.IP 19259 . 19728) (APPENDOP.IP 19730 . 20376) (APPENDRATIONAL.IP 20378 . 20871) ( -APPENDSEQUENCEDESCRIPTOR.IP 20873 . 22068) (BYTESININT.IP 22070 . 22243)) (22281 62088 (ARCTO.IP 22291 - . 23572) (BEGINMASTER.IP 23574 . 23847) (BEGINPAGE.IP 23849 . 24205) (BEGINPREAMBLE.IP 24207 . 24578) - (CLIPRECTANGLE.IP 24580 . 25070) (CONCAT.IP 25072 . 25337) (CONCATT.IP 25339 . 25606) (ENDMASTER.IP -25608 . 26052) (ENDPAGE.IP 26054 . 26431) (ENDPREAMBLE.IP 26433 . 27232) (FGET.IP 27234 . 27537) ( -FILLRECTANGLE.IP 27539 . 29867) (FILLTRAJECTORY.IP 29869 . 30504) (FILLNGON.IP 30506 . 32783) (FSET.IP - 32785 . 33088) (GETFRAMEVAR.IP 33090 . 33408) (INITIALIZEMASTER.IP 33410 . 34011) (INITIALIZECOLOR.IP - 34013 . 35334) (ISET.IP 35336 . 35707) (GETCP.IP 35709 . 36018) (LINETO.IP 36020 . 36625) ( -MASKSTROKE.IP 36627 . 36900) (MOVETO.IP 36902 . 37239) (ROTATE.IP 37241 . 37543) (SCALE.IP 37545 . -37848) (SCALE2.IP 37850 . 38187) (SETCOLOR.IP 38189 . 40418) (SETRGB.IP 40420 . 41476) (SETCOLORLV.IP -41478 . 46091) (SETCOLOR16.IP 46093 . 49199) (SETFONT.IP 49201 . 50022) (SETSPACE.IP 50024 . 50336) ( -SETXREL.IP 50338 . 51522) (SETX.IP 51524 . 53041) (SETXY.IP 53043 . 54215) (SETXYREL.IP 54217 . 55523) - (SETY.IP 55525 . 56834) (SETYREL.IP 56836 . 57736) (SHOW.IP 57738 . 60998) (TRAJECTORY.IP 61000 . -61398) (TRANS.IP 61400 . 61739) (TRANSLATE.IP 61741 . 62086)) (62119 68209 (\CHANGE-VISIBLE-REGION.IP -62129 . 65790) (\PAPERSIZE.IP 65792 . 66613) (HEADINGOP.IP 66615 . 68207)) (68210 172730 ( -DEFINEFONT.IP 68220 . 69194) (FONTNAME.IP 69196 . 70126) (INTERPRESS.BITMAPSCALE 70128 . 70921) ( -INTERPRESS.OUTCHARFN 70923 . 77430) (NEWLINE.IP 77432 . 78164) (NEWPAGE.IP 78166 . 83141) (NEWPAGE?.IP - 83143 . 83622) (OPENIPSTREAM 83624 . 91975) (SETUPFONTS.IP 91977 . 92969) (SHOWBITMAP.IP 92971 . -97512) (\BITMAPSIZE.IP 97514 . 98291) (SHOWBITMAP1.IP 98293 . 102665) (SHOWSHADE.IP 102667 . 103620) ( -\BITBLT.IP 103622 . 107826) (\SCALEDBITBLT.IP 107828 . 111473) (\BLTSHADE.IP 111475 . 112933) ( -\CHARWIDTH.IP 112935 . 113385) (\CLOSEIPSTREAM 113387 . 113714) (\DRAWARC.IP 113716 . 114163) ( -\DRAWCURVE.IP 114165 . 116602) (\DRAWPOINT.IP 116604 . 117641) (\DSPCOLOR.IP 117643 . 118594) ( -ENSURE.RGB 118596 . 119260) (\IPCURVE2 119262 . 132516) (\CLIPCURVELINE.IP 132518 . 137216) ( -\DRAWLINE.IP 137218 . 140950) (\CLIPLINE 140952 . 145652) (\DSPBOTTOMMARGIN.IP 145654 . 146070) ( -\DSPFONT.IP 146072 . 150832) (\DSPLEFTMARGIN.IP 150834 . 151294) (\DSPLINEFEED.IP 151296 . 151963) ( -\DSPRIGHTMARGIN.IP 151965 . 152762) (\DSPSPACEFACTOR.IP 152764 . 153893) (\DSPTOPMARGIN.IP 153895 . -154331) (\DSPXPOSITION.IP 154333 . 155320) (\DSPROTATE.IP 155322 . 155500) (\PUSHSTATE.IP 155502 . -156394) (\POPSTATE.IP 156396 . 157031) (\DEFAULTSTATE.IP 157033 . 157385) (\DSPTRANSLATE.IP 157387 . -157568) (\DSPSCALE2.IP 157570 . 157745) (\DSPYPOSITION.IP 157747 . 158048) (FILLCIRCLE.IP 158050 . -159133) (\FILLPOLYGON.IP 159135 . 160466) (\DRAWPOLYGON.IP 160468 . 166598) (\FIXLINELENGTH.IP 166600 - . 167814) (\MOVETO.IP 167816 . 168180) (\SETBRUSH.IP 168182 . 170348) (\STRINGWIDTH.IP 170350 . -170753) (\DSPCLIPPINGREGION.IP 170755 . 171931) (\DSPOPERATION.IP 171933 . 172728)) (172731 174630 ( -INTERPRESSFILEP 172741 . 174174) (INTERPRESS.TEDIT 174176 . 174628)) (174821 175576 (IP-TOS 174831 . -175091) (POP-IP-STACK 175093 . 175388) (PUSH-IP-STACK 175390 . 175574)) (175637 176561 ( -\CHANGECHARSET.IP 175647 . 176559)) (176562 180178 (\INTERPRESSINIT 176572 . 180176)) (193262 195686 ( -INTERPRESSBITMAP 193272 . 195684)) (197966 200587 (\CREATEINTERPRESSFONT 197976 . 199704) ( -\CREATECHARSET.IP 199706 . 200585)) (200588 212761 (IPFONT.FILEP 200598 . 200782) (IPFONT.GETCHARSET -200784 . 210882) (\FACECODE 210884 . 211474) (\FAMILYCODE 211476 . 212759))))) + (FILEMAP (NIL (16649 22301 (APPENDBYTE.IP 16659 . 16795) (APPENDIDENTIFIER.IP 16797 . 17319) ( +APPENDINT.IP 17321 . 17772) (APPENDINTEGER.IP 17774 . 18346) (APPENDLARGEVECTOR.IP 18348 . 19313) ( +APPENDNUMBER.IP 19315 . 19784) (APPENDOP.IP 19786 . 20432) (APPENDRATIONAL.IP 20434 . 20927) ( +APPENDSEQUENCEDESCRIPTOR.IP 20929 . 22124) (BYTESININT.IP 22126 . 22299)) (22337 62144 (ARCTO.IP 22347 + . 23628) (BEGINMASTER.IP 23630 . 23903) (BEGINPAGE.IP 23905 . 24261) (BEGINPREAMBLE.IP 24263 . 24634) + (CLIPRECTANGLE.IP 24636 . 25126) (CONCAT.IP 25128 . 25393) (CONCATT.IP 25395 . 25662) (ENDMASTER.IP +25664 . 26108) (ENDPAGE.IP 26110 . 26487) (ENDPREAMBLE.IP 26489 . 27288) (FGET.IP 27290 . 27593) ( +FILLRECTANGLE.IP 27595 . 29923) (FILLTRAJECTORY.IP 29925 . 30560) (FILLNGON.IP 30562 . 32839) (FSET.IP + 32841 . 33144) (GETFRAMEVAR.IP 33146 . 33464) (INITIALIZEMASTER.IP 33466 . 34067) (INITIALIZECOLOR.IP + 34069 . 35390) (ISET.IP 35392 . 35763) (GETCP.IP 35765 . 36074) (LINETO.IP 36076 . 36681) ( +MASKSTROKE.IP 36683 . 36956) (MOVETO.IP 36958 . 37295) (ROTATE.IP 37297 . 37599) (SCALE.IP 37601 . +37904) (SCALE2.IP 37906 . 38243) (SETCOLOR.IP 38245 . 40474) (SETRGB.IP 40476 . 41532) (SETCOLORLV.IP +41534 . 46147) (SETCOLOR16.IP 46149 . 49255) (SETFONT.IP 49257 . 50078) (SETSPACE.IP 50080 . 50392) ( +SETXREL.IP 50394 . 51578) (SETX.IP 51580 . 53097) (SETXY.IP 53099 . 54271) (SETXYREL.IP 54273 . 55579) + (SETY.IP 55581 . 56890) (SETYREL.IP 56892 . 57792) (SHOW.IP 57794 . 61054) (TRAJECTORY.IP 61056 . +61454) (TRANS.IP 61456 . 61795) (TRANSLATE.IP 61797 . 62142)) (62175 68265 (\CHANGE-VISIBLE-REGION.IP +62185 . 65846) (\PAPERSIZE.IP 65848 . 66669) (HEADINGOP.IP 66671 . 68263)) (68266 172786 ( +DEFINEFONT.IP 68276 . 69250) (FONTNAME.IP 69252 . 70182) (INTERPRESS.BITMAPSCALE 70184 . 70977) ( +INTERPRESS.OUTCHARFN 70979 . 77486) (NEWLINE.IP 77488 . 78220) (NEWPAGE.IP 78222 . 83197) (NEWPAGE?.IP + 83199 . 83678) (OPENIPSTREAM 83680 . 92031) (SETUPFONTS.IP 92033 . 93025) (SHOWBITMAP.IP 93027 . +97568) (\BITMAPSIZE.IP 97570 . 98347) (SHOWBITMAP1.IP 98349 . 102721) (SHOWSHADE.IP 102723 . 103676) ( +\BITBLT.IP 103678 . 107882) (\SCALEDBITBLT.IP 107884 . 111529) (\BLTSHADE.IP 111531 . 112989) ( +\CHARWIDTH.IP 112991 . 113441) (\CLOSEIPSTREAM 113443 . 113770) (\DRAWARC.IP 113772 . 114219) ( +\DRAWCURVE.IP 114221 . 116658) (\DRAWPOINT.IP 116660 . 117697) (\DSPCOLOR.IP 117699 . 118650) ( +ENSURE.RGB 118652 . 119316) (\IPCURVE2 119318 . 132572) (\CLIPCURVELINE.IP 132574 . 137272) ( +\DRAWLINE.IP 137274 . 141006) (\CLIPLINE 141008 . 145708) (\DSPBOTTOMMARGIN.IP 145710 . 146126) ( +\DSPFONT.IP 146128 . 150888) (\DSPLEFTMARGIN.IP 150890 . 151350) (\DSPLINEFEED.IP 151352 . 152019) ( +\DSPRIGHTMARGIN.IP 152021 . 152818) (\DSPSPACEFACTOR.IP 152820 . 153949) (\DSPTOPMARGIN.IP 153951 . +154387) (\DSPXPOSITION.IP 154389 . 155376) (\DSPROTATE.IP 155378 . 155556) (\PUSHSTATE.IP 155558 . +156450) (\POPSTATE.IP 156452 . 157087) (\DEFAULTSTATE.IP 157089 . 157441) (\DSPTRANSLATE.IP 157443 . +157624) (\DSPSCALE2.IP 157626 . 157801) (\DSPYPOSITION.IP 157803 . 158104) (FILLCIRCLE.IP 158106 . +159189) (\FILLPOLYGON.IP 159191 . 160522) (\DRAWPOLYGON.IP 160524 . 166654) (\FIXLINELENGTH.IP 166656 + . 167870) (\MOVETO.IP 167872 . 168236) (\SETBRUSH.IP 168238 . 170404) (\STRINGWIDTH.IP 170406 . +170809) (\DSPCLIPPINGREGION.IP 170811 . 171987) (\DSPOPERATION.IP 171989 . 172784)) (172787 174686 ( +INTERPRESSFILEP 172797 . 174230) (INTERPRESS.TEDIT 174232 . 174684)) (174877 175632 (IP-TOS 174887 . +175147) (POP-IP-STACK 175149 . 175444) (PUSH-IP-STACK 175446 . 175630)) (175693 176617 ( +\CHANGECHARSET.IP 175703 . 176615)) (176618 180234 (\INTERPRESSINIT 176628 . 180232)) (193318 195742 ( +INTERPRESSBITMAP 193328 . 195740)) (198107 200728 (\CREATEINTERPRESSFONT 198117 . 199845) ( +\CREATECHARSET.IP 199847 . 200726)) (200729 212902 (IPFONT.FILEP 200739 . 200923) (IPFONT.GETCHARSET +200925 . 211023) (\FACECODE 211025 . 211615) (\FAMILYCODE 211617 . 212900))))) STOP diff --git a/sources/INTERPRESS.LCOM b/sources/INTERPRESS.LCOM index 8c5c6b53120a9e18176123640c8b2420f59932e8..eac59c549cc7280c244f4b423c2ff806900c512a 100644 GIT binary patch delta 213 zcmbQfn|a4><_X~j^(cN{^wdw2ts8u-Z delta 181 zcmdn7n|bwCRPR(6SIvZj5QUwl+YxN%&kl(ZVk{f zvam8RQqttoaP#zWbq;cM3~_Z)KvxVh$z-xVqmsC>f{~%Av5AF(m8*+qh^|wlLQ!tE z0@vi3jPk5TMpmZAAXSV;n;$ZMxy-8oG|MvtLh4OEbJd8EYx2LVvYQpJO=kxHM-4F&