// 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) ]