-- Feedback.mesa
--   Edited by Sweet, 1-Apr-81 11:32:07

DIRECTORY
  ExecOps USING [Outcome];
  
Feedback: DEFINITIONS =
  BEGIN
  Outcome: TYPE = ExecOps.Outcome;
  ProcsHandle: TYPE = POINTER TO Procs;
  Procs: TYPE = RECORD [
    create: CreateProc ← NIL, 
    destroy: DestroyProc ← NIL, 
    beginItem: BeginItemProc ← NIL,
    noteProgress: NoteProgressProc ← NIL, 
    finishItem: FinishItemProc ← NIL];
  Handle: TYPE = LONG POINTER TO Object;
  Object: TYPE;
  CreateProc: TYPE = PROC [system: LONG STRING, herald: LONG STRING ← NIL] RETURNS [Handle];
  DestroyProc: TYPE = PROC [h: Handle, trailer: LONG STRING ← NIL];
  BeginItemProc: TYPE = PROC [h: Handle, item: LONG STRING];
  NoteProgressProc: TYPE = PROC [h: Handle, state: CARDINAL];
  FinishItemProc: TYPE = PROC [h: Handle, outcome: Outcome, trailer: LONG STRING ← NIL];
  END.