Lupine: implementation of example interface
TargetImpl.mesa
Andrew Birrell September 14, 1983 9:06 am
DIRECTORY
Rope USING[ ROPE ],
Target USING[ Reason ],
TargetRpcControl USING[ ExportInterface ];
TargetImpl:
CEDAR PROGRAM
IMPORTS TargetRpcControl
EXPORTS Target =
BEGIN
Basic:
PUBLIC
PROC =
{ NULL };
Simple:
PUBLIC
PROC[first:
INT, second:
REF
INT]
RETURNS[a: Rope.
ROPE, b:
ATOM] =
{ RETURN["Hello", $anAtom] };
Exception: PUBLIC ERROR[why: Target.Reason] = CODE;
Consultation: PUBLIC SIGNAL = CODE;
TargetRpcControl.ExportInterface[user: "someone.pa", password: ];
END.