-- file:  ChollaMDControl.mesa
-- edited by Barth, November 3, 1981  1:03 PM
-- edited by Brotz, January 29, 1982  5:31 PM

DIRECTORY
  ccD: FROM "ChollaCmdDefs",
  LaurelExecImpDefs,
  Process,
  String,
  vmD: FROM "VirtualMgrDefs";

ChollaMDControl: PROGRAM
  IMPORTS LaurelExecImpDefs, Process, String
  EXPORTS ccD =

BEGIN


MachineDriver: PUBLIC PROC [data, spec: vmD.VirtualMessagePtr, name: STRING]
  RETURNS [result: STRING] =
BEGIN
SELECT TRUE FROM
  String.EquivalentString[name, "Bruce"L] => RETURN[NIL];
  ENDCASE => RETURN["No such machine"];
END;  -- of MachineDriver --


MachineTalker: PUBLIC PROCEDURE [name: STRING] RETURNS [worked: BOOLEAN] =
BEGIN
worked _ TRUE;
SELECT TRUE FROM
  String.EquivalentString[name, "Bruce"L] =>
    Process.Detach[FORK LaurelExecImpDefs.RunBcdInLaurel["BruceTalk.bcd"L]];
  ENDCASE => worked _ FALSE;
END;  -- of MachineTalker --


MachineCancel: PUBLIC PROC [data, spec: vmD.VirtualMessagePtr, name: STRING]
  RETURNS [cancelled: BOOLEAN] =
BEGIN
RETURN[FALSE];
END;  -- of MachineCancel --


END.  -- of ChollaMDControl --z19932(635)\f1