XTreeOps.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite, October 9, 1985 11:47:57 am PDT
DIRECTORY
Tree: TYPE USING [Id, Link, Scan, MapFromX],
XTree: TYPE Tree USING [Id, Link];
XTreeOps: DEFINITIONS = {
link conversion
LinkFromX: PROC[link: XTree.Link] RETURNS[Tree.Link];
LinkToX: PROC[link: Tree.Link] RETURNS[XTree.Link];
cross-table tree copying
CopyTreeFromX: PROC[root: XTree.Id, map: Tree.MapFromX] RETURNS[v: Tree.Link];
ForEachSon: PROC[node: Tree.Id, action: Tree.Scan];