
DIRECTORY BasicTime, IO, Rope, VersionMap;

VersionMapClassify: CEDAR DEFINITIONS = {OPEN VersionMap;

ROPE: TYPE ~ Rope.ROPE;

NullVersion: VersionStamp = [0, 0];
BadVersion: VersionStamp = [CARD32.LAST, CARD32.LAST];

Classify: PROC [name: ROPE] RETURNS [kind: Kind];

KindSet: TYPE ~ { unknown, source, intermediate, sparc, sparcOpt, all };
Kind: TYPE ~ KindSet[unknown..sparcOpt];

KindName: READONLY ARRAY KindSet OF ROPE;

CreatedToMimosaVersionStamp: PROC [BasicTime.GMT] RETURNS [VersionStamp];

MapListLookup: PROC [mapList: MapList, fullName: ROPE, created: BasicTime.GMT, onlyOne, testCreated, testName: BOOL] RETURNS [found: BOOL, fromMap: ROPE, version: VersionStamp];

ReadVersionStamp: PROC [kind: Kind, fullName: ROPE, created: BasicTime.GMT, rejectServerInaccessible: BOOL] RETURNS [stamp: VersionStamp, whyNot, warning: ROPE];

}.
  ~  
VersionMapClassify.mesa
Copyright Ó 1990, 1992 by Xerox Corporation.  All rights reserved.
Last tweaked by Mike Spreitzer on August 13, 1990 7:35 am PDT
If onlyOne, try only what's reported by VersionToName[mapList, CreatedToMimosaVersionStamp[created]]; otherwise, try what's reported by ShortNameToRanges[mapList, ShortName[fullName]].
created must be correct.  Consults file contents if necessary.  Either stamp=BadVersion and whyNot, #NIL, gives an error message, or whyNot=NIL.  If warning#NIL, something unusual occured, but stamp#BadVersion.  If rejectServerInaccessible, such errors will be allowed to propogate to caller.
ÊŠ  •NewlineDelimiter
–(cedarcode) style™ code™Kšœ
Ïeœ7™BK™=—K˜ KšÏk	œžœ˜*K˜ šÏnœžœžœžœ˜9K˜ Kšžœžœžœ˜K˜ KšŸœ˜#Kš
Ÿ
œžœžœžœžœ˜6K˜ KšŸœžœžœžœ˜1K˜ Kšœ	žœ;˜HKšœžœ˜(K˜ Kš
Ÿœžœžœ	žœžœ˜)K˜ KšŸœžœžœžœ˜IK˜ šŸœžœžœžœ"žœžœ	žœžœ˜±Kšœ¸™¸—K˜ šŸœžœžœžœžœžœ(žœ˜¡Kšœ¤™¤—K˜ K˜—— …—    R  Z  