GetTreeImpl.Mesa; written by Paxton. May 1981
edited by McGregor. February 9, 1983 9:39 am
edited by Paxton. June 14, 1983 3:58 pm
each line of input file becomes a node
parent for line is the closest previous line with smaller indent
DIRECTORY
GetTree,
Rope,
TiogaNode USING [RefBranchNode];
GetTreeImpl:
CEDAR PROGRAM
EXPORTS GetTree =
BEGIN
ReadIndent:
PUBLIC
PROC [fileName: Rope.
ROPE, tabIndent:
NAT ← 4]
RETURNS [root: TiogaNode.RefBranchNode] = BEGIN
END;
END.