DIRECTORY Basics, IO, Rope, SoftcardRemoteCall; SoftcardVersacolorTestImpl: CEDAR PROGRAM IMPORTS Basics, IO, Rope, SoftcardRemoteCall ~ BEGIN CallPrinter: PUBLIC PROC [file: Rope.ROPE, copies: CARD _ 1, first: CARD _ 0, last: CARD _ CARD.LAST] RETURNS [r: CARD32] ~ { PutArgs: PROC [ub: Basics.UnsafeBlock] ~ TRUSTED { t: REF TEXT _ NEW[TEXT[argsByteSize]]; s: IO.STREAM _ IO.TOS[text: t]; IO.PutFWord[s, Basics.FFromCard32[copies]]; IO.PutFWord[s, Basics.FFromCard32[first]]; IO.PutFWord[s, Basics.FFromCard32[last]]; IO.PutRope[s, file]; IO.Close[s]; IF t.length#argsByteSize THEN ERROR; s _ IO.TIS[t]; [] _ IO.UnsafeGetBlock[s, ub]; }; argsByteSize: CARD32 _ Rope.Length[file]+3*BYTES[CARD]; [] _ SoftcardRemoteCall.CallRProc[$VersacolorPrint, argsByteSize, PutArgs]; }; END. ςSoftcardVersacolorTestImpl.mesa Copyright Σ 1988 by Xerox Corporation. All rights reserved. written by Christian Le Cocq, November 14, 1988 Test of the Sparc side of the Print server EXPORTS Export Description of the procedure. Κι˜code•Mark outsideHeaderšœ™Kšœ<™