<<>> <> <> <> <> DIRECTORY BasicTime, IO, PFS, Rope, VersionMap; VersionMapBuilding: CEDAR DEFINITIONS = { ROPE: TYPE ~ Rope.ROPE; MapList: TYPE ~ VersionMap.MapList; MapUnderConstruction: TYPE ~ REF MapUnderConstructionPrivate; MapUnderConstructionPrivate: TYPE; StartConstruction: PROC [size: NAT ¬ 0] RETURNS [MapUnderConstruction]; <> AddFile: PROC [muc: MapUnderConstruction, t: ConsTuple]; < to the map under construction. t.name is in appropriate syntax. t.from is an English description of where this tuple came from, for use in generating error messages.>> ConsTuple: TYPE ~ RECORD [name, from: ROPE, created: BasicTime.GMT, stamp: VersionMap.VersionStamp]; FinishConstruction: PROC [muc: MapUnderConstruction, prefix: ROPE, PerDuplicate: PROC [a, b: ConsTuple]] RETURNS [VersionMap.Map]; <> ClassifyDifference: PROC [a, b: ConsTuple] RETURNS [DifferenceClass]; DifferenceClass: TYPE ~ {identical, identicalModExtensionAndCreated, veryDifferent}; LimitedMap: TYPE ~ RECORD [map: VersionMap.Map, limit: NAT]; <> LimitedSave: PROC [lm: LimitedMap, name: PFS.PATH, long: BOOL]; FinishLimitedConstruction: PROC [muc: MapUnderConstruction, prefix: ROPE, PerDuplicate: PROC [a, b: ConsTuple], suppressDuplicates: BOOL] RETURNS [LimitedMap]; <> }.