-- 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 --