Changeset 10208


Ignore:
Timestamp:
10/23/05 17:51:56 (16 years ago)
Author:
piso
Message:

Symbol refactoring (work in progress).

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

Legend:

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

    r10207 r10208  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Interpreter.java,v 1.97 2005-10-23 17:46:16 piso Exp $
     5 * $Id: Interpreter.java,v 1.98 2005-10-23 17:51:56 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    178178        if (!initialized) {
    179179            try {
    180                 _FEATURES_.setSymbolValue(new Cons(Keyword.J,
    181                                                    _FEATURES_.getSymbolValue()));
     180                Symbol.FEATURES.setSymbolValue(new Cons(Keyword.J,
     181                                                   Symbol.FEATURES.getSymbolValue()));
    182182                Load.loadSystemFile("boot.lisp", false, false, false);
    183183                Class.forName("org.armedbear.j.LispAPI");
  • trunk/j/src/org/armedbear/lisp/Lisp.java

    r10207 r10208  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Lisp.java,v 1.408 2005-10-23 17:46:16 piso Exp $
     5 * $Id: Lisp.java,v 1.409 2005-10-23 17:51:56 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    17611761        Symbol.STANDARD_INPUT.initializeSpecial(stdin);
    17621762        Symbol.STANDARD_OUTPUT.initializeSpecial(stdout);
    1763         Symbol._ERROR_OUTPUT_.initializeSpecial(stdout);
     1763        Symbol.ERROR_OUTPUT.initializeSpecial(stdout);
    17641764        Symbol.TRACE_OUTPUT.initializeSpecial(stdout);
    17651765        Symbol.TERMINAL_IO.initializeSpecial(new TwoWayStream(stdin, stdout, true));
    17661766        Symbol.QUERY_IO.initializeSpecial(new TwoWayStream(stdin, stdout, true));
    1767         Symbol._DEBUG_IO_.initializeSpecial(new TwoWayStream(stdin, stdout, true));
     1767        Symbol.DEBUG_IO.initializeSpecial(new TwoWayStream(stdin, stdout, true));
    17681768    }
    17691769
     
    17741774        Symbol.STANDARD_INPUT.setSymbolValue(stdin);
    17751775        Symbol.STANDARD_OUTPUT.setSymbolValue(stdout);
    1776         Symbol._ERROR_OUTPUT_.setSymbolValue(stdout);
     1776        Symbol.ERROR_OUTPUT.setSymbolValue(stdout);
    17771777        Symbol.TRACE_OUTPUT.setSymbolValue(stdout);
    17781778        Symbol.TERMINAL_IO.setSymbolValue(new TwoWayStream(stdin, stdout, true));
    17791779        Symbol.QUERY_IO.setSymbolValue(new TwoWayStream(stdin, stdout, true));
    1780         Symbol._DEBUG_IO_.setSymbolValue(new TwoWayStream(stdin, stdout, true));
     1780        Symbol.DEBUG_IO.setSymbolValue(new TwoWayStream(stdin, stdout, true));
    17811781    }
    17821782
     
    18131813    static {
    18141814        Symbol.READ_SUPPRESS.initializeSpecial(NIL);
    1815     }
    1816 
    1817     static {
    18181815        Symbol._DEBUGGER_HOOK_.initializeSpecial(NIL);
    18191816    }
     
    18211818    static {
    18221819        Symbol.MOST_POSITIVE_FIXNUM.initializeConstant(new Fixnum(Integer.MAX_VALUE));
    1823     }
    1824 
    1825     static {
    18261820        Symbol.MOST_NEGATIVE_FIXNUM.initializeConstant(new Fixnum(Integer.MIN_VALUE));
    18271821    }
     
    18471841
    18481842    // ### *features*
    1849     public static final Symbol _FEATURES_ =
    1850         exportSpecial("*FEATURES*", PACKAGE_CL, null);
     1843//     public static final Symbol Symbol.FEATURES =
     1844//         exportSpecial("*FEATURES*", PACKAGE_CL, null);
    18511845    static {
     1846        Symbol.FEATURES.initializeSpecial(NIL);
    18521847        String osName = System.getProperty("os.name");
    18531848        if (osName.startsWith("Linux")) {
    1854             _FEATURES_.setSymbolValue(list6(Keyword.ARMEDBEAR,
    1855                                             Keyword.ABCL,
    1856                                             Keyword.COMMON_LISP,
    1857                                             Keyword.ANSI_CL,
    1858                                             Keyword.UNIX,
    1859                                             Keyword.LINUX));
     1849            Symbol.FEATURES.setSymbolValue(list6(Keyword.ARMEDBEAR,
     1850                                                 Keyword.ABCL,
     1851                                                 Keyword.COMMON_LISP,
     1852                                                 Keyword.ANSI_CL,
     1853                                                 Keyword.UNIX,
     1854                                                 Keyword.LINUX));
    18601855        } else if (osName.startsWith("SunOS")) {
    1861             _FEATURES_.setSymbolValue(list6(Keyword.ARMEDBEAR,
    1862                                             Keyword.ABCL,
    1863                                             Keyword.COMMON_LISP,
    1864                                             Keyword.ANSI_CL,
    1865                                             Keyword.UNIX,
    1866                                             Keyword.SUNOS));
     1856            Symbol.FEATURES.setSymbolValue(list6(Keyword.ARMEDBEAR,
     1857                                                 Keyword.ABCL,
     1858                                                 Keyword.COMMON_LISP,
     1859                                                 Keyword.ANSI_CL,
     1860                                                 Keyword.UNIX,
     1861                                                 Keyword.SUNOS));
    18671862        } else if (osName.startsWith("Mac OS X")) {
    1868             _FEATURES_.setSymbolValue(list6(Keyword.ARMEDBEAR,
    1869                                             Keyword.ABCL,
    1870                                             Keyword.COMMON_LISP,
    1871                                             Keyword.ANSI_CL,
    1872                                             Keyword.UNIX,
    1873                                             Keyword.DARWIN));
     1863            Symbol.FEATURES.setSymbolValue(list6(Keyword.ARMEDBEAR,
     1864                                                 Keyword.ABCL,
     1865                                                 Keyword.COMMON_LISP,
     1866                                                 Keyword.ANSI_CL,
     1867                                                 Keyword.UNIX,
     1868                                                 Keyword.DARWIN));
    18741869        } else if (osName.startsWith("Windows")) {
    1875             _FEATURES_.setSymbolValue(list5(Keyword.ARMEDBEAR,
    1876                                             Keyword.ABCL,
    1877                                             Keyword.COMMON_LISP,
    1878                                             Keyword.ANSI_CL,
    1879                                             Keyword.WINDOWS));
     1870            Symbol.FEATURES.setSymbolValue(list5(Keyword.ARMEDBEAR,
     1871                                                 Keyword.ABCL,
     1872                                                 Keyword.COMMON_LISP,
     1873                                                 Keyword.ANSI_CL,
     1874                                                 Keyword.WINDOWS));
    18801875        } else {
    1881             _FEATURES_.setSymbolValue(list4(Keyword.ARMEDBEAR,
    1882                                             Keyword.ABCL,
    1883                                             Keyword.COMMON_LISP,
    1884                                             Keyword.ANSI_CL));
     1876            Symbol.FEATURES.setSymbolValue(list4(Keyword.ARMEDBEAR,
     1877                                                 Keyword.ABCL,
     1878                                                 Keyword.COMMON_LISP,
     1879                                                 Keyword.ANSI_CL));
    18851880        }
    18861881    }
     
    18881883        final String version = System.getProperty("java.version");
    18891884        if (version.startsWith("1.4")) {
    1890             _FEATURES_.setSymbolValue(new Cons(Keyword.JAVA_1_4,
    1891                                                _FEATURES_.getSymbolValue()));
     1885            Symbol.FEATURES.setSymbolValue(new Cons(Keyword.JAVA_1_4,
     1886                                               Symbol.FEATURES.getSymbolValue()));
    18921887            isJava15OrLater = false;
    18931888        } else if (version.startsWith("1.5")) {
    1894             _FEATURES_.setSymbolValue(new Cons(Keyword.JAVA_1_5,
    1895                                                _FEATURES_.getSymbolValue()));
     1889            Symbol.FEATURES.setSymbolValue(new Cons(Keyword.JAVA_1_5,
     1890                                               Symbol.FEATURES.getSymbolValue()));
    18961891            isJava15OrLater = true;
    18971892        } else if (version.startsWith("1.6")) {
    1898             _FEATURES_.setSymbolValue(new Cons(Keyword.JAVA_1_6,
    1899                                                _FEATURES_.getSymbolValue()));
     1893            Symbol.FEATURES.setSymbolValue(new Cons(Keyword.JAVA_1_6,
     1894                                               Symbol.FEATURES.getSymbolValue()));
    19001895            isJava15OrLater = true;
    19011896        } else
  • trunk/j/src/org/armedbear/lisp/Symbol.java

    r10207 r10208  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Symbol.java,v 1.220 2005-10-23 17:46:16 piso Exp $
     5 * $Id: Symbol.java,v 1.221 2005-10-23 17:51:56 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    820820    public static final Symbol _COMPILE_VERBOSE_ =
    821821        PACKAGE_CL.addExternalSymbol("*COMPILE-VERBOSE*");
    822     public static final Symbol _DEBUG_IO_ =
     822    public static final Symbol DEBUG_IO =
    823823        PACKAGE_CL.addExternalSymbol("*DEBUG-IO*");
    824824    public static final Symbol _DEBUGGER_HOOK_ =
     
    826826    public static final Symbol DEFAULT_PATHNAME_DEFAULTS =
    827827        PACKAGE_CL.addExternalSymbol("*DEFAULT-PATHNAME-DEFAULTS*");
    828     public static final Symbol _ERROR_OUTPUT_ =
     828    public static final Symbol ERROR_OUTPUT =
    829829        PACKAGE_CL.addExternalSymbol("*ERROR-OUTPUT*");
    830     public static final Symbol _FEATURES_ =
     830    public static final Symbol FEATURES =
    831831        PACKAGE_CL.addExternalSymbol("*FEATURES*");
    832832    public static final Symbol GENSYM_COUNTER =
Note: See TracChangeset for help on using the changeset viewer.