-- Copyright (C) 1981, 1983  by Xerox Corporation. All rights reserved. 
-- RPCSignals.mesa, HGM, 15-Mar-83 18:59:58

-- RPC: Signals and errors

-- [Ivy]<Birrell>RPC>RPCSignals.mesa

-- Andrew Birrell  30-Oct-81 12:23:27

DIRECTORY
  MesaRPC USING [AuthenticateFailure, CallFailure, ExportFailure, ImportFailure];

RPCSignals: PROGRAM EXPORTS MesaRPC =

  BEGIN

  -- This rather silly module is needed because of the difficulty of exporting the
  -- same signals to two interfaces.  This module is never started!

  AuthenticateFailed: PUBLIC ERROR [why: MesaRPC.AuthenticateFailure] = CODE;

  CallFailed: PUBLIC SIGNAL [why: MesaRPC.CallFailure] = CODE;

  ExportFailed: PUBLIC ERROR [why: MesaRPC.ExportFailure] = CODE;

  ImportFailed: PUBLIC ERROR [why: MesaRPC.ImportFailure] = CODE;

  END.