SoftcardRemoteCallTestImpl.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
written by Christian Le Cocq, November 10, 1988
Description of what this module does.
DIRECTORY
Basics USING [UnsafeBlock],
IO USING [STREAM, RIS, UnsafeGetBlock],
Rope USING [ROPE, Length],
SoftcardRemoteCall USING [CallRProc];
SoftcardRemoteCallTestImpl: CEDAR PROGRAM
IMPORTS IO, Rope, SoftcardRemoteCall
EXPORTS Export
~
BEGIN
CallTest:
PUBLIC
PROC [msg: Rope.
ROPE]
RETURNS [r:
CARD32] ~ {
Description of the procedure.
PutMsg:
PROC [ub: Basics.UnsafeBlock] ~
TRUSTED {
s: IO.STREAM ← IO.RIS[msg];
[] ← IO.UnsafeGetBlock[self: s, block: ub];
};
r ← SoftcardRemoteCall.CallRProc[$RCTest, Rope.Length[msg], PutMsg];
};
END.