StandardClass


1   /*
2    * StandardClass.java
3    *
4    * Copyright (C) 2003 Peter Graves
5    * $Id: StandardClass.java,v 1.15 2003/12/20 03:06:58 piso Exp $
6    *
7    * This program is free software; you can redistribute it and/or
8    * modify it under the terms of the GNU General Public License
9    * as published by the Free Software Foundation; either version 2
10   * of the License, or (at your option) any later version.
11   *
12   * This program is distributed in the hope that it will be useful,
13   * but WITHOUT ANY WARRANTY; without even the implied warranty of
14   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   * GNU General Public License for more details.
16   *
17   * You should have received a copy of the GNU General Public License
18   * along with this program; if not, write to the Free Software
19   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20   */
21  
22  package org.armedbear.lisp;
23  
24  public class StandardClass extends SlotClass
25  {
26      public StandardClass()
27      {
28          setLayout(new Layout(this, Fixnum.ZERO, NIL));
29      }
30  
31      public StandardClass(Symbol symbol, LispObject directSuperclasses)
32      {
33          super(symbol, directSuperclasses);
34          setLayout(new Layout(this, Fixnum.ZERO, NIL));
35      }
36  
37      public LispObject typeOf()
38      {
39          return Symbol.STANDARD_CLASS;
40      }
41  
42      public LispClass classOf()
43      {
44          return BuiltInClass.STANDARD_CLASS;
45      }
46  
47      public LispObject typep(LispObject type) throws ConditionThrowable
48      {
49          if (type == Symbol.STANDARD_CLASS)
50              return T;
51          if (type == BuiltInClass.STANDARD_CLASS)
52              return T;
53          return super.typep(type);
54      }
55  
56      public String   toString()
57      {
58          StringBuffer   sb = new StringBuffer  ("#<STANDARD-CLASS ");
59          sb.append(symbol.getName());
60          sb.append('>');
61          return sb.toString();
62      }
63  }
64
A to Z: JavaDoc & Examples Daily Java News & Articles Open Source Projects Open Source Codes Free Computer Books Remove Frame
Popular Tags