-- file PackagerBcdTabDriver.mesa
-- last edited by Lewis on 28-Jan-82 11:00:35
-- last edited by Satterthwaite, December 22, 1982 4:04 pm

DIRECTORY
  BcdDefs USING [NameRecord, VersionStamp, httype, sstype],
  BcdErrorDefs USING [ErrorClass],
  HashOps: TYPE USING [Initialize, Finalize],
  PackagerDefs USING [globalData],
  PackCode USING [];

PackagerBcdTabDriver: PROGRAM 
    IMPORTS HashOps, PackagerDefs 
    EXPORTS BcdErrorDefs, PackCode =
  BEGIN

  Error2Versions: PUBLIC PROC [  -- exported to BcdErrorDefs
      class: BcdErrorDefs.ErrorClass, 
      fileName: BcdDefs.NameRecord, v1, v2: BcdDefs.VersionStamp] = {}; 

  InitBcdTab: PUBLIC PROC = {
    HashOps.Initialize[PackagerDefs.globalData.ownTable, BcdDefs.httype, BcdDefs.sstype]};

  FinalizeBcdTab: PUBLIC PROC = {HashOps.Finalize[]};

  END.