Fix bug introduced into SLASHIT whereby which it would go into an infinite loop if a filename had two or more spaces in it.

library/UNIXUTILS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "31-Mar-2026 00:14:19" {WMEDLEY}<library>UNIXUTILS.;58
 21269  
+
(FILECREATED "27-Apr-2026 11:10:07" {DSK}<home>frank>il>medley>library>UNIXUTILS.;7
 21772  
 
-      :EDIT-BY rmk
+      :EDIT-BY "FGH"
 
-      :CHANGES-TO (FNS UNIX-FILE-NAME)
+      :CHANGES-TO (FNS ShellOpen SLASHIT)
 
-      :PREVIOUS-DATE "29-Mar-2026 00:26:43" {WMEDLEY}<library>UNIXUTILS.;57)
+      :PREVIOUS-DATE "31-Mar-2026 00:14:19" {DSK}<home>frank>il>medley>library>UNIXUTILS.;3)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -148,7 +148,8 @@
                                                   "true"])
 
 (ShellOpen

-  [LAMBDA (FilenameOrURL)
                                    (* ; "Edited 28-Dec-2025 18:26 by rmk")


+  [LAMBDA (FilenameOrURL)
                                    (* ; "Edited 27-Apr-2026 11:08 by FGH")


+                                                             (* ; "Edited 28-Dec-2025 18:26 by rmk")


                                                              (* ; "Edited 10-Sep-2025 15:29 by rmk")


                                                              (* ; "Edited  4-May-2025 11:14 by rmk")

 
@@ -210,7 +211,8 @@
                                                        'NAME NEWNAME 'EXTENSION EXTENSION))
                                (TARGETFILE.UNIX (SLASHIT
 (PACKFILENAME.STRING 'HOST NIL 'DIRECTORY 
                                                                 TMPDIR 'NAME NEWNAME 'EXTENSION 
-                                                                EXTENSION)))
+                                                                EXTENSION)
+                                                       NIL NIL NIL T))
                                (UNIXFILE NIL))
                               (DECLARE
 (SPECVARS UNIXFILE))
                               (if
 (OR VERSION.SPECIFIED (NOT UNVERSIONED.EXISTS))
@@ -245,7 +247,8 @@
                                                  0))) DO
 (BLOCK) FINALLY
 (RETURN CODE])
 
 (SLASHIT

-  [LAMBDA (X LCASEDIRS NOHOST KEEPDOT)
                       (* ; "Edited 17-Jan-2026 23:15 by rmk")


+  [LAMBDA (X LCASEDIRS NOHOST KEEPDOT NO.QUOTE.SPACE)
        (* ; "Edited 27-Apr-2026 11:00 by FGH")


+                                                             (* ; "Edited 17-Jan-2026 23:15 by rmk")


                                                              (* ; "Edited  4-Nov-2025 10:10 by rmk")


                                                              (* ; "Edited 22-Oct-2025 13:05 by rmk")


                                                              (* ; "Edited 25-Sep-2025 09:57 by rmk")


@@ -258,7 +261,10 @@
     (* ;; "This is a first approximation to a utility that converts a filename X on a host whose files physically reside in the local Unix file system into the strings that shell commands can use to reference that file.  For now, this just involves replacing directory brackets with /, removing the host, perhaps lower-casing the directory, and perhaps removing a final dot.  It probably should be extended to deal with version number translation, for now it just keeps the ; version. ")

 
     (LET [LASTDIRPOS SLASHED (DIRPOS (ADD1 (OR (STRPOS "}" X)
-                                               0]
+                                               0)))
+                (REPLACE.SPACE (if
 NO.QUOTE.SPACE
+                                   then
 (CONS (CHARCODE SPACE))
+                                 else
 (CHARCODE (\ SPACE]
          [SETQ SLASHED (CONCATCODES (for
 I C from
 DIRPOS while
 (SETQ C (NTHCHARCODE X I))
                                        join
 (SELCHARQ C
                                                  ((< >) 
@@ -266,7 +272,7 @@
                                                       (CONS (CHARCODE /)))
                                                  (/ (SETQ LASTDIRPOS I)
                                                     (CONS C))
-                                                 (SPACE (APPEND (CHARCODE (\ SPACE))))
+                                                 (SPACE (APPEND REPLACE.SPACE))
                                                  (CONS C]
          (CL:WHEN (AND LCASEDIRS LASTDIRPOS)
              (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS)))
@@ -367,8 +373,8 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (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 . 19510) (
-UNIX-TMP-FILE-NAME 19512 . 21189)))))
+  (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)))))
 STOP