FilingAttributesP10V5Init.Mesa
Copyright (C) 1986 by Xerox Corporation. All rights reserved.
Generated by Diebert.pa at May 10, 1988 10:44:03 am PDT
using Sirocco [2.0] of January 31, 1987 1:52:42 am PST
DIRECTORY
CrRPC,
Rope,
TimeP15V2,
CHNameP2V0,
FilingAttributesP10V5;
FilingAttributesP10V5Init:
CEDAR
PROGRAM
EXPORTS FilingAttributesP10V5 ~ {
OPEN FilingAttributesP10V5;
InitProc1:
PROC
RETURNS [result: Position] ~ {
result ← NEW[PositionObject[1]];
result.body[0] ← 0;
};
firstPosition: PUBLIC Position ← InitProc1[];
InitProc2:
PROC
RETURNS [result: Position] ~ {
result ← NEW[PositionObject[1]];
result.body[0] ← 65535;
};
lastPosition: PUBLIC Position ← InitProc2[];
}...