// IfsDirCheck.bcpl -- checks consistency of IFS directory
// Copyright Xerox Corporation 1979, 1981

// Last modified November 26, 1981  12:24 PM by Taft

get "Ifs.decl"

external
[
// Outgoing procedures
CheckDirectory

// Incoming procedures
CompareRecords
CheckTree
]


//----------------------------------------------------------------------------
let CheckDirectory(ifs) be
//----------------------------------------------------------------------------
[
// Verify that the directory B-Tree is well-formed.
// Note that CompareRecords is in the same overlay as me, so it
// doesn't need to be an OEP.
CheckTree(ifs>>IFS.dirBTree, CompareRecords, true)
]