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);
}
}
