-- ConcreteTransID.mesa
-- Defines format of AlpineEnvironment.TransID.
-- Last edited by
--   MBrown on October 28, 1982 9:21 pm


  DIRECTORY
    AlpineEnvironment;

ConcreteTransID: DEFINITIONS =
  BEGIN
  VolumeID: TYPE = AlpineEnvironment.VolumeID;

  TransID: TYPE = MACHINE DEPENDENT RECORD [
    randomBits: INT,
    idOnFileStore: INT,
    fileStore: VolumeID];

  Equal: PROC [a, b: TransID] RETURNS [equal: BOOL] = INLINE {
    RETURN [(a.randomBits = b.randomBits) AND
      (a.idOnFileStore = b.idOnFileStore) AND (a.fileStore = b.fileStore)]
    };

  END.