DIRECTORY MorePfsNames, PFS, PFSNames, VersionMapClassify, VersionMap2, VersionMap2Implr;VersionMap2Directories: CEDAR PROGRAMIMPORTS MorePfsNames, PFS, PFSNames, VersionMapClassify, VersionMap2, VersionMap2ImplrEXPORTS VersionMap2=BEGIN OPEN MPfsN:MorePfsNames, PVMC:VersionMapClassify, VersionMap2, VersionMap2Implr;DirectoriesMap: TYPE ~ REF DirectoriesMapPrivate;DirectoriesMapPrivate: TYPE ~ RECORD [dirs, cache, hints: Map,cg, hg: BOOL];dmClass: MapClass ~ FillinDefaults[FALSE, readonly, [Scan: DmScan,data: NIL]];localStar: Name ~ PFSNames.ConstructName[components: LIST[MPfsN.ConstructComponent[name: ["*"], version: [all]]], absolute: FALSE, directory: FALSE];CreateDirectoriesMap: PUBLIC PROC [dirs: Map, cache, hints: Map _ nullMap] RETURNS [Map] ~ {{dm: DirectoriesMap ~ NEW [DirectoriesMapPrivate _ [dirs, cache, hints, cache#nullMap, hints#nullMap]];RETURN [[dmClass, dm]]}};DmScan: PROC [map: Map, Consume: TupleConsumer, inOrder: BOOL, pfml: PatternFactoredMapList] RETURNS [MaybeTuple] ~ {dm: DirectoriesMap ~ NARROW[map.data];IF pfml.stampInd = listOfEmpty THEN RETURN [noMaybe];{mt: MaybeTuple _ noMaybe;testName: BOOL ~ pfml.pattern.name # nullName;dirPart: Name ~ IF testName THEN pfml.pattern.name.SubName[count: pfml.pattern.name.ComponentCount[] - 1, absolute: TRUE, directory: TRUE] ELSE nullName;lc: MPfsN.Component ~ IF testName THEN pfml.pattern.name.ShortName[] ELSE [];PerDir: PROC [dt: VersionTuple] RETURNS [BOOL] ~ {dir: Name ~ dt.name;enumPat: Name _ NIL;IF testName THEN {enumPat _ dir.Cat[PFSNames.ConstructName[LIST[lc], FALSE, FALSE]];}ELSE enumPat _ dir.Cat[localStar];PFS.EnumerateForInfo[enumPat, PerInfo];RETURN [mt.found]};PerInfo: PFS.InfoProc ~ {nameR: ROPE ~ PFS.RopeFromPath[fullFName];thet: MaybeTuple _ noMaybe;IF NOT CreatedMatch[uniqueID, pfml.pattern.created] THEN RETURN [TRUE];IF pfml.stampInd#NIL AND NOT AllHave[pfml.stampInd, [fullFName, uniqueID]] THEN RETURN [TRUE];{thisLC: MPfsN.Component ~ fullFName.ShortName[];seek: VersionTuple ~ [name: LastComponentToPattern[[name: thisLC.name, version: [all]]].name, created: uniqueID];IF dm.cg THEN thet _ dm.cache.ScanMatches[AlwaysAccept, FALSE, seek];IF dm.hg AND NOT thet.found THEN thet _ dm.hints.ScanMatches[AlwaysAccept, FALSE, seek];IF NOT thet.found THEN {kind: PVMC.Kind ~ PVMC.Classify[nameR];thet.it _ [fullFName, uniqueID, PVMC.ReadVersionStamp[kind, nameR, uniqueID.egmt.gmt, FALSE].stamp];IF dm.cg THEN [] _ dm.cache.AddTuple[thet.it]};IF NOT StampMatch[thet.it.stamp, pfml.pattern.stamp] THEN RETURN [TRUE];IF pfml.general#NIL AND NOT AllHave[pfml.general, thet.it] THEN RETURN [TRUE];IF Consume[thet.it] THEN {mt _ [TRUE, thet.it]; RETURN [FALSE]};RETURN [TRUE]}};[] _ dm.dirs.ScanMatches[PerDir, FALSE, [name: dirPart]];RETURN [mt]}};END.    Ю  VersionMap2Directories.MesaCopyright ╙ 1990 by Xerox Corporation.  All rights reserved.Last tweaked by Mike Spreitzer on April 10, 1992 9:34 am PDT Э╩j  Ц"cedar" styleХNewlineDelimiterЩ codeЩKЩ<KЩ<ЧKШ KЪ╧k	ЬЭЬ>ШYKШ Ъ╧nЬЭЬЭШ%KЪЭЬЭЬ=ШVKЪЭЬШKШЧKШ KЪЭЬЭЬЮЬЭЬ3ШVKШ KЪЬЭЬЭЬШ1ЪЬЭЬЭЬШ&KШKЪЬЭШKШЧKШ ЪЬ#ЭЬШ5KЪЮЬ	ШKЪЬЭЬШЧKШ KЪЬ5ЭЬCЭЬЭЬШХKШ ЪЮЬЭЬЭЬ*ЭЬ
Ш\KЪЬЭЬNШgKЪЭЬШЧKШ Ъ
ЮЬЭЬЮЬЭЬ ЭЬШuKЪЬЭЬШ&KЪЭЬЭЬЭЬШ5KШKЪЬ
ЭЬ Ш.KЪЬЭЬ
ЭЬTЭЬЭЬЭЬ
ШЩKЪЬЭЬ
ЭЬЭЬШMЪЮЬЭЬЭЬЭЬШ2KЪЬШKЪЬЭЬШЪЭЬ
ЭЬШKЪЬ)ЭЬЭЬЭЬШBKШЧKЪЭЬШ"KЪЭЬ$Ш'KЪЭЬШЧЪЮЬЭЬШKЪЬЭЬЭЬШ*KЪЬШKЪ
ЭЬЭЬ.ЭЬЭЬЭЬШGKЪЭЬЭЬЭЬЭЬ/ЭЬЭЬЭЬШ^KЪЬ1Ш1KЪЬqШqKЪЭЬЭЬ+ЭЬШEKЪ
ЭЬЭЬЭЬЭЬ+ЭЬШXЪЭЬЭЬЭЬШKЪЬЭЬЭЬШ'KЪЬ ЭЬ2ЭЬ	ШdKЪЭЬЭЬ"Ш/ЧKЪ
ЭЬЭЬ/ЭЬЭЬЭЬШHKЪЭЬЭЬЭЬЭЬ ЭЬЭЬЭЬШNKЪ
ЭЬЭЬЭЬЭЬЭЬШ@KЪЭЬЭЬШЧKЪЬ!ЭЬШ9KЪЭЬШЧKШ KЪЭЬШЧ ЕЧ        