file SMParticularTable.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
last edited by Satterthwaite, May 12, 1986 11:43:08 am PDT
DIRECTORY
Basics: TYPE USING [Comparison],
BcdStamps: TYPE USING [CompareStamps],
SMProj: TYPE USING [Proj, ProjInfo],
TimeStamp: TYPE USING [Stamp];
ParticularTable: CEDAR DEFINITIONS IMPORTS BcdStamps ~ {
Node: TYPE~SMProj.Proj;
NodeRecord: TYPE~SMProj.ProjInfo;
Key: TYPE~TimeStamp.Stamp;
GetKey: PROC[n: Node] RETURNS[Key] ~ INLINE {RETURN[n.stamp]};
CompareKeyToNode:
PROC[k: Key, n: Node]
RETURNS[Basics.Comparison] ~
INLINE {
RETURN[BcdStamps.CompareStamps[k, n.stamp]]};
}.