github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-01 12:38:42 +00:00
Code Issues Projects Releases Wiki Activity

UNIX-FILE-NAME wasn't dealing properly with {DSK} version 1, and making sure that other versions had a dot

Browse Source
This commit is contained in:
rmkaplan
2026-03-31 11:15:14 -07:00
parent 13eb940538
commit bff3c2334b
2 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
library/UNIXUTILS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "19-Jan-2026 14:09:03" {WMEDLEY}<library>UNIXUTILS.;55 20711
(FILECREATED "31-Mar-2026 00:14:19" {WMEDLEY}<library>UNIXUTILS.;58 21269
:EDIT-BY rmk
:CHANGES-TO (FNS UNIX-FILE-NAME)
:PREVIOUS-DATE "17-Jan-2026 23:16:17" {WMEDLEY}<library>UNIXUTILS.;54)
:PREVIOUS-DATE "29-Mar-2026 00:26:43" {WMEDLEY}<library>UNIXUTILS.;57)
(PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -287,7 +287,9 @@
SLASHED])
(UNIX-FILE-NAME
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 19-Jan-2026 14:05 by rmk")
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 31-Mar-2026 00:13 by rmk")
(* ; "Edited 29-Mar-2026 00:26 by rmk")
(* ; "Edited 19-Jan-2026 14:05 by rmk")
(* ; "Edited 17-Jan-2026 22:32 by rmk")
(* ; "Edited 11-Jan-2026 23:54 by rmk")
(* ; "Edited 27-Dec-2025 21:24 by rmk")
@@ -317,8 +319,13 @@
FILE))
(DSK [LET ((VERSION (FILENAMEFIELD FILE 'VERSION))
(UNAME (PACKFILENAME 'VERSION NIL 'BODY FILE)))
(CL:UNLESS (EQ VERSION 1)
(CONCAT UNAME (CONCAT "~" VERSION "~")))])
(CL:IF (EQ VERSION 1)
UNAME
(CONCAT UNAME (CONCAT (CL:IF (EQ (CHARCODE %.)
(NTHCHARCODE UNAME -1))
""
".")
"~" VERSION "~")))])
(LET (UNAME)
(* ;; "Catch the streams as well as other devices (CORE, servers)")
@@ -360,8 +367,8 @@
(PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 20633
(FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 21191
(ShellBrowser 2062 . 3834) (ShellBrowse 3836 . 4521) (ShellOpener 4523 . 6211) (ShellOpen 6213 . 11982
) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 18952) (
UNIX-TMP-FILE-NAME 18954 . 20631)))))
) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 19510) (
UNIX-TMP-FILE-NAME 19512 . 21189)))))
STOP

BIN
library/UNIXUTILS.DFASL
View File

Binary file not shown.