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

Add cdm command to connect to {MEDLEY} subdirs

Browse Source
This commit is contained in:
rmkaplan
2026-04-28 00:37:38 -07:00
parent 93f8fedd47
commit e5e2829b98
4 changed files with 28 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
library/PSEUDOHOSTS
View File

@@ -1,10 +1,11 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "27-Apr-2026 21:16:52" {WMEDLEY}<library>PSEUDOHOSTS.;189 30476
(FILECREATED "27-Apr-2026 22:55:50" {WMEDLEY}<library>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

BIN
library/PSEUDOHOSTS.LCOM
View File

Binary file not shown.