Class HashTable

java.lang.Object

org.armedbear.lisp.LispObject

org.armedbear.lisp.HashTable

All Implemented Interfaces:

Hashtable, LispObject

public class HashTable
extends LispObject
implements Hashtable

Nested Class Summary

Nested Classes

Modifier and Type	Class	Description
protected static class	HashTable.Comparator
protected static class	HashTable.EqlComparator
protected static class	HashTable.EqualComparator
protected static class	HashTable.EqualpComparator
protected static class	HashTable.HashEntry

Field Summary

Fields

Modifier and Type	Field	Description
protected HashTable.HashEntry[]	buckets
protected int	count
protected static final float	loadFactor
protected final LispObject	rehashSize
protected final LispObject	rehashThreshold
protected int	threshold

Constructor Summary

Constructors

Modifier	Constructor	Description
protected	HashTable(HashTable.Comparator c, int size, LispObject rehashSize, LispObject rehashThreshold)

Method Summary

Modifier and Type	Method	Description
protected static int	calculateInitialCapacity(int size)
LispObject	classOf()
void	clear()
LispObject	ENTRIES()
boolean	equalp(LispObject obj)
LispObject	get(LispObject key)
int	getCount()
LispObject	getEntries()
protected HashTable.HashEntry	getEntry(LispObject key)
LispObject	gethash(LispObject key)
LispObject	gethash(LispObject key, LispObject defaultValue)
LispObject	gethash1(LispObject key)
LispObject	getParts()	Implementing the getParts() protocol will allow INSPECT to return information about the substructure of a descendent of LispObject.
final LispObject	getRehashSize()
final LispObject	getRehashThreshold()
int	getSize()
Symbol	getTest()
LispObject	MAPHASH(LispObject function)
static HashTable	newEqHashTable(int size, LispObject rehashSize, LispObject rehashThreshold)
static HashTable	newEqlHashTable(int size, LispObject rehashSize, LispObject rehashThreshold)
static HashTable	newEqualHashTable(int size, LispObject rehashSize, LispObject rehashThreshold)
static LispObject	newEqualpHashTable(int size, LispObject rehashSize, LispObject rehashThreshold)
String	printObject()
int	psxhash()
void	put(LispObject key, LispObject value)
LispObject	puthash(LispObject key, LispObject newValue)
protected void	rehash()
LispObject	remhash(LispObject key)
LispObject	remove(LispObject key)
LispObject	typeOf()
LispObject	typep(LispObject type)

Methods inherited from class LispObject

ABS, add, add, aref, AREF, AREF, aref_long, 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, EQUAL, equalp, evenp, EVENP, execute, execute, execute, execute, execute, execute, execute, execute, execute, execute, execute, floatp, FLOATP, floatValue, getBooleanValue, getCallCount, getDescription, getDocumentation, getFixnumSlotValue, getHotCount, getInstance, getPropertyList, getSlotValue, getSlotValue_0, getSlotValue_1, getSlotValue_2, getSlotValue_3, 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, javaInstance, javaInstance, LDB, length, LENGTH, listp, LISTP, lockableInstance, 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, princToString, psxhash, push, rationalp, RATIONALP, realp, REALP, resolve, reverse, RPLACA, RPLACD, SCHAR, setCallCount, setCar, setCdr, setDocumentation, setHotCount, setPropertyList, setSlotValue, setSlotValue, setSlotValue_0, setSlotValue_1, setSlotValue_2, setSlotValue_3, SIMPLE_STRING_P, SLOT_VALUE, STRING, stringp, STRINGP, subtract, subtract, SVREF, svset, sxhash, SYMBOLP, truncate, unreadableString, unreadableString, VECTOR_PUSH_EXTEND, VECTOR_PUSH_EXTEND, vectorp, VECTORP, vectorPushExtend, zerop, ZEROP

Methods inherited from class Object

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

Field Details

loadFactor

protected static final float loadFactor

See Also:

• Constant Field Values

rehashSize

protected final LispObject rehashSize

rehashThreshold

protected final LispObject rehashThreshold

threshold

protected int threshold

buckets

protected volatile HashTable.HashEntry[] buckets

count

protected volatile int count

Constructor Details

HashTable

protected HashTable(HashTable.Comparator c,
 int size,
 LispObject rehashSize,
 LispObject rehashThreshold)

Method Details

calculateInitialCapacity

protected static int calculateInitialCapacity(int size)

newEqHashTable

public static HashTable newEqHashTable(int size,
 LispObject rehashSize,
 LispObject rehashThreshold)

newEqlHashTable

public static HashTable newEqlHashTable(int size,
 LispObject rehashSize,
 LispObject rehashThreshold)

newEqualHashTable

public static HashTable newEqualHashTable(int size,
 LispObject rehashSize,
 LispObject rehashThreshold)

newEqualpHashTable

public static LispObject newEqualpHashTable(int size,
 LispObject rehashSize,
 LispObject rehashThreshold)

getRehashSize

public final LispObject getRehashSize()

getRehashThreshold

public final LispObject getRehashThreshold()

getSize

public int getSize()

getCount

public int getCount()

typeOf

public LispObject typeOf()

Specified by:

typeOf in interface LispObject

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

equalp

public boolean equalp(LispObject obj)

Overrides:

equalp 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

clear

public void clear()

gethash

public LispObject gethash(LispObject key)

gethash

public LispObject gethash(LispObject key,
 LispObject defaultValue)

gethash1

public LispObject gethash1(LispObject key)

puthash

public LispObject puthash(LispObject key,
 LispObject newValue)

remhash

public LispObject remhash(LispObject key)

printObject

public String printObject()

Overrides:

printObject in class LispObject

getTest

public Symbol getTest()

getEntry

protected HashTable.HashEntry getEntry(LispObject key)

get

public LispObject get(LispObject key)

put

public void put(LispObject key,
 LispObject value)

remove

public LispObject remove(LispObject key)

rehash

protected void rehash()

ENTRIES

public LispObject ENTRIES()

Specified by:

ENTRIES in interface Hashtable

getEntries

public LispObject getEntries()

Specified by:

getEntries in interface Hashtable

MAPHASH

public LispObject MAPHASH(LispObject function)

psxhash

public int psxhash()

Overrides:

psxhash in class LispObject