-- Lupine: client of example interface

-- TargetClientImpl.mesa

-- Andrew Birrell  July 8, 1982 9:22 am

DIRECTORY
Rope	USING[ Length, ROPE ],
Target	USING[ Basic, Consultation, Exception, Simple ],
TargetRpcControl USING[ ImportInterface ];

TargetClientImpl: 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.