Changeset 13105

Timestamp:

12/27/10 22:06:54 (12 years ago)

Author:

ehuelsmann

Message:

Fix Pathname.java failing to find boot.lisp in an "unpacked JAR" situation
found by running ABCL in the Glassfish v3 servlet container.

File:

• trunk/abcl/src/org/armedbear/lisp/Pathname.java (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/Pathname.java

@@ -266 +266 @@
                 Pathname jarPathname;
                 if (file.length() > 0) {
-                    // Instead of "use URL constructor to normalize Windows' use of device"
-                    // attempt to shorten the URL to pass through the normal constructor.
-                    if (Utilities.isPlatformWindows
-                        && file.charAt(0) == '/'
-                        && file.charAt(2) == ':'
-                        && Character.isLetter(file.charAt(1)))
-                        {
-                            file = file.substring(1);
-                        }
                     URL url = null;
                     URI uri = null;
@@ -295 +286 @@
                         jarPathname = new Pathname(uri.getSchemeSpecificPart());
                     } else {
-                        jarPathname = new Pathname(path);
+                        jarPathname = new Pathname((new File(path)).getPath());
                     }
                 } else {
@@ -366 +357 @@
                                     + ": " + ex.toString()));
                 }
-                Pathname p = new Pathname(uri.getPath());
+                File file = new File(uri.getPath());
+                Pathname p = new Pathname(file.getPath());
                 this.host = p.host;
                 this.device = p.device;