LispRef content(LispRef stream, LispRef eos_error_p, LispRef eos_value)
{
WITH_DEBUG(fprintf(stderr, "content\n"));
char tag;
read_byte(tag);
WITH_DEBUG(fprintf(stderr, " tag: %x\n", tag));
switch (tag)
{
case TC_NULL:
return nullReference(stream, eos_error_p, eos_value);
case TC_REFERENCE:
return prevObject(stream, eos_error_p, eos_value);
case TC_CLASS:
return newClass(stream, eos_error_p, eos_value);
case TC_OBJECT:
return newObject(stream, eos_error_p, eos_value);
case TC_STRING:
return newString(stream, eos_error_p, eos_value);
case TC_STATE:
return newState(stream, eos_error_p, eos_value);
case TC_VECTOR:
return newVector(stream, eos_error_p, eos_value);
case TC_STREAM:
return newStream(stream, eos_error_p, eos_value);
case TC_RESET:
return reset(stream, eos_error_p, eos_value);
case TC_SELF:
return stream;
case TC_FUNCTION:
return newFunction(stream, eos_error_p, eos_value);
case TC_BYTEVECTOR:
return newBytevector(stream, eos_error_p, eos_value);
case TC_INT:
return newInt(stream, eos_error_p, eos_value);
case TC_DOUBLE:
return newDouble(stream, eos_error_p, eos_value);
case TC_SYMBOL:
return newSymbol(stream, eos_error_p, eos_value);
case TC_KEYWORD:
return newKeyword(stream, eos_error_p, eos_value);
case TC_CHAR:
return newChar(stream, eos_error_p, eos_value);
case TC_CONS:
return newCons(stream, eos_error_p, eos_value);
default:
{
LispRef str, args;
eul_allocate_string(str, "unknown tag in ~a");
eul_allocate_cons(args, stream, eul_nil);
eul_serial_error(stream, str, args);
return eul_nil;
}
}
}
void CEditToolbox::setupKeyActions() {
addAction(m_prevObjAction = new QAction("Previous Object", this));
m_prevObjAction->setShortcut(Qt::Key_Minus);
addAction(m_nextObjAction = new QAction("Next Object", this));
QList<QKeySequence> nextObjKeys;
nextObjKeys.append(Qt::Key_Equal);
nextObjKeys.append(Qt::Key_Plus);
m_nextObjAction->setShortcuts(nextObjKeys);
addAction(m_prev8ObjAction = new QAction("Previous 8 Objects", this));
m_prev8ObjAction->setShortcut(Qt::Key_Comma);
addAction(m_next8ObjAction = new QAction("Next 8 Objects", this));
m_next8ObjAction->setShortcut(Qt::Key_Period);
connect(m_prevObjAction, SIGNAL(triggered()), m_objectPicker, SLOT(prevObject()));
connect(m_nextObjAction, SIGNAL(triggered()), m_objectPicker, SLOT(nextObject()));
connect(m_prev8ObjAction, SIGNAL(triggered()), m_objectPicker, SLOT(prev8Objects()));
connect(m_next8ObjAction, SIGNAL(triggered()), m_objectPicker, SLOT(next8Objects()));
}
void FleetWidget::prevButtonClicked(bool)
{
emit prevObject();
}
