CDIOExtrasImpl.mesa
Copyright © 1983, 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, August 24, 1983 3:10 pm
last edited by Christian Jacobi, September 25, 1985 11:02:57 am PDT
DIRECTORY
CD, CDIOExtras, TokenIO;
CDIOExtrasImpl: CEDAR PROGRAM
IMPORTS TokenIO
EXPORTS CDIOExtras =
BEGIN
ReadPos: PUBLIC PROC [] RETURNS [CD.Position] =
BEGIN
p: CD.Position;
p.x ← TokenIO.ReadInt[];
p.y ← TokenIO.ReadInt[];
RETURN [p]
END;
WritePos: PUBLIC PROC [p: CD.Position] =
BEGIN
TokenIO.WriteInt[p.x];
TokenIO.WriteInt[p.y];
END;
ReadRect: PUBLIC PROC [] RETURNS [CD.Rect] =
BEGIN
r: CD.Rect;
r.x1 ← TokenIO.ReadInt[];
r.y1 ← TokenIO.ReadInt[];
r.x2 ← TokenIO.ReadInt[];
r.y2 ← TokenIO.ReadInt[];
RETURN [r]
END;
WriteRect: PUBLIC PROC[r: CD.Rect] =
BEGIN
TokenIO.WriteInt[r.x1];
TokenIO.WriteInt[r.y1];
TokenIO.WriteInt[r.x2];
TokenIO.WriteInt[r.y2];
END;
END.