github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-14 10:57:52 +00:00
Code Issues Projects Releases Wiki Activity

Update to UNIX-FILE-NAME

Browse Source
This commit is contained in:
rmkaplan
2026-05-13 12:49:09 -07:00
parent 0fda50e67d
commit 2a6e2de6f3
2 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
library/UNIXUTILS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61 22079
(FILECREATED "13-May-2026 12:28:06" {MEDLEY}<library>UNIXUTILS.;62 22210
:EDIT-BY rmk
:CHANGES-TO (VARS UNIXUTILSCOMS)
:CHANGES-TO (FNS UNIX-FILE-NAME)
:PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
:PREVIOUS-DATE "28-Apr-2026 09:59:13" {MEDLEY}<library>UNIXUTILS.;61)
(PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -294,7 +294,8 @@
SLASHED])
(UNIX-FILE-NAME
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 31-Mar-2026 00:13 by rmk")
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 13-May-2026 12:25 by rmk")
(* ; "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")
@@ -319,7 +320,7 @@
(NIL (SETQ ACCESS 'INPUT)
'OLD)
(\ILLEGAL.ARG ACCESS])
[SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
(SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
(UNIX (CL:IF [AND EXTENSION (NEQ (L-CASE EXTENSION)
(L-CASE (FILENAMEFIELD FILE 'EXTENSION]
(COPYFILE FILE (PACKFILENAME 'EXTENSION EXTENSION 'BODY FILE))
@@ -345,7 +346,8 @@
[RESETSAVE (GETFILEPTR FILE)
`(PROGN (SETFILEPTR ,FILE OLDVALUE])
(COPYFILE FILE UNAME))
UNAME)])])
UNAME)))
NIL T))])
(UNIX-TMP-FILE-NAME
[LAMBDA (NAME EXT HOST) (* ; "Edited 17-Jan-2026 22:28 by rmk")
@@ -384,8 +386,8 @@
(PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
(DECLARE%: DONTCOPY
(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)))))
(FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21826
(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20145) (
UNIX-TMP-FILE-NAME 20147 . 21824)))))
STOP

BIN
library/UNIXUTILS.DFASL
View File

Binary file not shown.