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 ],
UserCredentials USING [Get];
TargetClientImpl:
CEDAR PROGRAM
IMPORTS Rope, Target, TargetRpcControl, UserCredentials =
BEGIN
user: Rope.ROPE;
[name: user] ← UserCredentials.Get[];
TargetRpcControl.ImportInterface[interfaceName: [instance: user]];
DO
Target.Basic[ ! Target.Consultation => RESUME ];
[,] ← Target.Simple[Rope.Length["a"], NEW[INT ← 4] ! Target.Exception => CONTINUE ];
ENDLOOP;
END.