From e5e2829b98158038ce968a007c0a71f9f35c496b Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Tue, 28 Apr 2026 00:37:38 -0700 Subject: [PATCH] Add cdm command to connect to {MEDLEY} subdirs --- library/PSEUDOHOSTS | 26 ++++++++++++++------------ library/PSEUDOHOSTS.LCOM | Bin 8953 -> 8896 bytes lispusers/UNIXYCD | 24 ++++++++++++++---------- lispusers/UNIXYCD.TXT | Bin 430 -> 596 bytes 4 files changed, 28 insertions(+), 22 deletions(-) diff --git a/library/PSEUDOHOSTS b/library/PSEUDOHOSTS index e3e76977..2ab1a3f2 100644 --- a/library/PSEUDOHOSTS +++ b/library/PSEUDOHOSTS @@ -1,10 +1,11 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "27-Apr-2026 21:16:52" {WMEDLEY}PSEUDOHOSTS.;189 30476 +(FILECREATED "27-Apr-2026 22:55:50" {WMEDLEY}PSEUDOHOSTS.;190 30619 :EDIT-BY rmk - :CHANGES-TO (FNS CONTRACT.PH PSEUDOHOST PSEUDOHOSTP PSEUDOFILENAME EXPAND.PH PSEUDOFILENAMES) + :CHANGES-TO (FNS CDPSEUDO CONTRACT.PH PSEUDOHOST PSEUDOHOSTP PSEUDOFILENAME EXPAND.PH + PSEUDOFILENAMES) (VARS PSEUDOHOSTSCOMS) (RECORDS TARGETDEVICE) @@ -250,7 +251,8 @@ (DEFINEQ (CDPSEUDO - [LAMBDA (PHOST CDSUFFIX FILEPKGFLG) (* ; "Edited 25-Apr-2026 23:53 by rmk") + [LAMBDA (PHOST CDSUFFIX FILEPKGFLG) (* ; "Edited 27-Apr-2026 22:54 by rmk") + (* ; "Edited 25-Apr-2026 23:53 by rmk") (* ; "Edited 21-Dec-2024 13:48 by rmk") (* ; "Edited 6-Feb-2024 15:50 by rmk") @@ -261,7 +263,7 @@ (DECLARE (SPECVARS FILEPKGFLG)) (CL:WHEN (AND (SETQ PHOST (CAR (PSEUDOHOSTP PHOST))) CDSUFFIX) - [LET [(CNAME (PACK* "cd" (L-CASE CDSUFFIX] + [LET [(CNAME (CONCAT "cd" (L-CASE CDSUFFIX] (SETQ PHOST (CONCAT "{" PHOST "}")) (EVAL `(DEFCOMMAND ,CNAME (SUBDIR) (/CNDIR (CL:IF SUBDIR (CONCAT ,PHOST "/" SUBDIR) @@ -567,12 +569,12 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1275 14334 (PSEUDOHOST 1285 . 7847) (PSEUDOHOSTP 7849 . 8768) (PSEUDOHOSTS 8770 . 9131) - (TARGETHOST 9133 . 10002) (TRUEDEVICE 10004 . 10960) (TRUEFILENAME 10962 . 12249) (PSEUDOFILENAME -12251 . 13663) (PSEUDOFILENAMES 13665 . 14332)) (14335 15374 (CDPSEUDO 14345 . 15372)) (15402 21286 ( -EXPAND.PH 15412 . 16718) (CONTRACT.PH 16720 . 19202) (UNSLASHIT 19204 . 20950) (GETHOSTINFO.PH 20952 - . 21284)) (21287 27908 (OPENFILE.PH 21297 . 22422) (GETFILENAME.PH 22424 . 22822) (DIRECTORYNAMEP.PH -22824 . 23448) (CLOSEFILE.PH 23450 . 23917) (REOPENFILE.PH 23919 . 24595) (DELETEFILE.PH 24597 . 24881 -) (GENERATEFILES.PH 24883 . 26077) (GETFILEINFO.PH 26079 . 26600) (SETFILEINFO.PH 26602 . 26911) ( -NEXTFILEFN.PH 26913 . 27629) (FILEINFOFN.PH 27631 . 27906))))) + (FILEMAP (NIL (1308 14367 (PSEUDOHOST 1318 . 7880) (PSEUDOHOSTP 7882 . 8801) (PSEUDOHOSTS 8803 . 9164) + (TARGETHOST 9166 . 10035) (TRUEDEVICE 10037 . 10993) (TRUEFILENAME 10995 . 12282) (PSEUDOFILENAME +12284 . 13696) (PSEUDOFILENAMES 13698 . 14365)) (14368 15517 (CDPSEUDO 14378 . 15515)) (15545 21429 ( +EXPAND.PH 15555 . 16861) (CONTRACT.PH 16863 . 19345) (UNSLASHIT 19347 . 21093) (GETHOSTINFO.PH 21095 + . 21427)) (21430 28051 (OPENFILE.PH 21440 . 22565) (GETFILENAME.PH 22567 . 22965) (DIRECTORYNAMEP.PH +22967 . 23591) (CLOSEFILE.PH 23593 . 24060) (REOPENFILE.PH 24062 . 24738) (DELETEFILE.PH 24740 . 25024 +) (GENERATEFILES.PH 25026 . 26220) (GETFILEINFO.PH 26222 . 26743) (SETFILEINFO.PH 26745 . 27054) ( +NEXTFILEFN.PH 27056 . 27772) (FILEINFOFN.PH 27774 . 28049))))) STOP diff --git a/library/PSEUDOHOSTS.LCOM b/library/PSEUDOHOSTS.LCOM index 303def1eda3e5621b637659c1a35e965bb7ae236..12797ee1dc6cb8ce360fa3c353e8d03b5edd87c4 100644 GIT binary patch delta 97 zcmezAdcbu;3cHb&si~Ez!NhDsCQE~f^Yl2JT>^q#LtXqQOE4-lN^Vofr7DtnW5$6xr~bJQ1zSlFka0 diff --git a/lispusers/UNIXYCD b/lispusers/UNIXYCD index e6dd17ee..b3a657ad 100644 --- a/lispusers/UNIXYCD +++ b/lispusers/UNIXYCD @@ -1,24 +1,28 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "12-Aug-2022 12:29:18" {DSK}larry>medley>lispusers>UNIXYCD.;1 568 +(FILECREATED "27-Apr-2026 23:10:40" {WMEDLEY}UNIXYCD.;2 738 + + :EDIT-BY rmk :CHANGES-TO (VARS UNIXYCDCOMS) + (COMMANDS cdm) - :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}larry>medley>lispusers>UNIXYCD.;1) + :PREVIOUS-DATE "12-Aug-2022 12:29:18" {MEDLEY}UNIXYCD.;1) (PRETTYCOMPRINT UNIXYCDCOMS) -(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd"))) +(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" cdm "ls" "pwd"))) -(DEFCOMMAND "cd" (DIR) - (/CNDIR DIR)) +(DEFCOMMAND "cd" (DIR) (/CNDIR DIR)) -(DEFCOMMAND "ls" (FIRST . REST) - (DODIR (CONS FIRST REST))) +(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR + (CONCAT '{MEDLEY}/ SUBDIR) + '{MEDLEY}))) -(DEFCOMMAND "pwd" () - (DIRECTORYNAME T)) +(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST))) + +(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T)) (DECLARE%: DONTCOPY (FILEMAP (NIL))) STOP diff --git a/lispusers/UNIXYCD.TXT b/lispusers/UNIXYCD.TXT index 670e3988e852dcb74aecdbbd48fb93286c6e3e06..7aa5a88a26720004d0c15ab241eede71baa0fca9 100644 GIT binary patch delta 297 zcmZ3-e1&C#DEI&W3=CW#_@7~-geoVL3*^}QX=fHI6s6`QmSmQtDwO0a_+%Crs23|F zmlhSJ=9MUM3}ZOzcsqPfp3@OwLHmO9!gXNX1kKG6N)0P@GztlAn=Z zT%u6z>+0g;8d(dr_CEvA1dy>rnNnPu1a|>QlY&To9;$g@KfQNmhZ;WFn9)%k%I4%$ eC@x4%&P=ORfP$Q2g|z&9eVE#QMp=kH1}*?e#b{Un delta 111 zcmcb@vW|IzC^Huq*F*(XCLrnOH}QnBy#hMOOjF3qS5V5xFD}VT%uQ8N$ShV!&n!#L v(^1GQQ7=|VEG{n1O-)g#b_w>b<(gc_=*-A9`2?dQkQ88&1d;|!vOwbjRFfR4