-- Copyright (C) 1984  by Xerox Corporation. All rights reserved. 
-- EventSupervisorNoDisk.mesa, HGM, 26-Feb-84  3:09:23

DIRECTORY
  Event USING [],
  Supervisor USING [AgentProcedure, SubsystemHandle];

EventSupervisorNoDisk: PROGRAM
  EXPORTS Event, Supervisor =
  BEGIN

  aboutToSwap, fileSystem: PUBLIC Supervisor.SubsystemHandle ← LOOPHOLE[NIL];
  
  nullAgentProcedure: PUBLIC Supervisor.AgentProcedure = BEGIN END;

  CreateSubsystem: PUBLIC PROCEDURE [
      Supervisor.AgentProcedure, LONG POINTER]
    RETURNS [Supervisor.SubsystemHandle] =
    BEGIN
    RETURN[LOOPHOLE[NIL]];
    END;
  
  AddDependency, RemoveDependency: PUBLIC PROCEDURE [
      Supervisor.SubsystemHandle, Supervisor.SubsystemHandle] =
    BEGIN
    END;
  

  END.