SetSaveMapDate.mesa
Russ Atkinson, June 9, 1983 6:49 pm
Sets the create date of SaveMap.df on the local disk to the create date of the highest version on [Indigo]<Cedar>Top>SaveMap.df
DIRECTORY
AMViewerOps,
BcdDefs,
Directory,
File,
FileStream;
SetSaveMapDate: PROGRAM IMPORTS AMViewerOps, Directory, FileStream = BEGIN
Set: PROC = {
version: BcdDefs.VersionStamp ←
AMViewerOps.FileVersion["[Indigo]<Cedar>Top>SaveMap.df"];
cap: File.Capability ← Directory.Lookup[
fileName: "SaveMap.df", permissions: Directory.ignore];
FileStream.SetLeaderPropertiesForCapability[cap: cap, create: LOOPHOLE[version.time]];
};
Set[];
END.