From b513bb44a346c4e557104a160dae3203c917ac4a Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Thu, 20 Jul 2023 22:24:18 -0700 Subject: [PATCH] Simplify EXPORTS.ALL loading commands (#1281) Standard FILES commands now do the right thing, no need for extra junk --- library/FILEBROWSER | 116 +++++++++++++++++-------------------- library/FILEBROWSER.LCOM | Bin 87886 -> 87785 bytes library/UNICODE | 43 +++++++------- library/UNICODE.LCOM | Bin 22517 -> 22251 bytes lispusers/PSEUDOHOSTS | 46 +++++++-------- lispusers/PSEUDOHOSTS.LCOM | Bin 8930 -> 8570 bytes 6 files changed, 95 insertions(+), 110 deletions(-) diff --git a/library/FILEBROWSER b/library/FILEBROWSER index 2b93aaab..e7b22809 100644 --- a/library/FILEBROWSER +++ b/library/FILEBROWSER @@ -1,24 +1,19 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "18-Jul-2023 22:19:30" |{WMEDLEY}FILEBROWSER.;24| 266436 +(FILECREATED "19-Jul-2023 09:30:47" |{WMEDLEY}FILEBROWSER.;25| 265978 :EDIT-BY |rmk| - :CHANGES-TO (FNS FB.COPYFN) + :CHANGES-TO (VARS FILEBROWSERCOMS) - :PREVIOUS-DATE " 4-Aug-2022 09:32:02" |{WMEDLEY}FILEBROWSER.;23|) + :PREVIOUS-DATE "18-Jul-2023 22:19:30" |{WMEDLEY}FILEBROWSER.;24|) (PRETTYCOMPRINT FILEBROWSERCOMS) (RPAQQ FILEBROWSERCOMS - ((COMS (DECLARE\: EVAL@COMPILE DONTCOPY (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE) - (TERPRI T) - (PRIN1 - "NOTE: FILEBROWSER requires EXPORTS.ALL" - T) - (TERPRI T) - (TERPRI T)))) + ((COMS (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS) + EXPORTS.ALL)) (FILES ATTACHEDWINDOW ICONW TABLEBROWSER) (P (* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded") @@ -250,11 +245,8 @@ You specify how many versions to keep."))) )) (DECLARE\: EVAL@COMPILE DONTCOPY -(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE) - (TERPRI T) - (PRIN1 "NOTE: FILEBROWSER requires EXPORTS.ALL" T) - (TERPRI T) - (TERPRI T)) +(FILESLOAD (FROM LOADUPS) + EXPORTS.ALL) ) (FILESLOAD ATTACHEDWINDOW ICONW TABLEBROWSER) @@ -4254,51 +4246,51 @@ then click Recompute")))) (ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (32272 55153 (FB 32282 . 33417) (FB.COPYBINARYCOMMAND 33419 . 33765) (FB.COPYTEXTCOMMAND - 33767 . 34109) (FILEBROWSER 34111 . 47217) (FB.TABLEBROWSER 47219 . 47436) (FB.SELECTEDFILES 47438 . -48075) (FB.FETCHFILENAME 48077 . 48469) (FB.DIRECTORYP 48471 . 48865) (FB.PROMPTWPRINT 48867 . 49913) -(FB.PROMPTW.FORMAT 49915 . 50652) (FB.PROMPTFORINPUT 50654 . 52906) (FB.YES-OR-NO-P 52908 . 53942) ( -FB.ALLOW.ABORT 53944 . 54798) (\\FB.HARDCOPY.TOFILE.EXTENSION 54800 . 55151)) (55177 56130 (FB.STARTUP - 55187 . 55702) (FB.MAKERIGIDWINDOW 55704 . 56128)) (56131 61614 (FB.PRINTFN 56141 . 61294) (FB.COPYFN - 61296 . 61612)) (61664 68004 (FB.MENU.WHENSELECTEDFN 61674 . 62032) (FB.COMMANDSELECTEDFN 62034 . -63573) (FB.SUBITEMP 63575 . 64176) (FB.MAKE.BROWSER.BUSY 64178 . 64982) (FB.FINISH.COMMAND 64984 . -67015) (FB.HANDLE.ABORT.BUTTON 67017 . 68002)) (68005 73521 (FB.DELETECOMMAND 68015 . 68296) ( -FB.DELVERCOMMAND 68298 . 71491) (FB.IS.NOT.SUBDIRECTORY.ITEM 71493 . 71674) (FB.DELVER.FILES 71676 . -72765) (FB.DELETE.FILE 72767 . 73519)) (73522 74847 (FB.UNDELETECOMMAND 73532 . 73817) ( -FB.UNDELETEALLCOMMAND 73819 . 74098) (FB.UNDELETE.FILE 74100 . 74845)) (74848 99029 (FB.COPYCOMMAND -74858 . 75127) (FB.RENAMECOMMAND 75129 . 75404) (FB.COPY/RENAME.COMMAND 75406 . 76329) ( -FB.COPY/RENAME.ONE 76331 . 78653) (FB.COPY/RENAME.MANY 78655 . 84875) (FB.MERGE.DIRECTORIES 84877 . -85295) (FB.GREATEST.PREFIX 85297 . 86653) (FB.MAYBE.INSERT.FILE 86655 . 94095) (FB.GET.NEW.FILE.SPEC -94097 . 97928) (FB.CANONICAL.DIRECTORY 97930 . 99027)) (99030 106814 (FB.HARDCOPYCOMMAND 99040 . -100170) (FB.HARDCOPY.TOFILE 100172 . 106812)) (106815 117014 (FB.EDITCOMMAND 106825 . 107692) ( -FB.EDITCOMMAND.ONEFILE 107694 . 111098) (FB.EDITLISPFILE 111100 . 112205) (FB.BROWSECOMMAND 112207 . -117012)) (117015 128936 (FB.FASTSEECOMMAND 117025 . 120475) (FB.FASTSEE.ONEFILE 120477 . 123634) ( -FB.SEEFULLFN 123636 . 127767) (FB.SEEBUTTONFN 127769 . 128934)) (128937 130683 (FB.LOADCOMMAND 128947 - . 129454) (FB.COMPILECOMMAND 129456 . 129994) (FB.OPERATE.ON.FILES 129996 . 130681)) (130684 178869 ( -FB.UPDATECOMMAND 130694 . 130919) (FB.FIX-DIRECTORY-DATES 130921 . 131944) (FB.MAYBE.EXPUNGE 131946 . -133007) (FB.UPDATEBROWSERITEMS 133009 . 146224) (FB.DATE 146226 . 146867) (FB.ADJUST.DATE.WIDTH 146869 - . 149837) (FB.SET.BROWSER.TITLE 149839 . 150841) (FB.MAYBE.WIDEN.NAMES 150843 . 152962) ( -FB.SET.DEFAULT.NAME.WIDTH 152964 . 154328) (FB.CREATE.FILEBUCKET 154330 . 161550) ( -FB.CHECK.NAME.LENGTH 161552 . 163973) (FB.ADD.FILEGROUP 163975 . 165502) (FB.INSERT.DIRECTORY 165504 - . 165742) (FB.MAKE.SUBDIRECTORY.ITEM 165744 . 167153) (FB.ADD.FILE 167155 . 167768) (FB.INSERT.FILE -167770 . 171182) (FB.ANALYZE.PATTERN 171184 . 176448) (FB.CANONICALIZE.PATTERN 176450 . 177762) ( -FB.GETALLFILEINFO 177764 . 178867)) (178870 187029 (FB.SORT.VERSIONS 178880 . 181651) ( -FB.DECREASING.VERSION 181653 . 182322) (FB.INCREASING.VERSION 182324 . 182945) ( -FB.NAMES.DECREASING.VERSION 182947 . 183982) (FB.NAMES.INCREASING.VERSION 183984 . 184981) ( -FB.DECREASING.NUMERIC.ATTR 184983 . 185663) (FB.INCREASING.NUMERIC.ATTR 185665 . 186339) ( -FB.ALPHABETIC.ATTR 186341 . 187027)) (187030 196872 (FB.SORTCOMMAND 187040 . 193870) ( -FB.INSERT.SUBDIRECTORIES 193872 . 194669) (FB.GET.SORT.MENU 194671 . 196870)) (196873 213094 ( -FB.EXPUNGECOMMAND 196883 . 199468) (FB.NEWPATTERNCOMMAND 199470 . 199868) (FB.NEWINFOCOMMAND 199870 . -202702) (FB.DEPTHCOMMAND 202704 . 204479) (FB.SHAPECOMMAND 204481 . 207823) (FB.REMOVE.FILE 207825 . -209646) (FB.COUNT.FILE.CHANGE 209648 . 211093) (FB.SETNEWPATTERN 211095 . 212265) (FB.GET.NEWPATTERN -212267 . 212851) (FB.OPTIONSCOMMAND 212853 . 213092)) (213129 214182 (FB.GETWINDOW 213139 . 214180)) ( -214183 215195 (FB.INFOMENU.SHADEINITIALSELECTIONS 214193 . 214840) (FB.INFO.ITEM.NAMED 214842 . 215193 -)) (215196 224728 (FB.MAKECOUNTERWINDOW 215206 . 216734) (FB.COUNTERW.REDISPLAYFN 216736 . 217323) ( -FB.UPDATE.COUNTERS 217325 . 219397) (FB.DISPLAY.COUNTERS 219399 . 224459) (FB.COUNTER.STRING 224461 . -224726)) (224729 229438 (FB.MAKEHEADINGWINDOW 224739 . 226353) (FB.HEADINGW.REDISPLAYFN 226355 . -226621) (FB.HEADINGW.RESHAPEFN 226623 . 226999) (FB.HEADINGW.DISPLAY 227001 . 229436)) (229439 233622 -(FB.ICONFN 229449 . 229796) (FB.INFOMENU.WHENSELECTEDFN 229798 . 230528) (FB.CLOSEFN 230530 . 231733) -(FB.EXPUNGE?.MENU 231735 . 232147) (FB.AFTERCLOSEFN 232149 . 232510) (FB.CLOSE&EXPUNGE 232512 . 233620 -)) (233623 245681 (FB.HARDCOPY.DIRECTORY 233633 . 243990) (FB.HARDCOPY.PRINT.TITLE 243992 . 244318) ( -FB.HARDCOPY.MAXWIDTH 244320 . 245679))))) + (FILEMAP (NIL (31814 54695 (FB 31824 . 32959) (FB.COPYBINARYCOMMAND 32961 . 33307) (FB.COPYTEXTCOMMAND + 33309 . 33651) (FILEBROWSER 33653 . 46759) (FB.TABLEBROWSER 46761 . 46978) (FB.SELECTEDFILES 46980 . +47617) (FB.FETCHFILENAME 47619 . 48011) (FB.DIRECTORYP 48013 . 48407) (FB.PROMPTWPRINT 48409 . 49455) +(FB.PROMPTW.FORMAT 49457 . 50194) (FB.PROMPTFORINPUT 50196 . 52448) (FB.YES-OR-NO-P 52450 . 53484) ( +FB.ALLOW.ABORT 53486 . 54340) (\\FB.HARDCOPY.TOFILE.EXTENSION 54342 . 54693)) (54719 55672 (FB.STARTUP + 54729 . 55244) (FB.MAKERIGIDWINDOW 55246 . 55670)) (55673 61156 (FB.PRINTFN 55683 . 60836) (FB.COPYFN + 60838 . 61154)) (61206 67546 (FB.MENU.WHENSELECTEDFN 61216 . 61574) (FB.COMMANDSELECTEDFN 61576 . +63115) (FB.SUBITEMP 63117 . 63718) (FB.MAKE.BROWSER.BUSY 63720 . 64524) (FB.FINISH.COMMAND 64526 . +66557) (FB.HANDLE.ABORT.BUTTON 66559 . 67544)) (67547 73063 (FB.DELETECOMMAND 67557 . 67838) ( +FB.DELVERCOMMAND 67840 . 71033) (FB.IS.NOT.SUBDIRECTORY.ITEM 71035 . 71216) (FB.DELVER.FILES 71218 . +72307) (FB.DELETE.FILE 72309 . 73061)) (73064 74389 (FB.UNDELETECOMMAND 73074 . 73359) ( +FB.UNDELETEALLCOMMAND 73361 . 73640) (FB.UNDELETE.FILE 73642 . 74387)) (74390 98571 (FB.COPYCOMMAND +74400 . 74669) (FB.RENAMECOMMAND 74671 . 74946) (FB.COPY/RENAME.COMMAND 74948 . 75871) ( +FB.COPY/RENAME.ONE 75873 . 78195) (FB.COPY/RENAME.MANY 78197 . 84417) (FB.MERGE.DIRECTORIES 84419 . +84837) (FB.GREATEST.PREFIX 84839 . 86195) (FB.MAYBE.INSERT.FILE 86197 . 93637) (FB.GET.NEW.FILE.SPEC +93639 . 97470) (FB.CANONICAL.DIRECTORY 97472 . 98569)) (98572 106356 (FB.HARDCOPYCOMMAND 98582 . 99712 +) (FB.HARDCOPY.TOFILE 99714 . 106354)) (106357 116556 (FB.EDITCOMMAND 106367 . 107234) ( +FB.EDITCOMMAND.ONEFILE 107236 . 110640) (FB.EDITLISPFILE 110642 . 111747) (FB.BROWSECOMMAND 111749 . +116554)) (116557 128478 (FB.FASTSEECOMMAND 116567 . 120017) (FB.FASTSEE.ONEFILE 120019 . 123176) ( +FB.SEEFULLFN 123178 . 127309) (FB.SEEBUTTONFN 127311 . 128476)) (128479 130225 (FB.LOADCOMMAND 128489 + . 128996) (FB.COMPILECOMMAND 128998 . 129536) (FB.OPERATE.ON.FILES 129538 . 130223)) (130226 178411 ( +FB.UPDATECOMMAND 130236 . 130461) (FB.FIX-DIRECTORY-DATES 130463 . 131486) (FB.MAYBE.EXPUNGE 131488 . +132549) (FB.UPDATEBROWSERITEMS 132551 . 145766) (FB.DATE 145768 . 146409) (FB.ADJUST.DATE.WIDTH 146411 + . 149379) (FB.SET.BROWSER.TITLE 149381 . 150383) (FB.MAYBE.WIDEN.NAMES 150385 . 152504) ( +FB.SET.DEFAULT.NAME.WIDTH 152506 . 153870) (FB.CREATE.FILEBUCKET 153872 . 161092) ( +FB.CHECK.NAME.LENGTH 161094 . 163515) (FB.ADD.FILEGROUP 163517 . 165044) (FB.INSERT.DIRECTORY 165046 + . 165284) (FB.MAKE.SUBDIRECTORY.ITEM 165286 . 166695) (FB.ADD.FILE 166697 . 167310) (FB.INSERT.FILE +167312 . 170724) (FB.ANALYZE.PATTERN 170726 . 175990) (FB.CANONICALIZE.PATTERN 175992 . 177304) ( +FB.GETALLFILEINFO 177306 . 178409)) (178412 186571 (FB.SORT.VERSIONS 178422 . 181193) ( +FB.DECREASING.VERSION 181195 . 181864) (FB.INCREASING.VERSION 181866 . 182487) ( +FB.NAMES.DECREASING.VERSION 182489 . 183524) (FB.NAMES.INCREASING.VERSION 183526 . 184523) ( +FB.DECREASING.NUMERIC.ATTR 184525 . 185205) (FB.INCREASING.NUMERIC.ATTR 185207 . 185881) ( +FB.ALPHABETIC.ATTR 185883 . 186569)) (186572 196414 (FB.SORTCOMMAND 186582 . 193412) ( +FB.INSERT.SUBDIRECTORIES 193414 . 194211) (FB.GET.SORT.MENU 194213 . 196412)) (196415 212636 ( +FB.EXPUNGECOMMAND 196425 . 199010) (FB.NEWPATTERNCOMMAND 199012 . 199410) (FB.NEWINFOCOMMAND 199412 . +202244) (FB.DEPTHCOMMAND 202246 . 204021) (FB.SHAPECOMMAND 204023 . 207365) (FB.REMOVE.FILE 207367 . +209188) (FB.COUNT.FILE.CHANGE 209190 . 210635) (FB.SETNEWPATTERN 210637 . 211807) (FB.GET.NEWPATTERN +211809 . 212393) (FB.OPTIONSCOMMAND 212395 . 212634)) (212671 213724 (FB.GETWINDOW 212681 . 213722)) ( +213725 214737 (FB.INFOMENU.SHADEINITIALSELECTIONS 213735 . 214382) (FB.INFO.ITEM.NAMED 214384 . 214735 +)) (214738 224270 (FB.MAKECOUNTERWINDOW 214748 . 216276) (FB.COUNTERW.REDISPLAYFN 216278 . 216865) ( +FB.UPDATE.COUNTERS 216867 . 218939) (FB.DISPLAY.COUNTERS 218941 . 224001) (FB.COUNTER.STRING 224003 . +224268)) (224271 228980 (FB.MAKEHEADINGWINDOW 224281 . 225895) (FB.HEADINGW.REDISPLAYFN 225897 . +226163) (FB.HEADINGW.RESHAPEFN 226165 . 226541) (FB.HEADINGW.DISPLAY 226543 . 228978)) (228981 233164 +(FB.ICONFN 228991 . 229338) (FB.INFOMENU.WHENSELECTEDFN 229340 . 230070) (FB.CLOSEFN 230072 . 231275) +(FB.EXPUNGE?.MENU 231277 . 231689) (FB.AFTERCLOSEFN 231691 . 232052) (FB.CLOSE&EXPUNGE 232054 . 233162 +)) (233165 245223 (FB.HARDCOPY.DIRECTORY 233175 . 243532) (FB.HARDCOPY.PRINT.TITLE 243534 . 243860) ( +FB.HARDCOPY.MAXWIDTH 243862 . 245221))))) STOP diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM index 7dbfd6f5f8cecf80af4a1c47e5d943ae1c7ff831..7c83b3bad09286856254a9df6ae49751711d5962 100644 GIT binary patch delta 278 zcmX@Nj`ihQ)(JtvmbzZ0Il4v$M#c&TmR80FRwm{XQ;ls*Ycv(OlngBpvPQ;Mre;>g zrb-GmNkys2`MCv|IjJc%3N@(}1x3YHKt^7ENk(Q~dd3}pg;7!<4kGSMl>KRnnq$l2dFSX03&Ajmb$(?2v=*9Bp=CQ;qFRYBUwNlnjw&4Xg}ItV|7+ z6l#)+Qj_y@3o>(3Q)(1yk~0$X(o>7AY82d@^qlx!Xv=0O)8VD+432DT<87o9{BF{;3a8&~Wy#3ib1G4Gvb&aCZ#>3IvAw z12wxw1o#Jq1nW8a_-Jy$1VL`p)Kt(2aSaLx@>B=`GJ&+8p@NbhP>+>@0!V>Vkbiiv jYmh=wYGG++QED-=QA%JvaP5LfMrmq-?Ae_DuPFimgyUtd diff --git a/library/UNICODE b/library/UNICODE index d0d89c22..2a1436d0 100644 --- a/library/UNICODE +++ b/library/UNICODE @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Jul-2022 15:36:40"  -{DSK}kaplan>local>medley3.5>working-medley>library>UNICODE.;198 65644 +(FILECREATED "19-Jul-2023 09:26:13" {WMEDLEY}UNICODE.;199 65282 - :CHANGES-TO (FNS MAKE-UNICODE-FORMATS \UTF16BE.BACKCCODEFN \UTF8.BACKCCODEFN) - (VARS UNICODECOMS) + :EDIT-BY rmk - :PREVIOUS-DATE "13-Jul-2022 11:38:18" -{DSK}kaplan>local>medley3.5>working-medley>library>UNICODE.;196) + :CHANGES-TO (VARS UNICODECOMS) + + :PREVIOUS-DATE "19-Jul-2022 15:36:40" {WMEDLEY}UNICODE.;198) (PRETTYCOMPRINT UNICODECOMS) @@ -58,10 +57,8 @@ (GLOBALVARS *XCCSTOUNICODE* *UNICODETOXCCS*)) (FNS HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING XCCSSTRING) (FNS SHOWCHARS) - (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP 'EXPORTS.ALL 'FILE) - (PRINT - "NOTE: UNICODE requires EXPORTS.ALL for compilation" - T))) + (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS) + EXPORTS.ALL) (* ;; "These control the layout of the translation tables. Since many of the upper panels are sparse, doing it per-panel (128) seems more space-efficient, and residual alists can be shorter") @@ -1194,8 +1191,8 @@ ) (DECLARE%: EVAL@COMPILE DONTCOPY -(OR (GETP 'EXPORTS.ALL 'FILE) - (PRINT "NOTE: UNICODE requires EXPORTS.ALL for compilation" T)) +(FILESLOAD (FROM LOADUPS) + EXPORTS.ALL) (DECLARE%: EVAL@COMPILE @@ -1218,15 +1215,15 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4031 18122 (UTF8.OUTCHARFN 4041 . 6872) (UTF8.INCCODEFN 6874 . 12364) (UTF8.PEEKCCODEFN - 12366 . 17140) (\UTF8.BACKCCODEFN 17142 . 18120)) (18123 21904 (UTF16BE.OUTCHARFN 18133 . 18957) ( -UTF16BE.INCCODEFN 18959 . 19858) (UTF16BE.PEEKCCODEFN 19860 . 20931) (\UTF16BE.BACKCCODEFN 20933 . -21902)) (21934 23995 (MAKE-UNICODE-FORMATS 21944 . 23993)) (24092 25398 (UNICODE.UNMAPPED 24102 . -25396)) (25399 25935 (XCCS-UTF8-AFTER-OPEN 25409 . 25933)) (26768 27117 (XTOUCODE 26778 . 26946) ( -UTOXCODE 26948 . 27115)) (27157 43279 (READ-UNICODE-MAPPING-FILENAMES 27167 . 28268) ( -READ-UNICODE-MAPPING 28270 . 31568) (WRITE-UNICODE-MAPPING 31570 . 35787) (WRITE-UNICODE-INCLUDED -35789 . 40511) (WRITE-UNICODE-MAPPING-HEADER 40513 . 41745) (WRITE-UNICODE-MAPPING-FILENAME 41747 . -43277)) (46492 54971 (MAKE-UNICODE-TRANSLATION-TABLES 46502 . 54969)) (55388 63414 (HEXSTRING 55398 . -56559) (UTF8HEXSTRING 56561 . 58766) (NUTF8CODEBYTES 58768 . 59553) (NUTF8STRINGBYTES 59555 . 60036) ( -XTOUSTRING 60038 . 63049) (XCCSSTRING 63051 . 63412)) (63415 64884 (SHOWCHARS 63425 . 64882))))) + (FILEMAP (NIL (3717 17808 (UTF8.OUTCHARFN 3727 . 6558) (UTF8.INCCODEFN 6560 . 12050) (UTF8.PEEKCCODEFN + 12052 . 16826) (\UTF8.BACKCCODEFN 16828 . 17806)) (17809 21590 (UTF16BE.OUTCHARFN 17819 . 18643) ( +UTF16BE.INCCODEFN 18645 . 19544) (UTF16BE.PEEKCCODEFN 19546 . 20617) (\UTF16BE.BACKCCODEFN 20619 . +21588)) (21620 23681 (MAKE-UNICODE-FORMATS 21630 . 23679)) (23778 25084 (UNICODE.UNMAPPED 23788 . +25082)) (25085 25621 (XCCS-UTF8-AFTER-OPEN 25095 . 25619)) (26454 26803 (XTOUCODE 26464 . 26632) ( +UTOXCODE 26634 . 26801)) (26843 42965 (READ-UNICODE-MAPPING-FILENAMES 26853 . 27954) ( +READ-UNICODE-MAPPING 27956 . 31254) (WRITE-UNICODE-MAPPING 31256 . 35473) (WRITE-UNICODE-INCLUDED +35475 . 40197) (WRITE-UNICODE-MAPPING-HEADER 40199 . 41431) (WRITE-UNICODE-MAPPING-FILENAME 41433 . +42963)) (46178 54657 (MAKE-UNICODE-TRANSLATION-TABLES 46188 . 54655)) (55074 63100 (HEXSTRING 55084 . +56245) (UTF8HEXSTRING 56247 . 58452) (NUTF8CODEBYTES 58454 . 59239) (NUTF8STRINGBYTES 59241 . 59722) ( +XTOUSTRING 59724 . 62735) (XCCSSTRING 62737 . 63098)) (63101 64570 (SHOWCHARS 63111 . 64568))))) STOP diff --git a/library/UNICODE.LCOM b/library/UNICODE.LCOM index f1564e53dc726e5749cd93541806f51e77062d08..a93b2ae9a973b8a534c4d422615fe8bb6db04c2a 100644 GIT binary patch delta 347 zcmeymp7Hfs#tDh_#tH_ORz_x4hQ>+?8cNCexdoXysVNHic?wDj)#1LbE@#tKHpR;FfF#->UNNkyq}gHkIB zii%aO6!P**GBWeh6*7SayM_ArC_uETL-gwD=_x6sB$fbe#%8FA;ba>|X&+>_;&+>Z znW>S5k%E=0i)VYU6vl~*5GpvN(D8UdNQ4BF))G?<)HJRALsHXQaBzwCs-bC8Z(6j7s4pOD zHs3)M`W8;Ug0r)`2^Dd0(eZqo^ZU;E&ifvuX*z#{sj{W09Qy zah|N@RZUhA{5>t-+ovv_=v}LxT1X{%y(qA$Z@jp$Ih~)o-@a@EZ#%%(Oxy;R-|5=e z1ar4-JGdj2TdicNnU*FaBvsp~TNsd)^l9(~21-uG9wpJwNjMBC%--RSyf8q3g%q#? SY^ek+!p9^cFnwt(Wj+B`j-{Ib diff --git a/lispusers/PSEUDOHOSTS b/lispusers/PSEUDOHOSTS index 74b9f2ad..981afb63 100644 --- a/lispusers/PSEUDOHOSTS +++ b/lispusers/PSEUDOHOSTS @@ -1,22 +1,20 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "18-Jul-2023 13:12:35" {DSK}frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;2 28158 +(FILECREATED "19-Jul-2023 09:17:48" {WMEDLEY}PSEUDOHOSTS.;153 27674 - :CHANGES-TO (VARS PSEUDOHOSTSCOMS) - (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME - EXPAND.PH CONTRACT.PH SLASHIT UNSLASHIT GETHOSTINFO.PH OPENFILE.PH - GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH - OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH - SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH) + :EDIT-BY rmk - :PREVIOUS-DATE "31-Oct-2022 23:32:43" -{DSK}frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;1) + :CHANGES-TO (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE) + (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL) + (VARS PSEUDOHOSTSCOMS) + + :PREVIOUS-DATE "18-Jul-2023 13:12:35" {WMEDLEY}PSEUDOHOSTS.;152) (PRETTYCOMPRINT PSEUDOHOSTSCOMS) (RPAQQ PSEUDOHOSTSCOMS - [ + ( (* ;; "Public entries") (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME) @@ -32,9 +30,8 @@ (MOVD 'GETHOSTINFO.PH 'GETHOSTINFO)) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE) (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL) - (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE) - (FILESLOAD (FROM LOADUPS) - EXPORTS.ALL))]) + (FILES (FROM LOADUPS) + EXPORTS.ALL)))) @@ -526,18 +523,17 @@ ) -(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE) - (FILESLOAD (FROM LOADUPS) - EXPORTS.ALL)) +(FILESLOAD (FROM LOADUPS) + EXPORTS.ALL) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1835 9871 (PSEUDOHOST 1845 . 7404) (PSEUDOHOSTP 7406 . 7919) (PSEUDOHOSTS 7921 . 8282) -(TARGETHOST 8284 . 8558) (TRUEFILENAME 8560 . 9247) (PSEUDOFILENAME 9249 . 9869)) (9899 17438 ( -EXPAND.PH 9909 . 11162) (CONTRACT.PH 11164 . 13829) (SLASHIT 13831 . 15399) (UNSLASHIT 15401 . 17147) -(GETHOSTINFO.PH 17149 . 17436)) (17439 25459 (OPENFILE.PH 17449 . 18522) (GETFILENAME.PH 18524 . 18813 -) (DIRECTORYNAMEP.PH 18815 . 19439) (CLOSEFILE.PH 19441 . 19908) (REOPENFILE.PH 19910 . 20475) ( -DELETEFILE.PH 20477 . 20761) (OPENP.PH 20763 . 21058) (UNREGISTERFILE.PH 21060 . 21602) ( -REGISTERFILE.PH 21604 . 22138) (GENERATEFILES.PH 22140 . 23184) (GETFILEINFO.PH 23186 . 23488) ( -SETFILEINFO.PH 23490 . 23689) (NEXTFILEFN.PH 23691 . 24237) (FILEINFOFN.PH 24239 . 24514) ( -RENAMEFILE.PH 24516 . 25457))))) + (FILEMAP (NIL (1397 9433 (PSEUDOHOST 1407 . 6966) (PSEUDOHOSTP 6968 . 7481) (PSEUDOHOSTS 7483 . 7844) +(TARGETHOST 7846 . 8120) (TRUEFILENAME 8122 . 8809) (PSEUDOFILENAME 8811 . 9431)) (9461 17000 ( +EXPAND.PH 9471 . 10724) (CONTRACT.PH 10726 . 13391) (SLASHIT 13393 . 14961) (UNSLASHIT 14963 . 16709) +(GETHOSTINFO.PH 16711 . 16998)) (17001 25021 (OPENFILE.PH 17011 . 18084) (GETFILENAME.PH 18086 . 18375 +) (DIRECTORYNAMEP.PH 18377 . 19001) (CLOSEFILE.PH 19003 . 19470) (REOPENFILE.PH 19472 . 20037) ( +DELETEFILE.PH 20039 . 20323) (OPENP.PH 20325 . 20620) (UNREGISTERFILE.PH 20622 . 21164) ( +REGISTERFILE.PH 21166 . 21700) (GENERATEFILES.PH 21702 . 22746) (GETFILEINFO.PH 22748 . 23050) ( +SETFILEINFO.PH 23052 . 23251) (NEXTFILEFN.PH 23253 . 23799) (FILEINFOFN.PH 23801 . 24076) ( +RENAMEFILE.PH 24078 . 25019))))) STOP diff --git a/lispusers/PSEUDOHOSTS.LCOM b/lispusers/PSEUDOHOSTS.LCOM index 62acc97a8705725ace1bcf7c2440a1b0b094c0e7..1560bf8fc0806e974871bbd164b002cb48e9fd20 100644 GIT binary patch delta 381 zcmaFl`paoTgubP&S80x}k%5u1f`O%#p}Ccbg_44XQgVK7L1s>Bib8&#f|5dYxUZ{= zk85PD&BTS`^@gU#nhIP>h875|M#fgAW>&_gN(xCusc^li6$M4bs#Xel`6U^ddFcw7 zK(pLJeS8#or z@GArleuQ{1ixxb1=xOH7ym|9xKKI|rL*K1wovTzcDuxNViFE^4D+m;HJQ-aK(_{dX zF(8m`9d>ZHdo~#**2(43_}m(%)+iaI$&GdT8@Zfc+A>r?`d`URuZ~R}!Bi-w8v_`Q zK|*#Au*bK;`hVmdq)JND^++Qmc0?Thl`E{xX`p0)QPZn6kZ_}I`z^w>h=S6yLk0mO zu|wOGMXW))jBggJD^VB|vC6l*1f(Cv4D;urT56F@~kzZ3drrn z1)h_a`KnycNxUZmzm{=F!a+!SE{&PyWY+*Pb&VcR#m6(RCN>ScZ6cWOzQRjAe_z}S vKxue5_C3NFD4CC}a2V4}o%915Myzamo;s@ulWK-UWFEC0iNAu(Kj7&bF4>cn