Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site ukma.UUCP
Path: utzoo!watmath!clyde!cbosgd!hasmed!qusavx!ukma!brian
From: brian@ukma.UUCP (Brian Sturgill)
Newsgroups: net.wanted.sources
Subject: Re: tree printing algorithm wanted
Message-ID: <392@ukma.UUCP>
Date: Sat, 15-Dec-84 02:26:27 EST
Article-I.D.: ukma.392
Posted: Sat Dec 15 02:26:27 1984
Date-Received: Sun, 16-Dec-84 06:47:18 EST
Organization: Univ. of KY Mathematical Sciences
Lines: 76

This is Wirth's algorithm for tree printing from Data Strutures + Algorithms =
Program's.

This version is written in Modula 2.


PROCEDURE PrintTree(t : treeptr; h : CARDINAL);
    (*  Print out Expression Tree *)
    (*  h is current height of tree *)
    (*  From main program call as PrintTree(root,0) *)

VAR i :CARDINAL;

BEGIN
    IF t # NIL THEN
	PrintTree(t^.l,h+1);
	FOR i := 1 TO h DO WriteString('   ') END;
	WriteChar(outsd,t^.data);
	WriteLn;
	PrintTree(t^.r,h+1);
    END
END PrintTree;


-----------------------------------------
Brian Sturgill
	University of Kentucky Graduate School 
	(606) 257-4613
                         /------- Arpa-Net
	unmvax----\     /
	research   >---/------------/-------- anlams!ukma!ukgs!brian
	boulder---/                /
	           decvax!ucbvax -/ (or cbosgd!hasmed!qusavx!ukma!ukgs!brian)

For arpa-net, anlams has the name ANL-MCS.  (i.e. "ukma!ukgs!brian@ANL-MCS").
We have been having intermittent problems with this address though.

Subject: Re: tree printing algorithm wanted
Newsgroups: net.wanted.sources

This is Wirth's algorithm for tree printing from Data Strutures + Algorithms =
Program's.

This version is written in Modula 2.


PROCEDURE PrintTree(t : treeptr; h : CARDINAL);
    (*  Print out Expression Tree *)
    (*  h is current height of tree *)
    (*  From main program call as PrintTree(root,0) *)

VAR i :CARDINAL;

BEGIN
    IF t # NIL THEN
	PrintTree(t^.l,h+1);
	FOR i := 1 TO h DO WriteString('   ') END;
	WriteChar(outsd,t^.data);
	WriteLn;
	PrintTree(t^.r,h+1);
    END
END PrintTree;


-----------------------------------------
Brian Sturgill
	University of Kentucky Graduate School 
	(606) 257-4613
                         /------- Arpa-Net
	unmvax----\     /
	research   >---/------------/-------- anlams!ukma!ukgs!brian
	boulder---/                /
	           decvax!ucbvax -/ (or cbosgd!hasmed!qusavx!ukma!ukgs!brian)

For arpa-net, anlams has the name ANL-MCS.  (i.e. "ukma!ukgs!brian@ANL-MCS").
We have been having intermittent problems with this address though.