Changeset 7724


Ignore:
Timestamp:
09/18/04 02:06:57 (17 years ago)
Author:
piso
Message:

Work in progress (Windows).

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Pathname.java

    r7722 r7724  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: Pathname.java,v 1.67 2004-09-18 01:03:15 piso Exp $
     5 * $Id: Pathname.java,v 1.68 2004-09-18 02:06:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8585        if (s == null)
    8686            return;
     87        if (Utilities.isPlatformWindows())
     88            s = s.replace('/', '\\');
    8789        // Jar file support.
    8890        int bang = s.indexOf("!/");
     
    10731075        }
    10741076    }
    1075 
    1076     // ### *lisp-home*
    1077     private static final Symbol _LISP_HOME_ =
    1078         exportSpecial("*LISP-HOME*", PACKAGE_EXT, NIL);
    1079 
    1080     static {
    1081         try {
    1082             String s = Site.getLispHome();
    1083             if (s != null) {
    1084                 if (!s.endsWith(File.separator))
    1085                     s = s.concat(File.separator);
    1086                 _LISP_HOME_.setSymbolValue(new Pathname(s));
    1087             }
    1088         }
    1089         catch (Throwable t) {
    1090             Debug.trace(t);
    1091         }
    1092     }
    10931077}
  • trunk/j/src/org/armedbear/lisp/Site.java

    r7719 r7724  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: Site.java,v 1.1 2004-09-18 00:22:54 piso Exp $
     5 * $Id: Site.java,v 1.2 2004-09-18 02:06:10 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2525import java.net.URL;
    2626
    27 public final class Site
     27public final class Site extends Lisp
    2828{
    2929    private static final String LISP_HOME;
     
    3636            if (protocol != null && protocol.equals("file")) {
    3737                String path = url.getPath();
    38                 int index = path.lastIndexOf(File.separatorChar);
    39                 if (index >= 0)
     38                int index = path.lastIndexOf('/');
     39                if (index >= 0) {
    4040                    lispHome = path.substring(0, index + 1);
     41                    if (Utilities.isPlatformWindows()) {
     42                        if (lispHome.length() > 0 && lispHome.charAt(0) == '/')
     43                            lispHome = lispHome.substring(1);
     44                    }
     45                }
    4146            }
    4247        }
     
    4853        return LISP_HOME;
    4954    }
     55
     56    // ### *lisp-home*
     57    private static final Symbol _LISP_HOME_ =
     58        exportSpecial("*LISP-HOME*", PACKAGE_EXT, NIL);
     59
     60    static {
     61        try {
     62            String s = Site.getLispHome();
     63            if (s != null)
     64                _LISP_HOME_.setSymbolValue(new Pathname(s));
     65        }
     66        catch (Throwable t) {
     67            Debug.trace(t);
     68        }
     69    }
    5070}
Note: See TracChangeset for help on using the changeset viewer.