CheckNode.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
written by Bill Paxton, April 1981
last edit by Bill Paxton, December 22, 1981 1:58 pm
Doug Wyatt, August 28, 1986 5:17:38 pm PDT
DIRECTORY
Rope USING [ROPE],
TextLooks USING [Runs],
TextNode USING [Node];
CheckNode: CEDAR DEFINITIONS
= BEGIN
Failed: ERROR;
Check:
PROC [node: TextNode.Node];
does CheckRope & CheckRuns
CheckRope: PROC [rope: Rope.ROPE];
CheckRuns: PROC [runs: TextLooks.Runs];
END.