From c16e3b4a55f58dd3aaeddd0438185e3264e2d9b6 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Thu, 30 Apr 2026 23:04:26 -0700 Subject: [PATCH] Move UNIXY commands to UNIXUTILS, delete UNIXYCD (#2587) * Move UNIXY commands to UNIXUTILS, delete UNIXYCD * Delete UNIXYCD --- internal/loadups/LOADUP-FULL | 22 ++++++++++------------ internal/loadups/LOADUP-FULL.LCOM | Bin 3022 -> 3032 bytes library/UNIXUTILS | 27 +++++++++++++++++++-------- library/UNIXUTILS.DFASL | Bin 8129 -> 9231 bytes lispusers/UNIXYCD | 24 ------------------------ lispusers/UNIXYCD.LCOM | 13 ------------- lispusers/UNIXYCD.TXT | 13 ------------- 7 files changed, 29 insertions(+), 70 deletions(-) delete mode 100644 lispusers/UNIXYCD delete mode 100644 lispusers/UNIXYCD.LCOM delete mode 100644 lispusers/UNIXYCD.TXT diff --git a/internal/loadups/LOADUP-FULL b/internal/loadups/LOADUP-FULL index f6289eff..00240f7e 100644 --- a/internal/loadups/LOADUP-FULL +++ b/internal/loadups/LOADUP-FULL @@ -1,12 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "14-Feb-2026 00:42:39" {WMEDLEY}loadups>LOADUP-FULL.;38 5967 +(FILECREATED "28-Apr-2026 10:01:06" {WMEDLEY}loadups>LOADUP-FULL.;47 5896 :EDIT-BY rmk :CHANGES-TO (FNS LOADUP-FULL) - :PREVIOUS-DATE "13-Feb-2026 00:47:52" {WMEDLEY}loadups>LOADUP-FULL.;37) + :PREVIOUS-DATE "16-Apr-2026 09:37:27" {WMEDLEY}loadups>LOADUP-FULL.;46) (PRETTYCOMPRINT LOADUP-FULLCOMS) @@ -16,7 +16,8 @@ (DEFINEQ (LOADFULLFONTS - [LAMBDA NIL (* ; "Edited 20-Sep-2025 14:17 by rmk") + [LAMBDA NIL (* ; "Edited 16-Apr-2026 09:37 by rmk") + (* ; "Edited 20-Sep-2025 14:17 by rmk") (* ; "Edited 2-Sep-2025 20:06 by rmk") (* ; "Edited 13-Jul-2025 11:40 by rmk") (* ; "Edited 30-Jun-2025 00:04 by rmk") @@ -27,11 +28,8 @@ (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q") - (PRINTOUT T "Loading FULL fonts..." T) + (PRINTOUT T T "Loading FULL fonts..." T) (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT) - - (* ;; "Previous code reset the coercion variables to NIL, which would have resulted in glyph-incomplete charsets. With Medley-formatted fonts, the completions have already been installed in the files and there is no need to deal with those variables.") - (for FAMILY in '(CLASSIC MODERN TERMINAL) do (PRINTOUT T " Loading " FAMILY " ") [for SIZE in '(8 10 12) @@ -47,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") @@ -86,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*) @@ -103,5 +101,5 @@ (FIXMETA) (DECLARE%: DONTCOPY - (FILEMAP (NIL (456 5929 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5679) (FIXMETA 5681 . 5927))))) + (FILEMAP (NIL (456 5858 (LOADFULLFONTS 466 . 2449) (LOADUP-FULL 2451 . 5608) (FIXMETA 5610 . 5856))))) STOP diff --git a/internal/loadups/LOADUP-FULL.LCOM b/internal/loadups/LOADUP-FULL.LCOM index b6d976e2ceee932f00940259cc5be03074e4efcc..e2f4fb9ee06d1a18a953c3768cc6ae1979519b62 100644 GIT binary patch delta 685 zcmZuuJ#W-N5ItYuP)>9pf=H3kN=QDUvv$|(^+$1GWBbsGJ^SQyq)<>qaX=A}AV^P7 zck)lUp1>cVrlX;w;4d&f*&!foS^M^l-kUe$uUp@?_Ut5`>MR{kwMoZ1o8}PBRs2*v zNrC9BObeqIa{^J3s-#r=<{x^wcmFOA#_H|6F{fMtqY-5hmCIMr1L2QgNUm4uy6Vd1 z`#G=aZdyPgELS{j`2rx3@QM^m?b8J$x=#-#6}A9|8(E^t{l(eF1o847eA-d=XFctaO?^ zGyu5p03#*3Ku96ZvsfX^{VP4Eot|EqGGBtp(c-|E#%7@?r3{$sLvxJ})&t@i{Z<=# zE$}-a-Inn>hKsHz>ttTb;NF<$)t_%}Cm|&GD~);vJjCi@i8bId0Mdkk7w2ae@8R|N zQFT%g;I0Q`a!efgc5Utb3lw7G=1XUTWgyc}g?5^$IwGXLWe;^Cju^d-QFO^yn5CYl*`4!xv z{VBPF_ydSze*qT`+&Fg(PKzqETJ6)Dc{6WjuXeue99VIZW<@ecvpgAOMLL4LGK^k^ zFA^YGQ72WNjY|T1RT9Q^c$nXz7Y7fwm^(;k=L1f;07?Uw2admZ7d&!QA9{q*+bE*} z^#iIFU-oO}-14?<6PTXOXVXUTPoOEM0!m50XEhEZv{5H9kpJ~0puZZ{Jx77(3#mUC z!v}Xt$-v|Kv$5ZC&H2Hay%j-zx`)ONFg z1^~wf=q1i7gbqZbA_|e^^hVE|R?qyKqD=Vuw7Wf~&=mPQ2QW(8Or=^NR=^W2uq^>F?dgF^3pGDi2T438qbIjNv2$B(fedv15ovuL;wH) diff --git a/library/UNIXUTILS b/library/UNIXUTILS index fa1c2260..2a6eac9f 100644 --- a/library/UNIXUTILS +++ b/library/UNIXUTILS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "27-Apr-2026 11:10:07" {DSK}frank>il>medley>library>UNIXUTILS.;7 21772 +(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}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}frank>il>medley>library>UNIXUTILS.;3) + :PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}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 diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL index 6135779e237e13d44a2d81ae66288b563ee25bfe..75d2324237209d94f142ed7aaeb9611df8d55331 100644 GIT binary patch delta 3301 zcmb6bTWlLucJ7QFJC8PLUTxYuOcS6Aabq_mTarGQ+7rjr87Ce)ua@0rlax(2*+vQ7 zwp)Qy3#}F~YQj~kx#f`n67T`#5okma(DG7|O1si(1&GhxuU%rkoO{oey=S`Swk7+!jbOwWd}7zc_;06&r%&!lnBjp$JRGsMceMEntfR-K zN5(vd$0x=-BhzEUkB^OdcI@=(Q`6oZz8!5I-$U)K54HPS3OaQwvRW*DY;0z9_+%5v zdq94C!hC?G8k{yLB^Y*=coT6d2mb z=p^71Gj>{=IzGxbI<~dm!T#BF-Ko2Wvhevxp>H0_M5Cg3udrA$p@*?+>)sw(hh&{`S#8KuDQ;MQCh$Bo)FTL(AVWlY$ zNc9SzE_|(m2!1*L@4;TeU!-;Zv^yd?0+66QD<12KT6++Ucmuj+G?B!@{R9>(Bvm3Q z{zJj}vN=(%q7RzQwOQiNFa5dj3sv*C`FUjhGP}qf#RI$E5gla=B0w>lt3ulUL>@TZ z2#%?b5|Ki*T^vW?lN>%*yno~8z+j765%vP1m-&B+E0eIL;5l{_9M88B`yh<48A8q| ziE%`S2>lXKX`NJt;fN~|w&FdBIBs>2)K`c;09%egv}X{BO~gkl%1^+rNSHl(V1H*g zVwn6?Nk`TP<*y`&78M!ZB}6|EC(}-@{Ht9N-!)nS)%e0!WIky zi!GAcE~#n)+ZQ%UGM~UJDuxxq;y2zI>#rt zyYyAx1x+KFk2MFucQhx#x5bd^SY7dLu2bR({$pu-;dgbSxr)S6yt=Hl`~nDLapknf zulV7z#*IsCk-=ilX`<%MI=P~e9=`F;yM9~ydd_j|8ye%dbHQQotXfahx zE!CEHFlfx7itSM5t^C;vPpK@aU+D1sX^=|rPbzfJ&zbmcf{W^E7k8>&h^MY{NBz$k zV>j<)3^H0Mjx0T1`6=rnBdiRKuu@t#&`J%-iZjNs(lP{9yUZw+?oAT;lK*j2Z2$=tE4()RW6cPSlU)~f-$(y zHv6mURhiQpiu~uxib_IX^M7xyIkZ*maWTb_xgnhLhG6%S(grC<>oTqLr#GOr7O@*a zf!K>)$?VG>B`HFGM3hzXLtE-vuAkw2Ht+rr?9DvTL$naJl3UZ_WF zywC#A)?8%ud|z#S`*nErz)NEw4yQ2YYhtfcfnP1Jd`ITWzeXViN#Z)K^L(MUHhDZr z#1|(Cr2atQ^01`(B#=F}xSOcOodm9W5U>Zf5Os;VLP=qu&TvqV8ydRu9Le|*{R_!` zFYnN6E*J%v_n@8TO?7R_7vYp^?8MlJ7siEiO3}mW02|DQLvSyUhF%pe4GajLbk$B5 zH8gbVfmqbr8I5(@>B1G#F#A{@=*nvjn89!i&ck$~+~wL^=*$c+o~@=A$n4QuvY0x!IW3 z)?6>}FOz9!F#3PgOE%n9 zeE_M^?S`edCd*>FqtOvDEg2O2+cn|Ib4qr>|~ zb|oCWeFF){u8~B~TZy>CQ|t8Y8F6}Co*IYSUFUYyxoV9qzG(1CTF3BEyyw7rPIqv6 z-+%)G)-OkRymP01Cd4p5CQlIR(yehnBk5GC>d^ldNNVRNb*;n`Nq?9!RmMWw1EFST zXIEHL{aPi9=p>1xPoxa~U^p7clTuo}UaDmIiAGzqd?ZFEvTP(mr?WJU|H&#R zacVXEV%7)`XR*hkYH30CJJ#LYE}{JhS;6{C-=4tLVS@BfY z&>hcRAhWa}zq|Sjt2Yx~A<)uPW@3*EB4DhNZz#XUk|65XUJx!`%%}P7qhE4`e1a}= z66u$~GM=7F83Lh}Kv3-j{XM}L=H{GeY-?2O3WQq05yzNg0AEFT6<`D*<_ z#x!u%qw6bx>(WzsDV;yuxdXIfUeUNIJPK7x-ysXqN>>n`19*-Vf;h{nKulvz(s90l z&fn&P?9x$|9AwEJ5glcgR}e83MP{SWHVDlswC9DEgW{xYhkCnwq2{QnnRrUs%SN~$ zzoLJRzF$x?ItPY}XjlaJIl^xN&LCU@=zj#gkaU~c6%B+#;97+)Op}N3I#>xp$SD0G ztowPKKH8=RgBEU;x2IF4mc9YHdF3hhjG`dtyrM&SM$x03W}2*fs#iA|4zc|-*IZ|~ zSY` z);}L9tS9{594p$Oc)TupwaBqj^y6Px;p7-+h3TI~zE$^@U*aw=MSilB8kg+kMMo^2 zihIku-F?<>{M>R`eEziMDrv@D2%advjc}y7xEgU4UwCp1dWhs>DcG!f(MNv^3q4zG zuZIsWeJ|`c9x|o#!ZQ8H@-e~;(Ajc)Uda}l8T*cyonRv-Y%yXsAcM{Kmb^{)jJZ?l zF0sktAg@c}YtBhBlD?*E%WU0N)@UG-ZuwU0#jPggnA9$KxX$4^IaUC>ZDb7~jI0T& z`d5^EUx*(u)I?90m2X@CcLpOb1DrzN3kT7X*@t4GUufMzqxZ|I$u;V<7O#MYm1fa= zokpydt~FqoK*QV~Azp`@84Crvqo^;bTvx)u<_75MK!^_naXxF;fS**t)l)+1c5x$b z(Tmndce#QGLP|xa5F68o@>HjIlxp1I@@f<}vw0rl&Q?|9V@maPD241`e)@Py&wmE3 zA(5_<_Sz~8yLricdeaj&3(S0*lXvZH+ZV(}Q}&9wCH}+U1*zQ{C&Ak-vL?O6Ka?1< zy5%9eh{ZP|V+q$u`n%oUyLS|oD+gF|2+^e;mfXhp&j4~|8id${V!;7|tS&?C+)9>& zchCo#eVVEO{TTY!0USrpEiua$>EZGw{-aS#xAHe!;SYCo@{#R?xh+9glE{Mx{{cs- BM;ibD diff --git a/lispusers/UNIXYCD b/lispusers/UNIXYCD deleted file mode 100644 index e6dd17ee..00000000 --- a/lispusers/UNIXYCD +++ /dev/null @@ -1,24 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - -(FILECREATED "12-Aug-2022 12:29:18" {DSK}larry>medley>lispusers>UNIXYCD.;1 568 - - :CHANGES-TO (VARS UNIXYCDCOMS) - - :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}larry>medley>lispusers>UNIXYCD.;1) - - -(PRETTYCOMPRINT UNIXYCDCOMS) - -(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd"))) - -(DEFCOMMAND "cd" (DIR) - (/CNDIR DIR)) - -(DEFCOMMAND "ls" (FIRST . REST) - (DODIR (CONS FIRST REST))) - -(DEFCOMMAND "pwd" () - (DIRECTORYNAME T)) -(DECLARE%: DONTCOPY - (FILEMAP (NIL))) -STOP diff --git a/lispusers/UNIXYCD.LCOM b/lispusers/UNIXYCD.LCOM deleted file mode 100644 index 013420cc..00000000 --- a/lispusers/UNIXYCD.LCOM +++ /dev/null @@ -1,13 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - -(FILECREATED "12-Aug-2022 12:29:30" ("compiled on " {DSK}larry>medley>lispusers>UNIXYCD.;1) -"12-Aug-2022 10:18:11" bcompl'd in "Welcome to Fuller sysout 12-Aug-2022 ..." dated -"12-Aug-2022 10:22:21") -(FILECREATED "12-Aug-2022 12:29:18" {DSK}larry>medley>lispusers>UNIXYCD.;1 568 :CHANGES-TO (VARS - UNIXYCDCOMS) :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}larry>medley>lispusers>UNIXYCD.;1) -(PRETTYCOMPRINT UNIXYCDCOMS) -(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd"))) -(DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) -(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) -(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) -NIL diff --git a/lispusers/UNIXYCD.TXT b/lispusers/UNIXYCD.TXT deleted file mode 100644 index 670e3988..00000000 --- a/lispusers/UNIXYCD.TXT +++ /dev/null @@ -1,13 +0,0 @@ - UNIXYCD & .LCOM .TXT - - -This file implements little commands: - -cd change Lisp's current directory to home -cd dir dir can be a path separated by / or >. - if no "hostname" is given, it's assumed {DSK} -ls [dir] list current directory or a directory that's given - non-feature: ls foo only prints foo; you need to - specify ls foo/ -pwd print working directory -