github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-08 00:36:29 +00:00
Code Issues Projects Releases Wiki Activity

Track changes in parallel PR's, plus a few adjustments

Browse Source
This commit is contained in:
rmkaplan
2026-04-29 23:02:31 -07:00
parent efa423e016
commit bfbaeed7ee
16 changed files with 264 additions and 234 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
internal/loadups/LOADUP-FULL
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "16-Apr-2026 09:37:27" {WMEDLEY}<internal>loadups>LOADUP-FULL.;46 5817
(FILECREATED "28-Apr-2026 10:01:06" {WMEDLEY}<internal>loadups>LOADUP-FULL.;47 5896
:EDIT-BY rmk
:CHANGES-TO (FNS LOADFULLFONTS)
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE "14-Feb-2026 00:42:39" {WMEDLEY}<internal>loadups>LOADUP-FULL.;38)
:PREVIOUS-DATE "16-Apr-2026 09:37:27" {WMEDLEY}<internal>loadups>LOADUP-FULL.;46)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +45,8 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA (DRIBBLEFILE) (* ; "Edited 14-Feb-2026 00:42 by rmk")
[LAMBDA (DRIBBLEFILE) (* ; "Edited 28-Apr-2026 10:00 by rmk")
(* ; "Edited 14-Feb-2026 00:42 by rmk")
(* ; "Edited 5-Feb-2026 10:26 by rmk")
(* ; "Edited 28-Dec-2025 12:06 by rmk")
(* ; "Edited 1-Sep-2025 11:59 by rmk")
@@ -84,8 +85,7 @@
(LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT HELPSYS
DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT
UNIXYCD))
DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT))
(LOADFULLFONTS)
(COND
((WINDOWP *WHO-LINE*)
@@ -101,5 +101,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (458 5779 (LOADFULLFONTS 468 . 2451) (LOADUP-FULL 2453 . 5529) (FIXMETA 5531 . 5777)))))
(FILEMAP (NIL (456 5858 (LOADFULLFONTS 466 . 2449) (LOADUP-FULL 2451 . 5608) (FIXMETA 5610 . 5856)))))
STOP

BIN
internal/loadups/LOADUP-FULL.LCOM
View File

Binary file not shown.

