static status storeStyle(Style s, FileObj file) { storeSlotsObject(s, file); storeIntFile(file, toInt(s->attributes)); succeed; }
static status storeChain(Chain ch, FileObj file) { Cell cell; TRY(storeSlotsObject(ch, file)); for_cell(cell, ch) { storeCharFile(file, cell == ch->current ? 'E' : 'e'); TRY( storeObject(cell->value, file) ); }
static status storeVector(Vector v, FileObj file) { int n; TRY(storeSlotsObject(v, file)); for(n = 0; n < valInt(v->size); n++) TRY(storeObject(v->elements[n], file)); succeed; }
static status storeSyntaxTable(SyntaxTable t, FileObj file) { TRY(storeSlotsObject(t, file)); swapBytesTable(t); Sfwrite(t->table, sizeof(char), FLAGS_SIZE(t), file->fd); swapBytesTable(t); Sfwrite(t->context, sizeof(char), CONTEXT_SIZE(t), file->fd); succeed; }
static status storeDate(Date d, FileObj file) { TRY(storeSlotsObject(d, file)); return storeWordFile(file, (Any) d->unix_date); }