// 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))
]