Changeset 13592

Timestamp:

Apr 10, 2010, 5:57:37 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

The function default_image_name() now simply returns the lisp kernel
name plus a ".image" suffix.

Delete now-unused function case_inverted_path().

We formerly would case-invert the lisp kernel's name and use that as
the name of the default image. For example, for lx86cl64, the default
image name was LX86CL64.

This was probably always stylistically questionable, but it became a
problem on ports to systems with case-insensitive file systems (e.g.,
HFS on the Macintosh). On those systems, we used the lisp kernel name
plus a ".image" suffix as the default image name.

A couple of releases ago, we started using the ".image" suffix on all
systems, but would look for the case-inverted name as a fallback.
We no longer look for the case-inverted name at all.

File:

• trunk/source/lisp-kernel/pmcl-kernel.c (modified) (2 diffs)

trunk/source/lisp-kernel/pmcl-kernel.c

@@ -933 +933 @@
 #endif
 
-char *
-case_inverted_path(char *path)
-{
-  char *copy = strdup(path), *base = copy, *work = copy, c;
-  if (copy == NULL) {
-    return NULL;
-  }
-  while(*work) {
-    if (*work++ == '/') {
-      base = work;
-    }
-  }
-  work = base;
-  while ((c = *work) != '\0') {
-    if (islower(c)) {
-      *work++ = toupper(c);
-    } else {
-      *work++ = tolower(c);
-    }
-  }
-  return copy;
-}
-/* 
-   The underlying file system may be case-insensitive (e.g., HFS),
-   so we can't just case-invert the kernel's name.
-   Tack ".image" onto the end of the kernel's name.  Much better ...
-*/
 #ifdef WINDOWS
 wchar_t *
@@ -972 +945 @@
 default_image_name(char *orig)
 {
-#ifdef WINDOWS
-  char *path = chop_exe_suffix(orig);
-#else
   char *path = orig;
-#endif
   char *image_name = path_by_appending_image(path);
-#if !defined(WINDOWS) && !defined(DARWIN)
-  if (!probe_file(image_name)) {
-    char *legacy = case_inverted_path(path);
-    if (probe_file(legacy)) {
-      image_name = legacy;
-    }
-  }
-#endif
   return image_name;
 }