-- file SMParticularTable.mesa
-- last edited by Satterthwaite, August 3, 1983 8:36 am

DIRECTORY
  BcdStamps: TYPE USING [CompareStamps],
  Environment: TYPE USING [Comparison],
  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[Environment.Comparison] ~ INLINE {
    RETURN[BcdStamps.CompareStamps[k, n.stamp]]};
    
  }.