|
TYPE VisitProc = PROCEDURE (object: Objects.Object); (* called by Traverse for all objects of a tree *) |
PROCEDURE Traverse(tree: Tree; visit: VisitProc); (* call visit for all objects in tree in sorted order *) PROCEDURE TraverseInorder(node: Node); BEGIN IF node # NIL THEN TraverseInorder(node.left); visit(node.object); TraverseInorder(node.right); END; END TraverseInorder; BEGIN (* Traverse *) TraverseInorder(tree.root); END Traverse; |
Copyright © 1999, 2004, 2005 Andreas Borchert, in HTML konvertiert am 14.09.2005 |