Apple AppleShare 3.0 File Server Controls - Manual (Page 40)

END;
{ Your application calls InstallServerEventHandler to }
{ install the server event handler. Change the }
{ InitSEQEntry function where indicated to tell the server }
{ event handler mechanism what server events you're }
{ interested in to begin with. }
FUNCTION InstallServerEventHandler: OSErr;
VAR
err: OSErr;
BEGIN
{ initialize queues and get server event record buffer }
IF InitSEQEntry THEN
BEGIN
{ Set the server event flags in }
{ gExtendedSEQEntry.theSEQEntry. }
SetSEFlags;
{ Install the server event handler. }
err :=
mySCInstallServerEventProc(@gExtendedSEQEntry);
IF err <> noErr THEN { SE handler not installed? }
{ Then get rid of memory. }
DisposPtr(gExtendedSEQEntry.seRecArrayPtr);
{ Return any SCInstallServerEventProc errors. }
InstallServerEventHandler := err;
END
ELSE
{ Return a memory error. }
InstallServerEventHandler := memFullErr;
END;