
<<BcdStamps.mesa>>
<<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
<<last edit by Satterthwaite, May 12, 1986 11:54:21 am PDT>>

DIRECTORY
Basics: TYPE USING [Comparison],
CompilerOps: TYPE USING [LetterSwitches],
TimeStamp: TYPE USING [Stamp];

BcdStamps: CEDAR DEFINITIONS ~ {

Stamp: TYPE ~ TimeStamp.Stamp;

CompareStamps: PROC[s1, s2: Stamp] RETURNS[Basics.Comparison];


Compute: PROC[
srcCreate: LONG CARDINAL,
switches: CompilerOps.LetterSwitches, compilerVersion: TimeStamp.Stamp,
directoryEnumerator: PROC[PROC[TimeStamp.Stamp]]]
RETURNS[bcdVers: TimeStamp.Stamp];

<<for computing a version stamp>>
<<the directoryStamps are in the order of the DIRECTORY clause>>
<<stamps for the hidden directory entries are not included>>
<<precise switches must be specified (except /d, /g, /p are ignored)>>
<<>>
}.

