org.armedbear.lisp
Class JavaObject

java.lang.Object
  org.armedbear.lisp.LispObject
      org.armedbear.lisp.JavaObject

public final class JavaObject
extends LispObject

Field Summary

static Symbol	ENSURE_JAVA_CLASS
static Symbol	JAVA_CLASS
static Symbol	JAVA_CLASS_JCLASS

Constructor Summary

JavaObject(java.lang.Object obj)

JavaObject(java.lang.Object obj, java.lang.Class<?> intendedClass)
Constructs a Java Object with the given intended class, used to access the object reflectively.

Method Summary

LispObject	classOf()
static java.lang.String	describeJavaObject(JavaObject javaObject)
static void	doClassHierarchy(java.lang.Class<?> clss, LispObject callback) Executes a function recursively over and its superclasses and interfaces.
boolean	equal(LispObject other)
boolean	equalp(LispObject other)
static LispObject	findJavaClass(java.lang.Class<?> javaClass)
LispObject	getDescription()
static LispObject	getInstance(java.lang.Object obj) Encapsulates obj, if required.
static LispObject	getInstance(java.lang.Object obj, boolean translated) Encapsulates obj, if required.
static LispObject	getInstance(java.lang.Object obj, boolean translated, java.lang.Class<?> intendedClass) Encapsulates obj, if required.
static LispObject	getInstance(java.lang.Object obj, java.lang.Class<?> intendedClass) Encapsulates obj, if required.
java.lang.Class<?>	getIntendedClass()
java.lang.Object	getObject()
static java.lang.Object	getObject(LispObject o)
LispObject	getParts() Implementing the getParts() protocol will allow INSPECT to return information about the substructure of a descendent of LispObject.
java.lang.Object	javaInstance()
java.lang.Object	javaInstance(java.lang.Class<?> c)
java.lang.Object	lockableInstance() Returns the encapsulated Java object for interoperability with wait, notify, synchronized, etc.
static LispObject	mapcarClassHierarchy(java.lang.Class<?> clss, LispObject fn)
static LispObject	registerJavaClass(java.lang.Class<?> javaClass, LispObject classMetaObject)
LispObject	STRING()
int	sxhash()
LispObject	typeOf()
LispObject	typep(LispObject type)
java.lang.String	writeToString()

Methods inherited from class org.armedbear.lisp.LispObject

ABS, add, add, aref_long, aref, AREF, AREF, aset, aset, aset, ash, ash, atom, ATOM, caddr, cadr, car, cddr, cdr, CHAR, characterp, CHARACTERP, chars, COMPLEXP, constantp, CONSTANTP, copyToArray, decr, DENOMINATOR, dispatch, divideBy, doubleValue, elt, endp, ENDP, EQ, eql, eql, eql, EQL, equal, EQUAL, equalp, evenp, EVENP, execute, execute, execute, execute, execute, execute, execute, execute, execute, execute, execute, floatp, FLOATP, floatValue, getBooleanValue, getCallCount, getDocumentation, getFixnumSlotValue, getHotCount, getInstance, getPropertyList, getSlotValue_0, getSlotValue_1, getSlotValue_2, getSlotValue_3, getSlotValue, getSlotValueAsBoolean, getStringChars, getStringValue, getSymbolFunction, getSymbolFunctionOrDie, getSymbolSetfFunction, getSymbolSetfFunctionOrDie, getSymbolValue, incr, incrementCallCount, incrementHotCount, integerp, INTEGERP, intValue, IS_E, IS_GE, IS_GT, IS_LE, IS_LT, IS_NE, isEqualTo, isEqualTo, isGreaterThan, isGreaterThan, isGreaterThanOrEqualTo, isGreaterThanOrEqualTo, isLessThan, isLessThan, isLessThanOrEqualTo, isLessThanOrEqualTo, isNotEqualTo, isNotEqualTo, isSpecialOperator, isSpecialVariable, LDB, length, LENGTH, listp, LISTP, LOGAND, LOGAND, LOGIOR, LOGIOR, LOGNOT, LOGXOR, LOGXOR, longValue, minusp, MINUSP, MOD, MOD, multiplyBy, multiplyBy, negate, noFillPointer, NOT, nreverse, NTH, NTH, nthcdr, numberp, NUMBERP, NUMERATOR, oddp, ODDP, plusp, PLUSP, psxhash, psxhash, push, rationalp, RATIONALP, realp, REALP, resolve, reverse, RPLACA, RPLACD, SCHAR, setCallCount, setCar, setCdr, setDocumentation, setHotCount, setPropertyList, setSlotValue_0, setSlotValue_1, setSlotValue_2, setSlotValue_3, setSlotValue, setSlotValue, SIMPLE_STRING_P, SLOT_VALUE, stringp, STRINGP, subtract, subtract, SVREF, svset, SYMBOLP, truncate, unreadableString, unreadableString, unreadableString, unreadableString, VECTOR_PUSH_EXTEND, VECTOR_PUSH_EXTEND, vectorp, VECTORP, vectorPushExtend, zerop, ZEROP

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

