<> <> <> DIRECTORY DB, IO, Rope, ViewerClasses; SquirrelTool: DEFINITIONS = { OPEN DB; <<***********************************************>> <> <<***********************************************>> EraseDomains: PROC[dl: LIST OF Domain]; EraseRelations: PROC[rl: LIST OF Relation]; stopped: READONLY BOOLEAN; squirrel: ViewerClasses.Viewer; -- the Squirrel viewer, NIL if not open squirrelOut: IO.STREAM; -- the Squirrel output stream (may be IO.NoWhereStream) }.