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 b6d976e2..e2f4fb9e 100644 Binary files a/internal/loadups/LOADUP-FULL.LCOM and b/internal/loadups/LOADUP-FULL.LCOM differ 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 6135779e..75d23242 100644 Binary files a/library/UNIXUTILS.DFASL and b/library/UNIXUTILS.DFASL differ 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 -