-- File: DBStorageDebugImpl.Mesa
-- Last edited by MBrown on September 25, 1980  11:03 PM
-- Willie-Sue on June 30, 1982 4:34 pm


DIRECTORY
  DBCache,
  DBCommon,
  DBStats,
  DBStorageGroupScan,
  DBStorageTuple;


DBStorageDebugImpl: PROGRAM
  IMPORTS
    DBCache,
    DBCommon,
    DBStats,
    DBStorageGroupScan,
    DBStorageTuple
  = BEGIN

  Print: PROC[] = {
    -- Maximum printing with minimum keystrokes
    DBCache.CheckState[doPrinting: TRUE, printOnlyLockedPages: FALSE];
    DBStorageTuple.CheckState[doPrinting: TRUE];
    DBStorageGroupScan.CheckState[doPrinting: TRUE];
    DBStats.Print[heading: "DBStorageDebugImpl.Print", out: DBCommon.GetDebugStream[]];
    };

  END.


CHANGE LOG

Created by MBrown on September 25, 1980  11:03 PM

Changed by Willie-Sue on June 30, 1982 4:34 pm
-- PrivateIO.debugstream => DBCommon.GetDebugStream[]