|
PROCEDURE TraverseInorder(at: Expressions.Attribute); BEGIN IF at # NIL THEN TraverseInorder(at.leftop); Visit(at); TraverseInorder(at.rightop); END; END TraverseInorder; PROCEDURE TraversePostorder(at: Expressions.Attribute); BEGIN IF at # NIL THEN TraversePostorder(at.leftop); TraversePostorder(at.rightop); Visit(at); END; END TraversePostorder; |
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |