ThVersionsImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last Edited by: Swinehart, May 19, 1985 9:33:10 pm PDT
Last Edited by: Lia, July 26, 1983 5:36 pm
ThVersionsImpl:
CEDAR
PROGRAM
IMPORTS Convert
EXPORTS ThVersions =
PUBLIC {
GMT: TYPE = BasicTime.GMT;
ThrushVersion: CARDINAL ← 32;
EarliestThrushVersion: CARDINAL ← 32;
ThrushVR: RPC.VersionRange ← [ThrushVersion, ThrushVersion];
GetThrushVR: RPC.VersionRange ← [EarliestThrushVersion, ThrushVersion];
ThrushDate: BasicTime.GMT ← Convert.TimeFromRope["May 19, 1985 9:32:15 pm PDT"];
EarliestThrushDate: BasicTime.GMT ← ThrushDate;
FinchVersion: CARDINAL ← 32;
EarliestFinchVersion: CARDINAL ← 32;
FinchVR: RPC.VersionRange ← [FinchVersion, FinchVersion];
GetFinchVR: RPC.VersionRange ← [EarliestFinchVersion, FinchVersion];
FinchDate: BasicTime.GMT ← ThrushDate;
EarliestFinchDate: BasicTime.GMT ← EarliestThrushDate;
JayVersion: CARDINAL ← 32;
EarliestJayVersion: CARDINAL ← 32;
JayVR: RPC.VersionRange ← [JayVersion, JayVersion];
GetJayVR: RPC.VersionRange ← [EarliestJayVersion, JayVersion];
JayDate: BasicTime.GMT ← ThrushDate;
EarliestJayDate: BasicTime.GMT ← EarliestThrushDate;
}.
Edited on July 22, 1983 4:17 pm, by Swinehart
First issue of Version-managed Finch and Thrush. Change EarliestVersion whenever interfaces change, Version whenever noticeable changes occur.
changes to: DIRECTORY [Indigo]<Voice>Top>Thrush.df, ThVersions