Changeset 3927


Ignore:
Timestamp:
09/20/03 17:00:09 (20 years ago)
Author:
piso
Message:

Moved built-in classes to BuiltInClass?.java.

File:
1 edited

Legend:

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

    r3920 r3927  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispClass.java,v 1.18 2003-09-20 00:39:52 piso Exp $
     5 * $Id: LispClass.java,v 1.19 2003-09-20 17:00:09 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424import java.util.HashMap;
    2525
    26 public final class LispClass extends LispObject
     26public class LispClass extends LispObject
    2727{
    28     private static final HashMap map = new HashMap();
     28    protected static final HashMap map = new HashMap();
    2929
    3030    private final Symbol symbol;
    3131
    32     private LispClass(Symbol symbol)
     32    protected LispClass(Symbol symbol)
    3333    {
    3434        this.symbol = symbol;
     
    5757        return sb.toString();
    5858    }
    59 
    60     private static LispClass addClass(Symbol symbol)
    61     {
    62         LispClass c = new LispClass(symbol);
    63         map.put(symbol, c);
    64         return c;
    65     }
    66 
    67     // We can't call this class T!
    68     public static final LispClass CLASS_T            = addClass(T);
    69 
    70     public static final LispClass ARITHMETIC_ERROR   = addClass(Symbol.ARITHMETIC_ERROR);
    71     public static final LispClass ARRAY              = addClass(Symbol.ARRAY);
    72     public static final LispClass BIGNUM             = addClass(Symbol.BIGNUM);
    73     public static final LispClass BIT_VECTOR         = addClass(Symbol.BIT_VECTOR);
    74     public static final LispClass BUILT_IN_CLASS     = addClass(Symbol.BUILT_IN_CLASS);
    75     public static final LispClass CHARACTER          = addClass(Symbol.CHARACTER);
    76     public static final LispClass CLASS              = addClass(Symbol.CLASS);
    77     public static final LispClass COMPLEX            = addClass(Symbol.COMPLEX);
    78     public static final LispClass CONDITION          = addClass(Symbol.CONDITION);
    79     public static final LispClass CONS               = addClass(Symbol.CONS);
    80     public static final LispClass CONTROL_ERROR      = addClass(Symbol.CONTROL_ERROR);
    81     public static final LispClass ERROR              = addClass(Symbol.ERROR);
    82     public static final LispClass FIXNUM             = addClass(Symbol.FIXNUM);
    83     public static final LispClass FLOAT              = addClass(Symbol.FLOAT);
    84     public static final LispClass FUNCTION           = addClass(Symbol.FUNCTION);
    85     public static final LispClass HASH_TABLE         = addClass(Symbol.HASH_TABLE);
    86     public static final LispClass INTEGER            = addClass(Symbol.INTEGER);
    87     public static final LispClass LIST               = addClass(Symbol.LIST);
    88     public static final LispClass NULL               = addClass(Symbol.NULL);
    89     public static final LispClass NUMBER             = addClass(Symbol.NUMBER);
    90     public static final LispClass PACKAGE            = addClass(Symbol.PACKAGE);
    91     public static final LispClass PACKAGE_ERROR      = addClass(Symbol.PACKAGE_ERROR);
    92     public static final LispClass PARSE_ERROR        = addClass(Symbol.PARSE_ERROR);
    93     public static final LispClass PATHNAME           = addClass(Symbol.PATHNAME);
    94     public static final LispClass PROGRAM_ERROR      = addClass(Symbol.PROGRAM_ERROR);
    95     public static final LispClass RANDOM_STATE       = addClass(Symbol.RANDOM_STATE);
    96     public static final LispClass RATIO              = addClass(Symbol.RATIO);
    97     public static final LispClass RATIONAL           = addClass(Symbol.RATIONAL);
    98     public static final LispClass REAL               = addClass(Symbol.REAL);
    99     public static final LispClass SEQUENCE           = addClass(Symbol.SEQUENCE);
    100     public static final LispClass SIMPLE_CONDITION   = addClass(Symbol.SIMPLE_CONDITION);
    101     public static final LispClass SIMPLE_ERROR       = addClass(Symbol.SIMPLE_ERROR);
    102     public static final LispClass STANDARD_CLASS     = addClass(Symbol.STANDARD_CLASS);
    103     public static final LispClass STANDARD_OBJECT    = addClass(Symbol.STANDARD_OBJECT);
    104     public static final LispClass STREAM             = addClass(Symbol.STREAM);
    105     public static final LispClass STREAM_ERROR       = addClass(Symbol.STREAM_ERROR);
    106     public static final LispClass STRING             = addClass(Symbol.STRING);
    107     public static final LispClass STRING_STREAM      = addClass(Symbol.STRING_STREAM);
    108     public static final LispClass STRUCTURE_CLASS    = addClass(Symbol.STRUCTURE_CLASS);
    109     public static final LispClass STRUCTURE_OBJECT   = addClass(Symbol.STRUCTURE_OBJECT);
    110     public static final LispClass SYMBOL             = addClass(Symbol.SYMBOL);
    111     public static final LispClass TWO_WAY_STREAM     = addClass(Symbol.TWO_WAY_STREAM);
    112     public static final LispClass TYPE_ERROR         = addClass(Symbol.TYPE_ERROR);
    113     public static final LispClass UNBOUND_VARIABLE   = addClass(Symbol.UNBOUND_VARIABLE);
    114     public static final LispClass UNDEFINED_FUNCTION = addClass(Symbol.UNDEFINED_FUNCTION);
    115     public static final LispClass VECTOR             = addClass(Symbol.VECTOR);
    11659
    11760    public static LispClass findClass(Symbol symbol)
Note: See TracChangeset for help on using the changeset viewer.