static void processEvent(EventProc proc, Event event, Word etime) { Res res; res = EventRecord(proc, event, etime); if (res != ResOK) error("Can't record event: error %d.", res); switch(event->any.code) { default: break; } }
static void readLog(EventProc proc) { while (TRUE) { Event event; Res res; res = EventRead(&event, proc); if (res == ResFAIL) break; /* eof */ if (res != ResOK) error("Truncated log"); eventTime = event->any.clock; EventRecord(proc, event, eventTime); EventReplay(event, eventTime); EventDestroy(proc, event); } }