JAVA_CLASS_JCLASS

public static final Symbol JAVA_CLASS_JCLASS

JAVA_CLASS

public static final Symbol JAVA_CLASS

ENSURE_JAVA_CLASS

public static final Symbol ENSURE_JAVA_CLASS

Constructor Detail

JavaObject

public JavaObject(java.lang.Object obj)

JavaObject

public JavaObject(java.lang.Object obj,
                  java.lang.Class<?> intendedClass)

Constructs a Java Object with the given intended class, used to access the object reflectively. If the class represents a primitive type, the corresponding wrapper type is used instead.

Throws:

java.lang.ClassCastException - if the object is not an instance of the intended class.

Method Detail

typeOf

public LispObject typeOf()

Overrides:

typeOf in class LispObject

classOf

public LispObject classOf()

Overrides:

classOf in class LispObject

typep

public LispObject typep(LispObject type)

Overrides:

typep in class LispObject

STRING

public LispObject STRING()

Overrides:

STRING in class LispObject

getObject

public final java.lang.Object getObject()

getInstance

public static final LispObject getInstance(java.lang.Object obj)

Encapsulates obj, if required. If obj is a LispObject, it's returned as-is.

Parameters:

obj - Any java object

Returns:

obj or a new JavaObject encapsulating obj

getInstance

public static final LispObject getInstance(java.lang.Object obj,
                                           java.lang.Class<?> intendedClass)

Encapsulates obj, if required. If obj is a LispObject, it's returned as-is. If not, a java object with the specified intended class is returned.

Parameters:

obj - Any java object

intendedClass - the class that shall be used to access obj

Returns:

obj or a new JavaObject encapsulating obj

getInstance

public static final LispObject getInstance(java.lang.Object obj,
                                           boolean translated)

Encapsulates obj, if required. If obj is a LispObject, it's returned as-is. If obj is of a type which can be mapped to a lisp type, an object of the mapped type is returned, if translated is true.

Parameters:

obj -

translated -

Returns:

a LispObject representing or encapsulating obj

getInstance

public static final LispObject getInstance(java.lang.Object obj,
                                           boolean translated,
                                           java.lang.Class<?> intendedClass)

Encapsulates obj, if required. If obj is a LispObject, it's returned as-is. If obj is of a type which can be mapped to a lisp type, an object of the mapped type is returned, if translated is true.

Parameters:

obj -

translated -

intendedClass - the class that shall be used to reflectively access obj; it is an error for obj not to be an instance of this class. This parameter is ignored if translated == true and the object can be converted to a Lisp object.

Returns:

a LispObject representing or encapsulating obj

javaInstance

public java.lang.Object javaInstance()

Overrides:

javaInstance in class LispObject

javaInstance

public java.lang.Object javaInstance(java.lang.Class<?> c)

Overrides:

javaInstance in class LispObject

lockableInstance

public java.lang.Object lockableInstance()

Returns the encapsulated Java object for interoperability with wait, notify, synchronized, etc.

Overrides:

lockableInstance in class LispObject

Returns:

The encapsulated object

getIntendedClass

public java.lang.Class<?> getIntendedClass()

getObject

public static final java.lang.Object getObject(LispObject o)

equal

public final boolean equal(LispObject other)

Overrides:

equal in class LispObject

equalp

public final boolean equalp(LispObject other)

Overrides:

equalp in class LispObject

sxhash

public int sxhash()

Overrides:

sxhash in class LispObject

writeToString

public java.lang.String writeToString()

Overrides:

writeToString in class LispObject

getDescription

public LispObject getDescription()

Overrides:

getDescription in class LispObject

getParts

public LispObject getParts()

Description copied from class: LispObject

Implementing the getParts() protocol will allow INSPECT to return information about the substructure of a descendent of LispObject. The protocol is to return a List of Cons pairs, where the car of each pair contains a decriptive string, and the cdr returns a subobject for inspection.

Overrides:

getParts in class LispObject

doClassHierarchy

public static void doClassHierarchy(java.lang.Class<?> clss,
                                    LispObject callback)

Executes a function recursively over and its superclasses and interfaces.

mapcarClassHierarchy

public static LispObject mapcarClassHierarchy(java.lang.Class<?> clss,
                                              LispObject fn)

describeJavaObject

public static java.lang.String describeJavaObject(JavaObject javaObject)

registerJavaClass

public static LispObject registerJavaClass(java.lang.Class<?> javaClass,
                                           LispObject classMetaObject)

findJavaClass

public static LispObject findJavaClass(java.lang.Class<?> javaClass)