// IfsEventMgrInit.bcpl - Event Manager initialization // Copyright Xerox Corporation 1979, 1982 // Last modified July 25, 1982 2:07 PM by Taft get "Ifs.decl" external [ // Outgoing procedures InitEventMgr // Incoming procedures Allocate; SysAllocateZero; Enqueue; InitializeContext; EventMgr // Incoming statics sysZone; bigZone; ifsCtxQ; @eventState ] static eventMgrSS = 800 manifest lenEventState = 3 // = size EventState/16 //---------------------------------------------------------------------------- let InitEventMgr() be //---------------------------------------------------------------------------- [ eventState = SysAllocateZero(lenEventState) Enqueue(ifsCtxQ, InitializeContext(Allocate(bigZone, eventMgrSS), eventMgrSS, EventMgr)) ]