27
library/UNIXUTILS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "27-Apr-2026 11:10:07" {DSK}<home>frank>il>medley>library>UNIXUTILS.;7 21772
(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61 22079
:EDIT-BY "FGH"
:EDIT-BY rmk
:CHANGES-TO (FNS ShellOpen SLASHIT)
:CHANGES-TO (VARS UNIXUTILSCOMS)
:PREVIOUS-DATE "31-Mar-2026 00:14:19" {DSK}<home>frank>il>medley>library>UNIXUTILS.;3)
:PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
(PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -23,6 +23,7 @@
(ShellOpener NIL RESET)))
(FNS ShellBrowser ShellBrowse ShellOpener ShellOpen PROCESS-COMMAND SLASHIT UNIX-FILE-NAME
UNIX-TMP-FILE-NAME)
(COMMANDS "cd" cdm "ls" "pwd")
(PROPS (UNIXUTILS FILETYPE))))
(DECLARE%: EVAL@COMPILE DONTCOPY
@@ -371,10 +372,20 @@
unless (INFILEP UNAME) do (RETURN (SLASHIT (CLOSEF (OPENSTREAM UNAME 'OUTPUT 'NEW])
)
(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR
(CONCAT '{MEDLEY}/ SUBDIR)
'{MEDLEY})))
(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
(PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21694
(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20013) (
UNIX-TMP-FILE-NAME 20015 . 21692)))))
(FILEMAP (NIL (1208 1581 (ShellCommand 1208 . 1581)) (1583 1980 (ShellWhich 1583 . 1980)) (2090 21695
(ShellBrowser 2100 . 3872) (ShellBrowse 3874 . 4559) (ShellOpener 4561 . 6249) (ShellOpen 6251 . 12198
) (PROCESS-COMMAND 12200 . 12813) (SLASHIT 12815 . 16127) (UNIX-FILE-NAME 16129 . 20014) (
UNIX-TMP-FILE-NAME 20016 . 21693)))))
STOP

BIN
library/UNIXUTILS.DFASL
View File

Binary file not shown.

135
lispusers/COMPAREDIRECTORIES
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "31-Mar-2026 10:50:22" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;287 138875
(FILECREATED "28-Apr-2026 23:41:24" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289 139726
:EDIT-BY rmk
:CHANGES-TO (FNS CDBROWSER-COPY)
:CHANGES-TO (FNS CDFILES.PATS CDFILES.MATCH CDBROWSER-COPY)
:PREVIOUS-DATE "10-Feb-2026 21:28:55" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;286)
:PREVIOUS-DATE "28-Apr-2026 21:38:49" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;288)
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
@@ -507,32 +507,37 @@
UNLESS (CDFILES.MATCH SUBDIR NAME EXT THISDEPTH EXCLUDES) COLLECT FULLNAME])
(CDFILES.MATCH
[LAMBDA (SUBDIR NAME EXT THISDEPTH PATTERNS) (* ; "Edited 26-Jan-2022 15:33 by rmk")
[LAMBDA (SUBDIR NAME EXT THISDEPTH PATTERNS) (* ; "Edited 28-Apr-2026 23:40 by rmk")
(* ; "Edited 26-Jan-2022 15:33 by rmk")
(* ; "Edited 23-Dec-2021 21:47 by rmk")
(thereis P in PATTERNS suchthat
(* ;; "True if the components of the fullname match at least one of the patterns")
(* ;; "The SUBDIR test is tricky. If the exclusion pattern was internal/fonts/**, this shows up as (* * internal/fonts 65535), it has to match internal/fonts/display/completed/. Below we test for an initial substring")
(THEREIS P IN PATTERNS SUCHTHAT (AND [OR (STRING.EQUAL NAME (CAR P)
FILEDIRCASEARRAY)
(EQ '* (CAR P))
(AND (EQ (CHARCODE %.)
(CHCON1 (CAR P)))
(EQ (CHARCODE %.)
(CHCON1 NAME))
(OR (STRING.EQUAL NAME (SUBATOM (CAR P)
2))
(EQ (CHARCODE *)
(NTHCHARCODE (CAR P)
2]
(OR (STRING.EQUAL EXT (CADR P))
(EQ '* (CADR P)))
(OR (STRING.EQUAL SUBDIR (CADDR P))
(NULL (CADDR P))
(EQ '* (CADDR P)))
(ILEQ THISDEPTH (CADDDR P])
(AND [OR (STRING.EQUAL NAME (CAR P)
FILEDIRCASEARRAY)
(EQ '* (CAR P))
(AND (EQ (CHARCODE %.)
(CHCON1 (CAR P)))
(EQ (CHARCODE %.)
(CHCON1 NAME))
(OR (STRING.EQUAL NAME (SUBATOM (CAR P)
2))
(EQ (CHARCODE *)
(NTHCHARCODE (CAR P)
2]
(OR (STRING.EQUAL EXT (CADR P))
(EQ '* (CADR P)))
(ILEQ THISDEPTH (CADDDR P))
(OR (STRING.EQUAL SUBDIR (CADDR P))
(NULL (CADDR P))
(EQ '* (CADDR P))
(STRPOS (CADDR P)
SUBDIR 1 NIL T])
(CDFILES.PATS
[LAMBDA (PATTERNS) (* ; "Edited 17-Jun-2023 23:36 by rmk")
[LAMBDA (PATTERNS) (* ; "Edited 28-Apr-2026 23:01 by rmk")
(* ; "Edited 17-Jun-2023 23:36 by rmk")
(* ; "Edited 23-Dec-2021 17:02 by rmk")
(* ;; "Returns (NAME EXT SUBDIR DEPTH) items where NAME or EXT may be the wildcard *, SD is the subdirectory (if any) and DEPTH is the number of / or > in the subdirectory")
@@ -544,15 +549,15 @@
(* * NIL 1)
)
ELSE (FOR P N E SD DEPTH UNPACK INSIDE PATTERNS
JOIN (SETQ UNPACK (UNPACKFILENAME.STRING P)) (* ;
JOIN (SETQ UNPACK (UNPACKFILENAME P)) (* ;
 "String so we can tell the difference between x and x.")
[SETQ SD (MKATOM (LISTGET UNPACK 'SUBDIRECTORY]
(SETQ SD (LISTGET UNPACK 'SUBDIRECTORY))
(* ;; "Count the subdirectory depth")
[SETQ DEPTH (IF (EQ SD '*)
THEN MAX.SMALLP
ELSE (FOR I (CNT _ 1) FROM 1 DO (SELCHARQ (NTHCHARCODE SD I)
[SETQ DEPTH (if (EQ SD '*)
then MAX.SMALLP
else (for I (CNT _ 1) from 1 do (SELCHARQ (NTHCHARCODE SD I)
((/ >)
(ADD CNT 1))
(NIL (RETURN CNT))
@@ -560,28 +565,31 @@
(SETQ N (LISTGET UNPACK 'NAME))
(SETQ N (if (NULL N)
then '*
elseif (EQ N '**)
then (SETQ DEPTH MAX.SMALLP)
'*
elseif (NEQ 0 (NCHARS N))
then (MKATOM N)))
then N))
(SETQ E (LISTGET UNPACK 'EXTENSION))
(SETQ E (if (NULL E)
then '*
elseif (NEQ 0 (NCHARS E))
then (MKATOM E)))
(if [OR (AND (STRING.EQUAL N 'COM)
then E))
(if [OR (AND (EQ N 'COM)
(NULL E))
(AND (STRING.EQUAL E 'COM)
(AND (EQ E 'COM)
(MEMB N ' (* NIL)]
THEN (FOR CE IN *COMPILED-EXTENSIONS* COLLECT (LIST '* CE SD DEPTH))
ELSE (CONS (IF N
THEN (LIST N E SD DEPTH)
ELSEIF E
THEN
then (for CE in *COMPILED-EXTENSIONS* collect (LIST '* CE SD DEPTH))
else (CONS (if N
then (LIST N E SD DEPTH)
elseif E
then
(* ;; "This is the case .XXX, which presumably identifies a dotted file. If this is supposed to be all files with extension XXX, it shoud be specified as *.XXX, the case above. So we move .E into the N field.")
(LIST (PACK* '%. E)
NIL SD DEPTH)
ELSE `
else `
(* * (\, SD) (\, DEPTH))
])
@@ -2146,7 +2154,8 @@
NIL])
(CDBROWSER-COPY
[LAMBDA (CDBROWSER TBITEM SOURCE UNIXDEST) (* ; "Edited 31-Mar-2026 10:49 by rmk")
[LAMBDA (CDBROWSER TBITEM SOURCE UNIXDEST) (* ; "Edited 28-Apr-2026 18:54 by rmk")
(* ; "Edited 31-Mar-2026 10:49 by rmk")
(* ; "Edited 28-Oct-2025 17:39 by rmk")
(* ; "Edited 25-Oct-2025 23:58 by rmk")
(* ; "Edited 24-May-2022 15:49 by rmk")
@@ -2185,7 +2194,8 @@
(PRIN3 "No source file to copy" T)
(RETURN NIL))
(CL:WHEN [AND (EQ DATERELBAD (FETCH (CDENTRY DATEREL) OF CDENTRY))
(PROGN (FLASHWINDOW T)
(PROGN (GIVE.TTY.PROCESS T)
(FLASHWINDOW T)
(EQ 'N (ASKUSER NIL NIL
"Target is newer than source. Really copy? "]
(RETURN NIL))
@@ -2195,6 +2205,7 @@
))
'VERSION))
(PROGN (FLASHWINDOW T)
(GIVE.TTY.PROCESS T)
(EQ 'N (ASKUSER NIL NIL (CONCAT SOURCEFILE
" is not the newest version. Really copy? "
]
@@ -2326,25 +2337,25 @@
(MOVD? 'NILL 'TEDIT.FILEDATE)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2658 23637 (COMPAREDIRECTORIES 2668 . 8003) (COMPAREDIRECTORIES.INFOS 8005 . 11234) (
COMPAREDIRECTORIES.CANDIDATES 11236 . 14621) (CDENTRIES.SELECT 14623 . 19525) (
COMPAREDIRECTORIES.INFOS.TYPE 19527 . 20871) (MATCHNAME 20873 . 21553) (CD.INSURECDVALUE 21555 . 23169
) (CD.UPDATEWIDTHS 23171 . 23635)) (23638 34343 (CDFILES 23648 . 29745) (CDFILES.MATCH 29747 . 31372)
(CDFILES.PATS 31374 . 34341)) (34344 52362 (CDPRINT 34354 . 36871) (CDPRINT.HEADER 36873 . 37770) (
CDPRINT.LINE 37772 . 41201) (CDPRINT.MAXWIDTHS 41203 . 45318) (CDPRINT.COLHEADERS 45320 . 46605) (
CDPRINT.COLUMNS 46607 . 51727) (CDTEDIT 51729 . 52360)) (52363 61484 (CDMAP 52373 . 53805) (CDENTRY
53807 . 54116) (CDSUBSET 54118 . 55557) (CDMERGE 55559 . 59543) (CDMERGE.COMMON 59545 . 60860) (
CD.SORT 60862 . 61482)) (61485 69023 (BINCOMP 61495 . 65784) (EOLTYPE 65786 . 68348) (EOLTYPE.SHOW
68350 . 69021)) (69551 82078 (FIND-UNCOMPILED-FILES 69561 . 73204) (FIND-UNSOURCED-FILES 73206 . 75590
) (FIND-SOURCE-FILES 75592 . 77330) (FIND-COMPILED-FILES 77332 . 79209) (FIND-UNLOADED-FILES 79211 .
80064) (FIND-LOADED-FILES 80066 . 80494) (FIND-MULTICOMPILED-FILES 80496 . 82076)) (82079 90510 (
CREATED-AS 82089 . 86886) (SOURCE-FOR-COMPILED-P 86888 . 89815) (COMPILE-SOURCE-DATE-DIFF 89817 .
90508)) (90511 101274 (FIX-DIRECTORY-DATES 90521 . 93971) (FIX-EQUIV-DATES 93973 . 95498) (
COPY-COMPARED-FILES 95500 . 97321) (COPY-MISSING-FILES 97323 . 99480) (COMPILED-ON-SAME-SOURCE 99482
. 101272)) (101468 109346 (CDBROWSER 101478 . 105445) (CDBROWSER.STRINGS 105447 . 109344)) (109508
111244 (CD.TABLEITEM 109518 . 109738) (CD.TABLEITEM.PRINTFN 109740 . 109939) (CD.TABLEITEM.COPYFN
109941 . 110999) (CDTABLEBROWSER.HEADING.REPAINTFN 111001 . 111242)) (111245 138359 (
CDTABLEBROWSER.WHENSELECTEDFN 111255 . 111723) (CD.COMMANDSELECTEDFN 111725 . 117898) (CD-MENUFN
117900 . 124377) (CD-COMPARE-FILES 124379 . 127906) (CDBROWSER-COPY 127908 . 133233) (
CDBROWSER-DELETE-FILE 133235 . 137838) (CD-SWAPDIRS 137840 . 138357)))))
(FILEMAP (NIL (2683 23662 (COMPAREDIRECTORIES 2693 . 8028) (COMPAREDIRECTORIES.INFOS 8030 . 11259) (
COMPAREDIRECTORIES.CANDIDATES 11261 . 14646) (CDENTRIES.SELECT 14648 . 19550) (
COMPAREDIRECTORIES.INFOS.TYPE 19552 . 20896) (MATCHNAME 20898 . 21578) (CD.INSURECDVALUE 21580 . 23194
) (CD.UPDATEWIDTHS 23196 . 23660)) (23663 34971 (CDFILES 23673 . 29770) (CDFILES.MATCH 29772 . 31782)
(CDFILES.PATS 31784 . 34969)) (34972 52990 (CDPRINT 34982 . 37499) (CDPRINT.HEADER 37501 . 38398) (
CDPRINT.LINE 38400 . 41829) (CDPRINT.MAXWIDTHS 41831 . 45946) (CDPRINT.COLHEADERS 45948 . 47233) (
CDPRINT.COLUMNS 47235 . 52355) (CDTEDIT 52357 . 52988)) (52991 62112 (CDMAP 53001 . 54433) (CDENTRY
54435 . 54744) (CDSUBSET 54746 . 56185) (CDMERGE 56187 . 60171) (CDMERGE.COMMON 60173 . 61488) (
CD.SORT 61490 . 62110)) (62113 69651 (BINCOMP 62123 . 66412) (EOLTYPE 66414 . 68976) (EOLTYPE.SHOW
68978 . 69649)) (70179 82706 (FIND-UNCOMPILED-FILES 70189 . 73832) (FIND-UNSOURCED-FILES 73834 . 76218
) (FIND-SOURCE-FILES 76220 . 77958) (FIND-COMPILED-FILES 77960 . 79837) (FIND-UNLOADED-FILES 79839 .
80692) (FIND-LOADED-FILES 80694 . 81122) (FIND-MULTICOMPILED-FILES 81124 . 82704)) (82707 91138 (
CREATED-AS 82717 . 87514) (SOURCE-FOR-COMPILED-P 87516 . 90443) (COMPILE-SOURCE-DATE-DIFF 90445 .
91136)) (91139 101902 (FIX-DIRECTORY-DATES 91149 . 94599) (FIX-EQUIV-DATES 94601 . 96126) (
COPY-COMPARED-FILES 96128 . 97949) (COPY-MISSING-FILES 97951 . 100108) (COMPILED-ON-SAME-SOURCE 100110
. 101900)) (102096 109974 (CDBROWSER 102106 . 106073) (CDBROWSER.STRINGS 106075 . 109972)) (110136
111872 (CD.TABLEITEM 110146 . 110366) (CD.TABLEITEM.PRINTFN 110368 . 110567) (CD.TABLEITEM.COPYFN
110569 . 111627) (CDTABLEBROWSER.HEADING.REPAINTFN 111629 . 111870)) (111873 139210 (
CDTABLEBROWSER.WHENSELECTEDFN 111883 . 112351) (CD.COMMANDSELECTEDFN 112353 . 118526) (CD-MENUFN
118528 . 125005) (CD-COMPARE-FILES 125007 . 128534) (CDBROWSER-COPY 128536 . 134084) (
CDBROWSER-DELETE-FILE 134086 . 138689) (CD-SWAPDIRS 138691 . 139208)))))
STOP

BIN
lispusers/COMPAREDIRECTORIES.LCOM
View File

Binary file not shown.

158
lispusers/GITFNS
View File

@@ -1,12 +1,14 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "18-Apr-2026 21:36:33" {WMEDLEY}<lispusers>GITFNS.;582 134437
(FILECREATED "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592 137200
:EDIT-BY rmk
:CHANGES-TO (FNS GIT-BRANCH-MENU)
:CHANGES-TO (FNS GIT-GWC-COMMAND)
(COMMANDS gwc)
(VARS GITFNSCOMS)
:PREVIOUS-DATE "17-Apr-2026 12:39:29" {WMEDLEY}<lispusers>GITFNS.;581)
:PREVIOUS-DATE "29-Apr-2026 09:00:33" {MEDLEY}<lispusers>GITFNS.;588)
(PRETTYCOMPRINT GITFNSCOMS)
@@ -51,7 +53,7 @@
(INITVARS (GIT-MERGE-COMPARES T)
(GIT-CDBROWSER-SEPARATE-DIRECTIONS T))
(COMMANDS gwc bbc prc cob b? cdg cdw)
(FNS PRC-COMMAND)
(FNS PRC-COMMAND GIT-GWC-COMMAND)
(* ;; "")
@@ -60,7 +62,7 @@
(FNS ALLSUBDIRS MEDLEYSUBDIRS GITSUBDIRS)
(FNS TOGIT FROMGIT)
(FNS MYMEDLEYSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE)
(FNS WORKINGSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE)
(FNS GFILE4MFILE MFILE4GFILE GIT-REPO-FILENAME)
(* ;; "")
@@ -169,6 +171,7 @@
(GIT-MAKE-PROJECT
[LAMBDA (PROJECTNAME CLONEPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS)
(* ; "Edited 29-Apr-2026 09:00 by rmk")
(* ; "Edited 17-Apr-2026 12:33 by rmk")
(* ; "Edited 15-Apr-2026 16:33 by rmk")
(* ; "Edited 25-Feb-2026 23:25 by rmk")
@@ -244,8 +247,7 @@
(SETQ EXCLUSIONS (CL:REMOVE-DUPLICATES (APPEND (for E inside EXCLUSIONS
collect (MKSTRING E))
GITIGNORE
`("deleted/" "*.sysout"
"internal/fonts/*/*"))
`("deleted/" "*.sysout"))
:TEST
(FUNCTION STRING.EQUAL)))
@@ -443,18 +445,7 @@
(RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T)
(DEFCOMMAND gwc (SUBDIR . OTHERS)
(* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project")
(LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS)))
PROJECT)
(SETQ SUBDIRS (FOR STAIL ON SUBDIRS COLLECT (IF (GIT-GET-PROJECT (CAR STAIL)
NIL T)
THEN (SETQ PROJECT (CAR STAIL))
(GO $$OUT))
(CAR STAIL)))
(GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL NIL NIL T PROJECT)))
(DEFCOMMAND gwc (SUBDIR . OTHERS) (GIT-GWC-COMMAND SUBDIR OTHERS))
(DEFCOMMAND bbc (BRANCH1 BRANCH2 LOCAL PROJECT)
@@ -620,6 +611,32 @@
PROJECT))
else (CONCAT "No open " (OR REMOTEBRANCH "")
" pull requests"])
(GIT-GWC-COMMAND
[LAMBDA (SUBDIR OTHERS) (* ; "Edited 29-Apr-2026 12:51 by rmk")
(* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project, which may be followed by - and some excluded files")
(LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS)))
EXCLUDEDFILES PROJECT)
(SETQ SUBDIRS (for STAIL on SUBDIRS unless (CL:WHEN (AND (NULL PROJECT)
(SETQ PROJECT (GIT-GET-PROJECT
(CAR STAIL)
NIL T)))
(CL:UNLESS (EQ '- (CADR STAIL))
(RETURN $$VAL))
T) collect (CL:WHEN (EQ '- (CAR STAIL))
(SETQ EXCLUDEDFILES
(CDR STAIL))
(RETURN $$VAL))
(CAR STAIL)))
(CL:UNLESS PROJECT
(SETQ PROJECT (GIT-GET-PROJECT PROJECT)))
(if (AND (fetch GITHOST of PROJECT)
(fetch WHOST of PROJECT))
then (GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL EXCLUDEDFILES NIL T PROJECT)
else (PRINTOUT T "gwc requires " (fetch PROJECTNAME of PROJECT)
" to have both git and working directories" T T])
)
@@ -731,7 +748,7 @@
)
(DEFINEQ
(MYMEDLEYSUBDIR
(WORKINGSUBDIR
[LAMBDA (SUBDIR STAR PROJECT) (* ; "Edited 13-May-2022 10:40 by rmk")
(* ; "Edited 7-May-2022 23:15 by rmk")
(UNSLASHIT (PACK* (PACKFILENAME 'HOST (FETCH WHOST OF PROJECT)
@@ -1953,6 +1970,8 @@
(GIT-WORKING-COMPARE-DIRECTORIES
[LAMBDA (SUBDIRS SELECT EXCLUDEDFILES FIXDIRECTORYDATES UPDATE PROJECT)
(* ;; "Edited 29-Apr-2026 08:46 by rmk")
(* ;; "Edited 28-Oct-2025 14:00 by rmk")
(* ;; "Edited 25-Oct-2025 23:32 by rmk")
@@ -1963,18 +1982,12 @@
(* ;; "Edited 26-Sep-2023 22:41 by rmk")
(* ;; "Edited 17-Jun-2023 22:54 by rmk")
(* ;; "Edited 10-Jun-2023 21:32 by rmk")
(* ;; "Edited 20-Jul-2022 21:18 by rmk")
(* ;; "Edited 25-Jun-2022 21:37 by rmk")
(* ;; "Edited 17-May-2022 17:39 by rmk")
(* ;; "Edited 10-May-2022 10:41 by rmk")
(* ;;
 "Edited 29-Mar-2022 13:58 by rmk: working medley subdirectories with the current local git branch.")
@@ -1994,7 +2007,8 @@
(LET ((SUBDIRSTRING (if (EQ SUBDIRS 'all)
then (SETQ SUBDIRS (ALLSUBDIRS PROJECT))
"ALL subdirectories"
else SUBDIRS)))
else SUBDIRS))
(EXCLUSIONS))
(for SUBDIR TITLE CDVAL (WPROJ ← (CONCAT "Working " (L-CASE (fetch PROJECTNAME of PROJECT)
T)))
(NENTRIES ← 0)
@@ -2002,11 +2016,12 @@
first (PRINTOUT T "Comparing " SUBDIRSTRING 6 " of " WPROJ " and Git " BRANCH2 T)
(BKSYSBUF " ") inside SUBDIRS
collect (TERPRI T)
(SETQ CDVAL (COMPAREDIRECTORIES (MYMEDLEYSUBDIR SUBDIR T PROJECT)
(SETQ CDVAL (COMPAREDIRECTORIES (WORKINGSUBDIR SUBDIR T PROJECT)
(GITSUBDIR SUBDIR T PROJECT)
(OR SELECT '(> < ~= -* *-))
'(*.* *>*.* .* *>.*)
(for E DPOS in (GIT-GET-PROJECT PROJECT 'EXCLUSIONS)
(for E DPOS in (APPEND (MKLIST EXCLUDEDFILES)
(GIT-GET-PROJECT PROJECT 'EXCLUSIONS))
collect (SETQ DPOS (STRPOS SUBDIR (FILENAMEFIELD E
'DIRECTORY)
1 NIL T T FILEDIRCASEARRAY))
@@ -2219,7 +2234,7 @@
(OR LABEL2 FILE2])
(GIT-CD-MENUFN
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY) (* ; "Edited 28-Oct-2025 11:50 by rmk")
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY) (* ; "Edited 28-Oct-2025 11:30 by rmk")
(* ; "Edited 25-Oct-2025 23:44 by rmk")
(* ; "Edited 21-Sep-2022 21:34 by rmk")
(* ; "Edited 22-May-2022 19:13 by rmk")
@@ -2228,9 +2243,32 @@
(* ;; "MENUITEM is of the form (display-atom <this function> . extrainfo). The selector for the selectq is either the CAR of the extrainfo or the display atom")
(DECLARE (USEDFREE FILE1 FILE2 LABEL2 TYPE CDENTRY USERDATA PWINDOW))
(DECLARE (USEDFREE FILE1 FILE2 LABEL2 TYPE CDENTRY USERDATA))
(SELECTQ (OR (CADDR MENUITEM)
(CAR MENUITEM))
(Delete% -> (FLASHWINDOW PWINDOW)
(GIVE.TTY.PROCESS PWINDOW)
(CL:WHEN [OR (EQ KEY 'MIDDLE)
(EQ 'Y (ASKUSER NIL 'N (CONCAT "Delete " LABEL2 " ? "]
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT NIL T)))
(|Delete ALL <-|
(FLASHWINDOW PWINDOW)
(GIVE.TTY.PROCESS PWINDOW)
(if (NAMEFIELD LABEL1 T)
then (CL:WHEN [OR (EQ KEY 'MIDDLE)
(EQ 'Y (ASKUSER NIL 'N (CONCAT "Delete ALL versions of "
(NAMEFIELD LABEL1 T)
" ? "]
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT NIL T))
else (PRINTOUT T "Nothing to delete")))
(Delete% BOTH (FLASHWINDOW PWINDOW)
(GIVE.TTY.PROCESS PWINDOW)
(CL:WHEN (EQ 'Y (ASKUSER NIL 'N (CONCAT
"Delete all Medley and git versions of "
(NAMEFIELD LABEL1 T)
" ? ")))
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT NIL T)
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT NIL T T)))
(Copy% -> (CDBROWSER-COPY CDBROWSER TBITEM 'LEFT (CADDDR MENUITEM)))
(SHOULDNT])
@@ -2432,33 +2470,33 @@
(PUTPROPS GITFNS FILETYPE :TCOMPL)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4175 21435 (GIT-CLONEP 4185 . 5616) (GIT-INIT 5618 . 6248) (GIT-MAKE-PROJECT 6250 .
14489) (GIT-GET-PROJECT 14491 . 16416) (GIT-PUT-PROJECT-FIELD 16418 . 18059) (GIT-PROJECT-PATH 18061
. 19105) (FIND-ANCESTOR-DIRECTORY 19107 . 19458) (GIT-FIND-CLONE 19460 . 20543) (GIT-MAINBRANCH 20545
. 20940) (GIT-MAINBRANCH? 20942 . 21433)) (26898 32192 (PRC-COMMAND 26908 . 32190)) (32248 35036 (
ALLSUBDIRS 32258 . 33544) (MEDLEYSUBDIRS 33546 . 34239) (GITSUBDIRS 34241 . 35034)) (35037 37442 (
TOGIT 35047 . 36455) (FROMGIT 36457 . 37440)) (37443 40453 (MYMEDLEYSUBDIR 37453 . 37909) (GITSUBDIR
37911 . 38354) (STRIPDIR 38356 . 38734) (STRIPHOST 38736 . 38976) (STRIPNAME 38978 . 39731) (
STRIPWHERE 39733 . 40451)) (40454 42689 (GFILE4MFILE 40464 . 41160) (MFILE4GFILE 41162 . 41731) (
GIT-REPO-FILENAME 41733 . 42687)) (42738 52995 (GIT-COMMIT 42748 . 43574) (GIT-PUSH 43576 . 44336) (
GIT-PULL 44338 . 45090) (GIT-APPROVAL 45092 . 45441) (GIT-GET-FILE 45443 . 47358) (GIT-FILE-EXISTS?
47360 . 47634) (GIT-REMOTE-UPDATE 47636 . 48471) (GIT-REMOTE-ADD 48473 . 48780) (GIT-FILE-DATE 48782
. 49829) (GIT-FILE-HISTORY 49831 . 51765) (GIT-PRINT-FILE-HISTORY 51767 . 52819) (GIT-FETCH 52821 .
52993)) (53025 64977 (GIT-BRANCH-DIFF 53035 . 59924) (GIT-COMMIT-DIFFS 59926 . 60817) (
GIT-BRANCH-RELATIONS 60819 . 64503) (GIT-MODIFIED 64505 . 64975)) (65022 83969 (GIT-BRANCH-NUM 65032
. 65605) (GIT-CHECKOUT 65607 . 66893) (GIT-WHICH-BRANCH 66895 . 67302) (GIT-MAKE-BRANCH 67304 . 69883
) (GIT-BRANCHES 69885 . 72482) (GIT-BRANCH-EXISTS? 72484 . 73355) (GIT-PICK-BRANCH 73357 . 73847) (
GIT-BRANCH-MENU 73849 . 74750) (GIT-BRANCH-WHENSELECTEDFN 74752 . 76459) (GIT-PULL-REQUESTS 76461 .
80346) (GIT-SHORT-BRANCH-NAME 80348 . 80639) (GIT-LONG-NAME 80641 . 80958) (GIT-PRC-BRANCHES 80960 .
83967)) (83999 88753 (GIT-MY-CURRENT-BRANCH 84009 . 84379) (GIT-MY-BRANCHP 84381 . 84999) (
GIT-MY-NEXT-BRANCH 85001 . 86801) (GIT-MY-BRANCHES 86803 . 88751)) (88799 92883 (GIT-ADD-WORKTREE
88809 . 90416) (GIT-REMOVE-WORKTREE 90418 . 91350) (GIT-LIST-WORKTREES 91352 . 92163) (WORKTREEDIR
92165 . 92881)) (92931 125969 (GIT-GET-DIFFERENT-FILES 92941 . 99849) (
GIT-BRANCHES-COMPARE-DIRECTORIES 99851 . 107490) (GIT-WORKING-COMPARE-DIRECTORIES 107492 . 113294) (
GIT-COMPARE-WORKTREE 113296 . 117274) (GITCDOBJBUTTONFN 117276 . 121774) (GIT-CD-LABELFN 121776 .
122862) (GIT-CD-MENUFN 122864 . 123950) (GIT-WORKING-COMPARE-FILES 123952 . 124572) (
GIT-BRANCHES-COMPARE-FILES 124574 . 125738) (GIT-PR-COMPARE 125740 . 125967)) (126039 134370 (CDGITDIR
126049 . 126736) (GIT-COMMAND 126738 . 128296) (GITORIGIN 128298 . 128995) (GIT-INITIALS 128997 .
129301) (GIT-COMMAND-TO-FILE 129303 . 132788) (GIT-RESULT-TO-LINES 132790 . 133703) (STRIPLOCAL 133705
. 134368)))))
(FILEMAP (NIL (4257 21537 (GIT-CLONEP 4267 . 5698) (GIT-INIT 5700 . 6330) (GIT-MAKE-PROJECT 6332 .
14591) (GIT-GET-PROJECT 14593 . 16518) (GIT-PUT-PROJECT-FIELD 16520 . 18161) (GIT-PROJECT-PATH 18163
. 19207) (FIND-ANCESTOR-DIRECTORY 19209 . 19560) (GIT-FIND-CLONE 19562 . 20645) (GIT-MAINBRANCH 20647
. 21042) (GIT-MAINBRANCH? 21044 . 21535)) (26309 33483 (PRC-COMMAND 26319 . 31601) (GIT-GWC-COMMAND
31603 . 33481)) (33539 36327 (ALLSUBDIRS 33549 . 34835) (MEDLEYSUBDIRS 34837 . 35530) (GITSUBDIRS
35532 . 36325)) (36328 38733 (TOGIT 36338 . 37746) (FROMGIT 37748 . 38731)) (38734 41743 (
WORKINGSUBDIR 38744 . 39199) (GITSUBDIR 39201 . 39644) (STRIPDIR 39646 . 40024) (STRIPHOST 40026 .
40266) (STRIPNAME 40268 . 41021) (STRIPWHERE 41023 . 41741)) (41744 43979 (GFILE4MFILE 41754 . 42450)
(MFILE4GFILE 42452 . 43021) (GIT-REPO-FILENAME 43023 . 43977)) (44028 54285 (GIT-COMMIT 44038 . 44864)
(GIT-PUSH 44866 . 45626) (GIT-PULL 45628 . 46380) (GIT-APPROVAL 46382 . 46731) (GIT-GET-FILE 46733 .
48648) (GIT-FILE-EXISTS? 48650 . 48924) (GIT-REMOTE-UPDATE 48926 . 49761) (GIT-REMOTE-ADD 49763 .
50070) (GIT-FILE-DATE 50072 . 51119) (GIT-FILE-HISTORY 51121 . 53055) (GIT-PRINT-FILE-HISTORY 53057 .
54109) (GIT-FETCH 54111 . 54283)) (54315 66267 (GIT-BRANCH-DIFF 54325 . 61214) (GIT-COMMIT-DIFFS 61216
. 62107) (GIT-BRANCH-RELATIONS 62109 . 65793) (GIT-MODIFIED 65795 . 66265)) (66312 85259 (
GIT-BRANCH-NUM 66322 . 66895) (GIT-CHECKOUT 66897 . 68183) (GIT-WHICH-BRANCH 68185 . 68592) (
GIT-MAKE-BRANCH 68594 . 71173) (GIT-BRANCHES 71175 . 73772) (GIT-BRANCH-EXISTS? 73774 . 74645) (
GIT-PICK-BRANCH 74647 . 75137) (GIT-BRANCH-MENU 75139 . 76040) (GIT-BRANCH-WHENSELECTEDFN 76042 .
77749) (GIT-PULL-REQUESTS 77751 . 81636) (GIT-SHORT-BRANCH-NAME 81638 . 81929) (GIT-LONG-NAME 81931 .
82248) (GIT-PRC-BRANCHES 82250 . 85257)) (85289 90043 (GIT-MY-CURRENT-BRANCH 85299 . 85669) (
GIT-MY-BRANCHP 85671 . 86289) (GIT-MY-NEXT-BRANCH 86291 . 88091) (GIT-MY-BRANCHES 88093 . 90041)) (
90089 94173 (GIT-ADD-WORKTREE 90099 . 91706) (GIT-REMOVE-WORKTREE 91708 . 92640) (GIT-LIST-WORKTREES
92642 . 93453) (WORKTREEDIR 93455 . 94171)) (94221 128732 (GIT-GET-DIFFERENT-FILES 94231 . 101139) (
GIT-BRANCHES-COMPARE-DIRECTORIES 101141 . 108780) (GIT-WORKING-COMPARE-DIRECTORIES 108782 . 114597) (
GIT-COMPARE-WORKTREE 114599 . 118577) (GITCDOBJBUTTONFN 118579 . 123077) (GIT-CD-LABELFN 123079 .
124165) (GIT-CD-MENUFN 124167 . 126713) (GIT-WORKING-COMPARE-FILES 126715 . 127335) (
GIT-BRANCHES-COMPARE-FILES 127337 . 128501) (GIT-PR-COMPARE 128503 . 128730)) (128802 137133 (CDGITDIR
128812 . 129499) (GIT-COMMAND 129501 . 131059) (GITORIGIN 131061 . 131758) (GIT-INITIALS 131760 .
132064) (GIT-COMMAND-TO-FILE 132066 . 135551) (GIT-RESULT-TO-LINES 135553 . 136466) (STRIPLOCAL 136468
. 137131)))))
STOP

BIN
lispusers/GITFNS.LCOM
View File

Binary file not shown.

BIN
lispusers/GITFNS.TEDIT
View File

Binary file not shown.

28
lispusers/UNIXYCD
View File

@@ -1,28 +0,0 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "27-Apr-2026 23:10:40" {WMEDLEY}<lispusers>UNIXYCD.;2 738
:EDIT-BY rmk
:CHANGES-TO (VARS UNIXYCDCOMS)
(COMMANDS cdm)
:PREVIOUS-DATE "12-Aug-2022 12:29:18" {MEDLEY}<lispusers>UNIXYCD.;1)
(PRETTYCOMPRINT UNIXYCDCOMS)
(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" cdm "ls" "pwd")))
(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR
(CONCAT '{MEDLEY}/ SUBDIR)
'{MEDLEY})))
(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP

14
sources/LLDISPLAY
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-Apr-2026 16:35:04" {WMEDLEY}<sources>LLDISPLAY.;52 272165
(FILECREATED "28-Apr-2026 00:08:21" {WMEDLEY}<sources>LLDISPLAY.;54 272196
:EDIT-BY rmk
:CHANGES-TO (FNS INITIALIZEDISPLAYSTREAMS)
:PREVIOUS-DATE "31-Mar-2026 17:52:08" {WMEDLEY}<sources>LLDISPLAY.;51)
:PREVIOUS-DATE "28-Apr-2026 00:04:31" {WMEDLEY}<sources>LLDISPLAY.;53)
(PRETTYCOMPRINT LLDISPLAYCOMS)
@@ -4577,7 +4577,8 @@
(DEFINEQ
(INITIALIZEDISPLAYSTREAMS
[LAMBDA NIL (* ; "Edited 15-Apr-2026 00:25 by rmk")
[LAMBDA NIL (* ; "Edited 28-Apr-2026 00:08 by rmk")
(* ; "Edited 15-Apr-2026 00:25 by rmk")
(* ; "Edited 31-Mar-2026 17:52 by rmk")
(* ; "Edited 18-Aug-2025 12:15 by rmk")
(* ; "Edited 6-Jul-2025 12:57 by rmk")
@@ -4589,14 +4590,13 @@
(* ;; "A guaranteed display font is initialized here after pup, font, and bitmap code has been loaded. This does not use FONTCREATE, so it doesn't depend on the argument checking and incore cache retrieval ")
(SETQ \GUARANTEEDDISPLAYFONT (MEDLEYFONT.READ.FONT [CAR (FONTFILES (MAKEFONTSPEC 'GACHA 10
'MRR 0 'DISPLAY]
(SETQ \GUARANTEEDDISPLAYFONT (MEDLEYFONT.READ.FONT
"{MEDLEY}<fonts>medleydisplayfonts>GACHA10-MRR.MEDLEYDISPLAYFONT"
0))
(* ;;
 "For some reason, charset 0 has to be instantiated, otherwise there is a divide by 0 in the loadup")
(\CREATECHARSET 0 \GUARANTEEDDISPLAYFONT)
(SETQ DEFAULTFONT (FONTCLASS 'DEFAULTFONT (LIST 1 \GUARANTEEDDISPLAYFONT])
)
(DECLARE%: DOCOPY DONTEVAL@LOAD
@@ -4660,5 +4660,5 @@ UPDATESCREENDIMENSIONS 253306 . 253935) (\CreateScreenBitMap 253937 . 255881)) (
\CoerceToDisplayDevice 256452 . 256865) (\CREATEDISPLAY 256867 . 258707) (DISPLAYSTREAMINIT 258709 .
261853) (\STARTDISPLAY 261855 . 264766) (\MOVE.WINDOWS.ONTO.SCREEN 264768 . 266960) (
\UPDATE.PBT.RASTERWIDTHS 266962 . 268744) (\STOPDISPLAY 268746 . 269238) (\DEFINEDISPLAYINFO 269240 .
269599)) (270209 271790 (INITIALIZEDISPLAYSTREAMS 270219 . 271788)))))
269599)) (270209 271821 (INITIALIZEDISPLAYSTREAMS 270219 . 271819)))))
STOP

40
sources/LLDISPLAY.LCOM
View File

@@ -1,9 +1,9 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-Apr-2026 16:35:04" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;52)
"11-Apr-2026 10:12:40" "COMPILE-FILEd" in "FULL 11-Apr-2026 ..." dated "11-Apr-2026 10:12:49")
(FILECREATED "15-Apr-2026 16:35:04" {WMEDLEY}<sources>LLDISPLAY.;52 272165 :EDIT-BY rmk :CHANGES-TO (
FNS INITIALIZEDISPLAYSTREAMS) :PREVIOUS-DATE "31-Mar-2026 17:52:08" {WMEDLEY}<sources>LLDISPLAY.;51)
(FILECREATED "28-Apr-2026 00:08:21" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;54)
"28-Apr-2026 00:01:36" "COMPILE-FILEd" in "FULL 28-Apr-2026 ..." dated "28-Apr-2026 00:01:44")
(FILECREATED "28-Apr-2026 00:08:21" {WMEDLEY}<sources>LLDISPLAY.;54 272196 :EDIT-BY rmk :CHANGES-TO (
FNS INITIALIZEDISPLAYSTREAMS) :PREVIOUS-DATE "28-Apr-2026 00:04:31" {WMEDLEY}<sources>LLDISPLAY.;53)
(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE
DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ;
"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION
@@ -193,7 +193,7 @@ BLTCHAR :D8
(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
()
\BLTCHAR :D8
(P 0 A0744 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh bÉ.ÉZ@ABlH(11 \GETSTREAM)
(P 0 A0175 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh bÉ.ÉZ@ABlH(11 \GETSTREAM)
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
()
\MEDW.BLTCHAR :D8
@@ -287,7 +287,7 @@ OPPOSITESHADE :D8
NIL
()
\MEDW.BITBLT :D8
(P 9 A0747 P 8 A0746 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0745 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
(P 9 A0178 P 8 A0177 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0176 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
 @ ³C ªo ¿@òZ@²WCi
Cgh É0HÉ2ÉHºHÉ2@ABCDEFGGGGGABlJ±–Cô‚±¯C´‚±¨@i
!@gh É0AIÉصABIÉصBKÉ2ÉJ_¿KÉ2IÉNOCDEFGGGGGNIÈ"¼dLñ¡¿LOIÈ$½dMñ¡¿MlO±Þ@
@@ -453,11 +453,11 @@ Q
(145 ERASE 138 INVERT 121 INVERT 110 PAINT 99 ERASE 86 \DISPLAYDATA 77 \DISPLAYDATA 53 INVERT 43 INPUT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
()
DSPXOFFSET :D8
(P 0 A0761 I 1 DISPLAYSTREAM I 0 XOFFSET) 'Agh bÉ.É\@AlH(11 \GETSTREAM)
(P 0 A0192 I 1 DISPLAYSTREAM I 0 XOFFSET) 'Agh bÉ.É\@AlH(11 \GETSTREAM)
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
()
DSPYOFFSET :D8
(P 0 A0762 I 1 DISPLAYSTREAM I 0 YOFFSET) 'Agh bÉ.É^@AlH(11 \GETSTREAM)
(P 0 A0193 I 1 DISPLAYSTREAM I 0 YOFFSET) 'Agh bÉ.É^@AlH(11 \GETSTREAM)
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
()
DSPDESTINATION :D8
@@ -509,20 +509,20 @@ I@A
(15 BITMAP 7 ScreenBitMap)
()
\COMMON.DSPCREATE :D8
(P 2 DSTRM I 3 OLDDSP I 2 IMAGEOPS I 1 FDEV I 0 DESTINATION F 5 DisplayFDEV F 6 OLDSTREAM) ÃCµ‚±ql djÏ0¿dg&¿`dj6¿dk.¿dk,¿`dkÏ
(P 2 DSTRM I 3 OLDDSP I 2 IMAGEOPS I 1 FDEV I 0 DESTINATION F 5 DisplayFDEV F 6 OLDSTREAM F 7 DEFAULTFONT) ÀCµ‚±nl djÏ0¿dg&¿`dj6¿dk.¿dk,¿`dkÏ
¿HdI*¿dj¿d`¿odnÿdhHdI
¿d`¿dj¿dj¿dj¿dj¿HdI0¿Bµ`HdI.¿AµUHdI
¿dkÏ 0¿dnÿÿÍ5¿`HdIÍ4¿dh2¿dg*¿dg$¿`HdIÍ¿dj¿dj¿dkÏ ¿dkÏ ¿djÍ¿dlÏ¿dh¿djÏ¿HdÉ
Éhµg
¿Hdg
¿!`J
¿!WJ
@J
`@ȼ[Ló²3K°1 ¦C ¿VAµU
¿VBµ`.¿C°©LJ
¿VBµ`.¿C°¬LJ
gJ
gJ
J(447 DSPOPERATION 436 DSPSOURCETYPE 425 DSPRIGHTMARGIN 384 \ILLEGAL.ARG 377 DISPLAYSTREAMP 350 DSPDESTINATION 343 DSPFONT 328 \SETACCESS 314 \EXTERNALFORMAT)
(441 REPLACE 430 INPUT 412 \DISPLAYIMAGEOPS 404 STREAM 391 STREAM 361 BITMAP 355 SCREENWIDTH 337 DEFAULTFONT 323 OUTPUT 309 :DEFAULT 300 FDEV 233 FILELINELENGTH 225 \STREAM.NOT.OPEN 216 \EOSERROR 195 \STREAM.DEFAULT.MAXBUFFERS 153 \DISPLAYIMAGEOPS 112 ScreenBitMap 78 SCREENWIDTH 50 |PILOTBBTTYPE#| 29 |\DISPLAYDATATYPE#| 21 \DSPPRINTCHAR)
J(444 DSPOPERATION 433 DSPSOURCETYPE 422 DSPRIGHTMARGIN 381 \ILLEGAL.ARG 374 DISPLAYSTREAMP 347 DSPDESTINATION 340 DSPFONT 328 \SETACCESS 314 \EXTERNALFORMAT)
(438 REPLACE 427 INPUT 409 \DISPLAYIMAGEOPS 401 STREAM 388 STREAM 358 BITMAP 352 SCREENWIDTH 323 OUTPUT 309 :DEFAULT 300 FDEV 233 FILELINELENGTH 225 \STREAM.NOT.OPEN 216 \EOSERROR 195 \STREAM.DEFAULT.MAXBUFFERS 153 \DISPLAYIMAGEOPS 112 ScreenBitMap 78 SCREENWIDTH 50 |PILOTBBTTYPE#| 29 |\DISPLAYDATATYPE#| 21 \DSPPRINTCHAR)
( 86 -16383)
(MOVD? (QUOTE \SIMPLE.DSPCREATE) (QUOTE DSPCREATE))
\MEDW.XOFFSET :D8
@@ -813,14 +813,12 @@ NIL
(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
(ADDTOVAR GLOBALVARS WHOLESCREEN)
INITIALIZEDISPLAYSTREAMS :D8
NIL zodnÿdh`ld
gl
gjg  j
j`
gk`h
(114 FONTCLASS 95 \CREATECHARSET 79 MEDLEYFONT.READ.FONT 72 FONTFILES 67 MAKEFONTSPEC 38 BITMAPCREATE)
(119 DEFAULTFONT 106 \GUARANTEEDDISPLAYFONT 100 DEFAULTFONT 90 \GUARANTEEDDISPLAYFONT 84 \GUARANTEEDDISPLAYFONT 61 DISPLAY 55 MRR 48 GACHA 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY)
( 4 -16383)
(F 0 \GUARANTEEDDISPLAYFONT F 1 DEFAULTFONT) Lodnÿdh`ld
oj
cgkPh
c(71 FONTCLASS 54 MEDLEYFONT.READ.FONT 38 BITMAPCREATE)
(61 DEFAULTFONT 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY)
( 48 "{MEDLEY}<fonts>medleydisplayfonts>GACHA10-MRR.MEDLEYDISPLAYFONT" 4 -16383)
(RPAQQ \DisplayStarted NIL)
(RPAQQ \LastTTYLines 12)
(INITIALIZEDISPLAYSTREAMS)

47
sources/LLREAD
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "17-Apr-2026 17:06:49" {WMEDLEY}<sources>LLREAD.;127 100004
(FILECREATED "29-Apr-2026 22:56:18" {MEDLEY}<sources>LLREAD.;128 100032
:EDIT-BY rmk
:CHANGES-TO (FNS CHARCODE.ENCODE)
(VARS LLREADCOMS)
:CHANGES-TO (VARS LLREADCOMS)
:PREVIOUS-DATE "17-Apr-2026 00:48:15" {WMEDLEY}<sources>LLREAD.;125)
:PREVIOUS-DATE "17-Apr-2026 17:06:49" {MEDLEY}<sources>LLREAD.;127)
(PRETTYCOMPRINT LLREADCOMS)
@@ -40,9 +39,9 @@
(ALISTS (CHARACTERNAMES Page Form FF Rubout Del Null Escape Esc Bell Tab Backspace Bs
Newline CR EOL Return Tenexeol Space Sp Linefeed LF Zero One Two Three
Four Five Six Seven Eight Nine INFINITY EMQUAD ENQUAD THINSPACE
HAIRSPACE FIGURESPACE LEFT-DOUBLEQUOTE RIGHT-DOUBLEQUOTE EMDASH Union
Intersection And Or Contourintegral Integral Summation Product Radical
All Exists Member INFINITY Notmember)
HAIRSPACE FIGURESPACE LEFT-DOUBLEQUOTE RIGHT-DOUBLEQUOTE EMDASH ENDASH
Union Intersection And Or Contourintegral Integral Summation Product
Radical All Exists Member INFINITY Notmember Minus)
(CHARACTERSETNAMES Meta Function Greek Cyrillic Hira Hiragana Kata Katakana
Kanji)))
(DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES)
@@ -1732,6 +1731,7 @@
(LEFT-DOUBLEQUOTE "0,252")
(RIGHT-DOUBLEQUOTE "0,272")
(EMDASH "357,045")
(ENDASH "357,044")
(Union "357,127")
(Intersection "357,126")
(And "357,266")
@@ -1745,7 +1745,8 @@
(Exists "357,264")
(Member "357,112")
(INFINITY "41,147")
(Notmember "357,113"))
(Notmember "357,113")
(Minus "356,055"))
(ADDTOVAR CHARACTERSETNAMES (Meta 1)
(Function 2)
@@ -1859,19 +1860,19 @@
(ADDTOVAR LAMA CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE CL:READ)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4013 12457 (LASTC 4023 . 4329) (PEEKC 4331 . 4719) (PEEKCCODE 4721 . 5132) (RATOM 5134
. 6215) (READ 6217 . 6777) (READC 6779 . 7420) (READCCODE 7422 . 8181) (READP 8183 . 8735) (
SETREADMACROFLG 8737 . 9036) (SKIPSEPRCODES 9038 . 10118) (SKIPSEPRS 10120 . 10506) (SKREAD 10508 .
12455)) (12503 21112 (CL:READ 12513 . 13062) (CL:READ-PRESERVING-WHITESPACE 13064 . 13786) (
CL:READ-DELIMITED-LIST 13788 . 14703) (CL:PARSE-INTEGER 14705 . 21110)) (21205 33682 (RSTRING 21215 .
21947) (READ-EXTENDED-TOKEN 21949 . 25821) (\RSTRING2 25823 . 33680)) (33718 64451 (\TOP-LEVEL-READ
33728 . 35711) (\SUBREAD 35713 . 60867) (\SUBREADCONCAT 60869 . 61492) (\ORIG-READ.SYMBOL 61494 .
62562) (\ORIG-INVALID.SYMBOL 62564 . 63463) (\APPLYREADMACRO 63465 . 63881) (INREADMACROP 63883 .
64449)) (64610 64785 (READQUOTE 64620 . 64783)) (64810 76714 (READVBAR 64820 . 66151) (READHASHMACRO
66153 . 71963) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71965 . 72185) (DIGITBASEP 72187 . 72921) (
READNUMBERINBASE 72923 . 74809) (ESTIMATE-DIMENSIONALITY 74811 . 75136) (SKIP.HASH.COMMENT 75138 .
76106) (CMLREAD.FEATURE.PARSER 76108 . 76712)) (76758 78024 (CHARACTER.READ 76768 . 78022)) (78057
90060 (CHARCODE.DECODE 78067 . 83236) (CHARCODE.ENCODE 83238 . 87765) (CHARCODEP 87767 . 88296) (
CHARSET.DECODE 88298 . 89246) (CHARSET.ENCODE 89248 . 90058)) (90061 94557 (HEXNUM? 90071 . 92414) (
OCTALNUM? 92416 . 93229) (HEXSTRING 93231 . 94555)))))
(FILEMAP (NIL (3984 12428 (LASTC 3994 . 4300) (PEEKC 4302 . 4690) (PEEKCCODE 4692 . 5103) (RATOM 5105
. 6186) (READ 6188 . 6748) (READC 6750 . 7391) (READCCODE 7393 . 8152) (READP 8154 . 8706) (
SETREADMACROFLG 8708 . 9007) (SKIPSEPRCODES 9009 . 10089) (SKIPSEPRS 10091 . 10477) (SKREAD 10479 .
12426)) (12474 21083 (CL:READ 12484 . 13033) (CL:READ-PRESERVING-WHITESPACE 13035 . 13757) (
CL:READ-DELIMITED-LIST 13759 . 14674) (CL:PARSE-INTEGER 14676 . 21081)) (21176 33653 (RSTRING 21186 .
21918) (READ-EXTENDED-TOKEN 21920 . 25792) (\RSTRING2 25794 . 33651)) (33689 64422 (\TOP-LEVEL-READ
33699 . 35682) (\SUBREAD 35684 . 60838) (\SUBREADCONCAT 60840 . 61463) (\ORIG-READ.SYMBOL 61465 .
62533) (\ORIG-INVALID.SYMBOL 62535 . 63434) (\APPLYREADMACRO 63436 . 63852) (INREADMACROP 63854 .
64420)) (64581 64756 (READQUOTE 64591 . 64754)) (64781 76685 (READVBAR 64791 . 66122) (READHASHMACRO
66124 . 71934) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71936 . 72156) (DIGITBASEP 72158 . 72892) (
READNUMBERINBASE 72894 . 74780) (ESTIMATE-DIMENSIONALITY 74782 . 75107) (SKIP.HASH.COMMENT 75109 .
76077) (CMLREAD.FEATURE.PARSER 76079 . 76683)) (76729 77995 (CHARACTER.READ 76739 . 77993)) (78028
90031 (CHARCODE.DECODE 78038 . 83207) (CHARCODE.ENCODE 83209 . 87736) (CHARCODEP 87738 . 88267) (
CHARSET.DECODE 88269 . 89217) (CHARSET.ENCODE 89219 . 90029)) (90032 94528 (HEXNUM? 90042 . 92385) (
OCTALNUM? 92387 . 93200) (HEXSTRING 93202 . 94526)))))
STOP

BIN
sources/LLREAD.LCOM
View File

Binary file not shown.

35
sources/MEDLEYFONTFORMAT
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "17-Apr-2026 09:32:49" {MEDLEY}<sources>MEDLEYFONTFORMAT.;310 64484
(FILECREATED "29-Apr-2026 22:52:28" {MEDLEY}<sources>MEDLEYFONTFORMAT.;311 64392
:EDIT-BY rmk
:CHANGES-TO (FNS MEDLEYFONT.FILEVERSION MEDLEYFONT.GETFILEPROP)
:CHANGES-TO (FNS MEDLEYFONT.FILENAME)
:PREVIOUS-DATE "15-Apr-2026 23:17:13" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;308)
:PREVIOUS-DATE "17-Apr-2026 09:32:49" {MEDLEY}<sources>MEDLEYFONTFORMAT.;310)
(PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
@@ -896,16 +896,15 @@
(DEFINEQ
(MEDLEYFONT.FILENAME
[LAMBDA (FILE DIRECTORY) (* ; "Edited 15-Apr-2026 00:41 by rmk")
[LAMBDA (FILE DIRECTORY) (* ; "Edited 29-Apr-2026 22:52 by rmk")
(* ; "Edited 15-Apr-2026 00:41 by rmk")
(* ; "Edited 23-Jan-2026 15:10 by rmk")
(* ; "Edited 7-Oct-2025 11:50 by rmk")
(* ; "Edited 4-Sep-2025 08:48 by rmk")
(* ; "Edited 10-Jun-2025 11:02 by rmk")
(* ; "Edited 19-May-2025 17:42 by rmk")
(PACKFILENAME 'BODY (CL:IF (type? FONTSPEC FILE)
(\FONTFILENAME (\FONT.CHECKARGS FILE NIL NIL NIL NIL T))
FILE)
'BODY DIRECTORY])
(* ; "Edited 10-Jun-2025 11:02 by rmk")
(CL:IF (type? FONTSPEC FILE)
(CAR (FONTFILES FILE NIL DIRECTORY))
(PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY))])
)
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
@@ -956,12 +955,12 @@
)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2205 20684 (MEDLEYFONT.WRITE.FONT 2215 . 8618) (MEDLEYFONT.GETCHARSET 8620 . 10701) (
MEDLEYFONT.GETCHARSET.INTERNAL 10703 . 12956) (MEDLEYFONT.CHARSET? 12958 . 13836) (
MEDLEYFONT.GETFILEPROP 13838 . 17417) (MEDLEYFONT.FILEP 17419 . 19847) (MEDLEYFONT.FILEVERSION 19849
. 20682)) (20710 43327 (MEDLEYFONT.READ.FONT 20720 . 24236) (MEDLEYFONT.READ.CHARSET 24238 . 29514) (
MEDLEYFONT.READ.ITEM 29516 . 35665) (MEDLEYFONT.PEEK.ITEM 35667 . 36529) (MEDLEYFONT.READ.FONTPROPS
36531 . 36996) (MEDLEYFONT.READ.VERIFIEDFONT 36998 . 43325)) (43353 62703 (MEDLEYFONT.WRITE.CHARSET
43363 . 48002) (MEDLEYFONT.WRITE.ITEM 48004 . 57057) (MEDLEYFONT.WRITE.FONTPROPS 57059 . 61828) (
MEDLEYFONT.WRITE.HEADER 61830 . 62701)) (62704 63599 (MEDLEYFONT.FILENAME 62714 . 63597)))))
(FILEMAP (NIL (2178 20657 (MEDLEYFONT.WRITE.FONT 2188 . 8591) (MEDLEYFONT.GETCHARSET 8593 . 10674) (
MEDLEYFONT.GETCHARSET.INTERNAL 10676 . 12929) (MEDLEYFONT.CHARSET? 12931 . 13809) (
MEDLEYFONT.GETFILEPROP 13811 . 17390) (MEDLEYFONT.FILEP 17392 . 19820) (MEDLEYFONT.FILEVERSION 19822
. 20655)) (20683 43300 (MEDLEYFONT.READ.FONT 20693 . 24209) (MEDLEYFONT.READ.CHARSET 24211 . 29487) (
MEDLEYFONT.READ.ITEM 29489 . 35638) (MEDLEYFONT.PEEK.ITEM 35640 . 36502) (MEDLEYFONT.READ.FONTPROPS
36504 . 36969) (MEDLEYFONT.READ.VERIFIEDFONT 36971 . 43298)) (43326 62676 (MEDLEYFONT.WRITE.CHARSET
43336 . 47975) (MEDLEYFONT.WRITE.ITEM 47977 . 57030) (MEDLEYFONT.WRITE.FONTPROPS 57032 . 61801) (
MEDLEYFONT.WRITE.HEADER 61803 . 62674)) (62677 63507 (MEDLEYFONT.FILENAME 62687 . 63505)))))
STOP

BIN
sources/MEDLEYFONTFORMAT.LCOM
View File

Binary file not shown.