Lupine: client of example interface
TargetClientImpl.mesa
Andrew Birrell September 14, 1983 9:07 am
DIRECTORY
Rope USING[ Length, ROPE ],
Target USING[ Basic, Consultation, Exception, Simple ],
TargetRpcControl USING[ ImportInterface ];
TargetClientImpl:
CEDAR PROGRAM
IMPORTS Rope, Target, TargetRpcControl =
BEGIN
TargetRpcControl.ImportInterface[];
DO
Target.Basic[ ! Target.Consultation => RESUME ];
[,] ← Target.Simple[Rope.Length["a"], NEW[INT ← 4] ! Target.Exception => CONTINUE ];
ENDLOOP;
END.