public static MemoizationTable newMemoizationTable() {
{
MemoizationTable self = null;
self = new MemoizationTable();
self.timestamps = Stella.NIL;
self.currentTimestamp = null;
self.tableName = null;
self.hashTable = null;
return (self);
}
}
public static Stella_Object accessMemoizationTableSlotValue(
MemoizationTable self, Symbol slotname, Stella_Object value, boolean setvalueP) {
if (slotname == Stella.SYM_STELLA_HASH_TABLE) {
if (setvalueP) {
self.hashTable = ((IntegerHashTable) (value));
} else {
value = self.hashTable;
}
} else if (slotname == Stella.SYM_STELLA_TABLE_NAME) {
if (setvalueP) {
self.tableName = ((Surrogate) (value));
} else {
value = self.tableName;
}
} else if (slotname == Stella.SYM_STELLA_CURRENT_TIMESTAMP) {
if (setvalueP) {
self.currentTimestamp = ((Cons) (value));
} else {
value = self.currentTimestamp;
}
} else if (slotname == Stella.SYM_STELLA_TIMESTAMPS) {
if (setvalueP) {
self.timestamps = ((Cons) (value));
} else {
value = self.timestamps;
}
} else {
{
OutputStringStream stream000 = OutputStringStream.newOutputStringStream();
stream000.nativeStream.print("`" + slotname + "' is not a valid case option");
throw ((StellaException)
(StellaException.newStellaException(stream000.theStringReader()).fillInStackTrace()));
}
}
return (value);
}