-- File: ExecOps.mesa
-- Last edited by Levin:   9-Dec-80 11:33:58

ExecOps: DEFINITIONS =

  BEGIN

  Command: TYPE = LONG POINTER TO PACKED ARRAY [0..0) OF CHARACTER;
    -- someday, LONG POINTER TO COMPUTED SEQUENCE OF CHARACTER;

  Outcome: TYPE = {ok, warnings, errors, errorsAndWarnings, aborted};

  ExecOp: TYPE = PROCEDURE [command: Command] RETURNS [Outcome];

  Compile: ExecOp;
  Bind: ExecOp;

  CheckForAbort: PROCEDURE RETURNS [BOOLEAN];
  -- called at arbitrary times by an ExecOp.  Returns TRUE if the user wants the operation to
  -- clean up and go away.

  END.