Traverse der Formel-Bäume III

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

TestExpr.om
MODULE TestExpr;

   IMPORT Args := UnixArguments, Expressions, Streams, Write;

   VAR
      expr: Streams.Stream;
      at: Expressions.Attribute;

   (* ... siehe vorherige Folien ... *)

BEGIN
   Args.Init("expression");
   Args.Fetch(expr);
   IF Expressions.Parse(expr, at) THEN
      Write.String("Preorder:  "); TraversePreorder(at);
      Write.Ln;
      Write.String("Inorder:   "); TraverseInorder(at);
      Write.Ln;
      Write.String("Postorder: "); TraversePostorder(at);
      Write.Ln;
   ELSE
      Write.Line("Not an expression!");
   END;
   Args.AllArgs;
END TestExpr.

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999